KEY TO THRUST. GATHER THE       SPACE PODS AS THEY APPEAR.      THE FASTER YOU GET THEM THE     MORE YOUR SCORE.                                                   PRESS ANY KEY TO START     <~~№x8`pp`8x№~~<?p`■■`p? ├ ├ ├ ├"  "        №ДДДДДД№0p№№№АА№№ДД№РРР№№ААА№№№ДАА№ДД№№№ДДД№ДД№№ДДД№№  
  



  
      	 ,6=?=6,	D8Dн &Y KEY TO START     <~~№x8`pp`8x№~~<?p`■■`p? ├                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,PD$
1530 '  PRINT#-2:PRINT#-2(* SPACING BETWEEN LABELS *)
1540 'UNTIL SM$="ZZ"
1550 '[CLOSE-OFF] CLOSE#DR: RETURN
1560 '[CNGIO] CLS
1570 'PRINT:PRINT"I/O DEVICE IS NOW SET TO ";DR$;"."
1580 'PRINT:PRINT"HIT ANY KEY TO CHANGE TO ";DC$;"."
1590 '[WAIT]S$=INKEY$:IFS$=""THEN[WAIT]
1600 'DR=-(DR):DT$=DR$:DR$=DC$:DC$=DT$
1700 ' RETURN
2000 '[PCLEAR1] PMODE0:PCLEAR1:GOTO[BACK]
0 '[CNGIO] CLS
1570 'PRINT:PRINT"I/O DEVICE IS NOW SET TO ";DR$;"."
1580 'PRINT:PRINT"HIT ANY KEY TO CHANGE TO ";DC$;"."
1590 '[WAIT]S$=IN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
б&╜+а╜&Н0н0о0п╜)N╜(уЖ╖0аЖ2╖0бЖ╜&└╜'-╠2¤0╤Ж╖0═0┬╠¤0─¤0╞╠ш¤0╚¤0╩0м0▐Ж╖0▌Ж
╖0р0сЖ╜)Ш╜)с╜*н╜*╜'ё╜(╜'F╜(U╢0сБ,╓Ж√╖ ╢ Д@& ┘9╖ └╖ ├╖ ┼╖ ╟╖ ╔╖ ╦╖ ╠╖ ╬╖ ╨╖ ╥╢ "ДК°╖ "ОoАМ&&∙9╞=├/╣╢0б╞ =├¤0д╢0аД╖0жЎ0аTTTOє0д
40┐0░О0▓Ж╖0зьДэб0И z0з&Ї50Ж╖0з╢0ж╖0ижа_}0и'DVz0и ЇкДъ
эД0И z0з&▌9╛0░О0▓Ж╖0зьбэД0И z0з&Ї9}0═'@№0─є0╚Б$ЛшБЁ%Аш¤0╚№0╞є0╩Б
$ЛвБп%Ав¤0╩╜'-№0╚╖0а№0╩╖0б╢0┬╜&└9№0─є0╚Б$Жs0─s0┼╜)бБЁ%ЖЁs0─s0┼╜)б¤0╚№0╞є0╩Б
$Ж
s0╞s0╟╜)бБп%Жпs0╞s0╟╜)б¤0╩╜'-№0╚╖0а№0╩╖0б╢0┬╜&└9Ж┐╖ ╢ Д'Ж▀╖ ╢ Д&№0┬Г  №0┬├ Д¤0┬90╠Ж¤╖ ╢ Д&|0╠Ў0┬XXО0i:№0─уД¤0─№0╞у¤0╞94Ош0&№59|0╘╢0╘Д ╖0╒╛0╤О0Й|0╙}0╒'|0╙╢0╙Д╖0╙цЖT}0╠'
ў0╓╜(Ю─?√0╓ Ж
J&¤╩ў  1?&╟9╢0╨╞
=╦ў0╨94О-z0к&
╢0мИ@╖0мЖ
╖0кz0л&
╢0мИА╖0мЖ╖0л╢0мК╖  0&╧59О-╢0н╜(∙╢0о╜(∙╢0п╜(∙94DDDD╞=├0╞жазД0И Z&Ў0Й 
5Д╞=├0╞жазД0И Z&Ў0Й 
9╗0п╖0п╢0оЙ╖0о╢0нЙ╖0н90а0бЖ╜&└Ж°╖0аЖ╜&└0а╢0бЛ╖0бБ╖%тЖ╕╖0б0аЖ╜&└╢0аЛ╖0аБ&яОАЖ зАМЯ%∙9╢ #К╖ #946Ж
╖0╬О
╜)╗|0╬╢0╬Б&Ё569|0╧╢0╧Д╖0╧О0ЙцжX╩ў  ╜)┌0&т9╢0╬J&¤9Ж
╜)√Ж╜)√Ж2╜)√О
╜)б0&∙9╖0╬ОИ~)╗}0▐&╜+z0▌╜*╪╜*нz0▀&╢0р╖0▀╢0▐ЛЩ╖0▐╜*yЎ0█Ё0╚╦┴"@Ў0▄Ё0╩╦┴"4╢0▐╜)4╜(уЖЩ╖0▐╜*╪╜*нО0▓oАМ0┬&∙О░Ж╖0╬╜)╗О░Ж╖0╬╜)╗9О7╢0▐╜(∙9╞=├0

╢0╪╞ =¤0┘OЎ0╫є0┘├╞жАзд1и Z&Ў9╜(Ю─\┴,Ўў0╫XXXў0█╜(Ю─╦
ў0▄ў0╪ЖЩ╖0▐Ж
╜*Г9╢0█DDD╖0╫╢0▄╖0╪O╜*Г99╢0█DDD╖0╫╢0▄╖0╪Ж╜*Г9|0сOЎ0с├├B
О0Щ╞жазД0И Z&ЎЖ(╖0╬О$╜)╗9╖ ╞╖ ╔╖ ╩╖ ╠╖ ╬╖ ╨╖ ╥╖ └╖ ┬╖ ─╢ "Д╖ "9Оd4ОdЖ╖0╬╜)╗Оd╜(Ю╩ў0╬╜)╗50&▀╜+-ОО+╣жаК@зАМ&їнЯа'·БN'·єБY&Ё~&ОО-╣жаК@зАМ&їнЯа'·9                                                                                                                                                                                                        PLAY AGAIN? Y-N                                                                                                                                                                                                                                                                                                                                                                               CHROMASETTE MAGAZINE                  PRESENTS                         ZERO-G                            BY                          A.PAKERSKI                                             USE LEFT AND RIGHT ARROW KEYS   TO ROTATE YOUR SHIP AND THE Q   
5 REM COPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.
10 'REM:**********************
20 'REM:*STRUCTURED BASIC DEMO
30 'REM:*    BY BOB JOHNS
40 'REM:*  134 GEORGIAN WAY
50 'REM:* SHERWOOD PARK, ALTA
60 'REM:*   CANADA  T8A 2W2
70 'REM:**********************
80 'REM: SET UP MEMORY
90 'REM:**********************
100 'GOTO [PCLEAR1]
110 '[BACK] CLEAR 7000:GOTO [START]
130 'REM:**********************
140 'REM: DIMENSION ARRAYS
150 'REM:**********************
160 '[START] DIM SN$(100):K=1
170 'DIM ST$(100):DIM CI$(100)
180 'DIM PR$(100):DIM PC$(100)
190 'DIM CN$(100)
195 'DR=1:DR$="DISK":DC$="CASS"
200 'REM:**********************
210 'REM: MAIN LOOP OF PROGRAM
220 'REM:**********************
230 'WHILE G<6
240 '  GOSUB [MENU]
250 '  GOSUB [CHOOSE]
260 'ENDWHILE
270 'END
280 'REM:**********************
290 'REM: MENU SUBROUTINE
300 'REM:**********************
310 '[MENU] CLS
320 'PRINT STRING$(14," ")"MENU":PRINT
330 'PRINT"1. CREATE A FILE"
340 'PRINT"2. EDIT AN EXISTING FILE"
350 'PRINT"3. ADD TO AN EXISTING FILE"
360 'PRINT"4. PRINT LABELS"
365 'PRINT"5. CHANGE I/O DEVICE"
370 'PRINT"6. END PROGRAM"
380 'RETURN
390 'REM:**********************
400 'REM: SUB TO CHOOSE ACTION
410 'REM:**********************
420 '[CHOOSE] PRINT:PRINT"     MAKE MENU SELECTION: "
430 '[GETCHAR] G$=INKEY$:IF G$="" THEN [GETCHAR]
440 'G=VAL(G$)
450 'IF G<>1 THEN [ELSE1]
460 '  GOSUB [ADDNEW]
470 '  GOSUB [WRITE]
480 '[ELSE1] IF G<>2 THEN [ELSE2]
490 '  GOSUB [READ]
500 '  GOSUB [EDIT]
505 '  GOSUB [WRITE]
510 '[ELSE2] IF G<>3 THEN [ELSE3]
520 '  GOSUB [READ]
530 '  GOSUB [ADDNEW]
540 '  GOSUB [WRITE]
550 '[ELSE3] IF G<>4 THEN [ENDIF]
560 '  GOSUB [PRINT]
570 '[ENDIF] IF G=5 THEN GOSUB       [CNGIO] ELSE RETURN
575 ' RETURN
580 'REM:**********************
590 'REM: SUB TO ADD ENTRIES
600 'REM:**********************
610 '[ADDNEW] CLS
620 'PRINT"USE ZZ AS LASTNAME OF LAST ENTRY"
630 'FOR I=K TO 100
640 '  LINEINPUT"LAST NAME: ";SN$(I)
650 '    IF SN$(I)="ZZ" THEN RETURN
660 '  LINEINPUT"FIRST NAME, OR INITIAL: ";CN$(I)
670 '  LINEINPUT"STREET: ";ST$(I)
680 '  LINEINPUT"CITY: ";CI$(I)
690 '  LINEINPUT"STATE: ";PR$(I)
700 '  LINEINPUT"ZIP CODE: ";PC$(I)
710 '  PRINT
720 'NEXT I: RETURN
730 'REM:**********************
740 'REM: SUB TO WRITE TO DISK
750 'REM:**********************
760 '[WRITE] CLS
770 'LINEINPUT"FILENAME TO BE SAVED: ";FI$
780 'OPEN"O",#DR,FI$
790 'PRINT"PLEASE WAIT, WRITING TO ";DR$;"..."
800 'FOR I=1 TO 100
810 '  PRINT#DR,SN$(I)
820 '    IF SN$(I)="ZZ" THEN [CLOSE]
830 '  PRINT#DR,CN$(I):PRINT#DR,ST$(I)
840 '  PRINT#DR,CI$(I):PRINT#DR,PR$(I)
850 '  PRINT#DR,PC$(I)
860 'NEXT I
870 '[CLOSE] CLOSE #DR:RETURN
880 'REM:**********************
890 'REM: SUB TO READ DISK
900 'REM:**********************
910 '[READ] CLS
920 'LINEINPUT"FILENAME TO READ: ";FI$
930 'PRINT"LOADING FROM ";DR$;", PLEASE WAIT.."
940 'OPEN"I",#DR,FI$
950 'FOR K=1 TO 100
960 '  LINEINPUT#DR,SN$(K)
970 '    IF EOF(DR)=-1 THEN [CLOSE1]
980 '  LINEINPUT#DR,CN$(K):LINEINPUT#DR,ST$(K)
990 '  LINEINPUT#DR,CI$(K):LINEINPUT#DR,PR$(K)
1000 '  LINEINPUT#DR,PC$(K)
1010 'NEXT K
1020 '[CLOSE1] CLOSE#DR:RETURN
1030 'REM:**********************
1040 'REM: SUB TO EDIT FILE
1050 'REM:**********************
1060 '[EDIT] CLS
1070 'PRINT"PRESS SPACE-BAR TO STEP THROUGH"
1080 'PRINT:PRINT"   PRESS 'E' TO EDIT AN ITEM":PRINT
1090 'FOR I=1 TO 100
1100 '  PRINT"LAST NAME: ";SN$(I)
1110 '    IF SN$(I)="ZZ" THEN RETURN
1120 '  TP$=SN$(I)
1130 '  GOSUB [CHANGE]
1140 '  SN$(I)=TP$
1150 '  PRINT"FIRST NAME: ";CN$(I):TP$=CN$(I)
1160 '  GOSUB [CHANGE]
1170 '  CN$(I)=TP$
1180 '  PRINT"STREET: ";ST$(I):TP$=ST$(I)
1190 '  GOSUB [CHANGE]
1200 '  ST$(I)=TP$
1210 '  PRINT"CITY: ";CI$(I):TP$=CI$(I)
1220 '  GOSUB [CHANGE]
1230 '  CI$(I)=TP$
1240 '  PRINT"STATE: ";PR$(I):TP$=PR$(I)
1250 '  GOSUB [CHANGE]
1260 '  PR$(I)=TP$
1270 '  PRINT"ZIP CODE: ";PC$(I):TP$=PC$(I)
1280 '  GOSUB [CHANGE]
1290 '  PC$(I)=TP$:PRINT
1300 'NEXT I: RETURN
1310 'REM:**********************
1320 'REM: SUB TO ALTER FIELDS
1330 'REM:**********************
1340 '[CHANGE] G$=INKEY$
1350 'IF G$="" THEN [CHANGE]
1360 'IF G$<>"E" THEN RETURN
1370 'LINEINPUT"NEW ENTRY: ";TP$:RETURN
1380 'REM:**********************
1390 'REM: SUB TO PRINT LABELS
1400 'REM:**********************
1410 '[PRINT] CLS
1420 'LINEINPUT"NAME OF FILE TO PRINT: ";FI$
1430 'OPEN"I",#DR,FI$
1440 'REPEAT
1450 '  LINEINPUT#DR,SM$
1460 '    IF EOF(DR)=-1 THEN [CLOSE-OFF]
1470 '  LINEINPUT#DR,CM$:LINEINPUT#DR,SU$
1480 '  LINEINPUT#DR,CJ$:LINEINPUT#DR,PS$
1490 '  LINEINPUT#DR,PD$
1500 '  PRINT#-2,CM$;" ";SM$
1510 '  PRINT#-2,SU$:PRINT#-2,CJ$;
1520 '  PRINT#-2,", ";PS$:PRINT#-2 
э&9:ГCOPYRIGHT (C) 1983 CLOAD        PUBLICATIONS INC.&Y
В:*************************&yВ:*   BASIC PRE-COMPILER  *&ЩВ:*      BY BOB JOHNS     *&╣В:*    134 GEORGIAN WAY   *&┘В:* SHERWOOD PARK, ALBERTA*&∙В:*    CANADA  T8A 2W2    *'В:*************************'$	Бе 138'-
Бе12'@Х3500:МT$(100)'▒
МCO$(8):МOP$(8):CO$(1)│"<>":CO$(2)│"<=":CO$(3)│"=<":CO$(4)│"=>":CO$(5)│">=":CO$(6)│">":CO$(7)│"<":CO$(8)│"="(OP$(1)│"=":OP$(2)│">":OP$(3)│">":OP$(4)│"<":OP$(5)│"<":OP$(6)│"=<":OP$(7)│">=":OP$(8)│"<>"(EЮ:З"BASIC PRE-COMPILER  VERSION 1.0":З б(32,"-")(b╗Й"SOURCE FILENAME: ";S$(ДЕ Ю(S$,".")│0░ Ю(S$,"/")│0з20(ЦЕ З(S$)▓12з16(ЯБе22(░Е З(S$)▓8з16(┴S$│S$л".PRE"(фP│ Ю(S$,"."):ЕP│0зP│ Ю(S$,"/")(·O$│ О(S$,P)л"BAS")З:╗Й"OPTIONS: ";C$)+Е Ю(C$,"B")┤▓0зB$│"B")DЕ Ю(C$,"P")┤▓0зLI│м2)\Е Ю(C$,"L")┤▓0зSW│1)P│ Ю(O$,"."):ЕP│0зP│ Ю(O$,"/"))ХP$│ О(O$,P)л"TMP")еD│1:E│2:K│0)┤Щ"I",#D,S$)├ Щ"O",#E,P$)№!З#LI,"BASIC PRECOMPILER. FIRST PASS":З#LI, б(29,"=")*"ЕB$│"B"з╗Й#D,A$*!#АI│1000е9999*-$╗Й#D,A$*F%ЕB$┤▓"B"░ М(D)│м1з63*n&ЕB$│"B"зA$│ П(A$, З(A$)м Ю(A$,"'"))*Б'ЕSW┤▓1зЗ#LI,A$*К(Бж42*У)Бе47*г*АJ│1е З(A$)*╗+Е Р(A$,J,1)┤▓" "з45*┬,ЛJ*▌-A$│ П(A$, З(A$)м(Jм1))*у.Р+/Е О(A$,1)│"'"▒ О(A$,3)│"REM"з36+10Е З(A$)▓5░ О(A$,6)│"REPEAT"зTI$│ И(I)+T1Е З(A$)▓5░ О(A$,6)│"REPEAT"з36+x2Е З(A$)▓4░ О(A$,5)│"WHILE"Бж127+╥3Е З(A$)▓7░ О(A$,8)│"ENDWHILE"зT$(II)│ О(T$(II),10)л И(Iл1)л П(T$(II),5):A$│"GOTO"лUI$+Ў4Е З(A$)▓4░ О(A$,5)│"UNTIL"Бж133+ 5Бж42,6Е Ю(A$,"(*")│0з59,J7Е Ю(A$,"*)")│0зЗ#LI,"ERROR:NO CLOSING '*)' IN";I,`8Е Ю(A$,"*)")│0з59,Ъ9A$│ О(A$, Ю(A$,"(*")м1)л П(A$, З(A$)м( Ю(A$,"*)")л1)),г:Бж42,╗;Е Ю(A$,"[")┤▓0зБж64,╞<З#E,A$,╫=Е М(D)│м1з63,▐>ЛI,ч?Бе99,№@Е О(A$,1)│"["з83-
AP│ Ю(A$,"[")-BQ│ Ю(A$,"]")-ICЕQ│0зЗ#LI,"ERROR: NO CLOSING ']' IN";I-TDЕQ│0зР-jEL$│ Р(A$,P,QмPл1)-ЖFЕ З(L$)▓10зL$│ О(L$,10)-ЯGЕ З(L$)┤10зL$│L$л" "-▒HЕ З(L$)┤10з71-╜IЕK│0з77-╚JАH│1еK-рKЕ О(T$(H),10)│L$з80-чLЛH.MK│Kл1:T$(K)│L$л"     "л И(I). NA$│ О(A$,Pм1)л"\*\".&OР.<PT$(H)│T$(H)л И(I).TQA$│ О(A$,Pм1)л"\*\".ZRР.ОSЕ Ю(A$,"]")│0зЗ#LI,"ERROR: NO CLOSING ']' IN";I.вTЕ Ю(A$,"]")│0зР.╗UL$│ О(A$, Ю(A$,"]")).╫VЕ З(L$)▓10зL$│ О(L$,10).ЁWЕ З(L$)┤10зL$│L$л" "/XЕ З(L$)┤10з87/YЕK│0з93/ZАH│1еK/1[Е О(T$(H),10)│L$з97/8\ЛH/Q]K│Kл1:T$(K)│L$л И(I)/q^A$│ П(A$, З(A$)м Ю(A$,"]"))/З_Е Ю(A$,"[")┤▓0з65/Н`Р/┴aT$(H)│ О(T$(H),10)л И(I)л П(T$(H), З(T$(H))м15)/╩bБе94/╓cЪ#D:Ъ#E/хdЩ"I",#E,P$/ЇeЩ"O",#D,O$04fЗ#LI:З#LI,"BASIC PRE-COMPILER. SECOND PASS":З#LI, б(31,"-")0EgАI│1000е99990Qh╗Й#E,A$0liЕ Ю(A$,"\*\")┤▓0зБж1170yjЗ#D,I;A$0ОkЕSW┤▓1зЗ#LI,I;A$0аlЕ М(E)│м1з1100зmЛI0│nЪ#E:Ъ#D0╗o╥P$0рpЗ#LI,"PRE-COMPILATION COMPLETED"0ЇqЕ Ю(C$,"S")│0зК1!rЗ#LI:З#LI,"SYMBOL TABLE":З#LI, б(12,"-")1:sАI│1еK:З#LI,T$(I):ЛI1@tК1KuАH│1еK1ivU$│ П(T$(H), З(T$(H))м15)1{wАM│1е З(U$)й51ХxЕ Р(U$,M,5)│ И(I)з1231ЬyЛM1гzЛH1└{A$│ О(A$, Ю(A$,"\*\")м1)1┘|A$│A$л Р(T$(H),11,5)2 }Е Р(T$(H),11,5)│"     "зЗ#LI,"ERROR:UNDEFINED LABEL "; О(T$(H),10)2&~Р2GA$│ П(A$, З(A$)м5):UI$│ И(I)2nААZ│1е8:PN│ Ю(A$,CO$(Z)):ЕPN┤▓0з1302ЫБЛZ:З#L1,"ERROR:SYNTAX IN 'WHILE' IN";I:Р2│ВЕZ┤6зQN│PNл1:ДQN│PN2юГA$│"IF"л О(A$,PNм1)лOP$(Z)л П(A$, З(A$)мQN)л"THEN \*\"3ДK│Kл1:II│K:T$(K)│"WHILE LOOP     "л И(I):Р3WЕA$│ П(A$, З(A$)м5):АZ│1е8:PN│ Ю(A$,CO$(Z)):ЕPN┤▓0з1353ДЖЛZ:З#LI,"ERROR:SYNTAX IN 'UNTIL' AT";I:Р3ЬЗЕZ┤6зQN│PNл1:ДQN│PN3╫ИA$│"IF"л О(A$,PNм1)лOP$(Z)л П(A$, З(A$)мQN)л"THEN"лTI$3▌ЙР3ьК╚0:└1:Бе103ДK│Kл1:II│K:T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 8:Г ERIK OLSON; 200 SHARE DR; MORRISVILLE PA; 19067p
:ГCOPYRIGHT (C) 1983 CLOAD        PUBLICATIONS INC.|Бе 8000┤Ю:Й"CAN YOUR MACHINE HANDLE HIGH    SPEED (Y/N)";H$─H$│ О(H$,1)┌
Е H$│"Y"зТ65495,0чnY│96:P│1С╥╚0,3:╝:╗(128,92)м(128,84),╜:╗(128,100)м(128,108),╜:╗(124,96)м(116,96),╜:╗(20,146)м(237,146),╜:╜(0,96,3):╜(255,96,3):┬(80,170),18:┬(120,170),18:╗(240,162)м(240,184),╜┌
6╗(132,96)м(140,96),╜:┬(18,166),20,3,1,.5,.75:┬(237,166),20,3,1,.75,0ї
Ъ╗(20,150)м(40,188),╜,B
■╜(22,178,3):╜(22,154,3).b╗(160,168)м(186,172),╜,BA╞├(128,190),3,3н*┬(80,170),20,0:┬(120,170),20,0:╗(18,148)м(42,190),╛,B:╗(158,166)м(188,174),╛,B:╗(223,158)м(227,180),╛,B│ОЮ|ЄЗ"       FLIGHT SIMULATOR":З:З"   STEER YOUR PLANE BY USING":З" THE JOYSTICK; FORWARD TO DIVE,":З" BACK TO CLIMB, LEFT TO TURN":З" LEFT, AND RIGHT TO TURN RIGHT.":З:З"  PRESS ANY KEY TO CONTINUE."ТVI$│ Т:ЕI$│""з1110н║Ю:З"     INSTRUMENTS:"ВЗ"  FROM LEFT TO RIGHT THEY ARE;":З" ALTIMETER-TO JUDGE ALTITUDE":З:З" ROLL INDICATOR-TO JUDGE TURNS":З:З" CLIMB/DIVE INDICATOR-TO JUDGE":З" ANGLE OF FLIGHT":З:З" RADAR-TO READ THE LOCATION OF":З" THE RUNWAY"╔ВЗ:З" FUEL GUAGE-FLIGHT TIME LEFT":З:З" PRESS ANY KEY TO CONTINUE."▀цI$│ Т:ЕI$│""з1510жJЮ:З"        WARNING SOUNDS":З:З"  A SHORT LOW BEEPING SOUND":З" MEANS THAT YOUR INCLINE IS TOO":З" STEEP. IF YOU DON'T CORRECT":З" THIS IMMEDIATELY, YOU WILL":З" STALL AND GO INTO A STEEP DIVE."-оЗ:З"  A SHORT HIGHER BEEPING SOUND":З" MEANS THAT YOU HAVE REACHED":З" THE NECESSARY HEIGHT AND YOU":З" MAY RETURN TO THE RUNWAY."TЗ:З" DO YOU WANT TO FLY BY NIGHT?"xvI$│ Т:ЕI$│""з1910:ДЕI$│"Y"зNT│1╜┌Ю:З:З:З:З" PULL JOYSTICK BACK. THEN PRESS":З" ANY KEY TO BEGIN."╙>I$│ Т:ЕI$│""з2110щвJ0│ Н(0):J1│ Н(1)	ЕALT▓635зCY│CYл(J0м33)о4:ДCY│0:X│Xм(J0м33)о4(	jX│XмCYо10D	╬ЕY▓4зY│Yл(J1м33)о6:ДY│5V
2ЕP│1зP│2:ДP│1_
Ц╚0,Ph
·╟3еP^ALT│ALTл.50н(Yм96)в┬ЕALT▓3200зALT│3200:TP│1:а200,1╖&ЕALT┤0░Y┤82з4810цКЕALT┤│0░TP│1░X┤15░X▓м15з5710:ДЕALT┤│0з4810юЕALT▓634▒Y▓142▒Y┤2з3510
RБе 6510$
╢ЕY▓144з4310:ДST│0M╗(22,186мALTо100)м(38,186мALTо100),╜u~╗(70,м1нCYо12л170)м(90,CYо12л170),╜дт╗(110,(Yм96)о10л170)м(130,170м(Yм96)о10),╜хFЕNT│0░YлCY▓0░YлCY┤255░YмCY▓0░YмCY┤250з╗(0,YлCY)м(255,YмCY),╜	кЕX┤0з╜(164,170,3):Д╜(182,170,3)3FL│FLл.03:╜(225,160лFL,0):ЕFL▓20з4310Cr┐1,1:Бе2210U╓:Г***STALL***q:ST│STл1:а1,3:ЕST┤6з3610┴ЮАQ│1е5:а100,3:а1,1:АW│1еQн100:ЛW:ЛQ:АQ│255е10йм10:аQ,1:ЛQ:Y│м20:ALT│ALTм500╤ЕFL▓20з4810▄fБе3610ю╩:Г***CRASH***ў.а1,17ТЕY▓0░XлALTо5л2▓│0░XлALTо5л2┤│255з╗(XлALTо5л2,144)м(128,Y),╜}ЎЕY▓0░XмALTо5л255▓│0░XмALTо5л255┤│255з╗(XмALTо5л255,144)м(128,Y),╜зZЕYлCY▓0░YмCY▓0з╗(0,YлCY)м(255,YмCY),╜Y╛┐1,1:╗(0,0)м(70,20),╜:╗м(50,70),╜:╗м(128,96),╜:╗м(100,100),╜:╗м(70,130),╜:╗м(0,144),╜:╗(255,0)м(240,50),╜:╗м(140,60),╜:╗м(128,96),╜:╗м(144,120),╜:╗м(220,110),╜:╗м(255,144),╜З"Т65494,0:АQ│1е10:╔"T250;ECECECECECEC":ЛQ СЖа1,10ЬъБе7710нN:Г***LAND***╕▓АQ│1е5▐АE│1е3:╔"O1;T255;L255;ABCDEFG":ЛEєzАW│1е(5мQ)н50:ЛW·▐ЛQ BАQ│1е10:╔"ABCDEFG":ЛQ жБе7310 3
:Г***RUN WAY*** onЕNT│0░XлALTо5▓м2░XлALTо5┤253з╗(XлALTо5л2,144)м(128,Y),╜ н╥ЕNT│0░XмALTо5▓м255░XмALTо5┤0з╗(XмALTо5л255,144)м(128,Y),╜ ╩6RL│RLл.25:ЕRL▓.75зRL│.25!ЪRY│YлRLн(144мY):Г:X1=RL*(128-(X+ALT/5+2)):X2=RL*(128-(X-ALT/5+255))!■X1│RLнX!AbЕX1▓м128░X1┤128з╜(X1л128,RY,3)!U╞ЕY▓0з╜(128,Y,3)!`*Бе3510!sО:Г*** LAND ***!·ЄЮ:З:З"      GOOD LANDING PILOT!":З:З" YOU SUCCESSFULLY LANDED WITH":З( Б((20мFL)н100))о100;"GALLONS OF FUEL LEFT IN":З" THE TANK.""(VЗ:З:З"   DO YOU WISH TO FLY AGAIN?":I$│ Т"W║I$│ Т:ЕI$│""з7610:ДЕI$│"Y"зО:ДЮ:Т65494,0:К"k:Г*** CRASH ***"ыВЮ:З:З"         YOU CRASHED!":З:З" NEXT TIME BE SURE TO BE AWARE":З" OF YOUR ALTIMETER, YOUR WARN-":З" INGS, AND YOUR FUEL.""ўцБе 7510#@╚0,3:└3:Бе5 YOU WISH TO FLY AGAIN?":I$│ Т"W║I$│ Т:ЕI$│""з7610:ДЕI$│"Y"зО:ДЮ:Т65494,0:К"k:Г*** CRASH ***"ыВЮ:З:З"         YOU CRASHED!":З:З" NEXT TIME BE SURE TO BE AWARE":З" OF YOUR ALTIMETER, YOUR WARN-":З" INGS, AND YOUR FUEL.""ўцБе 7510#@╚0,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Р&#
:Г******** COLORCOV *********&Y:ГCOPR. 1983, MICK MURRAY         9730 W. RICHARD&y:ГFRANKLIN PARK, ILL. 60131&Ъ:Г**************************&Ў:Г ALL COVERS MUST HAVE THE    LOGO AT THE TOP OF THE SCREEN   DURING GRAPHICS DISPLAY.'O:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.'╣:ГLINES 50-95 PUT THE LOGO ON  SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.(:ГDISCLAIMER (LINES 100-175)   MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.(#
└4:М LO$(7),IA(100)(ЛI│0:J│0:K│0:Q│0:I$│"":S$│"":CT│0:I0│0:ZI1│0:I2│0:I3│0:C│0:S│0:X1│0:X2│0:Y1│0:Y2│0:X│0:D│0:XD│0:YD│0(Ь(╚ 3,1:╝ Д(8)(г):Г(─-┴ 2,3:╗ (0,44)м(255,46),╜,BF)Т2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"*`4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"+.6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"+№8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк",╩:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"-Ш<LO$(5)│"кккеjккZЦYjZйeйjZZйeеЦйijZЦйjккккккеjккZVYjZйeйjZZйeеХUijZХUjккккккеZкйZZYjZйeйjZZйeеХUйjZХUкккккккеZкйjZYjZйeйjZZеeйUVеiZХVкккккккйVкйjYYjЦеХеiZZекйVкейjЦккккккккйVкйjYijЦеЦейjZекеVкейjЦккккк".f>LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк".║ALO$(7)│"╜│э
О
 Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є
5J&█5жА5 5J&╞9".╓FVP│0:AD│0:VP│ Э(LO$(0)).єKAD│ Ж(VPл2)н256л Ж(VPл3)/PVP│ Э(LO$(7))/'UQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q/:XТQл7, Ж(25)м25/dZ╞"C3BM0,191R255U149L255D148R255BM0,0"/q_Q│ Г(AD)/ЭcRB│ Д(10)л30:╚ 3,1: Бе 1000:Г:COLOR 2,3/═dВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS./шe╚4:┐1,1:А T│2 е 3500:Л/юiЮ0nЗ@38,"CHROMASETTE MAGAZINE"05sЗ" ISSUE #25            JULY 1983"0;uЗ0cxЗ:З" ALL PROGRAMS CONTAINED HEREIN"0Д}З"      COPYRIGHT (C) CLOAD"0йВЗ"  PUBLICATIONS  P.O. BOX 1448"0═ЗЗ"    SANTA BARBARA, CA 93102."0ёМЗ"   REPRODUCTION BY ANY MEANS"1СЗ" PROHIBITED. CLOAD PUBLICATIONS"1>ЦЗ" ASSUMES NO RESPONSIBILITY FOR"1dЫЗ"  ERRORS, OMISSIONS OR DAMAGES"1ЙаЗ"   CAUSED BY THE USE OF THESE"1ЯеЗд11)"PROGRAMS.";1▓кАI│1е 2000:Л:О1╝шNN│471╘Є┐1, Д(2)м1:A│ Д( Я)1█№:Г1т:Г2MD│ Д(2):Е MD│1зMD$│"1":Д MD$│"2"2N│ Д(15)л22;$RN│ Д(2):ЕRN│1зRN$│"R":ДRN$│"N"2P.Е RN$│"N" з 10902t8QS│ Д(2):ЕQS│1зQS$│"R":ДQS$│"N"2ЩBFQ│ Д(2):Е FQ│1зFQ$│"F":ДFQ$│"Q"2гL╚ 3,12лVC│22▓`:Г2╣j:Г2═t┴ C:X│128:Y│1212у~Е RN$│"N" Бе 11702■ИX│ Д(255):Y│ Д(150)лNN3
ТX1│0:Y1│NN3"Ь╗(X,Y)м(X1,Y1),╜3>жY1│Y1лN:Е Y1▓191 з 12103J░Бе 11803V║Бж 14403j─┴ C:X1│0:Y1│1913С╬Е QS$│"R" з X│ Д(255):Y│ Д(150)лNN3ж╪╗(X,Y)м(X1,Y1),╜3┬тX1│X1лN:Е X1▓255 з 12703╬ьБе 12403┌ЎБж 14403Ё┴ C:X1│255:Y1│1914
Е QS$│"R" з X│ Д(255):Y│ Д(150)лNN4,╗(X,Y)м(X1,Y1),╜4GY1│Y1мN:Е Y1┤NN з 13304S(Бе 13004_2Бж 14404t<┴ C:X1│255:Y1│NN4ЫFЕ QS$│"R" з X│ Д(255):Y│ Д(150)лNN4░P╗(X,Y)м(X1,Y1),╜4╩ZX1│X1мN:Е X1┤0 з 13904╓dБе 13604тnБж 14404°xC│Cл1:Е C▓4 з C│15ВN│ Д(22)л15МЕ MD$│"1" з Бе 11405+ЦБе 15005RаЕ FQ$│"F" з 1460:C│Cл1:Е C▓4 з C│15hкC│Cл1:Е C▓4 з C│15Д┤A$│ Т:Е A$│"0"з ┐   1,05л╛NT│NTл1:Е A$│"N" ▒ NT│▓RB з Бе 1005╔├Е  Д(15)│15 з ┐ 1, Д(2)м15▐╚Е A$│"1" з ┐ 1,15ф╥Р5ы▄:Г6цЕ RN$│"R" з 15306ЁX│128:Y│1216+·X1│0:Y1│NN:X2│0:Y2│1916JX3│255:Y3│191:X4│255:Y4│NN6YN│ Д(40)л16eБж 18506"┴ C1:╗(X,Y)м(X1,Y1),╜6Щ,┴ C2:╗(X,Y)м(X3,Y3),╜6┼6Y1│Y1лN:Y3│Y3мN:Е Y1▓191 ▒ Y3┤NN з 16106╤@Бе 15706ыJ┴ C3:╗(X,Y)м(X2,Y2),╜7T┴ C4:╗(X,Y)м(X4,Y4),╜70^X2│X2лN:X4│X4мN:Е X4┤0 ▒ X2▓255 з 16507<hБе 16107HrБж 16807T|Бе 17007`ЖБе 15307vРC│Cл1:Е C▓4 з C│17|ЪР7ЭдЕ RN$│"R" з 1710:X│128:Y│1217┼оN│ Д(20)л2:X1│0:Y1│NN:X3│255:Y3│1917т╕X2│0:Y2│191:X4│255:Y4│NN7ъ┬┴ C8╠┴ C3:╗(X,Y)м(X4,                                                                                                                                                                                                                                                                                      ┬ ┬┼╟!"┬$╟&'╔)┬├                         COLORCOVBAS УCOVERUP BAS#мFLIGHT  BASHALL    BAS%PRECOMP BASЁADDRESS PRE vADDCASS BAS(ZEROG   BINлLISTER  BIN*>DDRESS TMP
 +<                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Y4),╜8╓┴ C1:╗(X,Y)м(X3,Y3),╜8>рX3│X3мN:X4│X3:Е X4┤0 з 17808JъБе 17408dЇ┴ C2:╗(X,Y)м(X2,Y2),╜8Ж■┴ C4:╗(X,Y)м(255,Y3),╜:Бж14608иY2│Y2мN:Y3│Y2:Е Y2┤NN з 1820 8┤Бе 17808╩C│Cл1:Е C▓4 з C│18┘&N│ Д(15)л28х0Бе 11408·:Е FQ$│"F" з 19009DC1│ Д(4):C2│ Д(4):Е C2│C1 з 18609CNC3│ Д(4):Е C3│C2 ▒ C3│C1 з 18709oXC4│ Д(4):Е C4│C3 ▒ C4│C2 ▒ C4│C1 з 18809ubР9ПlC1│C:C2│C:C3│C:C4│C:Р:Y3│Y2:Е Y2┤NN з 1820 8┤Бе 17808╩C│Cл1:Е C▓4 з C│18┘&N│ Д(15)л28х0Бе 11408·:Е FQ$│"F" з 19009D                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 й&9
:ГCOPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.&G
В COVERUP&bВ GBJ PROGRAM PRODUCTS&m(Бе 700&Е2A│ Ж(27)н256л Ж(28)&Ц<╣ Г0│Aм&H4E8&зF╣ Г1│Aм&H494&▄PТ&H1F7,0:Т&H1F8,0 :Г TO START HIGH SCORE AT 0000&щZАLP│1е10&ЎdA│ Г0(0)'nX│198:АI│0е6:НD$:З@XлI,D$;:X│Xл2:Л:П'GxX│198:АI│0е6:З@XлI, Л(128);:X│Xл2:Л'OВЛLP'МЮ:З:З"  INSTRUCTIONS Y/N":Бж610:ЕA$│"N"з590'┐ЦЗ:З:З"  PRESS ANY KEY TO ADVANCE TO     NEXT PAGE.":Бж610:Ю'╘аЗ:Зд12)"COVERUP"(CкЗ:Зд3)"OBJECT:":З"  TRY TO ELIMINATE (COVERUP) 9":З"  SQUARES IN SEQUENCE BEFORE":З"  THE CLOCK RUNS OUT."(g┤З:З:З"  SOUNDS ROUTINE ENOUGH."(П╛З:З:З"  NOW FOR THE GOOD STUFF!!!!"(Щ╚Бж610(▀╥Ю:З:З"  USING THE RIGHT JOYSTICK,       MOVE THE CURSOR OVER THE")%▄З"  NUMBER 1 SQUARE, THEN ON TO     2, 3, ETC....  WHEN ALL NINE")ЫцЗ"  SQUARES HAVE BEEN COVERED UP,   A DIFFERENT COLOR SCREEN WILL   APPEAR. YEP, YOU GUESSED IT -   DO IT AGAIN.")╙ЁЗ:З"  THERE ARE NINE  SCREENS TO      COMPLETE....")№·З:З:З"  STILL SOUNDS PRETTY SIMPLE?"*
Бж610*e
Ю:З:З"  THE CLOCK IN THE LOWER LEFT     IS TIME REMAINING TO COMPLETE   CURRENT SCREEN..."*К
X│&H30:АI│1504е1507:ТI,X:X│Xл1:Л*Ф
"Бж610*ы
,З:З"  THE CLOCK IN THE LOWER RIGHT    IS TIME REMAINING TO COMPLETE   THE GAME..."+
6X│&H31:АI│1532е1535:ТI,X:X│Xл1:Л+
@Бж610+C
JЗ:З"  THE SCORE IS IN THE CENTER..."+h
TX│&H30:АI│1518е1522:ТI,X:X│Xл1:Л+r
^Бж610+Ч
hЗ:З"  THE HIGH SCORE IS LEFT..."+╝
rX│&H30:АI│1510е1514:ТI,X:X│Xл1:Л+╞
|Бж610+ў
ЖЗ:З"  NO. OF SCREENS IS RIGHT...":Т1527,&H38,

РБж610,
ЪЮ:З:Зд10)"SCORING:",я
дЗ:З"  WHEN A SQUARE IS COVERED UP,    YOU GET THE VALUE OF THAT       SQUARE TIMES THE VALUE OF THE   CURRENT SCREEN.  I.E. A 9 ON    SCREEN 1 WOULD BE WORTH 9 BUT   A 9 ON SCREEN 9 WOULD BE        WORTH 81." -d
оЗ"  WHEN YOU COMPLETE ALL NINE      SCREENS YOU GET THE REMAINING   TIME IN THE GAME ADDED TO       YOUR SCORE."-n
╕Бж610-ж
┬З:З"THATS ALL THE PLUSES...":З"NOW THE MINUSES...";-░
╠Бж610.e
╓Ю:З:З"  IF YOU TRY TO COVERUP A         SQUARE OUT OF SEQUENCE YOU      LOSE 1 POINT.  IF YOU FAIL TO   COMPLETE A SCREEN IN THE        ALLOTTED TIME YOU LOSE 10       POINTS.".o
рБж610.╜
хЗ:З"  YOU LOSE 10 POINTS FOR HIT-     TING THE SPOT MARKED WITH AN    X.".╚
чБж610 /
ъЮ:З:З"  THERE ARE 6 LEVELS OF PLAY:     1 IS THE LOWEST - 6 HIGHEST."/0
ЇЗ"  THE DIFFERENCES ARE:"/j
■З:З"    1 - THE AMOUNT OF TIME FOR      EACH SCREEN."/иЗ:З"    2 - THE AMOUNT OF TIME FOR      A COMPLETE GAME."0	З:З"    3 - THE SPEED AT WHICH THE      NUMBER THAT YOUR TRYING TO      COVERUP WILL MOVE." 0Бж6100!&Ю:З:З:З:З0J0З:З"  TO QUIT AT ANY TIME PRESS 'Q'"0c:З:Зд12)"goodluck!!!"0mDБж6100zNB│ Г1(0)0ВXЮ:К0ЪbA$│ Т:ЕA$│""з610:ДР0оlЖ c,o,v,e,r,u,p0└╝╚0:└1:Ю0:Бе50ОМ 'Н4зА ї00И М'Н$зД ЄО Мр'НзВ їОр0ИрМ'НзД Є9
·Ц·HHHHКП4О 0&№59╜й( K COVERUP (C)1982 GEORGE B. JANSSEN 850 GREEN LANTERN BALLWIN, MO 63011О,ЯИ0Мн╜╣ЬОLЯИ0Мл╜╣ЬОЗЯИ0Мй╜╣ЬОзЯИ0М▒╜╣ЬО╟ЯИ0М╣╜╣ЬОGЯИ0Н,╜╣Ь╜б┴'√Б1'Б2'Б3'Б4'Б5'Б6&у╜вВД╖
ЎН' = LEVEL 1-2-3-4-5-6  (PRESS ANY KEY)О╔ЯИ0Мч╜╣Ь╜б┴'√БQ'
9~аш╞╫№О@┐
ЄО┐
ЇЎ
ЎO№
ЄГd¤
Є№
ЇГ
Ї¤
Ї1?&ъ╢
ЎCАД╖
·╖
ЎO_■ў
ыў
юў
ёў
∙│
ў&¤
ў¤
щ№
Ї¤
я№
Є¤
ь
/╫¤╓№╜йН bЖ
4╜┐№
Д
4╠усГ▀"ыжДС¤&ужф3Н%ЙX3┼п─Б
&ЖК0зДЦ■Дбф'jф&└2aЖ1Ч■92a9╛
я0'
┐
я╛
ь0'
┌┐
ь
+╢
Ў╞d=
╜з╙
шЦ■4Ж
Ч■
ш5Ч■нЯа
╢
ZDЧ·╢
[DDЧ√О╓·:4╓√Ж =усГр%╞
╫МO╞
▌Н_╜йQ УждС■& YС¤'0Б&
№
щГ	*O_¤
щ╞
╫МO╞
▌Н_╜йQ╛
щ' `0┐
щЮ UЖ*здО╜з╙╓¤чд╜б┴■g >╓№]'ZЖ=╩╩А9╛
щД╞	╨№=:┐
щНf0Н
├
┼■╞:╤■&╝
№+Н═╫¤№
Є¤
ь0Н
С
и■■ЗЦ¤зд№
щє
я¤
щ│
ў%¤
ў╛
я0┐
яН$ОмЯИ0Н	╜╣Ь¤▐№· GAME OVERЦ№К0╖ў№
щО4ОЄж─зД03_гф$єМэ'Ж0зД0 є№
ўНj4Оъж─зД03_гф$єМх'Ж0зД0 є№
ьНF4Оуж─зД03_гф$єМ▀'Ж0зД0 є№
яН"4О ж─зД03_гф$єМ√'Ж0зД0 є2h9▌P╞РC╜╝Ж╜╜┘0
9№
Є¤
ь0НЩ░╛
щ0М*О┐
щ■¤z
·&{╢
Ў╖
·╜┐╢
Д3Н¤┬╓■─X3┼о─Б&0И▀ 7Б
&0Ир .Б&0Ис %Б&0 Б&0
 Б&0И Б&0И  0И!М%М▀"жДС¤&здЦ■Б
&ЖзДп─9МУРYР░Р┴r╣√√жА'ЧМOцА▌Н4я_╜йV5 ч93_гф$єМ√'Ж0зД0 є2h9▌P╞РC╜╝Ж╜╜┘0
9№
Є¤
ь0НЩ░╛
щ0М*О┐
щ■¤z
·&{╢
Ў╖
·╜                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
Бе 2 L
Бе102::ГCOPYRIGHT (C) 1983            CLOAD PUBLICATIONS INC. Z└4:╚4:Бе1 `В ЖX│ Н(0):Y│ Н(1):ИL Бж 34,31,32,33!;Е Ж(339)│254з┼(A,B)м(C,D),W:B│Bм16:D│Dм16:─(A,B)м(C,D),W:┼(A,B)м(C,D),U,▒:Бж16:Бж61:Бж16:Бж61:Бж16:┼(A,B)м(C,D),W:B│Bл16:D│Dл16:─(A,B)м(C,D),W:┼(A,B)м(C,D),U,▒:ИL Бж34,31,32,33!DБж16!kЕX┤XL з11:ДЕX▓XH з13:ДЕY┤YL з36:Д4!qВ!тЕA┤16з51:Д┼(A,B)м(C,D),W:─(Aм8,B)м(Cм8,D),W:┼(Aм8,B)м(Cм8,D),V,▒:ИL Бж34,31,32,33:A│Aм8:C│Cм8:╔"O4EFEO5":Бе4!ш
В!·ЕL│1зЕC▓231з4"lЕC▓239з51:Д┼(A,B)м(C,D),W:─(Aл8,B)м(Cл8,D),W:┼(Aл8,B)м(Cл8,D),U,▒:ИL Бж34,31,32,33:A│Aл8:C│Cл8:╔"O4EFEO5":Бе4"rВ"М┼(M,64)м(Mл7,71),B2,╜"·M│Mл16:ЕM▓247зM│8:┼(248,85)м(255,92),B1,╜:┼(248,85)м(255,92),B2,╜:┼(0,47)м(7,54),B1,╜:┼(0,47)м(7,54),B2,╜#─(M,64)м(Mл7,71),B2,G#.┼(M,64)м(Mл7,71),B1,▒#J┼(N,102)м(Nл7,109),B3,╜#МN│Nм16:ЕN┤8зN│240:┼(0,123)м(7,130),B1,╜:┼(0,123)м(7,130),B3,╜#и─(N,102)м(Nл7,109),B3,G#─┼(N,102)м(Nл7,109),B1,▒#р┼(O,140)м(Oл7,147),B4,╜$*O│Oл16:ЕO▓247зO│8:┼(248,161)м(255,168),B1,╜:┼(248,161)м(255,168),B4,╜$F─(O,140)м(Oл7,147),B4,G$b┼(O,140)м(Oл7,147),B1,▒$hР$nВ$ЖЕO│A ▒ Oм8│A з58:ДР$Я Е N│A ▒ Nм8│A з58:ДР$╕!Е M│A ▒ Mм8│A з58:ДР$╛"Р$─#В$▌$E│0:ИL Бе37,38,37,39%%ЕAл8▓200░Aл8┤224░Y┤YL ░H│L з41:ДБе4%+&ЕAл8▓32░Aл8┤56░Y┤YL ░H│L з41:ДБе4%K'ЕAл8▓56░Aл8┤80░H│L з41:ДБе4%Q(В&)┼(A,B)м(C,D),W:B│Bм2:D│Dм2:─(A,B)м(C,D),W:┼(A,B)м(C,D),V,▒:E│Eл2:Бж16:ИL Бж 46,47,48,49:ЕE│38з L│Lл1:ЕL│5з71:ДБе4:Д┼(A,B)м(C,D),W:B│Bм2:D│Dм2:─(A,B)м(C,D),W:┼(A,B)м(C,D),U,▒:E│Eл2:Бж16&Q*X│ Н(0):Y│ Н(1):ИL Бж46,47,48,49:ЕY┤YL з41:ДБж16:ЕY▓YH з44:Д42&W+В',┼(A,B)м(C,D),W:B│Bл2:D│Dл2:─(A,B)м(C,D),W:┼(A,B)м(C,D),V,▒:E│Eм2:Бж16:ИL Бж46,47,48,49:ЕE│0з4:Д┼(A,B)м(C,D),W:B│Bл2:D│Dл2:─(A,B)м(C,D),W:┼(A,B)м(C,D),U,▒:E│Eм2:Бж16:ЕE│0з4'J-X│ Н(0):Y│ Н(1):ИL Бж46,47,48,49:ЕY▓YH з44:ДБж16:ЕY┤YL з41:Д45'e.ЕE▓20░O▓│A ░O┤C з58:ДР'Ф/ЕE┤8░O▓│A ░O┤C з58:ДЕE▓20░N▓│A ░N┤C з58:ДР'├0ЕE┤8░N▓│A ░N┤C з58:ДЕE▓20░M▓│A ░M┤C з58:ДР'▌1ЕE┤8░M▓│A ░M┤C з58:ДР'у2В'Ў3┼(A,B)м(C,D),W(4ЕA┤16зA│0:C│15:ДA│240:C│255(:5─(A,B)м(C,D),W:┼(A,B)м(C,D),R,▒(H6а 255мD,1(w7D│Dл5:B│Bл5:ЕD┤192з┼(A,Bм5)м(C,Dм5),W:Бе53(м8╔"O1V31CGCGV26":АI│1е25:╔"CGV-":ЛI:╔"V31O5":Бе59(▓9В):╔"O1V31;1;2;3;4;5;6;7;8;9;10;11;12;O2;1;3;5;7;9;11;O3;2;5;8;11;O4;1;5;9;12;O5;1;6;12")─;GU│GUм1:ЕGU│0зЮ0:З@268,"game"; Л(128);"over";:┐0,1:АI│1е1000:ЛI:┐1,1:Бе96:ДM│8:N│240:O│8:L│1:H│0:─(248,0)м(255,7),B2,G:─(248,0)м(255,7),B3,G:─(248,0)м(255,7),B4,G:АI│1е500:ЛI:Бе81)╩<В)р=ИL Бе 62,63,65,67*#>ЕA│8░H│0з─(240,0)м(255,15),W,G:SC│SCл100:╔"BAGF":H│1:Бж70:Р:ДР*O?ЕO│A ▒Oм8│A з╔"CECECECEC":SC│SCл50:Бж70*Ф@ЕA│232░H│1з─(240,0)м(255,15),W,G:SC│SCл100:╔"BAGF":H│2:Бж70:Р:ДР*└AЕN│A ▒Nм8│A з╔"CECECECEC":SC│SCл50:Бж70+BЕA│8░H│2з─(240,0)м(255,15),W,G:SC│SCл100:╔"BAGF":H│3:Бж70:Р:ДР+/CЕM│A ▒Mм8│A з╔"CECECECEC":SC│SCл50:Бж70+tDЕA│232░H│3з─(240,0)м(255,15),W,G:SC│SCл100:╔"BAGF":H│4:Бж70:Р:ДР+zEВ+╓F╞"BM168,8":┼(128,1)м(168,8),BL,╜:SC$│ И(SC):АI│ З(SC$)е2йм1:╞ SC$( Й( Р(SC$,I,1))):ЛI:Р,░GM│8:N│240:O│8:L│1:H│0:─(248,0)м(255,7),B2,G:─(248,0)м(255,7),B3,G:─(248,0)м(255,7),B4,G:L5│L5л1:SC│SCлL5н1000:Бж70:╔"T2L8O3GGL16FEL8EL16E-EEL32FF#L16GO4CO3L8G":Ю0:З@263,"here";Z$;"we";Z$;"go";Z$;"again";:┐0,1:Бе80-МHSC$(1)│"BL1L2R1U6G1BD5BL5":SC$(2)│"L4E4U1H1L2G1BL3BD5":SC$(3)│"BL5BU1F1R2E1U2H1L1E2L4BD6BL3":SC$(4)│"BL1BU3L4E3D6BL6":SC$(5)│"BL4R3E1U2H1L3U2R4BD6BL7":SC$(6)│"BL2BU6G4D1F1R2E1U1H1L2BL5BD3":SC$(7)│"BL4U1E4U1L4BD6BL3".ISC$(8)│"BL1L2H1U1E1H1U1E1R2F1D1G1L2R2F1D1BL8BD1":SC$(9)│"BL3E3U2H1L2G1D1F1R2BD3BL7":SC$(0)│"BL1L2H1U4E1R2F1D4BL7BD1".■JSP$│"BR6":A$│"U4R3D4U2L3BR6BD2":B$│"U4R2F1G1F1G1BR4":E$│"NR3U4R3BD2L3BR6BD2":F$│"U4R3BD2L3BR6BD2":I$│"U4D4BR3":N$│"U4F4U4D4BR3":O$│"U4R3D4L3BR6":P$│"U4R3D2L3D2BR6":R$│"U4R3D2L3R1F2BR3":S$│"R3U2L3U2R3BD4BR3":T$│"BR2U4L2R4BD4BR3":U$│"NU4R3NU4BR3"/(KА I│1е6:BL$│BL$л Л(128):ЛI:Z$│ Л(128)/?L:ГDIMENSION ARRAYS/НMМ U(1,15),V(1,15),W(1,15),R(1,15),B1(0,7),B2(0,7),B3(0,7),B4(0,7),BL(4,7)/·N╝:M│8:N│240:O│8:L│1:H│0:GU│4:SC│0:L5│0:─(248,0)м(255,7),B2,G:─(248,0)м(255,7),B3,G:─(248,0)м(255,7),B4,G0┘OЮ0:З@203,"the"; Л(128);"hall";:З@270,"of";:З@327,"the"; Л(128);"mountain"; Л(128);"king";:┐0,1:╔"V31O1T6L8CP8DP8E-P8FP8GP8E-P8L2GL8G-P8DP8L2G-L8FP8D-P8L2FL8CP8DP8E-P8FP8GP8E-P8L4GL8A-P8GP8FP8E-P8DP8L2CL64CE-GO2CE-GO3C"0ьP:ГDRAW FIGURES1Q╚4,1:┐0,1:╝0:╚3,1:╔"L255T255V31O5"1эR╞"BM2,15;C2R2U7C3U1L3D2C8D2U2C3U3R3U3C8U3R2D3L2C3D3R6U2C8U2D2C3D3L3D1C2D2R3D4R2L2U3L3":─(0,0)м(15,15),U,G:╞"BM27,15;C2L2U7C3U1R3D2C8D2U2C3U3L3U3C8U3L2D3R2C3D3L6U2C8U2D2C3D3R3D1C2D2L3D4L2R2U3R3":─(16,0)м(31,15),V,G2SЗ@428,"ready";:┐0,12╡T╞"BM47,15;C3H6L2G6E6C8D6R2U3L2U3C3U2C2U2H6F6R2D2C3D2U2C2U2E6":─(32,0)м(47,15),R,G:╞"BM55,6;C7U4L2U1D6L2U6D1L2D4C6":─(48,0)м(55,7),B1,G:╝1:Бж88:З@428,BL$;:З@429,"set";:┐0,13UЕGU┤4з╔"V31O1T6L8CP8DP8E-P8FP8GP8E-P8L4GL8A-P8GP8FP8E-P8DP8L2CL64CE-GO2CE-GO3C"::ДАI│1е500:ЛI3/VЗ@492,BL$;:┐1,1:Бе33CW:ГDRAW BUILDING3╔XП:АI│1е5:НA,B,C,D:╗(A,B)м(C,D),╜,B:ЛI:АI│1е5:Н J1,J2,B,D:АJ│J1 е J2 й10:╗(J,B)м(J,D),╜:ЛJ,I:АI│1е4:НA,B:╗(A,B)м(Aл5,Bл32),╜,BF:ЛI4YАI│1е4:Н A,B:╗(A,B)м(Aл23,Bл32),╜,B:АJ│B е Bл32 й8:╗(A,J)м(Aл23,J),╜:ЛJ,I4▐ZЖ 0,34,255,39,8,72,243,77,8,110,243,115,8,148,243,153,8,186,243,191,12,250,34,39,16,243,72,77,16,243,110,115,16,243,148,153,16,243,186,191,222,39,24,77,222,115,24,153,56,40,200,78,32,116,200,1545е[A│40:B│170:C│55:D│185:─(A,B)м(C,D),W,G:┼(A,B)м(C,D),U,▒:┼(50,26)м(57,33),B1,╜:┼(38,26)м(45,33),B1,╜:┼(44,20)м(51,27),B1,▒:┴7,0:╗(243,172)м(253,191),╜,BF:╞"BM246,174;C8R4D4L4U4BD6BR2D4BD2BL2D4R4"6{\╞"BM98,33;C8L6R2U4R2D4U4C7R4L10U1R10L2U1L6U1R6L4C6U5L2D5U5L2G4E4R6F4H4L2C8U2L2U3R2D3U2E2F2BM12,156;C8R4D2L4U2D2R2D6L2U1R2BM236,118;R4D2L4U2D2R2D6L2U1R2BM12,80;R4D2L4U2D2R2D6L2U1R2BM236,42;R4D2L4U2D2R2D6L2U1R2"6┤]GU$│"L2U4L2D4L2R2U4R1U3NF4NG4U1L1R2U1L2U1R2BD10BL10"7S^╞"BM26,9":╞"C8H6L2G6M-8,2M-2,6M+8,2E2H2BM+16,-6M+6,2M+2,6M-8,2H2E2BD4M+2,10R4D1R2D3L8H6L2G6L8U3R2U1R4M+2,-10":├(22,14),7,8:╛(22,7):╛(18,7):╞"BM16,10R6D1L67ў_╚4,1:╞"BM80,8;BU1F1R2E1U1H1L2H1U1E1R2F1BR7H1L2G1D4F1R2E1BD1BR6L2H1U4E1R2F1D4BD1BR3U6R3F1D1G1L2F3BR3NR4U6R4BG3R2":Бж70:ЕGU│1зР:Д╞"BM235,11":АI│1еGUм1:╞ GU$:ЛI:Р8`:ГHIGH SCORE ROUTINE8Хa╞"BM31,185;XP$;XR$;XE$;XS$;XS$;XSP$;XF$;XI$;XR$;XE$;XSP$;XB$;XU$;XT$;XT$;XO$;XN$;XSP$;XT$;XO$;XSP$;XR$;XE$;XS$;XT$;XA$;XR$;XT$;"9!b╞"BM56,163;U6D3R4U3D6BR4R2L1U6L1R2BD5BR8F1R2E1U1H1L2H1U1E1R2F1BR7H1L2G1D4F1R2E1BD1BR6L2H1U4E1R2F1D4BD1BR3U6R3F1D1G1L2F3BR3NR4U6R4BG3R2"95cЕ SC▓HS з HS│SC9{d╞"BM168,163":HS$│ И(HS):АI│ З(HS$)е2йм1:╞ SC$( Й( Р(HS$,I,1))):ЛI9ФeЕ Ж(339)│254з78:Д1019▀f└4:A│0:B│0:C│0:Y│0:YL│8:YH│55:X│0:XL│10:XH│53:L│0:H│0:M│0:N│0:O│0:Бе72:gDANIEL HAMILTON 9717 S. 52NDAVE. OAK LAWN, IL 604534BG3R2"95cЕ SC▓HS з HS│SC9{d╞"BM168,163":HS$│ И(HS):АI│ З(HS$)е2йм1:╞ SC$( Й( Р(HS$,I,1))):ЛI9ФeЕ Ж(339)│254з78:Д1019▀f└4:A│0:B│0:C│0:Y│0:YL│8:YH│55:X│0:XL│10:XH│53:L│0:H│0:M│0:N│0:O│0:Бе72:gDANIEL HAMILTON 9717 S. 52N 
&щБе  1125&"ъХ 7000:Бе  1003&5ыМ SN$(100):K│1&OьМ ST$(100):М CI$(100)&iэМ PR$(100):М PC$(100)&xюМ CN$(100)&ШяDR│м1:DR$│"CASS":DC$│"DISK"&кЁЕ G▓│6з  1012&╖ёБж  1013&─ЄБж  1022&╨єБе 1008&╓ЇК&▄їЮ&їЎЗ  б(14," ")"MENU":З'
ўЗ"1. CREATE A FILE"'-°З"2. EDIT AN EXISTING FILE"'O∙З"3. ADD TO AN EXISTING FILE"'f·З"4. PRINT LABELS"'В√З"5. CHANGE I/O DEVICE"'Ш№З"6. END PROGRAM"'Ю¤Р'┬■З:З"     MAKE MENU SELECTION: "'▄ G$│ Т:Е G$│"" з  1023'щG│ Й(G$)'№
Е G┤▓1 з  1028(	Бж  1040(Бж  1052()Е G┤▓2 з  1032(6Бж  1064(CБж  1076(PБж  1052(cЕ G┤▓3 з  1036(p	Бж  1064(}
Бж  1040(КБж  1052(ЭЕ G┤▓4 з  1038(к
Бж  1105(┼Е G│5 з Бж        1119(╦Р(╤Ю(∙З"USE ZZ AS LASTNAME OF LAST ENTRY")	А I│K е 100)$╗Й"LAST NAME: ";SN$(I)):Е SN$(I)│"ZZ" з Р)b╗Й"FIRST NAME, OR INITIAL: ";CN$(I))z╗Й"STREET: ";ST$(I))Р╗Й"CITY: ";CI$(I))з╗Й"STATE: ";PR$(I))┴╗Й"ZIP CODE: ";PC$(I))╟З)╥Л I: Р)╪Ю)√╗Й"FILENAME TO BE SAVED: ";FI$*Щ"O",#DR,FI$*6З"PLEASE WAIT, WRITING TO ";DR$;"..."*F А I│1 е 100*V!З#DR,SN$(I)*p"Е SN$(I)│"ZZ" з  1063*М#З#DR,CN$(I):З#DR,ST$(I)*и$З#DR,CI$(I):З#DR,PR$(I)*╕%З#DR,PC$(I)*└&Л I*╠'Ъ #DR:Р*╥(Ю*ё)╗Й"FILENAME TO READ: ";FI$+*З"LOADING FROM ";DR$;", PLEASE WAIT.."+-+Щ"I",#DR,FI$+=,А K│1 е 100+N-╗Й#DR,SN$(K)+f.Е  М(DR)│м1 з  1075+Д/╗Й#DR,CN$(K):╗Й#DR,ST$(K)+в0╗Й#DR,CI$(K):╗Й#DR,PR$(K)+│1╗Й#DR,PC$(K)+╗2Л K+╞3Ъ#DR:Р+╠4Ю+є5З"PRESS SPACE-BAR TO STEP THROUGH",6З:З"   PRESS 'E' TO EDIT AN ITEM":З,+7А I│1 е 100,E8З"LAST NAME: ";SN$(I),[9Е SN$(I)│"ZZ" з Р,j:TP$│SN$(I),w;Бж  1101,Ж<SN$(I)│TP$,м=З"FIRST NAME: ";CN$(I):TP$│CN$(I),╣>Бж  1101,╚?CN$(I)│TP$,ъ@З"STREET: ";ST$(I):TP$│ST$(I),ўAБж  1101-BST$(I)│TP$-&CЗ"CITY: ";CI$(I):TP$│CI$(I)-3DБж  1101-BECI$(I)│TP$-cFЗ"STATE: ";PR$(I):TP$│PR$(I)-pGБж  1101-HPR$(I)│TP$-гIЗ"ZIP CODE: ";PC$(I):TP$│PC$(I)-░JБж  1101-┴KPC$(I)│TP$:З-╠LЛ I: Р-╓MG$│ Т-ъNЕ G$│"" з  1101-№OЕ G$┤▓"E" з Р.P╗Й"NEW ENTRY: ";TP$:Р.QЮ.@R╗Й"NAME OF FILE TO PRINT: ";FI$.QSЩ"I",#DR,FI$._T╗Й#DR,SM$.wUЕ  М(DR)│м1 з  1118.ПV╗Й#DR,CM$:╗Й#DR,SU$.зW╗Й#DR,CJ$:╗Й#DR,PS$.╡X╗Й#DR,PD$.╩YЗ#м2,CM$;" ";SM$.сZЗ#м2,SU$:З#м2,CJ$;.№[З#м2,", ";PS$:З#м2,PD$/
\З#м2:З#м2/ ]Е SM$┤▓"ZZ"з 1108/,^Ъ#DR: Р/2_Ю/]`З:З"I/O DEVICE IS NOW SET TO ";DR$;"."/ИaЗ:З"HIT ANY KEY TO CHANGE TO ";DC$;"."/ЯbS$│ Т:ЕS$│""з 1122/─cDR│м(DR):DT$│DR$:DR$│DC$:DC$│DT$/╩dР/▄e╚0:└1:Бе 10020'В COPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.ZZ"з 1108/,^Ъ#DR: Р/2_Ю/]`З:З"I/O DEVICE IS NOW SET TO ";DR$;"."/ИaЗ:З"HIT ANY KEY TO CHANGE TO ";DC$;"."/ЯbS$│ Т:ЕS$│""з 1122/─cDR│м(DR):DT$│DR$:DR$│DC$:DC$│DT$/╩dР/▄e╚0:└1:Бе 10020'В COPYRIGHT(C) 1983 CLOAD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     4}╠ккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUкдДЙ╣┼╜3▒Й╣┼╜3▒╝с┤
╢
╣┼╜3╖- ы?v▓╤▒jЙ5
ДДА4Б W▒┌ Ав
┐■люИ╣╣╙# H╪Н╫а
:╒┴*┼о┴*╝
Й┼╠╠+╧а}╠ }╠ГкUUUА 1750 1650 1650 1600 1550 1450 1400 1350 1250 1250 1200 1150 1050 1000 950 900 850 800 700 650 600 550 500 450 350 300 250 150 150 100 0 350 350 350 250 250 150 100 0 0А             6ZZ155 5LISTER }╠╙# H╪Н╫а
:╒┴*┼о┴*╝
Й┼╠╠+╧а}╠ }╠ГкUUUА 1750 1650 1650 1600 1550 1450 1400 1350 1250 1250 1200 1150 1050 1000 950 900 850 800 700 650 600 550 500 450 350 300 250 150 150 100 0 35                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
5 REM COPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.
10 'REM:**********************
20 'REM:*STRUCTURED BASIC DEMO
30 'REM:*    BY BOB JOHNS
40 'REM:*  134 GEORGIAN WAY
50 'REM:* SHERWOOD PARK, ALTA
60 'REM:*   CANADA  T8A 2W2
70 'REM:**********************
80 'REM: SET UP MEMORY
90 'REM:**********************
'REM:**********************
20 'REM:*STRUCTURED BASIC DEMO
30 'REM:*    BY BOB JOHNS
40 'REM:*  134 GEORGIAN WAY
50 'REM:* SHERWOOD PARK, ALTA
60 'REM:*   CANADA  T8A 2W2
70 'REM:*****************