DECLARE SUB josign (x!, y!, w!)
CALL josign(x!, y!, w!)
SCREEN 9
1
COLOR 14, 1
LINE (10, 10)-(630, 340), , BF
LINE (110, 110)-(550, 260), 4, BF
LINE (100, 100)-(540, 250), 12, BF
i$ = INKEY$
LOCATE 2, 32
PRINT " JoSoft Works "
COLOR , 1
LOCATE 9, 15
PRINT " 1) Create new word processor                       "
LOCATE 11, 15
PRINT " 2) Load previous word processor                    "
LOCATE 13, 15
PRINT " 3) Create new climatic graph                       "
LOCATE 15, 15
PRINT " 4) Create new pattern                              "
LOCATE 17, 15
PRINT " 5) Quit to Dos                                     "
LINE (12, 320)-(628, 337), 1, BF
LOCATE 24, 3
LINE INPUT ">"; a$
IF a$ = "1" THEN GOTO 10
IF a$ = "2" THEN GOTO 20
IF a$ = "3" THEN GOTO 30
IF a$ = "4" THEN GOTO 40
IF a$ = "5" THEN GOTO 50
10
CLS
COLOR 14, 1
LINE (10, 10)-(630, 340), , BF
LINE (12, 320)-(628, 337), 1, BF
LOCATE 2, 3
PRINT " M)ain Menu "
LOCATE 2, 31
PRINT " S)ave Document "
LOCATE 2, 62
PRINT " P)rint Document "
LINE (30, 50)-(620, 315), 4, BF
LINE (20, 40)-(610, 305), 12, BF
LOCATE 6, 6
PRINT text$
x = 5
LET text$ = ""
DO
COLOR 14
LOCATE x, 4
LINE INPUT ">"; a$
LET a$ = a$ + " "
IF a$ = "m " THEN GOTO 1
IF a$ = "s " THEN GOTO 16
IF a$ = "p " THEN GOTO 17
LET text$ = text$ + a$
x = x + 1
IF x > 21 THEN LET x = 5
LOOP
15
PRINT text$
END
16
SHELL "cd\"
SHELL "cd joseph\qbasic"
LOCATE 24, 3
INPUT "Save as"; nam$
LET nam$ = nam$ + ".jsw"
OPEN nam$ FOR OUTPUT AS #1
PRINT #1, text$
LET nam$ = nam$ + ",_"
LET files$ = files$ + nam$
LET files$ = files$ + ",_"
CLOSE #1
OPEN "files" FOR INPUT AS #1
INPUT #1, files$
LET files$ = files$ + nam$
CLOSE #1
OPEN "files" FOR OUTPUT AS #1
PRINT #1, files$
CLOSE #1
GOTO 10
17
LPRINT text$
GOTO 10
20
CLS
LINE (10, 10)-(630, 340), , BF
LINE (40, 40)-(620, 310), 4, BF
LINE (30, 30)-(610, 300), 12, BF
LINE (12, 320)-(628, 337), 1, BF
LOCATE 2, 32
PRINT " JoSoft Works "
OPEN "files" FOR INPUT AS #1
INPUT #1, files$
LOCATE 6, 5
PRINT files$
CLOSE #1
LOCATE 24, 3
INPUT "Load file"; file$
LET file$ = file$ + ".jsw"
OPEN file$ FOR INPUT AS #1
INPUT #1, text$
CLS
COLOR 14, 1
LINE (10, 10)-(630, 340), , BF
LINE (12, 320)-(628, 337), 1, BF
LOCATE 2, 3
PRINT " M)ain Menu "
LOCATE 2, 31
PRINT " S)ave Document "
LOCATE 2, 62
PRINT " P)rint Document "
LINE (30, 50)-(620, 315), 4, BF
LINE (20, 40)-(610, 305), 12, BF
COLOR 14
LOCATE 5, 4
PRINT text$
IF a$ = "q " THEN GOTO 15
IF a$ = "s " THEN GOTO 16
LET text$ = text$ + a$
x = x + 1
IF x > 21 THEN LET x = 5
25
PRINT text$
END
26
SHELL "cd\"
SHELL "cd joseph\qbasic"
LOCATE 24, 3
INPUT "Save as"; nam$
LET nam$ = nam$ + ".jsw"
OPEN nam$ FOR OUTPUT AS #1
PRINT #1, text$
CLOSE #1
SLEEP
30
40
50

SUB josign (x, y, w)
CLS
SCREEN 9
x = 80
y = 30
'drawing
COLOR 1
FOR w = 1 TO 410
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 85
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 150
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 410
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 150
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 85
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y - 1
NEXT w
'shading
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 440
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 55
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 164
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 180
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 439
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y - 1
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y + 1
x = x - 1
NEXT w
FOR w = 1 TO 180
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 55
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y - 1
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y + 1
x = x - 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y - 1
NEXT w
'drawing
x = 245
y = 165
FOR w = 1 TO 100
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
NEXT w
x = 325
y = 165
FOR w = 1 TO 150
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 100
y = y - 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 15
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 100
y = y - 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
NEXT w
x = 165
y = 215
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y - 1
NEXT w
COLOR 10
PAINT (100, 200), 1, 1
PAINT (400, 200), 1
PAINT (100, 155), 14, 1
PAINT (84, 27), 14, 1
PAINT (350, 155), 14, 1
PAINT (500, 35), 14, 1
PAINT (500, 200), 14, 1
PAINT (330, 100), 14, 1
PAINT (330, 250), 14, 1
PAINT (335, 260), 14, 1
PAINT (235, 260), 14, 1
PAINT (175, 250), 14, 1
PALETTE 9, 10
LOCATE 23, 66
PRINT "JOsoft Presents"
SLEEP 3
END SUB