MV - CPCEMU Disk-File Disk-Info (Track-Info  NA3 LOG AIRLINERLOGAIRSUB LOGANAGRAM LOGCASSETTELOG DRAW LOG EUROPA PICEUROPA PIC5 !"#$HANGMAN LOG%&'J14CPM3 EMS()*+,-./01234567J14CPM3 EMS89:;<=>?@ABCDEFGJ14CPM3 EMS@HIJKLMNOKEYS DRLPLABEL LOGQRSTLOGO COMMUSIC LOG the whole word or Q to quit. :] setcursor [8 12] pr [POINTS:] setcursor [8 17] pr [GRAPHICS: characters per word:] setcursor [8 19] pr [. . . . . . . . . . . . . . . . . . . . . . VERY GOOD!!] setcursor [8 22] pr [. . . . . . . . . . . . . . . . . . . . . . . . . GOOD!] setcursor [8 25] pr [. . . . . . . . . . . . . . . . . . . . . . . . . BAD!!] setcursor [8 13] rv type [40] repeat 38 [type char 157] rvo SP 2 type [ TD 1989] type char 7 er [A3 A4 REC] end to REC ct setcursor [73 2] rv pr [* ANAPROFILE SUBREADME ASC%README LOC6SETKEYS COMUVWSTARTUP LOG SUBMIT COM+XYZ[\]UFO LOGWW1 LOG^WW2 LOG_WW3 LOG`WW4 LOGaWW5 LOGbWW6 LOGcLOGO COMLOGO COM GRAM *] rvo setcursor [74 4] pr [CHAMPION :] make "AL count :RH setcursor [65 6] SP 13 - :AL / 2 pr :RH make "AL count :RP setcursor [65 8] SP 13 - :AL / 2 pr :RP setcursor [68 10] pr [(CHARACTERS per WORD)] setcursor [71 18] pr [today's player:] make "AL count :NM setcursor [65 20] SP 13 - :AL / 2 pr :NM setcursor [68 24] pr [(CHARACTERS per WORD)] end u setpos [178 -23to AIRLINER ; TD '89 label "x load "AIRSUB A1 GAME BM type [ONCE MORE? (y / n)] if rc = "y [go "x] erall fs end to CN make "ST item :nr :NAMES make "NS item 1 :ST make "KS item 2 :ST make "SC se 73 :nr + 3 end to NR make "nr :nr + 1 end to CR st pu make "Q ascii rc make "FL :FL - 3 if :Q = 240 [fd 20] if :Q = 242 [bk 20] if :Q = 254 [lt 10] if :Q = 250 [rt 10] if :Q = 243 [make "FL :FL - 30 make "X item 1 tf make "Y item 2 tf if :X < 0 [make "X :X * -1] if :Y < 0 [make "Y :Y * -1] ht stop] to A3 cs pu REC setpos [-312 0] pd repeat 2 [fd 262 rt 90 fd 472 rt 90] pu setpos [-308 4] pd repeat 2 [fd 254 rt 90 fd 464 rt 90] fd 70 rt 90 pu fd 12 pd fd 440 pu seth 0 setpos [-312 -241] pd repeat 2 [fd 230 rt 90 fd 472 rt 90] pu setpos [-308 -237] pd repeat 2 [fd 222 rt 90 fd 464 rt 90] pu setpos [174 -241] pd repeat 2 [fd 504 rt 90 fd 184 rt 90] pu setpos [178 -237] pd repeat 2 [fd 496 rt 90 fd 176 rt 90] pu setpos [-296 -64] pd end to A4 ;TEXT setcursor [8 6] pr [Type one character,Track-Info  Nif :Q = 253 [BM type [You want to STOP?? (y / n)] if rc = "y [make "Q 1 BM stop] BM] CR end to POINT pu make "FL :FL + 55 setpos :KS seth 0 pe fd 6 lt 135 fd 8 rt 135 fd 4 rt 40 fd 8 lt 30 fd 10 rt 150 fd 10 lt 30 fd 8 rt 40 fd 4 rt 135 fd 8 lt 135 fd 6 seth 270 fd 5 ht make "PX :PX + 1 FL rv setcursor :SC type [*] end to BM setcursor [3 26] repeat 45 [type char 32] setcursor [3 26] end to FL rvo setcursor [3 2] (type [POINTS:] :PX) setcursor [47 2] (type [FUEL:] char 32 :FL char 32 [GALLONS]) endto ANAGRAM A1 load "A3 A3 A4 A5 d setcursor [8 8] type [AGAIN? (y / n) :] if rc = "y [ANAGRAM] erall fs end to A1 setscrunch 0.468 type word char 27 "0 make "X -296 ht setsplit 1 ct type [YOUR NAME:...] make "NM rq make "A .examine 64504 repeat :A / 4 [make "A random :A] make "S 0 make "PT 40 make "BT 1 make "SCR 0 make "A 15 ct make "nr random 6 fs if :nr = 1 [load "WW1] if :nr = 2 [load "WW2] if :nr = 2 [load "WW3] if :nr = 3 [load "WW4] if :nr = 4 [load "WW4] if :nr = 5 [load "WW5] if :nr to GAME make "nr 1 label "a if :FL < 100 [CRASH stop] CN make "x item 1 :KS make "y item 2 :KS if :x < 0 [make "x :x * -1] if :y < 0 [make "y :y * -1] setcursor :SC (type [] :NS) setcursor [69 2] CR if :Q = 1 [stop] make "XX :X - :x if :XX < 0 [make "XX :XX * -1] make "YY :Y - :y if :YY < 0 [make "YY :YY * -1] if and (:XX - 35 < 0) (:YY - 35 < 0) [POINT go "b] setcursor :SC label "b type :NS rvo repeat 2 [type char 32] NR if :nr = 23 [stop] FL go "a end to rv type word char 27 "p end to rv= 0 [load "WW6] B make "G count :B make "nr 1 end to A5 A51 A6 if :L = "Q [stop] if or (:X > 180) (:PT < 0) [A7 stop] make "nr :nr + 1 if :nr = :G [A2 make "nr 1] make "BT :BT + 1 make "AL :A A5 end to A6 setcursor [8 8] make "L rq setcursor [8 9] if :L = "Q [stop] make "NR 1 if :L = :W [setcursor [8 2] (type [YES! THE WORD.:] :W) make "SCR (40 - :PT) / :BT LINE b PNTS stop] make "PT :PT - 1 Z PNTS A6 end to Z if item :NR :W = :L [make "P se :NR * 2 + 6 4 setcursor :P type :Lo type word char 27 "q end to CRASH repeat 4 [type (word char 27 "b0 word char 27 "c1) type char 7 type (word char 27 "b0 word char 27 "c0)] BM type [SORRY, YOUR FUEL IS BELOW "SAFETY - LEVEL!! YOU LOST!!!!] repeat 500 [] end rt 135 fd 8 lt 135 fd 6] if :NR = :A [stop] make "NR :NR + 1 Z end to SP :x repeat :x [type char 32] end to b setcursor [8 4] SP :A * 2 setcursor [8 4] end to d setcursor [8 8] SP :A end to rv type word char 27 "p end to rvo type word char 27 "q end to PNTS make "CX 47 - :PT make "SC se :CX 13 setcursor [70 22] type :SCR setcursor [34 12] SP 2 type se [WORDNR. :] :BT setcursor :SC type char 151 rv type :PT rvo d end to LINE if :SCR > 5 [make "SCR 5] make "X :X + 10 make "Y :SCR * -32 - 64 setpos se :X :Y eto A1 ht setsplit 2 cs ct type [YOUR NAME PLEASE?..:] make "NAME rq setscrunch 0.468 type word char 27 "0 make "PX 0 make "nr 1 ct pu make "FL 990 loadpic "EUROPA wrap make "NAMES shuffle [[Amsterdam [-155 30]] [Copenhagn [-103 65]] [Oslo [-110 128]] [Stockholm [-64 110]] [Helsinki [-18 130]] [London [-200 25]] [Moscow [90 90]] [Warsaw [-20 30]] [Prague [-80 10]] [Bern [-140 -36]] [Bonn [-140 11]] [Berlin [-90 30]] [Paris [-180 -13]] [Madrid [-265 -100]] [Rome [-80 -110]] [Athens [25 -140]] [Vienna [-72 -2nd to A7 if :SCR - :RP < 0 [make "RP :SCR make "RH :NM ern [B W1 SCR X Y] erasefile "ANAGRAM save "ANAGRAM] end to A51 make "W item :nr :B make "W1 [] make "A count :W make "NR 1 label "x make "W1 se item :NR :W :W1 make "NR :NR + 1 if :NR - :A > 0 [make "W1 shuffle :W1 go "y] go "x label "y setcursor [8 2] SP 20 + :AL setcursor [8 2] type :W1 setcursor [8 4] repeat :A [type [.] type char 32] end make "RP "2.34567 make "RH "William\ Shakespeare L [make "P se :NR * 2 + 6 4 setcursor :P type :L7]] [Dublin [-242 66]] [Budapest [-56 -32]] [Brussels [-155 15]] [Belgrad [-23 -84]] [Lisbon [-308 -116]]] setcursor [47 1] (type [PILOT:] :NAME) FL setcursor [74 2] type [* AIRPORTS :] repeat 22 [CN setcursor :SC type :NS NR] er "A1 endTrack-Info  Nto CASSETTE ; T.DIJKSTRA 1989 SCR label "x INIT I2 I2 OUT KDR if rc = "\* [] setsplit 1 ct (type [AGAIN? (y / n)] char 32) if rc = "n [erall stop] go "x end to INIT make "nr 1 make "LINE [] make "S 2 make "N 1 make "A 1 ht end to I2 ts ct (pr [PLEASE TYPE TEXT (max.] :NL [lines, 28 characters each) for SIDE] :A) make "N 1 pr [] repeat :NL [(type :N char 32) I make "LINE se :LINE :line make "N :N + 1] make "A 2 cs ct end to OUT make "N 1 repeat 2 * :NL [make "line item :nr :LINE SC makeA = 28 [SMALL CT] if :A = 253 [EXIT CT] if :A = 104 [copyon HELP pr char 12 copyoff] if :Q = 1 [stop] D2 end to LD NAME if :nm = " [CT stop] if not emptyp dirpic :nm [CT loadpic :nm BL stop] DIR end to SV NAME if :nm = " [CT stop] if emptyp dirpic :nm [CT savepic :nm BL stop] type [Name already in use.] WT DIR end to ER NAME if :nm = " [CT stop] if not emptyp dirpic :nm [erasepic :nm BL stop] DIR end to NAME ct (type [Name?] char 32) make "nm rq end to DIR (type [PICTURE DIRECTORY:] char "nr :nr + 1 make "N :N + 1] setcursor [3 24] type :TTL end to I make "line rq make "X count :line if :X - 28 > 0 [type char 7 I] end to SC make "SC se :S :N + 1 setcursor :SC (pr :N char 32 :line) if :nr = :NL [make "S 36 make "N 0] end to KDR fs pu setpos [-360 263] pd rt 90 repeat 2 [fd 564 rt 90 fd 390 rt 90] lt 90 bk 528 rt 90 fd 564 lt 90 fd 136 bk 66 lt 90 fd 564 end to SCR ts ct setcursor [30 0] rv type [* * C A S S E T T E * * TD '89 * *] rvo l pr [This program enables you to 32) type dirpic "A: WT end to EXIT ct type [OPTIONS : s = Save (23 K!) , e = Erase, l = Load, c = clear screen, q = Quit] make "i rc if :i = "s [SV] if :i = "e [ER] if :i = "l [LD] if :i = "c [cs] if :i = "q [ct type [Are you sure? (y / n)] if rc = "y [setscrunch 0.468 make "Q 1]] CT end to BL setsplit 1 ct pr char 7 end to WT repeat 400 [] end to CT ct fs end to HELP pr [DRAW is a small drawing program.] pr [] pr [COMMANDS AVAILABLE:] pr [] pr [CURSOR - keys: lines in 4 directionsprint labels for audio - cassettes.] pr [You can print up to 20 lines (of 28 characters each) on both side A and B.] l pr [Printing: EXTRA + PTR - key] label "x l (type [Number of lines?] char 32) make "NL rq if not numberp :NL [go "x] if 20 - :NL < 0 [go "x] label "y l pr [Please type the TITLE for this CASSETTE (up to 55 characters)] make "TTL rq make "N count :TTL if 55 - :N < 0 [go "y] end to rv type word char 27 "p end to rvo pr word char 27 "q end to l pr [] end :LINE SC make] pr [o key: circle to the right] pr [O key: circle to the left] pr [+ key: to make hook / unit / length / pen or turtle BIGGER] pr [- key: to make hook / unit / length / pen or turtle SMALLER] pr [f key: to fill closed fields] pr [h key: HELP instructions on paper] pr [EXIT - key: to load / save / erase pictures on screen or disc / quit the program] end to SMALL ct type [SMALLER? u = unit, h = hook, l = length, p = pen up, t = turtle hidden] make "I lc rc if :I = "u [make "U :U * 0.6666666 setscrunch 0.468 * :U] if :I = "h [make "H :H - 15] if :I = "l [make "X :X / 2] if :I = "p [pu] if :I = "t [ht] end to BIG ct type [BIGGER? u = unit h = hook, l = length, p = pen down, t = turtle shown] make "I lc rc if :I = "u [make "U :U * 1.5 setscrunch 0.468 * :U] if :I = "h [make "H :H + 15] if :I = "l [make "X :X * 2] if :I = "p [pd] if :I = "t [st] end  fs end to DRAW INIT D2 erall fs end to INIT wrap ts ct setscrunch 0.468 make "Q 0 make "H 30 make "U 1 make "X 10 HELP pr [] type word char 27 "p (type char 32 [PRESS ANY KEY TO START]) type word char 27 "q if rc = "\* [] setsplit 1 cs st CT end to D2 make "A ascii rc if :A = 240 [seth 0 fd :X] if :A = 242 [seth 180 fd :X] if :A = 254 [seth 270 fd :X] if :A = 250 [seth 90 fd :X] if :A = 111 [rt :H fd :X] if :A = 79 [lt :H fd :X] if :A = 102 [pu fd 3 pd fill BL] if :A = 234 [BIG CT] if :Track-Info  N      PICTURE?       UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU__     À UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUǙ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUE癙 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_] UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWUUE UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_UU癙 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU      UWÀ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUWUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUU_UU UUUUUUUUUUUUUUUUUUUUUUUUUUUUU_UW UUUUU      Track-Info  NUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUWU UUUUUUUUUUUUUUUUUUUUUUUUUUUU_UU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUWUUUUUUUUUUUU_ UUUUUUUUUUUUUU_UUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUWUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUU_UUUUW UUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUWUW UUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUU_UW UUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUU_UU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_UUWW UUUUUUUUUUUUUWUUUUUUUUUUUU_UUW UUUUUUUUUUUUU_UUUUUUUUUUUu_UUW UUUUUUUUUUUUUUUUUUUUUUU_WUUW UUUUUUUUUUUUUUUUUUUUUUWWUUW UUUUUUUUUUUUUUUUUUUUUUWUUUW UUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUU_W UUUUUUUUUUUUUUUUUUUUUUUUUU_UU UUUUUUUUUUUUUUUUUUUUUUUUUUWUW UUUUUUUUUUU UUUUUUUUUU_UUUUUUUUUUUUUUUUW UUUUUUUUUUWUUUUUUUUUUU_UUUUW UUUUUUUUUUUUUUUUUUUUU_UUUUUW UUUUUUUUUUWUUUUUUUUU_UUUUUW UUUUUUUUUW_UUUUUUUUU_UUUUUW UUUUUUUUUW_UUUUUUUU_]UUUUUWUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUWU UUUUUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUU_UWUUUUUUUU_UUUUUW UUUUUUUUU_UUWUUUUUUUUWUUUUUUW UUUUUUUUUUU_UUUUUUUUW]UUUUUUW UUUUUUUUUUU_UUUUUUUUW_UUUUUUUW UUUUUUUUUUUUUUUUUUUWWUUUUWUW UUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUWUUUUUUUUUUU UUUUUUUUUUUUUUU_UUUUUUUUUUU UUUUUUUUUUUUUUU_UUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUU}UUUU_Track-Info  NUUUWUUUUU_ UUUUUUUUUUWUUUUUUUUWuUUUU UUUUUUUUWUUWUUUUUUUUUUUUU_ UUUUUUUUWUU_UUUUUUUUUUUUU UUUUUUUU_UUUUUUUUUUUUUW UUUUUUUU_UUUUUUUUUUU_ UUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUU_ UUUUUUUUUUUUU_ UUUUUUUUUUUW UUUUUUUUUUUWW UUUUUUUUUUUW UUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUWUUUUUW UUUUUUUUUUUUU_UUUUW UUUUUUUUUUUUU_UUUU UUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUW_ UUUUUUUUUUUW_ UUUUUUUUUUUWU UUUUUUUUUUUWU UUUUUUUUUUUUU UUUUUUUUUUUUUWW UUUUUUU UUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUWUUU UUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUU_UUU UUUUUUUUUUUUUWU UUUUUUUUUUUUU_UUUUUUWU_ UUUUUUUUUUUUUU_UUW UUUUUUUUUUUUUUWUUU UUUUUUUUUUUUUUWUUUWU_ UUUUUUUUUUUUUU_UUUUWUU_ UUUUUUUUUUUUUU_UUUUUUUUU_ UUUUUUUUUUUUU UUUUUUUUUUUWUUUU UUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUU_ U UUUUUUUUUUUUUU_UUUUUUUUUUU_ UUUUUUUUUUUUUU_UUUUUUUUUUUU_ UUUUUUUUUUUUUU_UUUUUUUUUUUUU_ UUUUUUUUUUUUUU_UUUUUUUUUUUUUU_ UUUUUUUUUUUUUU_UUUUUUUUUUUUUUU_ UUUUUUUUUUUUUU_UUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUuUU UUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUU UUUUUUUUUUUUUUU_Track-Info  NUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUU_UUUUUUUUUUUUUUU UUUUUWUUUUUU UUWUUUUUUUUUUUUUU_UU_UUUU UU_UUUUUUUUUUUUUUUU_UUU UU_UUUUUUUUUUUUUUUU_UWUW UU_UUUUUUUUUUUUUUUUWWUU UU_UUUUUUUUUUUUUUUUUU}WUU UU_UUUUUUUUUUUUUUUUUUWWWUUUUWUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUW UUUU_UUUU_UUUUUUUUUUUUUU UUUU_UUUWUUUUUUUUUUUUW UUUU_UUUUUUUUUUUUU_ UUUUUU_UUUUUUUUUU UU_UUUUUUUUUUUUUUUUUUUUUUU UUWUUUUUUUUUUUUUUUUUUUU_UUUU_ UUWUUUUUUUUUUUUUUUUUUUU_UUUU__ UUWUUUUUUUUUUUUUUUUUUUUWUUU_UW_ UUWUUUUUUUUUUUUUUUUUUUUWUUU_UW_ UUWUUUUUUUUUUU UUUUUWUUUUUUUUU UUUU_UUUUUUUUUW UUUUUWUU_UUUUUUU_ UUUUWUUUUUWUUUUUU_ UUUUUWUUUUUUUUUUUW UUUUUUWUUUUUU_UUUUUUUUUUUUUWUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_UUW UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWUU_UUW UUUUU_UUUUUUUUUUUUUUUUUUUUU]UUUUUU]UUWUUUUUUUU UUUUUUUUUUUU_UUWUUU UUUWUUUUUUUUWUUUU_ UUUWUUUUUUUUUUUU_W UUUWUUUUUUUUUUUUW UUUWUUUUUUUUU_UUUW UUU_ UUUUUWUUUUUUUUUUUUUUUUUUUU]UUUUUU_UUUWUUUUUU UUUUUWUUUUUUUUUUUUUUUUUUUUUUUUUUUWUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUU_UUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWUUUUUUUU_UUUUUU_UUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWUUUUUUUUUUUUUUUUUUUUUUUWUU_UU UUU_UUUUUUUUUUUUUWUUUU_ UUU_UUUUUUUUUUUUUUUUUUUW UUU_UUUUUUUUUUUU_UUUUUUUU UUUUUUUUUUUUUUUWUUUUUU UUUUUUUUUUUUUUUUUUU_UUWTrack-Info  NUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_UUUUUUUUUWUUUUUUUUUUUUUUU_ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_     ?     f`b6fffff >|<<<<|<<<x<<~<<vvfv!T ! %@'!6!L>!F!#!$@!e>͆!k> ͆!jN2>!R>͆!>\͆!`$a$%w!w!@A?w!?w%= Ô â ë ù < æ  ù Íë ù`@%   Éxχ N0[<óp× "կV!# !%" >[  ͽ!>!2'8w 0͒:ruͮ:'E@D:G:'O2 8] pr [Used characters:] setcursor [2 17] pr [Type one character, or whole word.] PL3 SH setcursor [20 20] type [AGAIN? (y / n) :] if rq = "n [cs stop] GAME end to SH make "TN :TN + 1 make "NR 1 make "RT 0 make "L rq if :L = :W [ZIN setcursor [2 20] pr [Well done !!] stop] make "PL se :TN * 2 10 setcursor :PL SP :NB setcursor :PL type :L SH2 if :RT = 0 [HANG if :Pt = 0 [stop]] SH end to SH2 if :L = item :NR :W [make "PL2 se :NR * 2 5 setcursor :PL2 type :L make "RT 1] if :NR = :NB [PL3 stop] make "Track-Info  N         :(!>!> :(> (< :'> : o&))))> > !)*++p+p##z+p+p!*+.z6T]+r+s+q+r+sxBqHǴLy\x`7DZL ͧͷ!(#7( #( ͭ͢ ͧ  <a{øô;c/<"'S'2'>yy>y{8z<@y}J :'(> 2'y|Jzy{2' !>.Z>:'<'7aiaxQ?=@=K(['*':'/! *!(:3(T_<23(ê%z 2 >! p(:t(=/#fo>|}|||~@ V nf"W(cn"Y(>2T(~~0 6~0 6V {݆_2Y(nc"Z(~2\(`j"W(> 2T(!]("P(ox2O(o a"U(nf"R(~= zWxG zݖ8ݖ/WxO ! H!O(   % :7 ! !O( !:o ! ~:͍͋ ͫâyO!F( yݮ?> ( *R( *R( *RP *Rͦ  @({(P6 6!f(B͔ 6687?>Ty:'2'y(=(=(=(:'( =Px͝x_0 Y>y:'8x7x >yx! %""'##o͖"FÖ"!"'.b"'B*']!*'c!>Qy:'!'͞84B͝~!'4xx0!'͞0 xw!'4 4F:'ܘM5#^4~a86!'7y`h"(}6vogx pAhE4# !Dh 0!h> 72(Ͷ͍ͼ 2+(3y*(͵y 8ͩí( !(͇í͂!͇!5͇ԩͭ!M]N  ! ~>ܹ 45> _>{_o g~w~w~w~w~ w~A=(=(p!Fut6`~ww&nut~wOw^s rbn~()RF!yݖG+ut|(yw##~ )|<0ַx(  6 V""ͣ  ~ W066z7ȷ Wa0r6Ͽ>|y>|y|~z8y=z B:s"(F##0#?^#V*&(ͯ 7cbYX32͂ ?͂ ?͂ ͂=͂#2(͂#*(oN͂#2(͂#2(͂#2(͂#[(_*(̓{ Я 2 6y3x6wvurqpolkKj`feddNMLKJIHFExDC B A1 0 !%""(>_ !*(##6 *(##6!(~6 *(|/2(*&([#( >2(*(##^6*(##sK#([(*&(: 2*(>>?2(/2%(!"&("(("#(>2(>(!(6x&(&.Y"!(:(!O *!(% (%"(S#(*&(N(B= ͐y #7~>#~7#~>>n|y|!>|#0w#~+p%ÜͰ%:r(= â>F#~#|>~@ |y*8(6| !!*8(~!^(( !h*8( 0(0 7G08x:N( > :p(:N((:N((:q(!N(~/w> 2N(ɯ*6(##wG>=x)x<q!ʹv(!ͦ2 !C)w#2R)2)!%" >_ !N0N8* )t" )ů2* )͈8tc͈͜g K!(͟"#(͟R"(!"&(y0ix`[&(*#(ͪ,"&([({-:%((.$z0 %z[#(_ N  y>= >2%(%W-S$B,?%\:$(W*(_S-\,:%(|=*(g*.&$: (0[#(_ !*(([({0kz0b"&("(([#(:(o%|I*[#(*(IK#( Y*( I*( *(T}<*#(lS : ((T*#(_zW[#(s !*(~wOG{=(<(6 :+( 2+(oo&W  L L Nwy##n&))) #@[\]^`{|}~#^`#^`@[\]^`{.87|p,02&;͘0><>")S)!=S)2)7 x̀(?y ~# !)x w7`oy0}iO d(#O*) *)}|d*)(+S):)O:)G̀н?&~7*)<^#= {7X(y!ogyW~ 09Y`8.x!O  !` ! !s` !"~(P*7!{0a!!"!s!~: 7+?/7{0a0 0 !)x yN>(y> wxG7x2)͕!>)6#w#w#w|}~#@^`~##@\^@ٮ^`}~!".(G! ~#< ~#ȷ ~#(( ͮ F#> ͮ z og~ ###(p(s(x(y&j(k( (b(A q q  q q }0ͮ >< 8B(0+~# Į >:(yAͮ >:O*.(ͯ >20(ɯ> 20(J% > x * % % > _ % :( :1(O:!(* H% M ?y21(:0(22(M x!; *!(:2(,T_<22(ê͵*!(T} W%Track-Info  N         !@)5N#F7!>)4!>)54Ͱ!A)~Ͱ#56!>)5q#p!@)4>274:@)=#4~ wo)g:G:@G: G!C)O~q/u#}N !O)54[P)*R)"R){H8O8)Ȏ:B)( y kͶ!T)X #<2O)H lEDSP)W>&$:0o) x>2B)"T)yQzY!!!"!s!p>"!|, s#r#` !V)s#r#!0Y1Yq\">"! !f)+Nwy"O@}@(2D(*<(0@(  >*a}|>E (>10@(`>*>(0@(E:B(}|0@(1:C([:(C0@(:D(*<(0@(  >*a}|>E*aO (!zp?(2Gq *d}0O2d*p'|ĶWY!'^#VĠ!h!*r'Ķʹ:&=#"a}|M^#~#pWp]T###~45+~+6+[&( 8 [&"&"&"&s#r!&"*asf'1f'8!&6!sf'1f'>2&^#V#N S&͹ #5 S&#p*&| 2&*#|(:&ʤ^#V#~#2a~#2bY(o&)))DM!Y.&)))DM͜kb6 >"͜i&))) ͽ"!f)Nwog~#fo"y~/#>~/#>"͜./- ">"zͮ{g)͓ч( O>G!g)S5>"{ͮ{g)͓( O>G+#!g)>Zl"@(zͮ{^#Vo&)))ɇo&[)!%""z)  >_ !:|)! 62y)*z)Kw)"<*z)##_r0 !|)p#q6!y)~4):w)0:x)*z)###w~++++@"w)<<>"M" za7d͜*###w#6!95 ##:&w##:&~++*#$% "##r##0+V+^$%(##8~s#~r++"#s#r5 *#|^#V!9sf'*#^#VS#6+MD!9{f'!9! s#rKaͿ ##w#6#s#r#q#p####~4 5+~Ү:& ##ͬ 5( 4[ap"a}|>]T###w&ÿ#4( 5 ͮ4( 5 #^#V+~#~#5~#=(^#V *#r+s" *####5! 6p'ï#p'͝#Ҳ!p#r'ï#r'!x'>'w>2#'w>O#w>] #=-[p;/.09oilkm,87uyhjn 65rtgfbv43ewsdcx12q az } >@+_{P<:?.)(OILKM,*&UYHJN '%RTGFBV$EWSDCX!"Q AZ  ܟ      ן   096328451 7\~^|`^ .[ not ready writprotected seek failno msing addmark bad fmat unk8!'~w w#5 6 *v'|Ġ!*t'|N#F#~( 5 ]T#~#i`| v't'##q#pï#v't'Ϳ#[|'*z':y''#|2~'S|'"z'og"x'"!"![e8{=Ɓ_'W['"' ""*aT~#fo.""*a^#V""*a^#V#~#fo""Sa{z!͏"çs#r#[as#r#|(t(*c*bt(*a*`*a2a}*b2b}Ka}2a{2b˼˲ <#<#BMD(z? z2b|? |2aCayx}|8}/O|/?G##!' !'j# !' !*'|ͬnown media changed unsuitable CP/M Plus Amstrad Consumer Electronics plcv ., 61K TPA1·2·sSIO/Centronics add-onK M: Pleasput f inton pany key not ready Driv ActiveOn OffOut of paper Waiting for paperBail bar out underrunprinter RAMbad commandprint errorNo printer Printer: lineLFFF ERROR | )*+,-./01RESET&'(at line:Top of Form DraftHigh :Off:On PO defeat ~#fo u#!' ~#~+ 7ȷng͝#ڲ~s#~r͝#Ҳw#w# "`Sb> =2e>2'! "'_2&2#!@zNuz柺(Fuz^6柪(~pGz~q zs :az2!#"'#6#:"M"`"h"]"BREAK@Patch!o%""l!d"l>8͈2l*lw !G0͓IZ:lG0OsI>H>H>H0[I*lO*l>&#0H*lO8͓I͏JG*l~>2l 2lL!%"" l6##E͖"E͖Hex quality drive track or theress , e isdata - RetryIgn Cancel?sect dc errCIR>!f!Q"z!"|!%""8(!%""6(>_ ý!*<(+D(8:>(":?("""!E(~6l#d!E(wĎ#:[7d:@(2n:A(2>22fSg͉͋#~#^#V#N#F#!"<(! $+,":(( G}lcZW">(˺!=!<Ɔg (s2@(0@(a2A(*>(0@(E2B(}|0@(12C([:(C0Track-Info  N         "E͖"O#!"l>0͈ GsL>2 l*l !E@Lk ͋E͡ GHFLͅED(H! lw*l * l !* l NFd8 y0ͪEh (&L(!B(x(y 7y @ 7A (xy XY (Q 7I -zxqHiHHz HL7RL}/o_L7RLbzRG7LIR7Fx( ͕R7z9H7-HG0 ͖Fx( Gy(  ͱFy(˱!F~#( z} RL|@W}WzRxTW-RR( l>HF}7_OXS|8AK}|8!0??zSB0 ?= }l!"Tl*`lQI2\lP͜L*OlX[Rl˺X"Tl.$..͜LVG͜L{o&)"Ol!bl6@#q!cl ͙M͜L{X[KlѹOs#r#ÜL>2Vl>2Ql>2Wl'O!GlLɯ>2Yl͜L=7/=7ÉL*^l"`lýICNPgI:Ql -*Kl"`l"^lsI!\l~6>LsI͙M*`lR0goCN*OlP P͜L&)[I:bl &͙M)))DM*Kl+[`l X8#R͋M0́MH*`l!cl ^#V#X8R͜L(=P͜Lk͜LcyH XDM0=)()͋MQ|('́M}H|H͜L H+| P*`lPͽIx͜L *Ml[`l7R˅֒ ˍRX!j%""l!d"l><͈aJ>2l͠QG!l~6ijG:lW([:l!˔~( G0x(|()QJy( lE͏RlE!l: l(J:'lLL̓I*l !ր(O:l gR @ HaV2laJãQͯRO!l~G˸Шw! l:l:l2 l>>>Y>*l0*l2l 7ɯ2l*l~>:l!l~˾>2l*l e(24lG(e(˥L(ˌ} ( ˥(˄ˌe(D(˄:2l22l|20l26lO:2lH!2l4ˎ26lH˹Iɷ(:6lH*,l",lH**l"*lOIIy*,l|:6l !!0l>GN#~(qOI#x 0>26l**l|(XDMBɷܜL![l45> HRQ> H7PX PH[I7{[Q{'Ơ@HYgR!"$m"7m:-mSY2-m    ##˔^w#˔Vw#˔z(aVXVbk"=m#˔"Om~( ;RaSĂT7;RãQ* m:(mW_#˔XV"+my2(m̕R!mxwz˺S)m7!"$m"&m0R" m7:(mO:mG*+m[)m^ZgR!m˞[7m)  "7mRV:-m!m:mG8x>=XPȯ6#˔XV~ #˔z |"4m˔+˔45( 8  ֎Wz"2mX`iX:'l( AI!"*l*,l|AI!",l|OEII:'l"*l*.l?|!/lÓI".lH:'lĦI>2'l21l23l25l26lS*l[*lsI*.l|ĦII2'l!l4*l 7:'l}I*%l"!l^#˔V*#l"#l!7l4IH:'l 6!7l5J>2'l*!l"%lIK.lIK*lI!"*l".lI*#l|̚J+"#l*!lq#˔"!l*%l4#˔4͚J*l~=>J:7l(*#l:llE*l~w>227l2l!@"!l":l"8l!"#log",l".l}I:7l2͚J*l: l(~(5 !I*8lJ"8l*#l"#l!l5*:lJ":l*l ^#˔V+˔FM=M>MOCNMM:N O O .P .P IPP=MFMLxLNsLpMoOmLN2tm{ 2Jm{26m[=m"=m "?m7K2m*4mn&[6m[#˔ x =*=m";mnm!Kmw# T*Om~8R<=S8 T wW#˔^#˔IT=T#˔~< "Em*;m "?m>!KmnmGm~#= ͗X2tmZXԯX2Jm͏XԧXԿX(>2tm:nm7̧X=>!nm0 #0#wɮw!Q#### ".m###n&"0m*;m";mG*.m#~`To&͟X0)x"\:l!Q_W^#~zNm ]X*?mK\"?mR"Cm*=mK\S=mR"Am*=m[7mR>8*?mR\\R82sm"9m(*=m[?m"?mS=m*Am[Cm"CmSAm*$m2qm&U:Jmgo(2qm*=m[?mR"9m!&U!"$m*lNiLdOcOXOW/NULTcNSgNRNQNPMO5ON8OMMLPKPJ;PINH[NGtNFyNE~NDsOCOA\O@L9O8O5N4N3gO2PO1TO0XO-N*P$O!NM:N O OL(*6LZf@[\]{|}~@[\]{|}~#[\] {|}$ @[\] ^`{|}~[]`{|}~# [\ ]{| \ M*Tl[RlKVlIR*El+6L+6"Cl2@l2Wl*El !*El *El~=*Zl:Glo|![lw.P}OVNsAl!d###%""ElL{El͜L![l(Q*MͤLsClFL{Al7LPH*RlM˼"Rl*TlM*Vl:@lg}H|H!LGl!Sl˾I?m"7m͙Z!Gmnm:sm#!`mp T*9m\"9m:smV*Om:sm(*Em"QmU@VDS<(T=U8#TU V8 yITWy[WW@V_@VG:pmTUWTU2mm<\[CmVWîZWU<\*9m[AmV*smZ̓X?ԯXܷX2mm}X0)̓X?͗XͯXZX|\DMR#go"9mZy xZ*Qm:sm(+˔~ #˔"Qm^#˔V#˔z˲ X* m:(m &K)mB0 `i[+mRR" m8bR S*)mK+mB7B8/C m*&mHB0 "&m4* mog[)m0!mޯ*)m[ mR0gogo" m"&m*$mW_S$mÙZW~WW *.m~##V#F _NM!JN#F##N#F8͜L!KW!Zl z*l#V#(W0:JlNNz0 !Yl͛M͋M.P0M*`l"`l*`l[MlX> W:Il*]l!M## ~tToz&)  H:HlH O0!Il~w*]l:Il*GlRHɯ2Il2]l^N͜Lk4NctN[~NSMCMO0 >6N!]lwO8!Gl!Hl O0O8ů2blN*Ml+N[KlX/ X"KlSMlQIP͙ME͜LTlO2Zl52Jl͜L 2Xl!K[Xl^"l͜L*Ol ͜Lз!X"RTrack-Info  N         dT͟X0)z}X8wX!l0=_QHB2Um"SmCVm SSXm}X!vWzW0##wX0"Zm~##+~+*Sm~KZmX"Smo&:rm()KVm:Ym!Um *Xme =xD(GM5ͧX !`mp0q:rm#w#"^m*Sm+bkV`h !"\m"kmY*\mX:mmo"kmh&|([0mR'X0}]'XZ!"\m?X*kmo[*mmg"km:`m=2`m:am*^m~#"^m(hXO:omyO:omO:omyO:smO:tmO:qmO:rmO:pmO:omO:nmO:pmO:pmO:pm:nmɷR<!)0̈́"m >2m!%""l6ͤvjz(0zBhhzB.qrrq6 +( &z bzzz& D,QHz "z>> 4E/E//z @ zV4z`Jz !z I.-6 K   :z$z\z "!  zA"zzPdDDLzD8z@VVz@8D#|#c\.z@zDz! w+`C | C` 8'=8  T#RVTQki=zP%-ƭ%zP=ikaz iaz z{z z4zz!zz 4z z7YY2lO QO YͭY2l/2l2log"l!D"l"l:l*l|:l *l ! FZ>2l2lY'!*l} *l:l 2l'!:l 7*l !>2l*l !!l46*l *l !͛RY!a\͊Z((u͊Z 7!a\zîZ$%Z|}0&#>Z!a\Z0!$>ͫZ)?>To>o|ơgY}Ʃo|gYa\᯽og%|}>`\ [.=`\{`\[|z@zz`@z` ! Nz"@''bz$"   z z "UVz@z/?z/z_#y as$!= dn$$$$nd zz S3zlz@zzd@  zh5I:zQCCPzz 4zP9zTmzT9zP4 z)z0 ]  A @z02z *{*{*{z>{* :z2I";99;OzD 98"7zz)t{2z APz!zzz)z@tz0pz$ z#m<͟XԿX!l0Ԗ[ͧXY[͏X!l0~#N#^wyK͟X1!m8!l:rm=O+~(!lP#~(B^w{#^w ͗X0 ~N# <(~##ͿX0 ~N##~N##*\2rmZXЯW̓X͉XhX_2rm![N!l ~y  Y˻z w##l ]"\*qm&͗X0%!8L}X.AC ! R8]TBgY'!:l:l (*lr#s#˵"l!l4*l}(.*lGO ! O ˵ x"l2l(2A!lw\W!mz( ~(˺56K#r#56*l *m$%og z?~ zD{Dz~ z`@zz8@;?z`B+{ z< {P&&zz| @ zDz D{ z8x FH +KKG ((  |z, 4{?<|:ll:;0]]0WUz!z zzHJz0zz!/ z Dd!# ! og~8 kb6$(]! O N#F#nxp_WxG}i(2` G~#0z8xO~#og~ (!% O N#F#nxp_WxG}i(F` G~#0 ~#8~##8xO~#og8#~ ɘwDʖܨjzJw zcL)Jm &3B;b?SR\u%>Up#T 0O`{TtDTT$$4*5>M^kUpUy%%"F'2DM\lx&>'DDLDz$z6z61 ! 3 !eW]flr!u!yA!  )..B/"27>GOBP"S2V[`bdBelr"ty~B" !%*09BIRW#Za#d#gi3kptw{###C# @A "DIT 8xB(U|H6*<`~RPzQF>)}aXE?0! ̼ypfd_YVSLJC=42&$ ǒ      9= %$A {     , T|"A'N'QGVZg]nw~''"09CR\mhh((A@D"TI! ?@$(E @ @  @  ?>88UP0 H AQ $  <|"@! !zD)zz&L=|z'H  z98z k  z kTrack-Info  N         M "/;!L <    ))       3    5E8  3P6!!/8},   S2 26  $Q:C}  Ɩ 7H7  {   (|(>'O ##8  8##   B .   }{ {       - +| 0fff>fx |vf|fx |vf<``<l~nx |vzf2Lfff2Lx |v2Lk s#rr+6.""1*D`.45. F.~. ^#Vx>{   @"  Ďɉ   ffX<|0f8l8vv 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf||ff|``|vff|lf$.w.6#w.6#w.61.~  .~~w@.p T~º>+~.~~! yͮ Ë.~~w2g !PROFILE.S !+2 !  +~d {   O! w+w+: =w! 5 c ʋ  :p  m>> ͧ  N Ĩ –.~+w.~2  9 : ! ~##~ !7 : !Կ : x*l " !ZXچ! 6  zz: 6 : %2p  |vff>|`|fff8<ff<`flxl8<lfffffff<ll8lfff>|~L2~pppv8ll8<<<<$$$''$$$$$' ?$$$$$$$$? '$$$$' '$$$$$$$$$$$$$$$$$$$$$$$$x |v2M  xf>:ͦ ͤ ͍ ͤ f ¹2 lf   ͫR  L͞L I *  *  A }_Yl !ͮ ͒6 \&đ %* "l ͍  ûȷ45: w ? A I N   SUBMIT COM ! ͮ ! 6 #"l  !cͿ  O!:r x:ͦ ͍ !~B I !pͰ ^#VCOM SUB PRL y!cͰ  î !" * %.2P#ͮ !g 4*l +"l ͷ 2 "Qx2Sl "Tx2V!q ~ :p ͆ .ڶ2* og$2| .w#w#w#w.~ .w#w~?w; ; ! ~#49 w#~$ A  < > _I  ! 6 ! ~#Ͱ 6 m   _  ! 6=  { *.pѯ:r x , \<=!Ͱ =ɯ2 \s 2 ! D ;! : .44 #4"lBB+"}{_}o>2~77ø~7"9:OG#Q{ozg# ""!2*%DM**ѵ+)) H~#+}#<:<ʲ<77:<ʢ=2(*f*(}DɯQ"(>QKQKQ>Q"%Q ~[* 2 a7 {7 w!Y #! *l "l " ~ U #D ]T!̷ 6*%.w#w!} 6 r 6 #w.6#6 #t#6.wo*.s#r.rͧ ̧ m . ^#V45+ w#w.f.5\A "l " l |F# !( | !( : x. +"l ! ͮ   ͮ ~!G8 * ~;#1 կA *l ~:g #I ѯ*l  *l ~0څ :҅ q X x<Ü AX QX X ~@#~:k #^ *jT~# ® wy#ù ! 4 : !Ͱ ~@*h~ yw y/w*hw*h~I E> ͦ > æ % 0  !*$K*"x!*!@$@hK\K:K ~#~ w*NK*NK^#V#N#F!x>QGQx3ڰbڼqҼo5p5"""*!yb! ~G*!NKկ2}!,"**NK6 :+OK2$^#V#N#FxNp:$p:Gjxj Y# A>QFQKK{<<ʽ! ~6 69BK! OS< : ~ȹͦ #* A !g ~6*  * >? A *l " ~0: :: q "l x~0 xG#Gs : &͘ ͤ &ͦ %˜ >  Ʌo$>?· !  > # ͮ x> # ~ Enter User #: $No File$ required$ERASE $ (Y/N)? $ Press RETURN to Continue $ (User 0)$NON-SYSTEM FILE(S) EXIST$: $$$ SUB654321$Nwy!"(9"f1f! Ҕ2! ~#foCOPYRIGHT (C) 1982, DIGITAL RESEARCH 1512825^#Vڼ08:G:0 *W>ֻ˻J?ֻ˻eھ˻ͫ!@׼ͫ!@@?xA8>@2ڼ>8<2޼tv!ؼ͞6 6 xAOͫ:O!*dȺ**| :d**d*!cdVddCRT LPT SIO CEN .Qt͜!"9!{s1J>>{s1J{*"9!"9d?!B***dl**.g<&g&Ɔgo>22=("a}|!"a}|>"##*s1J^#V: *"9"9!2"*2".ͫ m! C:<(d:: 30)|.(o !::O!!M8G:W:_ > x( >=v*| M!~q:O:_:W:G*! ͝C:2i`z n&:ͻ͝2y2ɯ!cogÝ2ON~7 ͒0 8 >?G w~*) | *) | (AIFbh)))By2ͻ|{!~2!͝CC | *!͹I 0"!͹!>8+w7)غ| /I~/ !xƍoνg ( 6 o&!t2w|Á7<Ì .ôùõA!ÈëX*9"!"91J>!>!28Ã1Xj$|Ãà à ÃTrack-Info  N'i1J!""&@"!RGS" g.""?ǻ̻́c!```$`*#"+~<'ww*)0!غ +| 9bڗ>2#×:#<ֵ2#*!""++"29Cw*{}<^#Vz!c!>c! Jw*q~69!͐=‡*":*}®:=::<>2*i^#V+ d!K*}@*)): K:"ök*w)*c)-}ͤÀk*s":;:r2͚Μù͚Μ©͚}/_|/*eW}_*c"e}o|g"c>2{—>2—͇ͱ* «>2͙wBp+ү:w͚AP{ 2W>O2ø}R*e):r͚Μc2ZT͐-ڣ3͗@YsY̓Y׬Yͅ:߫Asү:@ү@ү$͚̓A؜=:<~?¯kî?~?ʾZT͐ڮ*>o"͒"!Þ:Oݠ"Ý}6͚) O "!w [O?WGzO:VxGyOGxwq*}}ʴ>2d:#Ϸ>29෯2~2#!   )xð*}*}"*x"xm*^#V* s#r**s#r*:﴾Y4Y̓**~#ng* s#r ^#V랚a##)0"xx!"""XC*~<ζ*":!::9*"x" ~2Asv@NN~v$̓W+vw̚v$̓rrͅ:r߫>2+A@2r!Z2!"ög:2T͐-:ʹ>2<2ڣ!w: >2*6ݠݣO~<w:*)@ u:G*g`~!x_<_@*oy<:/G?~##~? 6K@?F6##N6⬯2p##q:#*~w>2*p@! ~*"v@*w# ) 6#̬͙N*"g*3:= :Oi :=H:Gi a6:G/O**W :T=ҍ aʚ~µ6*:X)!:T>qkֵ!:6>X*{Q:_2{2Ē"͂"X~<µ#cdfg!"()*#FxT]## #~ ȷ  *4# ' 4! *~^ ^33G# Pv:dv6 y2@ !״)#w*~"ҫ!Fw䫨ҫ̓ҫ:w̚":>寯2̓*~wć"̀!~$6:03i"!~6*e>=)Q!QX2ͱԬ߫?~¾¾ʳƳ>w͙=2͜:wÚ~̓ʑpá!6NwͧBpͧȸÚgsr͐-͜ěͤS)_ͤ̓~?w͐s-?F͜pN͆p# Þ͐*6!¿?~p*6 >2ͱݬԬ߫ͷw*oW#x#W{s+p+q7r#r#r>@˩ >2 ˩!!q#p#w2wW*e_3ҫ-!s:!xQ*:<œ. ʩ.ʩAܙrr##sܙ<}rcN! ~态O>G~G!~G~o>_yG~.|°! w:ck[!x?[! ~ʤ͆[͗PPvqO-á=.:<ʰ! Vq##~_@wڴͶ:WMںʛ>úͶ >TJ:!ʷ͞x!Ǩw4 ϨPWިPܙÂՙÂ*!!~~#~O~#q͋"@6ȸ͚Xͤ͋͗wO~<: g~w#w#6##)͋@ * g~?G++!o#~>T}! 6**#K"G*~ xr͐-xą@˩7(͚Sʀw: :<RHͥ:>~c!o#~E^#V)G#~#~!~ b k##N#F#^#V#~#fo~o2{2g*wޟʪҢÞ+}*#}o|g:O*s#r#w!~w/~@w//Hͥ*e>=)_g:0Track-Info  NFsO s#r:(„y==„*!^W*y^#Vx7=2wͼկw#KWK*"J T͞*:["+SX:ڜq:ʺ!ʵ>2ܙͤ2ѧO ̛DM͸}ާ>r""2:2* :::29:>:>*ڈ>F6:_/G:ʧ:ڨ|OͤG:_Ơ̛zW{¦|:*}|BKN¦ zyGG~#<*q#~!;!ʹ!Դ!~6k!"2*qN1q*{]*{[*y}<^#Vt6 ^#V}Õozg**|g͸*u* Ɲ ѝR>22Zw*q>ww:c *#*is#r*:!:)e:O!*c:Oͫ}@2æ ~á*g:o$*~K6?~wKw**i{#zir+s{O:w:Ғ4~:w?r##rp# ä |g}oì*g #G ¾1*q:*w***> r :!vq:vՙvMڂ?Ͷ >T͓Â!">Â:G:O:h=27ryy/W!:l=:<>w##~2 4~?ɥ̓¹:<ɥɥüޣAX2rK:w++~=wv4͗O5:2X!"*>o+"v *!b"ݠ": r#~?w#>r# L=J Lv wȸbܙ?~O ͆ڥ†wŒ~è# # x ͗w ٤ڤ٤ڤw@ ~wb͐Úݞ2":O:G2!w*~zWw+ !z?#~*!* *G!O~2~m͗O~t>2?:2g͝DM*0MD"!*MD$:Oë!N: «G>O: ›ù*ě :ڛn` ~#foͤ2Ơ"}:O*"!s#r#p*kN#F*m^#V#F*:O}|y9*+"*}|yP#9**DM"*ks#r*ms#r#pyox*kw#w*mw#w#w>2'å2*OͶyڲò<*eͲ:0!::ò2*>*ͫ"!x>w~6:6~#+w#w+~;wɯ2KOFq-yl?Npg:ʓ~( ȸˆʀHÈ2xą ):@ΣO~#w͚ʀô̓b_++V@* )͗Os++r~Gw#* #~$%+@*9>  #>? ;*~ w-xąH"0 *ĊHEʀ@~›:6¦w͚̋ȸÇPY*{zBKNyʺ Nú2a.":2:<:55;:2ɯ22{_zW{_zW )7CP/M Error On : Disk I/OInvalid DriveRead/Only FileRead/Only DiskPassword E>2: *~w *" ݠ2>ʄ@~k:(s~*9~Ês~Ԭ~ͅ<G:<ޡ2x# W:<­:22G?>Grx~:2Ô##~*$*">2̀2kºʺ**iҺ@:O~2~WW:2Ôyʛ?ʔx ʔ |̷ǡÔN:r:/GyOOA +¬ ¢y2:x¹o&:W>OͫE:ڟ?N/*"y2ͦ>2 ݠ)"!z<~rs^#V#N#FxN:oʲ̀õ(# ÞRXޟDM*w6# x *ow**ws#r̀*i6#6*}"j@*|<ď>!8>8> t>nͦv8 ~*ownT] KKͦޟ*w"wͦ"w@ :ßNɟ N#Fy؟*}|h#ð*ͫ# 6*q@!"@**#":&2͒:È0:+Òy<_W`iͫDM*w ~bNpwޟDM*we ^#V#~2>â9͆>!"*y³*X*ÿ͂"*g*K!~<:wb##>w#wě> r!~#rz<*9ʌ^:—~x ):*:ŕŕ>*(+"(w++2+2+ɑpؑ!" >2+2*jx.#NzW::!2W!5=^x^z:m:*;#wO:͂^2¢ů͠Ĕ:!ڽ*(~ݒג5WèՔؑjגM2ͨxΔ*(+w"(j654321"y2;!":2=2:=;!~;4#.{2!""9"2!;y3]K!ƌo\b!,_^#V* ͐ !%"(^-:*$P:<\:W:2xM s:<9>2:*9x~+q’x2:**&~2+o#"&!+6Mœ:W:2x ͺ*(+"(w  :ܓ>2*2:*(:+w"(ͺ:G::+̜2 5*(~o#"(Mš*(~`Uoj*(~#"(Ñ!*~6s!+6:+‚xoڊ{2Ó#w:2.+:.2-!%"(2*!—"&!*~4:2-Ԃ:Gͳͨ^2+>2:2*N#G2 2GH)+6:2,:!- ͐:,!͐+*(~L#Bxz:*:*(~ʓOr ͐ ͐! O(Ì*(~2**}ʷ!#¶!""÷:_:*(#wΑxH!—)6"&:!— x5~y 5 6y(^͐@O:=7:͐y ͐:I ͐:=e: zz#͐͂:! ͐ G:Ҏ>xʝʝw>ɯw̩z:»!>wɯ:=zxzz::G:=/ͽx:Āy!4 13 S "^A" BEGINNING OF LINE - LINE 15 N S "^B" CURSOR LEFT 8 N S "^C" EXIT SCREEN EDITOR - EXIT 16 N S "^D" DEL UNDER CURSOR - DEL-> 13 N "^E" END OF LINE - EOL 6 N S "^F" CURSOR RIGHT 66 N S "^G" RETURN TO TOP LEVEL - STOP 72 N S "^H" BACKWARDS DELETE - <-DEL 16 A SA "^K" ERASE TO EOL - ALT+DEL-> 79 N S "^N" DOWN LINE 14 N S "^P" UP LINE šn!6@G:x: P:<: P n6 t6! ^6 t6u:)<͠^!Ó*"r*r"ÿ<:g:!͐*f}D! ~6t!rͷ֏O(^ƏƏƏ  :Function = File = !,$"h!9"f! ͉:2t™:!=Hgo:O*;*͂:A2=/::0! dگ61#d ڸïp#:w#6 !6:6 *#!)6.#)͂ O(BDOS 12 SA "^R" TOP OF EDIT BUFFER - ALT+DOC 12 A "^U" UP A PAGE - ALT+PAGE 12 N "^V" DOWN A PAGE - PAGE 12 S "^X" END OF EDIT BUFFER - DOC 11 N S "^Y" RECALL LAST LINE - COPY 3 N S "^Y" RECALL LAST LINE - PASTE  > wM  2*7w#6?#7 .,:;[]=<>|!?]45#Ra{i_p# l s s l ls:¬MA 0 [BL go "x] label "y make "K se :K :I make "NR :NR + 1 if :NR = 5 [pr [Text for side II? (max. 4 lines)]] if to r H J Q L pu K S end to s H Q L D L F R D Q L pu K S end to t H N bk 8 L A G B R K Q L S end to u H J K Q L J K S end to v J H rt 150 M lt 120 M lt 30 pu U make "B :B + 0.5 end to w v ht L M R v B0 B0 end to x J rt 150 H M pu G lt 120 pd F bk 19.2 lt 30 T end to y J H rt 150 M lt 120 M bk 32 pu fd 32 lt 30 U make "B :B + 0.5 end to z J H Q rt 124 M lt 124 F L S end to B0 make "B :B - 0.5 end to BL type char 7 end to A fd 3.2 end to B fd 6.4 end to C bk 6.4 end :NR = 9 [make "NR 1 pr [Bold? (y / n)] if rq = "y [make "Bd 1] setsplit 1 ct fs stop] go "x end to E2 E23 if :Bd = 1 [P R fd 1 L make "NR 1 E23] end to E3 E23 if :Bd = 1 [R1 R fd 1 L make "NR 5 E23] end to E23 make "W item :NR :K make "AL count :W S1 W make "NR :NR + 1 if or (:NR = 5) (:NR = 9) [stop] E23 end to S1 make "L lc item :nr :W make "A ascii :L if :A = 32 [R fd 19 L make "B :B + 1 go "x] if :A = 48[X make "L "o] if :A = 49[Z H J L A bk 3.2 R U B0] if :A = 50[Z L G H F R D Q L D to D fd 8 end to F fd 9.6 end to G bk 9.6 end to H make "B :B + 1 pd end to I fd 12.8 end to J fd 16 end to K bk 16 end to L lt 90 end to M fd 19.2 end to N fd 24 end to O fd 24 bk 24 end to P pu setpos [-180 216] seth 0 end to Q R F end to R rt 90 end to R1 pu setpos [180 -116] seth 180 end to S pu Q L end to T pu R M L end to U K S end to V repeat 2[J Q R] end to W bk 38 L fd :B * 19.2 R make "B 0 end to X Z make "A 97 end to Y setscrunch .49L F R pu K T] if :A = 51[Z L H G R D L F G R D L F R pu K T] if :A = 52[Z D H D bk 8 Q L D K S] if :A = 53[X make "L "s] if :A = 54[Z H repeat 2[D Q R] J R B C L K T] if :A = 55[Z F H B Q L K S] if :A = 56[Z H V D Q L bk 8 S] if :A = 57[Z D H repeat 2[D Q R] Q R D R B C R S] if :A = 58[H A pu fd 5.4 pd A pu U B0] if or (:A <97)(:A > 122)[go "x] run (list :L) label "x Y make "nr :nr + 1 if :nr - :AL > 0 [make "nr 1 stop] S1 end to KDR pu setpos [-202 -137] pd repeat 4 [fd 379 repeat 6 [rt 15 f end to Z setscrunch .75 end d 3]] fd 170 repeat 2 [fd 30 R fd 402 R] setpos [-194 37] seth 0 label "x rt 30 pd repeat 3 [fd 25 rt 120] pu if :nr = 2 [make "nr 1 ct go "y] setpos [196 59] make "nr 2 seth 180 go "x label "y setpos [142 33] seth 0 pd fd 30 C R B pu B pd fill pu setpos [-140 33] seth 0 pd fd 30 C L B pu B pd fill pu setcursor [25 12] type word char 27 "p type [I] setcursor [64 12] type [II] type word char 27 "q setcursor [30 12] pr :NM ct end to a H repeat 4 [F R] pu J R A pd B L K S end to b H O V T end to cSETKEYS COMAjSETKEYS #116 Developed by Locomotive Software Ltd. Copyright (C) 1985 Amstrad Consumer Electronics PLC s1ͭͺ܁{y*%"+|(!U,PĕK̥R(EBad key number or expansion token $M"g\GTBad shift or translation character $!4U$ >CENSASAU*qBd{Bad expansion string $Strin H J Q pu R J R pd F R T end to d H V Q L O S end to e H B repeat 4 [F R] C Q L S end to f H N R B C R D L F G L K T end to g H V Q L G L B C Q S end to h H N bk 8 Q L K S end to i H I pu B pd A pu bk 22.4 S B0 end to j H G L B C Q i B0 B0 end to k H N K rt 60 I pu C R pd I pu bk 12.8 R B lt 240 bk 8 T end to l H O S B0 end to m H J R D R I bk 12.8 L D L U make "B :B + 0.3 end to n H J Q L K S end to o H V T end to p H V G F T end to q H V Q L G L bk 3.2 A Q S endTrack-Info  Ng too long or token number invalid $?͞ ?yM͙͞(?Ignoring rest of line: $ $?This program will not run in this environment $,?Cannot open file $ _͍ͪdͪ(w# ͍ ͙x<(y 8"( ^̶d͙y^( "(@8'(d͙y'}!U|2 >23}(  !\(>2>2!"*N͇y( :=2#":*( !4*+"+NInvalid file name $Error On Line $Enter Password: $ERROR: No 'SUB' File Found$CP/M 3 SUBMIT Version 3.0 $Enter File to SUBMIT: $SUBDisk Write Error$Random Read $.$Invalid ASCII Character$Parameter Error$ERROR: Directory Full$Requires CP/M 3.0 $11G"*}0|HҤbP2IK 1">d*++"~"!\. v!q*&!p+q* !s+p+q*:w#6* *#"N#Fy !p+q*!p+q*2 !p+q*͇y ! FCK: : 1("*W"O!! !p+q*!p+q*!p+q*!!p+q*2 !p+q*!q*-!q:2!61!s+q:2!6*&"1!p+q*<!s+p+q+p+q:=2d** w*#"*#"=  !s+q+p+q:=2ʩ*:w*#"Ì!p+qe*DM!\.\s!q:a:{: :O2:eel !6>!ڜ2 K*&l :w: T:_:…:r:=2O!l 6 3:•!4**& ~ ~ H!4Ýl :S*Q*Sl.l\P"*}=*|&el\P"=*|5.*& 6!6͝*& ~( 2*& 6e!"!\" "\p.e.:\2O>:2\*& ~ ~H~ H.!4͝*& ~2!6>!`\̓[>!6:<2=O! ~2 ½:<2OTrack-Info  N>9ҽ!60+~9ҽ!60+~9ҽ!60+~9ҽ!60+4:͓ͪ!"!6:= !6!6#6D2: H% : " :#$ͪ:;!6+~<;!6:$¨D2$X*M å:02O> p<ͪå!6͝:ʔ!5K ҎÄ͝xK ҥ*M Ô" :^D2:^^ :@: O :`:@O :`O " :!:/H     " *M : 2    *++" *& ~2 :Ht !4>>!""~u*odȯ!$4®:$!'=Fx̰!%~ px ̖x<2&̖>  '*2.2+6.w 22*2$*.6#6*.~w#~=~#4Ʌo$͖O̓!54  !F6#ȷxO҃>^̓@_: N#͖§>  *.>wÔ#wt~xڔp> ̓ 8>""SYSIN SUB \ !6>!ڷ :+ ~° !4‘ * DM*"À * DM!" }2 ͣ2 :  ͪõ!q!r- "w * :w:C w *#" "*#~22_! 8!0!s*&:0!s!6ͳ:  sͳ:  L!`i^#V#~#fo yo w G: xAo o a{ _o     `i~< #~2#~2#~2*| W \!\~R 2 .n~ >2 6!.t~: +  >2 6!N#F#*" ^q#Vp" N#F##"^q#Vp" 4! 7o |  ! 6   \\ ? >_ 1m :~# yo ɍWARNING: Cannot redirect from BIOS $ERROR: Auxiliary device redirection not implemented $ERROR: Insufficient Memory $""SYSIN SUB_ogDM!>))덑o|gQ =?i`N#Fogo&og_{_z#W00001 : $SYSIN $$$to B ;WW1 make "B shuffle [ticket bike computer discdrive printer place standard jealous jeans hazard hedge earth cloud coat clever butter button canary festival classroom method pudding screw silver gold iron airbrush photo picnic picture pigeon pigment pilgrim Saturday joke juice kitchen label lampion lady girl boy language lawyer length gipsy general genuine fiction science family grateful gravity insurance interest inaudible landing lane leap leisure actual advance advocate aerial bachelor behavior beyFGET :<***.n6.t6 LL!p:~y !6 <ʊ~"x!=F#fh!:~!«!>w~:!5*.~w:; :~!9"1A#u.t.~@w :&/3͖!~6 :~wucy! ʎB d{<ʑi!nw *| !"=*|( ͩ<"ͽU*| M**f((!*"DMsDA*#"ͺf!=>i!!m| *DM"!͘D*+"`iI need more memory to run LOGOI don't have any LOGO nodes leftͩ!9N#F!sD*͘D"*#"!">?>C*?*?*?*?*!9N#FDb7`i96`iDM|kͩ!! 9^#V}Eͩ!9^#VFͩ!9N#Fx !`i<ͩ! 9N#FD(!!9~#fo+s#r#m(x !`iDM`iͩ!9N#Fx !`iͩ!9N#FVHDM|(`i*Ώ<(`i!ͩ!9N#FVHDM|(`i! 9~#fo<(`i!ͩ!9N#FVF !! 9^#VG͸Fͩ!9N#FVF !! 9^#V"*<(H !hH*G"| 8`i"!9^#V}EcA͍A*}E*͘D͖A! 9^#V*sD`iͩ!9N#F! ?*?*?*?*܏͞?*܏?*H(*?*@_>*\!"ͩ!"*#"*l>*)p^#VBK`iDMx(`iA `i*)ps#rz(9`i"|((*A( @*DM *͘D@j>**0"!"*#"**l*))*0DMA(Aͭ=ͩ!"*#"*l*)p^#VBK`iDMx(&`i""|(*͞?*?ͩ!9N#FA@`iDM"@*|*@*@*"ͩ!9N#F`iDMx9^#V*<(.I`i"*DM|`i! 9~#fo<(`i*͘D*"ͩ!9N#F`iͩ!9^#V,FcA*| ͪA"*DM*DM`i"|(`i! 9~#fo< *͍A͘DͪA͘Dͩ!9^#V*Hͩ!9^#V*Hͩ!9^#VBK`iDMx(`i! 9~#fo<(!!ͩ!9^#V*FI"ͩ!9N#Fx !`i! 9~#fo<(`i`i"*"*|(.*"! 9~#fo<(**͘D`i*cA*cAͪA"ͪA"ͩ**<(!!9^#Vͩ!9N#FPY!mAͳDD(N%E(AhE(4`i" @* " @* " @* @@͞?@͇j({@`i??ͩͺf!@ g!DM`i))*0A`i*l(!!m|Out of LOGO stack during garbage collection ͩ!! 9^#Vn&sͩ!9^#V^!ͩ!! 9^#Vn&s*͍A*<( ! B"*ͼB*͑B"ͩ!9^#V*͘D**sD"ͩ<"ͩ*ͩ*DM"ͭ=͍ͩADM*" "* ͭ=`iͩ!9^#V*͘Dͩ!9N#F`i |%Cͩ!9N#F`iTrack-Info  N(͐K`i<͠K( *ZThR{S*LU͠K( *ZT R{S*LUͩJ*UJ E;UUJ%E͢J;UlJ.Cͩ!9N#FD(͡ !!ͩ*͂J( 17C!!lJ*͟EUJLJ;KJ.CUJ;UUJcAJ.C2J**<**< WͩͽJDMU(`i!9~#foV(`i;U*L*AF( ZK **T*ď*Џ4G*<*Ώ͍AG!"**؏<ͩ͠K(!̓K*ͩ!9^#VV07Cͩ!9f|ͧ|1͠7C!"zK17Cͩ!9^#V"rͭ{"z1êAͩ! implemented!T!YNumber too bigͩ!V0!9^#VcA!KT@Y7Yis a primitiveͩ!V0!{T@Y!9^#VcA7YNot enough inputs to*ZT!T!%Y) without (!&V0!T@Y*X7YI don't know what to do withͩ!)V0!9^#VcA!%U@Y! 9^#VX!2U@Y!TYdoesn't likeas input**Tͩ!*V0*cA!yU@Y!9^#VcA!TYdidn't output toͩ!1V0!9^#V@Y!U@Y7Yisn't a parameter!"!U!YI'm out of space!2V0! V@Y*cA!V9N#FVF !FDM| !! ^#V! 9~#fo<ͩ%C!9~#fo+s#r#|(jB7C*͟EͩSL!Kͩ!""1A &͍A!9~#fo<(ͯC!!i|7A{S(ͶT!!m|͍A E;U*|*|(!"U*H(Vͩ!9^#VVF;U|2͍A",F"A͠K R{S(ÖA**4G"| X*cA*cA*cA*cA!A*cAQ*O*EZ! B"*!5B|K*|( *"N*EZ*|(!{S(͌SC15!Mg*96ͫf!AIͪA"ͪA+Q retu@Y!TYI can'twhile loading a file!V0!QV@Y*cA!WV@Y!TYCan'tfrom the editor!uV! YCan't divide by zeroͩͫf!V g!9^#Vg!nw!!! LOGO system bug: !V!-YThe word is too long! V0!V@Y.C7YToo few items in!V0*X!$W@Y7Yis not TRUE or FALSE!GW! YI'm having trouble with the disk!vW! YDisk is full!W!.YMy edit buffer is full!W!ͽXalready exists!W!ͽXnot found!W!/YIf wants [ ]'s aroundrns ͩ!i|̈́C̈́S͠K( Q*|*"* Q* IC*<(9*C4G"|(%* *(*""͝iN*|(uCH(k͵I͌S!OgC96!Og͍AE!y|(͕wͫf! (ͅ2 %*ޏcA!i|(dZ̈́CL-IONIn , *"Q|K͝i͠K*"DO*| !"QO*%E(OO*VFO*͡(O*z|(1(*&"<(KQ*&:<(K*nQQ*F"!| )M*cA*"Q*!##^#V*"ͪA"!O͊VO#1ͩ!i instructions!#V0!'X@Y*cA7YI don't know how to!$V0! 9^#VcA!^X@Y7Yhas no value!V0!X@Y.C7YI can't find catch for!V0!X@Y.C7YCan't find labelͩ!9^#VV0!X@Y.C! 9^#V@Y!TYFileͩ!9N#F E( , (*֏`icAͩ!9^#VV0! 9^#V@Y!TY!TYͩ!9^#VKcAͩ=V(`iSͩ!9N#F`i( !PYDM! 9^#V!(`i`iͩ@pm}2*U###"͂"*U## *T)[Zs#r#s#r*T##|g"T*ϑ*R)[Z^#V#SV^#VSX*R##|g"Rͩ!9f|ͧ|͢vͧ͠|ͩ͘͠!9f|ͧ|͢vͧ͠|{͠!Ցͪ&!Ց''!Ց!9DM$# 9WMq!"ّ, !ͼ *ّ#"ّ!Ͷw(q:#|K!Ց!9DM$Y#Mq!"ۑ*ۑ#"ۑ!ͳw(, !ͼ(:#hWq:#|K!9^#V#~#foxs{x{s{# _{!ڂ{!}!}!9^#V#~#foxʪ{~ʪ{# Ù{!9~#fo{#ù{}!9^#V#^#V#N#F_{!9^#V#~#foxʪ{~{# {Ù#Z""( *0"*ԅ؋"o"p"!DM!PYDMPY!f({! ^#V"! ^#V"**#"^͠q*`is#r"*#*#"^͠q*! s#r"***7w* tBr*"*"*"*"* tͩ!9f|ͧ|rq͠*0"! 9f|ͧ|rq͠*"yvqo"p"*"*"!W! 9f|ͅ|!_!9f|ͅ|\vsms*s t"DM** w(a*"*"*)^#V! ~#fos#r*"*"*)^#V! ~#fos#r*"*"ts͜p m{s#r#!9s#rgo^#V#^#Vs#r+|*6w#@w#6#w>|#wI|!*8j|!*6w#@w#6#wx|#6j*6~G#~@##~|"ݑj*6 V+^+V+^+V+^+V++~@_+~怳_*ݑ"ݑ*8s#{@w#6#r#s#r#s#r#s#r#6*ݑ*8*6"8"6*6~w*6#~MA=ɯ<*6*8C}+}H}'}#'}+} #'}+}T}*8~w*6 w#w}*8 w#†}*6*8#}/<+"8"6 ґO _"ߑ! "#~}*ߑ*+} }~**ߑw+}>w(*s tqͩ!"""!"!"*#"lʴt!DM`il(g`i))}^#V`i)*))^#V"Ñl(!*t"(`i))^#V*Ñm(!*t"(t*| ?** w 0** w !!9^#V****͌w! 9*ͩ! 9N#F!9^#V"Ǒ`i)*Ǒ0))^#V`i)*Ǒ))^#V0"ɑ|v*ɑ(ͧ|!PY0)*Ǒ))^#V!PY0)*Ǒ0))^#V0(ͧ|!9^#V)`i))}^#V"ˑ`i)*Ǒ))^#V0(|A|A~ͧ|8q͠!PY0)*Ǒ))~#fo+ }#~>~>w+~>*6wÑ*ߑ*+,~ 5~Ñ*6*8#O~^~##}~b~ q#6#6õqچ~ q+ ~+~ ~+¢~! w#°~>@2! ~w#~O!#~y~! 4!5»~%!5%! ~w#O!#y~~*6 6+6 +w6Ñ*6*8#ʫ~ʫ ~+f ~+x! w#†>@2! ~w#— !#«¶!5‘*6  w+Ñ/}MA/}AM/}MA/}Ms#r*ˑ`i)*Ǒ))s#r`i)! 9~#fo"ő*<(!"*ő*<(!"*"*ő"*őͩ*i<(*| !!ͩ*i<(! 9^#V! 9^#V w(Sͩ!9f|!EX|(!9!Ef|}f|e}ͅ|!9f|Q|(!9!Ef|}f|l}ͅ|!9f|!9^#V#N#F*|8B8 *R8!!"͑ w ͉w*͑"͑ w ͛w*͑<ew9kw]wSS͞w f!w>i͞w ͝if!"nPlease turn on the printer!Track-Info  NMA/}AM/}AAM|ʫ>|ʫz>/W{/_*6p#zU6#6#sa6#6#r#s#wa*6 ~~+~w7+~wƒ‘*6#~T]#O#½ ¡*6 w#6#wµ>G݀+y>O~# ̀ր@ y!T]w+6݀*6#6#w#6õ*6#6?#6>#w)#6*66#6]T#wF*2###~*2m>#\>Ñ~#mÑ*2T]w#w#w#w*6N#~ҾG#oҠ$~+ y*2>w#²yҁ6#6#6#696#6#6#69*6F#~! X|A!9X|l}ͅ|PY!m(! 9!9f|}ͅ|! 9`i)))5f|}f|l}ͅ|! 9f|Q|( ! 9f|}! 9f|ͩ!9f|!UX|l}ͧ|ͩ͘͠!DM!˓! 9f|ͅ|!˓f|!UX|(!˓!Uf|}f|e}ͅ|`i`i(!˓!Uf|!˓X|e}ͅ|!˓f|"ɓ(!˓X|(*ɓ))],|Y*ɓ(ͧ|!˓f||e}ͧ|*ɓ#))],||Aͧ|*ɓ#(!˓X|e}ͧ|*ɓ))],||A|l}ͅ|`i( !˓f|}!˓f|!9|!Փ#}o     #o$^+Vyx|/g}/o#y+!9x6!9!@@ @GzH? ěT?F]cf>S#>c{Z=ֿzf=y0==%}<6{<_^Y&; oP;4$C;hIj:$_=ά3:VR8! 9^#V"!!9f|!"#*6~}*!6-#"!}vQ|A *6#~oV##~'^oQ|@{,o*6###~ v {v*6#~^##~ vA~L*6#~v{ e*#+)));X|l}Q|A ʦ!*##"#`i"%>2'xyŃy/̃2'*!60#6.#60#=ك"!>O:#*6#~>0#ZZ  ^puA9K4ǃ#6*!w#x6.#"!{*!+~0:'5~.k#k#6e#6+:&:%I6-/<#dT61#d a V0_>0w#s#6}!A~*6#4 ^&)DM)) #wz++ˆ#wʑ++~@!9~ M M MAMA!9~a{ o&!9~A[ o&|g}o^#V#DM!99`i|z2)͓:)}ͬ}ɧR( !T]ɧR(!}T]|dRg?ozo&|zRgo|o&z2)͓:)||/g}/o#z/W{/_ìDM!>))Ҽ#B˅ =´}=´}DM!>)) =܅}}/o|/g#}|MA|g}o{_-|w|7g}o{_-)(}RBK^#VzU#yO###=#xJ#~#foRg?oRgo{_-|g}ow|g}o!9*!|*ë͌Ϳ͌**DM*,o&݆͌o&͌***+++*,DM*.~#ng)##~#foů202122og"3!9N#F --202+3 0b:b{}0o&l}:22*3+"32.t!2~t62! e -‹21Ð+‘ 0ګ:ҫ0)T]))_Ð:1ʹ|/g}/o#*3"3*3|!}/(! 9!9f|ͅ|!9!9f|!9X|Aͅ|! 9!9f|Q|A$cl}!9X|AQ|A;dGl}!9X|AQ|AV(H-l}!9X|AQ|A)y+Sl}ͧ|!9f|Q|k͌=AQ|~F2l}!9X|AQ|l}!9X|AQ| S(ql}!9X|A|A~!9Track-Info  N@ k,ADBA #6AZ@w@,@ e@ۏ@O@`@2@#@( @,t4@0@59@9d@=@BA@F+@J@O@SXo@W@[@_7@d@h@l0@p9@t8@x/I@|{@@ى@@mv@'D@@y@@@$@@|@L$@q@!@@&@9@>@4@}@ @ɻ@s`@@ѳ@;@ֳ@@oP@ݳ@@@@]@@@4@[@ @@ @xp@c@?@F@eL@pQ@g@K@\@$@5@@@@`[@/@@ATrack-Info  Notorarctancosintquotientrandomremainderrerandomshuffleroundsin+-*/<=>bkcleancsdotfencefdhthomeltpdpepxpurtsetbgsethsetpcsetpensetpossetscrunchsetxsetysttowardswindowwrappaddlebuttonpkeypwait.in.out.examine.deposittonesfstssetsplitssctcursorsetcursorsetpalpaltfsfdotcfilldirpicerasepicloadpicsavepic!"ʹͼ!"l""Ԍ!"""!}2͌}2`!}2v!"!"D<=if*c>i!>i!<>iff!V>i!q>if!>ifff!>i*"!!9s#r*&|ǰ!"z!!DM͈{`i~(%`i^!.H(*z f( `i*z#"z`i^!.<(!O{ !n!c !n! !n!!"n!z!'n!n!7!n!o!n!f!n!!n!u!n!!n!!n!! n!!n! !n!!n!<!%n!!/n!!8n!!@n!!Fn!!Jn!!Ln!!!Nn!!Pn!!Rn! !Tn!!Vn!&!Xn!<![n!B!an!N!dn!dp!hn!l!nn!=!qn!C!tn!I!yn!m!|n!m!n!m!n!m!n!Z!n!h!n!z!!m!-n!v!3n!!6n!!9n!!>n!!Dn!!Jn!!Pn!!Vn!f!\n!!bn!!fn!P!ln!'!tn!'!wn!\!|n!!n!!n!!n!!n!!n!!n!-!n!$!n!h!n!!n!!n!!n!!n!!n!!n!&!ķn!&!̷n!!%!ַn!'!ڷn!%!޷n!:&!n!|'!n!'!n!w!n!!n!!n!!n!!n!<!n!W!n!r!n!x!®n!Gp!ʮn![!Ѯn!fx!֮n!cx!ݮn!!n!`x!n!'!n!4!n!I!n!U!n!]x! n!!n!!n!g!n!!n!a!"n!g!%n!!,n!w!6n!w!=n!!An!!Dn!fy!Gn!Ay!Ln!z!Qn!z!Xn!z!an!z!incoifoppauserepeatrunstopandnTrack-Info  Nn!w!n!!n!B! n!O!n!!n!!n!! n!=!&n!!.n!!8n!!>n!!Fn!;!Ln!!Tnasciibfblcharcountemptypequalpfirstfputitemlastlistlistplputmemberpnumberpsewordpwordpiecewhereuclcmakelocalnamepthinggpropplistglistppspproprempropprtyperqrcrlshowedallederallernerpopoallpotsponspopsdefinetextchangeferasefileedfdirloadsavedefaultdsetdcopyoncop|RͫѷR+ͫ͸>BxAO>2)"R)ͫ"x_Wy22:(|8( K K K  x K;K;(KͲKͲ(7ɷKKKK;7;7Ͳ7ȷ͘o&))) N#͛0 y!#X͘G[R#ex!(#N*):!2 e͊~2 (=:͇=_nf͇n! "{ oz g"X͘xAOjc ͊ͷo&͊ʹo&͊: Nú͊: ͇y݆=0_y݆=OhEh͊: nf"Y͊: fj͇y݆=_y݆=Ohn& ͺhke͊~͛~ͨTKnf Knf ͊~ ͛~ ͨTnf Knf (<þ͊nf#|+K ~O*|͊T"!#͊o&͊Ný͊Z0"w0"w͂0!!!( bk+wPICTURE͊Z?8w0~:͂0!#^V~ݶ=g.<7Z)))# B #|7*### N# ( ͺXS|8AK}|8!0??zSB0 ?= &>*WYnG͛>G͛ͳ>ͨ!>;7hb"g)))"jg#)))+"ig)))"kg#)))+"!(#xw!(#"!(#"!=(! =( !=(!""͛͘*)0,"0#K ROx/w8R[wK͛K 4͘R~XG͛xK͘Rw) ~#fooK{_yt_WGɀ@ ̀͐͛DM, ,ѷB R(R R 78`i͘Track-Info  Nto MUSIC ; TD '89 INIT M TX type [AGAIN? (y / n)] if rc = "y [MUSIC] erall fs end to INIT ht cs TX type [MUSIC] WHT setscrunch 0.468 make "C 0 make "q 0 make "NR 1 make "RNs [6 13 19 26] label "x TX type [NUMBER of STAVES ? (max. 4) :] make "B rq if or (not numberp :B) (4 - :B < 0) [go "x] Blk GS SYM pu setpos [-280 204] end to M st make "a rc make "b ascii :a if :a = 1 [HeN] if :a = 2 [HaN] if :a = 4 [KwN] if :a = 8 [AcN] if :a = ", [KM] if :a = "# [KRS] if :a = "b [ML] if :a = "T [htR :NR + 1 TEXT end to exit TX type [EXIT: s = save, l = load, c = clear screen , q = quit :] make "a rc if :a = "s [SV] if :a = "q [make "q 1 stop] if :a = "c [LG] if :a = "l [LD] ct SYM end to AcN HL NOOT fd 6.5 li fd 10 re ^ SP 15 end to SYM TX type [SYMBOLS: 1 = 1 2 = 4 = 8 = # = # b = flat , = , T = TEXT (EXIT = other options)] end to HL if :C = -4 [hl] if :C = -5 [fd 6.5 hl bk 6.5] if :C = 8 [hl] if :C = 9 [bk 6.5 hl fd 6.5] if :C = 10 [bk 13 hl fd 6.5 hl] end to hl li pd TEXT] if :b = 240 [fd 6.5 make "C :C + 1] if :b = 254 [SP -25] if :b = 250 [SP 15] if :b = 242 [bk 6.5 make "C :C - 1] if :b = 243 [if :B = 2 [setpos [-280 -126]] if :B = 1 [setpos [-280 -14] make "B 2] if :B = 0 [setpos [-280 94] make "B 1] make "C 0] if :b = 253 [exit] if :q = 1 [stop] if :b = 32 [SP 15] M end to Blk pu ht setpos [-360 240] repeat :B [pd seth 90 repeat 5 [fd 720 bk 720 re pu fd 12 li pd] pu re fd 50] end to GS setpos [-330 204] repeat :B [pd seth 0 repeat 6 [fd 7 rt 30] rep fd 5 bk 20 fd 15 pu re end to LD NAAM if :nm = " [ct stop] if not emptyp dirpic :nm [loadpic :nm stop] DIR end to NAAM ct type [NAME?] make "nm rq end to DIR type [DIR:.] WHT ct type dirpic "A: WHT ct end to SV NAAM if :nm = " [ct stop] if emptyp dirpic :nm [ct savepic :nm stop] type [EXISTS!!] DIR end  rt 60 fd 6 repeat 3 [lt 60 fd 3] seth 0 fd 0.5 SP 10 end to Teat 3 [fd 9 rt 32] repeat 4 [fd 11 rt 30] fd 40 repeat 7 [fd 3 lt 32] fd 50 rt 10 fd 25 rt 5 fd 10 repeat 6 [fd 2 rt 30] pu seth 0 bk 77] make "B 0 end to NOOT ht bk 6.5 make "x 1 make "b 5 label "b if :b = 1 [go "c] fd :b pd fd 2 * :x pu bk :b + 2 * :x re fd 1 li make "x :x + 1 make "b :b - 1 go "b label "c fd :b pd fd 2 * :x pu bk :b + 2 * :x re fd 1 li make "b :b + 1 make "x :x - 1 if :x = 0 [stop] go "c end to HeN HL BG NT SP 50 end to HaN HL BG NT ^ SP 30 end to SO pu re fd 10 li pd fd 40 if :a = 8 [lt 20 bk 8 lt 30 bk 10 rt 60 bk 8 fd 8 lt 60 fd 10 rt 30 fd 8 rt 20] bk 40 end to SU pd bk 40 if :a = 8 [rt 20 fd 8 rt 30 fd 10 lt 60 fd 8 bk 8 rt 60 bk 10 lt 30 bk 8 lt 20] fd 40 end to LG pu TX type [CLEAR SCREEN? (y)] if rc = "y [fs cs pu make "q 1 make "p 2 stop] SYM end to TX setsplit 1 ct end to WHT repeat 500 [] end to re rt 90 end to li lt 90 end to BG pd ht end to SP :x pu re fd :x if :C > 1 [fd 12] li end to NT rt 45 repeat 4 [fd 8.5 rt 90] lt 45 end tsetkeys keys.drl logo.com o KwN HL NOOT fd 6.5 li fd 10 re ^ SP 20 end to ^ if :C > 1 [SU stop] SO end to KM ht repeat 4 - :C [fd 6.5] pd fd 9 bk 13 fd 4 pu repeat 4 - :C [bk 6.5] SP 10 end to KRS ht pd bk 6 fd 12 pu re fd 4 re pd fd 12 bk 4 re bk 2 fd 8 bk 2 re fd 4 re bk 2 fd 8 bk 2 li bk 2 SP 6 end to ML ht bk 6.5 pd fd 16 bk 16 rt 60 fd 6 repeat 3 [lt 60 fd 3] seth 0 fd 0.5 SP 10 end to TEXT if :NR = 5 [make "NR 1 SYM stop] make "SC se 9 item :NR :RNs setcursor :SC make "TXT rq setcursor :SC type :TXT make "NTrack-Info  Nen or disc / quit program PRINTING: EXTRA+PTR key MUSIC: A simple music-printer. * You can draw up to 4 staves of music. The following commands are available: * You can choose 1/1 1/2 1/4 and 1/8 notes. These are drawn by pressing the 1-2- 4- and 8-key. [Definitely without pressing the RETURN-key.] The RETURN-key will bring you to the next stave. * The right spot for a note to be drawn is reached by the cursor-keys. * By choosing the T-key you are entering the text-mode to print words below the staLOGO PROGRAM - SUITE (c) TD 1989 After inserting the disc in the drive you can turn on your PCW. When the prompt appears, you have to type: logo or: LOGO and the main-menu appears on the screen. You can use the cursorkeys to make your choice: AIRLINER: On the screen of your computer a chart of EUROPE is shown. You are the pilot of an airliner. Using the cursorkeys you have to fly from one airport to an other. Each movement needs a certain amount of fuel, but when you reach the ves. Remember the function of the RETURN-key!! EXIT-key: to load / save / erase picture on screen or disc / quit program. PRINTING: EXTRA+PTR key. LABEL: A special program, to make a precision label for your 3"-discs or for audio-cassettes. The disc-label program asks for: * The title of the disc * The words for the 4 lines on side I * The words for the 4 lines on side II *The option BOLD (y/n) The cassette-label program asks for: * The title of the disc * The text for (max. 20) lines on siright destination, you will be rewarded with new fuel. If you try to fly with less than 100 gallons of fuel, your plane will crash. All airports already visited, are shown on the screen by the symbol of an airliner. To stop the program press the EXIT-key. ANAGRAM: You see some characters on the screen. You have to guess which particular word can be made out of these characters. You can 'buy' one or more characters up to a total of 40 in one game. William Schakespeare is supposed to be the champion of de 1 * The text for (max. 20) lines on side 2 After these questions, the labels are drawn on screen. PRINTING: EXTRA+PTR key. IN GENERAL: * After stopping [defenitely without using the STOP-key] one of these programs, the mainmenu is automatically reloaded and started. EDITING LOGO PROGRAMS: Small LOGO programs can be edited by the built-in LOGO program editor. * Type: load "FILENAME ed [proc1 proc2 proc3] * The file is loaded and the editor starts with the procedures mentioned betweenthe game and the name of any new champion will automatically be saved to disc. There is a line-graph on screen to make visible your results so far. You can stop by typing a Q. HANGMAN: One of the most famous word games. No further comment needed. UFO: Somewhere on the screen you see a dot and a small square to emphasize the place where your radar saw a UFO. You have to estimate the direction. The arrow is adjusted in the direction of your choice and you can estimate the distance. After that the arr [] * After editing: press the EXIT-key. The editor answers with: proc1 defined, proc2 defined etc. * To test an edited program, type: FILENAME (without ") * To list all procedures, type: ts poall (textscreen poceduresall.) * Saving the edited file, type: ern glist ".APV (to erase all parameters used so far) erasefile "OLDNAME save "NEWNAME If your program contains more than 64 procedures or containes greater procedures, you have to use a wordprocessor like LOCOSCRIPT. * Create a now will be thrown. After each throw your points are shown and your reliablity in % To stop the game, type 999 as direction. DRAW: DRAW is a drawing program. COMMANDS AVAILABLE: CURSOR - keys: lines in 4 directions o key: circle to the right O key: circle to the left + key: to make hook / unit / length / pen or turtle BIGGER - key: to make hook / unit / length / pen or turtle SMALLER f key: to fill closed fields h key: HELP instructions on paper EXIT-key: to load / save / erase picture on screTrack-Info  N         ew file (most likely in drive M:) and insert the old LOGO-file by use of F1 (LOCO II) or F7 (LOCOI) * After editing: (from the discmanagerscreen) make ascii-file by use of F1 * Be sure the file is in GROUP 0 * Make a warm restart in LOGO and type: load "FILENAME FILENAME (The first FILENAME is intented to load the file and the second to start the program running. It is not necessary, but yet very reasonable to give the first procedure the same name as the entire file.) july 25 1989 TJITTE DIJKS reachtherightdestination,youwillberewardedwithnewfuel.Ifyoutry  dtoflywithlessthan100gallonsoffuel,yourplanewillcrash.All  }dairportsalreadyvisited,areshownonthescreenbythesymbolofan(airliner.TostoptheprogrampresstheEXIT-key.<ANAGRAM:  .Youseesomecharactersonthescreen.Youhavetoguesswhichparticular  wordcanbemadeoutofthesecharacters.Youcan'buy'oneormore  charactersuptoTRA VAN HEEMSKERCKLAAN 75 NL 3843 XP HARDERWIJKTHE NETHERLANDS atotalof40inonegame.WilliamSchakespeareis A(supposedtobethechampionofthegameandthenameofanynewchampion  U<willautomaticallybesavedtodisc.Thereisaline-graphonscreentoHmakevisibleyourresultssofar.YoucanstopbytypingaQ.<HANGMAN:Oneofthemostfamouswordgames.Nofurthercommentneeded.UFO: -Somewhereonthescreenyouseeadotandasmallsquaretoemphasizethe  -placewhereyourradarsawJOY 5xXx,k$˦/B8!phhlI Y%z kZ-KiZ-KYL$ЦIz {x UL$ЦIz zx UL$ЦIz yx UL$ЦIz xx UL$ЦIz x UL$ЦIz ~x UL$ЦIz }x UaUFO.Youhavetoestimatethedirection.The  arrowisadjustedinthedirectionofyourchoiceandyoucanestimatethe  distance.Afterthatthearrowwillbethrown.Aftereachthrowyourpoints areshownandyourreliablityin%Tostopthegame,type999asdirection.xDRAW:DRAWisadrawingprogram.`COMMANDSAVAILABLE: CURSOR-keys:linesin4directionsL$ЦIz |x UL$ЦIz sx UL$ЦIz rx UStandard ++Y"zٺۻ[X۩zתڪRj}[Yq{"wDdzwzz̼ݩyw ںۻp陘ۚəٹګٙ xLayout 1x U \ LOGOPROGRAM-SUITE(c)TD1989Afterinsertingthediscinthedri xLayout 1x U okey:circletotherightOkey:circletotheleftT+key:tomakehook/unit/length/penorturtleBIGGER@-key:tomakehook/unit/length/penorturtleSMALLERfkey:tofillclosedfieldsHhkey:HELPinstructionsonpaper(EXIT-key:toload/save/erasepictureonscreenordisc/quitprogramPRINTING:EXTRA+PTRkeydMUSIC:Asimplemusic-printer.*  YoucanveyoucanturnonyourPCW.Whenthepromptappears,youhavetotype:(logoor:(LOGO  andthemain-menuappearsonthescreen.Youcanusethecursorkeystomakeyourchoice:(AIRLINER: iPOnthescreenofyourcomputerachartofEUROPEisshown.Youarethe  pilotofanairliner.Usingthecursorkeysyouhavetoflyfromoneairport  T<toanother.Eachmovementneedsacertainamountoffuel,butwhenyou Track-Info ! N!!!!!!!!!drawupto4stavesofmusic.Thefollowingcommandsare available: *  Youcanchoose1/11/21/4and1/8notes.Thesearedrawnbypressingthe  iP1-2-4-and8-key.[DefinitelywithoutpressingtheRETURN-key.]TheDRETURN-keywillbringyoutothenextstave. xLayout 1x U d*  Therightspotforanotetobedrawnisreachedbythecursor-keys.( xLayout 1x U byuseofF1(LOCOII)orF7(LOCOI) *  Afterediting:(fromthediscmanagerscreen)makeasciifilebyuseofF1H*  BesurethefileisinGROUP0*  -MakeawarmrestartinLOGOandtype:load"FILENAMEFILENAME(The  -firstFILENAMEisintentedtoloadthefileandthesecondtostartthe  programrunning.Itisnotnecessary,butyetveryreasonabletogivethefirstprocedurethesamenameasth*  BychoosingtheT-keyyouareenteringthetext-modetoprintwordsbelow thestaves.RememberthefunctionoftheRETURN-key!! EXIT-key:toload/save/erasepictureonscreenordisc/quitprogram.PRINTING:EXTRA+PTRkey.dLABEL:  ~dAspecialprogram,tomakeaprecisionlabelforyour3"-discsorforaudiocassettes.\Thedisclabelprogramasksfor:*Thetitleofthedisc*Thewordsforthe4linesonsideI*Thewoeentirefile.)  )>july251989 'TJITTEDIJKSTRA$ $VANHEEMSKERCKLAAN758 %NL3843XPHARDERWIJK  'THENETHERLANDSrdsforthe4linesonsideII*TheoptionBOLD(y/n) Thecassettelabelprogramasksfor:*Thetitleofthedisc*Thetextfor(max.20)linesonside1*Thetextfor(max.20)linesonside2Afterthesequestions,thelabelsaredrawnonscreen.PRINTING:EXTRA+PTRkey.INGENERAL:  }d*Afterstopping[defenitelywithoutusingtheSTOPkey]oneoftheseprograms,themainmenuisautomaticallyreloadedandstarted.$EDITINGLOjSETKEYS #116 Developed by Locomotive Software Ltd. Copyright (C) 1985 Amstrad Consumer Electronics PLC s1ͭͺ܁{y*%"+|(!U,PĕK̥R(EBad key number or expansion token $M"g\GTBad shift or translation character $!4U$ >CENSASAU*qBd{Bad expansion string $String too long or token number invalid $?͞ ?yM͙͞(?Ignoring rest of line: $ $?This program GOPROGRAMS:PSmallLOGOprogramscanbeeditedbythebuiltinLOGOprogrameditor.*  Type:load"FILENAMEed[proc1proc2proc3](*  AThefileisloadedandtheeditorstartswiththeproceduresmentioned between[] *  Afterediting:presstheEXITkey.Theeditoranswerswith:proc1 defined,proc2definedetc. *  Totestaneditedprogram,type:FILENAME(without")*  Tolistallprocedures,type:tspoall(textswill not run in this environment $,?Cannot open file $ _͍ͪdͪ(w# ͍ ͙x<(y 8"( ^̶d͙y^( "(@8'(d͙y'}!U|(toeraseallparametersusedsofar)  erasefile"OLDNAMEsave"NEWNAME  ~dIfyourprogramcontainsmorethan64proceduresorcontainesgreaterprocedures,youhavetouseawordprocessorlikeLOCOSCRIPT.*  Createanewfile(mostlikelyindriveM:)andinserttheoldLOGOfileTrack-Info " N"""""""""og͙X ͪ`(-͙Pd( !))))yX  o͙P ͞äͪP+ d ~#< # ͠ ͙#~ (x+(#^#V͞(ɑx<͙h@ ů2! "2|\#: `* R #2| \(>2 >23}(  !\(>2>2!"*N͇y( :=2#":*( !4*+"+N͇y ! FCK: : 1("*W"O!!EASE :] char 32) make "X rc if :X = 1 [make "P "LABEL stop] if :X = 2 [make "P "CASSETTE stop] LABEL end  719 rt 90] pu  ASUB 1xCP/M Version 3.0COPYRIGHT 1982, DIGITAL RESEARCH151282654321Invalid file name $Error On Line $Enter Password: $ERROR: No 'SUB' File Found$CP/M 3 SUBMIT Version 3.0 $Enter File to SUBMIT: to L ht setsplit 1 type word char 27 "0 ct cs pu setcursor [26 1] type [L O G O - P R O G R A M - S U I T E (v.2.4)] setpos [-170 224] pd repeat 2 [fd 30 rt 90 fd 380 rt 90] pu setcursor [35 4] pr [ Tjitte Dijkstra (1989)] setcursor [36 5] pr [75 Van Heemskercklaan] setcursor [36 6] pr [NL 3843 XP Harderwijk] setcursor [39 7] pr [The Netherlands] setcursor [15 13] pr [YOUR CHOICE? USE CURSORKEYS ( ) THEN PRESS < ENTER >] setcursor [2 15] (type word char 27 "p [AIRLINER * * ANAGRAM * * * HANGMAN $SUBDisk Write Error$Random Read $.$Invalid ASCII Character$Parameter Error$ERROR: Directory Full$Requires CP/M 3.0 $11G"*}0|HҤbP2IK 1">d*++"~"!\. v!q*&!p+q* !s+p+q*:w#6* *#"N#Fy !p+q*!p+q*2 !p+q*!p+q*!p+q*!p+q*!!p+q*2 !p+q*!q*-!q:2!61!s* * * UFO * * * * DRAW * * * LABEL * * * MUSIC] word char 27 "q) setpos [-360 -60] pd repeat 2 [fd 120 rt 90 fd 719 rt 90] pu setpos [-356 -56] pd repeat 2 [fd 112 rt 90 fd 711 rt 90] pu make "Y -30 make "X -300 setpos se :X :Y st end to l make "I ascii rc if :I = 250 [make "X :X + 100 SP] if :I = 254 [make "X :X - 100 SP] if :I = 243 [if :X = -300 [make "P "AIRLINER] if :X = -200 [make "P "ANAGRAM] if :X = -100 [make "P "HANGMAN] if :X = 0 [make "P "UFO] if :X = 100 [make "P "DRAW] if :X = 200 [LA+q:2!6*&"1!p+q*<!s+p+q+p+q:=2d** w*#"*#"=  !s+q+p+q:=2ʩ*:w*#"Ì!p+qe*DM!\.\s!q:a:{: :O2:eel !6>!ڜ2 K*&l :w: T:_:…:r:=2O!l 6 3:•!4**& ~ ~ H!4Ýl :S*Q*Sl.l\P"*}=BEL] if :X = 300 [make "P "MUSIC] ct ht cs pu setpos [-100 -30] pd repeat 2 [fd 60 rt 90 fd 160 rt 90] setcursor [36 15] pr [L O A D I N G] fs stop] l end to logo L l er [LOGO L l SP LABEL] load :P run (list :P) load "STARTUP logo end to LOGO logo end to SP if :X > 300 [make "X -300] if :X < -300 [make "X 300] setpos se :X :Y st end to LABEL ct ht cs setcursor [32 13] pr [1 = LABEL for 3 inch disc] setcursor [32 15] pr [2 = LABEL for audio - cassette] setcursor [32 17] (type [YOUR CHOICE PLTrack-Info # N#########*|&el\P"=*|5.*& 6!6͝*& ~( 2*& 6e!"!\" "\p.e.:\2O>:2\*& ~ ~H~ H.!4͝*& ~2!6>!`\̓[>!6:<2=O! ~2 ½:<2O>9ҽ!60+~9ҽ!60+~9ҽ!60+~9ҽ!60+4:͓ͪ!"!6:= !6!6#6D2:FGET :<***.n6.t6 LL!p:~y !6 <ʊ~"x!=F#fh!:~!«!>w~:!5*.~w:; :~!9"1A#u.t.~@w :&/3͖!~6 :~wucy! ʎB d{<ʑ  '*2.2+6.w  H% : " :#$ͪ:;!6+~<;!6:$¨D2$X*M å:02O> p<ͪå!6͝:ʔ!5K ҎÄ͝xK ҥ*M Ô" :^D2:^^ :@: O :`:@O :`O " :!:/H     " *M : 2    *++" *& ~2 :Ht !4>>!""\ !6>!ڷ :+ ~° !4‘ * DM*"À * DM!" }2 ͣ222*2$*.6#6*.~w#~=~#4Ʌo$͖O̓!54  !F6#ȷxO҃>^̓@_: N#͖§>  *.>wÔ#wt~xڔp> ̓ 8>""SYSIN SUB hhhhhhhhhhhhhhWARNING: PROGRAM INPUT IGNORED $ :  ͪõ!q!r- "w * :w:C w *#" "*#~22_! 8!0!s*&:0!s!6ͳ:  sͳ:  L!`i^#V#~#fo yo w G: xAo o a{ 151282 COPYR '82 DRI gggggggggggggggggggggggggggggg"D! BH!H@ $!!$"A! D$DHH$B!"  @A  _o     `i~< #~2#~2#~2*| W \!\~R 2 .n~ >2 6!.t~: +  >2 6!N#F#*" ^q#Vp" N#F##"^q#Vp" 4! 7o |  ! 6   \\ ? >_ 1m :~# yo ɍWARNING: Cannot redirect from BIOS $ERROR: Auxiliary device redirection not implemented $ERROR: Insufficient Memory $""SYSIN SUB_ogDM!>))덑o|gQ =?i`N#Fogo&og_{_z#W00001 : $SYSIN $$$Track-Info $ N$$$$$$$$$to UFO INIT T erall fs end to INIT window ht cs setsplit 13 ct type word char 27 "0 type word char 27 "p make "STOP 0 pr [* UFO *] type word char 27 "q pr [] pr [1 On screen you see a small UFO] pr [2 Left = 0 degrees / Straight forward = 90 degrees / right = 180 degrees.] pr [] pr [3 You have to estimate the direction.] pr [4 The arrow will be adjusted and you see the UFO again.] pr [] pr [5 Then estimate the distance. After pressing ENTER the arrow will be thrown.] pr [] pr [YOU LIKE TO STOP? TYPE: 999 for direction.] pr [LOTS OF LUCK! PLEASE PRESS A KEY] if not rc = "O [] cs setsplit 2 ct pu setpos [-360 -180] pd repeat 2 [fd 442 rt 90 fd 719 rt 90] make "BT 0 make "PT 0 make "F 30 HOME ht SV setcursor [40 27] type [UFO TD '89] end to T ct HOME make "X 340 - random 680 make "x :X if :x < 0 [make "x :x * -1] make "Y 230 - random 400 make "y :Y if :y < 0 [make "y :y * -1] make "XY se :X :Y flash SCH make "BT :BT + 1 TL if :STOP = 1 [stop] T end to flash ht pu dot :XY setpos :XY bk 5 lLOGO COMLIOS äq!"!"""!m|DM|(!""`i<(͋<=D<}<͋ 3) (:PT = 0) [make "F :F + 20] W end to SV lt 60 repeat 5 [fd 50 pd fd 10 pu bk 60 rt 30] HOME end to TL make "SC :PT / :BT * 1000 make "SC round :SC make "SC :SC / 10 setcursor [40 1] type se [POINTS :] :PT SP type se [from] :BT SP type [turns. SCORE:] SP tyͽJͧ|#͠!X|Aͧ|͸K͠ͽJͧ|izͧ͠|͸K͠ͽJͧ|Lzͧ͠|͸K͠ͽJͧ|ͩ͠|JlJ!9^#Vͩ!IDM|J `iI lJ!9^#V.C7C!ͩ!9f|!X|( !9f|}!9f|!9N#F`if|ͧ|! 9`if|(ͅ||e}ͧ|*͠Q|A(!9f| TͽJ͂ͦKͩ!9N#F! 9^#V! 9^#VRͅ|!X|(gV`iRͅ|! 9^#Vf|ͧ|`if||A~!xͽJͅ|!ͽJͅ|!!xͳ(ͧ|͸K͠!xͽJͅ|!ͽJͅ|!!xͳ(!X|Aͧ|!xf||e}ͧ|͸Kpe se :SC [%] SP SP setcursor [0 29] ct end to SP type char 32 end to K seth 0 ht pu setpos :XY bk :F lt 90 fd :F rt 90 px repeat 4 [fd :F * 2 rt 90] end to W repeat 500 [] end ake "STOP 1 stop] K HOME ct lt 90 - :R label "x type [Distance (0Track-Info % N%%%%%%%%%͠!"lJSL!X|( _| _|@ͧ|SL|l}ͧ|ͩ͠!9Rͧ|͸K͠!!0R*܏+SSL}ͧ|͸K͠SLͧ|ͪA͟E|l}ͧ|͸K͠SLͧ|ͪA͟E|e}ͧ|͸K͠XcS(SLͧ|ͪA͟E|<l(SLͧ|ͪA͟E| <mcSSL!X|(gVSLͧ|ͪA͟E|A~ͧ|͸K͠SLͧ|ͪA͟E|Aͧ|͸K͠!O~JͻLJͻL7C͍ͩA%E( *%E !!*ͪAJͩ^!9^#V͈5!f*rDM! 9^#V͈5t!O{K!͌KͩJ*rDM`i*r*z`if(`i^! 9^#V`istͩ*| ;U*z+"z!9^#V*r"rK*z|;U^*͈5tͩ!9N#F`iDM!.`i^!"rs*%E(**r~ ;U!"z!"rs!"l!"r!"l*r#"r*r^͓*!"|́ͩ^!9^#V͈5t!"|*z| !*r^!-<(͉́*r^!.<(͉́*|| !*r^҄E<(%́*r^!+< *r^!-<(͉́*|| !*r~(!!~!ͅ|!ͩL!y|(!(!ڌ"rͭͩ*ԅ"(ͧ|!9^#V(|AQ|AAQ|BA~_J*7Cͩ!9N#Fx %C!rf`i"͂"`iDM͍A"*| *}EA,*+"|( *"*}E*͘D*#J<*&ͦKUJD( !*"eLSL!"rsKUJͬͦKͩ!9N#F%E(*z E(`iV ! 9N#F!.!9s#r`i :!"*#"*l(`i*~(*!9~#fo0rf`i!9~#fo0ͩ!9N#F!"`iDMx( *#"*{"zKͩL!y|(!j!x"rKÀiͩL!y|(!(|27C2J*96ͫf|KJ!B͍AK(*ޏA_J|K-ͩ!i|̈́CÿP͵I!A*cA*EZ!AIÖA*"!"J*Z(!""|KͯC!!i|1A 7A**ԏ<( !!m|kX R|KJ1A m*! B4G"|(U*" *"*|(:*"͠K *!"4**<(|KͯC!!i|×X1A͍A*<7A!*K(GQ͠K*VF(1^*͈5t*z|((*&"<ͩ! 9N#F!9^#V"D(ZD(O*%E(%E(͟Eͧ|*͟E|*%E %E( *J*PYD͖A|Kbr7|KJ*ďni7|K7i7ͳ7r7UJD( *,F".CJ*nͩ!9N#F!ͅ| #!*.*! x" "*|(*^!<( !"!*+"*^! <(*#"s!! *#"+^s!*ڌs*#"U(V!*ڌs*͂(!3!! *""! :#=<(!(!ڌ"t͈{!!end*r#"r*z+"zͩ!9N#FPY! m(ͫf*<(G*|(3! :#!"*|( D+-*/;ͩ!Z*! 9^) [] *v&*ͩ*w&|( *w&)<(!*w&*ͩ!9N#FPY!0U( PY!9V !!V(( !"|í+*v&"<( !"|í+*v&:<( !"|í+*v&.<(k*(*t#^͓*( !"|í+*v&͓*( !"|í+*v&-<(ik*(d*t#^͓* *t#^!.<(*t##^͓*(!"|.*t#^!((*r͊U2g3jB%C!3$-(%C|2rf͍A ͖A×3͗3jBendͩ+*|<((*|H(K<2͍ADMAF(ZK(nK*Tg3!"!"ͅ2͗3jB*| *ƏG**Ə\G͍A*\G͖A*| 15!f4gͫfÖA definedͩ!9^#V""|(*!.*#^" *"*|*"*!.DM`iPY!l(R*PY^}2|! 9~#(,!+5*&) *&*(*|(!\f*&fä4\[]; ͩ!9N#F*|( AF !!o4! 9N#F!9͟Eͧ|Â! 9!< *t#^*(!!"!"|!"|o(*z#"z`**v&\<(ͮ+*v&͋fͮ+*v&͓*ͮ+6(*<(5*ڌ+++^! <(!*ڌ+++!ڌ"t͈{!"*t"r!"z!"͹**|,!"zͮ+*v&E* -`*(ͮ+͹+ -͹+ -*v&-<(ͮ++*v&.<(ͮ++*v&҄E<(#ͮ+*v&+< *v&-<(ͮ++!~*rÅ|`*(î+͹+5M,T,r,x,, -!}2wV( ͮ+!"|ͩ!9N#F*|H(!*z"̐*r"ΐ`i~(3*̐+"̐#| !`i^*ΐ#"ΐ+^H(!9gͩ!9N#Fʹ6%E(\515ͩ!9N#Fx26ʹ64<(`i*<( *"*"`i"96%3`iDM|(AD(!56g͈5**ڏH(**܏H(`i*؏H(kò5ô6 . ͩ!9N#Fx( D(͈5![f%3ʹ6rfͨ5!]fͩ!9N#FkVF(!"f1596!"7((7( kJ7X7ͩ727*ȏ<(">7͟EDMX7ͫf7( `i͵k(7(kͫfJ7ͫfX7ͩ*| !*͟E*<27*̏<**!>7o4*"!"*ďͅ7C*ͅ7*Ə*̐ͩ*z+|(!!9^ͭ-!;ͭ-ͩ*|<(*r^!9n&< !!ͩ!9N#FPY!l(!-f`iDMPY! ""А|(*А-PY! ͂0fͩ!9N#F`i^!<(!!ͩ!9N#F*z"Ԑ*r"֐`iDM`iDMx/`i"ڐ!."Ґ*Ґl(p*֐^!\<(*Ԑm(*֐#"֐*Ԑ+"Ԑ*Ґ#"Ґ+*ڐ^"ؐ| *Ԑ*Ԑ+"Ԑ#| !*֐#"֐+^*ؐH(!Á.e.*Ԑͩͩ<"ܐcAͩ<"*ܐ͘Dͩ<"ސ*sDͩ<*ސsD!*ܐsD*ސ"ܐ!DM`iPY!l/*z| !*ܐs*r^ͅ7ͩ ͍AA͍A(!9^#V͍AGÖA%C7C77*7ͪAAͩ!9N#Fxrf`i7*`it;%C*ď:)[!"Ҍ!"*.+"t! }2v!"""|Kͫf&8!u|(̓W!"͜[̈́(*"|(!*V0*ȏcA*V0-3!"rfÅ2*#"jBjB*| ͍A,F""͍A,F*͘D*"ÖA*||(&ͤ- !*|<(