10 GOSUB 25000
15 DIMV(8):V(1)=1:V(2)=14:V(3)=30:V(4)=50:V(5)=70:V(6)=83:V(7)=88:V(8)=98:VJ=0
20 DIMN$(8):DIMQ(15):DIMSR$(750):DIMJ$(5):DIMDL(50):DIMSQ(750):DIMSF$(750)
25 Q(0)=5:Q(1)=20:Q(2)=30:Q(3)=11:Q(4)=5:Q(5)=5:FL=0
30 S(1)=12:S(2)=15:S(3)=19:S(4)=19:S(5)=12:S(6)=4:S(7)=9:S(8)=12
31 OPEN15,8,15,"I":CLOSE15
32 PRINT"[147]":POKE 53280,0:POKE 53281,6
35 FOR A=1 TO 8:PRINT:NEXT A:PRINTTAB(12);"INITIALIZING..."
36 PRINT TAB(12);"PLEASE STAND BY"
37 FORY=1TO750:SQ(Y)=Y:NEXT
40 OPEN1,8,15:OPEN2,8,3,"0:LIST":GOSUB7000
41 PRINT#1,"P"CHR$(3)CHR$(0)CHR$(3)CHR$(1)
42 INPUT#2,NN$:NN=VAL(NN$):IFNN=0THEN110
45 FOR A=1 TO 7:PRINT:NEXT A
50 FORI=1TONN
51 FORT=1TO5:NEXTT
53 GOSUB11000:IFFL=1THENFL=0:GOTO60
60 NEXTI
110 PRINT"[147]":CG=0:POKE 53280,14:POKE 53281,0:GOSUB 23000
111 PRINT#1,"P"CHR$(3)CHR$(0)CHR$(2)CHR$(1)
115 PRINT TAB(12);"[154][213][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
116 PRINT TAB(7);"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
120 PRINT TAB(3);"[195][195][195]<[221][158]* S E L E C T I O N S *[221]>[195][195][195]"
125 PRINT TAB(7);"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
126 PRINT TAB(12);"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
150 PRINTTAB(11)"[154][1][146] [158]ADD NAME"
160 PRINTTAB(11)"[154][2][146] [158]CHANGE/INQUIRE"
170 PRINTTAB(11)"[154][3][146] [158]PRINT COMMANDS"
180 PRINTTAB(11)"[154][4][146] [158]DELETE NAME"
185 PRINTTAB(11)"[154][5][146] [158]SEARCH/SCROLL"
190 PRINTTAB(11)"[154][6][146] [158]SORT LIST"
195 PRINTTAB(11)"[154][7][146] [158]EXIT PROGRAM"
200 FOR A=1 TO 6:PRINT:NEXT A
210 PRINTTAB(11)"YOUR CHOICE? [154][1-7]"
220 GETM$:IFM$=""THEN220
230 M=VAL(M$):IFM<1ORM>7THEN220
235 GOSUB 23050
240 ON M GOTO 1000,2000,10000,4000,12000,14000,5000
300 REM WRITE RTN.
301 IFDF=1ANDCG=0THENSR$(Y)=N$(1):SF$(Y)=N$(2):GOTO305
302 IFCG=1THEN305
303 SR$(I)=N$(1):SF$(I)=N$(2)
305 R1=I:R2=0:IFR1>255THENR2=INT(R1/256):R1=R1-(256*R2)
310 FORL=1TO8:PRINT#1,"P"CHR$(3)CHR$(R1)CHR$(R2)CHR$(V(L))
315 IFLEN(N$(L))>S(L)THENN$(L)=LEFT$(N$(L),S(L))
320 PRINT#2,N$(L):NEXT
325 RETURN
400 REM READ RTN.
405 R1=I:R2=0:IFR1>255THENR2=INT(R1/256):R1=R1-(256*R2)
410 PRINT#1,"P"CHR$(3)CHR$(R1)CHR$(R2)CHR$(1)
415 GET#2,Z$:IFZ$="[255]"THENFL=1:RETURN
425 FORL=1TO8:PRINT#1,"P"CHR$(3)CHR$(R1)CHR$(R2)CHR$(V(L))
430 INPUT#2,N$(L):NEXT
435 RETURN
1000 PRINT "[147]":POKE 53280,6:POKE 53281,1
1010 PRINT "[145]              [176][195][195][195][195][195][195][195][195][195][195][174]              "
1020 PRINT "[145]              [221] ADD NAME [221]              "
1030 PRINT "[145]              [173][195][195][195][195][195][195][195][195][195][195][189]              "
1035 PRINT "[145]                                        "
1036 PRINT "[145]     "
1040 PRINT "   1.[146] REC #[195][195]>"
1050 PRINT "   2.[146] L.NAME[195]>"
1055 PRINT "   3.[146] F.NAME[195]>"
1060 PRINT "   4.[146] ADDRE[195][195]>"
1065 PRINT "   5.[146] ADDRE2[195]>"
1070 PRINT "   6.[146] CITY[195][195][195]>"
1080 PRINT "   7.[146] STATE[195][195]>"
1090 PRINT "   8.[146] ZIP[195][195][195][195]>"
1091 PRINT "   9.[146] TELE[195][195][195]>"
1092 PRINT ""
1093 FORA=1TO3:PRINTTAB(8);"                         ":NEXT
1095 PRINT TAB(9);"[145][145]PRESS 'RETURN' FOR MENU"
1100 GOSUB1700:IFN$(1)=""THEN110
1109 C$=""
1110 PRINT"":FOR A=1TO 18:PRINT:NEXT:PRINTTAB(9);"                       "
1112 PRINT TAB(11);"[145]ANY CHANGES [Y/N]"
1115 GET C$:IFC$="" THEN 1115
1116 IF C$="N" THEN 1800
1120 IFC$="Y" THEN GOSUB 1850:GOTO 1110
1125 IF C$<>"N" OR C$<>"Y" THEN 1115
1130 GOTO1110
1700 FORL=1TO8:N$(L)="":NEXTL:IFDF=1THEN21000
1701 PRINT "":PRINT TAB(14);"";NN+1
1702 N$(1)=""
1705 INPUT"";N$(1)
1709 IFN$(1)=""THENRETURN
1710 INPUT"";N$(2):IFN$(2)=""THENN$(2)="NONE"
1711 INPUT"";N$(3):IFN$(3)=""THENN$(3)="NONE"
1712 INPUT"";N$(4):IFN$(4)=""THENN$(4)="NONE"
1713 INPUT"";N$(5):IFN$(5)=""THENN$(5)="NONE"
1715 INPUT"";N$(6):IFN$(6)=""THENN$(6)="NONE"
1717 INPUT"";N$(7):IFN$(7)=""THENN$(7)="NONE"
1719 INPUT"";N$(8):IFN$(8)=""THENN$(8)="NONE"
1720 IFDF=0THEN1729
1726 I=DL(VJ):FORY=1TONN:IFSQ(Y)=ITHEN1730
1727 NEXTY
1729 I=NN+1:NN=NN+1
1730 RETURN
1800 PRINT"[147]":PRINTTAB(15)"WORKING.......":GOSUB300:IFVJ=-1THENVJ=0
1810 DL(VJ)=0:VJ=VJ-1:IFVJ=0THENDF=0
1821 FORE=1TO250:NEXT:GOTO110
1850 PRINT TAB(11);"[145]                   "
1852 PRINT TAB(12);"[145]WHICH LINE [2-9]";:INPUT C:IFC<2ORC>9THENPRINT:GOTO 1852
1855 ON C GOSUB 6000,6100,6200,6300,6400,6500,6600,6700,6800
1860 RETURN
2000 REM CHANGE/INQUIRE RTN.
2010 PRINT"[147]":POKE 53280,6:POKE 53281,1:CG=1
2015 PRINT "[145]           [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]           "
2020 PRINT "[145]           [221] CHANGE[206]INQUIRE [221]           "
2025 PRINT "[145]           [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]           "
2030 PRINT "[145]                                        "
2035 PRINT "[145]     "
2040 PRINT "   1.[146] REC-#-->";" ";0
2050 PRINT "   2.[146] L.NAME[195]>"
2055 PRINT "   3.[146] F.NAME[195]>"
2060 PRINT "   4.[146] ADDRE[195][195]>"
2065 PRINT "   5.[146] ADDRE2[195]>"
2070 PRINT "   6.[146] CITY[195][195][195]>"
2080 PRINT "   7.[146] STATE[195][195]>"
2090 PRINT "   8.[146] ZIP[195][195][195][195]>"
2095 PRINT "   9.[146] TELE[195][195][195]>"
2096 PRINT ""
2097 FORA=1TO3:PRINTTAB(8);"                         ":NEXT
2098 PRINT TAB(13);"[145][145]ENTER 0 FOR MENU"
2100 INPUT"";I:IFI<0ORI>1024THEN2100
2105 IFI=0THENCG=0:GOTO110
2110 GOSUB400:IFFL=1THENFL=0:GOTO2100
2115 PRINT""
2120 FORL=1TO8
2125 PRINT"";N$(L)
2130 NEXT
2140 FORII=1 TO 7:PRINT:NEXTII
2210 PRINT TAB(12);"ANY CHANGES ? [Y/N]"
2212 GET C$:IF C$="" THEN 2212
2213 IF C$="N" THEN 2300
2214 IFC$="Y"THENGOSUB1850:GOTO2210
2215 IF C$<>"Y" OR C$<>"N" THEN 2212
2220 GOTO2210
2300 REM
2305 PRINT TAB(11);"[145][145]PRESS 'F1' TO CONT"
2310 PRINT TAB(11);"PRESS 'F3' TO RECORD"
2312 PRINT TAB(11);"PRESS 'F7' TO EXIT"
2315 GETQ$:IFQ$=""THEN2315
2320 IFQ$="[133]"THEN2000
2322 IFQ$="[136]"THENCG=0:GOTO110
2325 IFQ$="[134]"THEN GOSUB 300:GOTO2000
2330 GOTO2315
3000 REM PRINT RTN.
3005 PRINT"[147]"
3010 PRINTTAB(14)"PRINT LABELS"
3015 PRINTTAB(14)"************"
3020 PRINTTAB(3)"ENTER 0 TO RETURN TO RETURN TO MENU"
3021 INPUT"ON SORT 1/YES 0/NO";FG
3022 PRINT"ENTER -1 FOR ALL"
3025 INPUT"STARTING REC-#";SS
3026 IFSS=0THEN110
3027 IFSS=-1THENED=NN:SS=1:GOTO3031
3030 INPUT"  ENDING REC-#";ED:IFED>NNTHENED=NN
3031 KY$="":FV$=""
3035 INPUT"   KEYED FIELD";KY$:IFKY$=""THEN3110
3040 INPUT"   FIELD VALUE";FV$
3045 GOSUB13000:IFCK=1THEN3000
3110 PRINT"SET TOP OF FORM"
3111 PRINT"WHEN DONE ENTER 'P' TO PRINT"
3112 PRINT"ENTER 'Q' TO QUIT"
3113 PRINT"ENTER 'B' TO STOP PRINTING"
3118 OPEN3,4
3119 CMD3:PRINT#3," "
3120 GETW$:IFW$=""THEN3120
3125 IFW$="Q"THENCLOSE3:GOTO110
3130 IFW$<>"P"THEN3120
3135 FORU=SSTOED:I=U:IFFG=1THENI=SQ(U)
3136 GETW$:IFW$="B"THEN3170
3140 GOSUB400:IFFL=1THENFL=0:GOTO3165
3141 IFFV$=""THEN3145
3142 IFN$(C)<>FV$THEN3165
3145 PRINT#3,N$(2);" ";N$(1)
3150 PRINT#3,N$(3)
3155 PRINT#3,N$(5);" ";N$(6);" ";N$(7)
3160 PRINT#3:PRINT#3:PRINT#3
3165 NEXT
3170 PRINT#3,"   ":CLOSE3
3175 PRINT"LABELS PRINTED"
3180 PRINT"ENTER C TO RETURN TO MENU"
3185 GETW$:IFW$=""THEN3185
3190 GOTO 110
4000 REM DELETE RTN.
4001 PRINT"[147]":POKE 53280,6:POKE 53281,0
4002 IFVJ=50THEN110
4005 PRINT TAB(10)"[158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
4006 PRINT TAB(10)"[221] * DELETE NAME * [221]"
4010 PRINT TAB(10)"[158][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
4011 FOR A=1 TO 17:PRINT:NEXT A
4012 PRINTTAB(12)"ENTER 0 FOR MENU"
4015 INPUT"ENTER RECORD NUMBER";I
4020 IFI<0ORI>750THEN4000
4025 IFI=0THEN110
4030 GOSUB400:IFFL=1THENFL=0:GOTO4000
4035 PRINT"[158]NAME  ";"";N$(2)+" "+N$(1)
4040 PRINT"[158]ADDRE ";"";N$(3)
4045 INPUT"[158]CORRECT PERSON (Y-N)";Q$
4050 IFQ$="N"THEN4000
4055 IFQ$<>"Y"THEN4045
4060 INPUT"[158][145]DELETE THIS PERSON(Y-N)";Y$
4065 IFY$="N"THEN4000
4070 IFY$<>"Y"THEN4060
4071 DF=1
4072 VJ=VJ+1
4073 DL(VJ)=I
4075 PRINT"[145]    PERSON DELETED!!![146]    "
4076 FORY=1TONN
4077 IFSQ(Y)=ITHENSR$(Y)="**********":SF$(Y)="**********":GOTO4080
4078 NEXTY
4080 D$="[255]"
4085 R1=I:R2=0:IFR1>255THENR2=INT(R1/256):R1=R1-(256*R2)
4090 PRINT#1,"P"CHR$(3)CHR$(R1)CHR$(R2)CHR$(1)
4095 PRINT#2,D$
4100 PRINT"[145]ENTER C TO CONTINUE      "
4105 GETW$:IFW$=""THEN4105
4110 IFW$<>"C"THEN4105
4115 GOTO4000
5000 PRINT#1,"P"CHR$(3)CHR$(0)CHR$(3)CHR$(1)
5001 NN$=STR$(NN)
5002 PRINT#2,NN$
5010 CLOSE2:CLOSE1:PRINT CHR$(147):POKE 53280,14:POKE 53281,6:END
6000 INPUT"";I:IFI<0ORI>1024THEN6000
6010 RETURN
6100 INPUT"";N$(1):X=14:GOSUB 6900:RETURN
6200 INPUT"";N$(2):X=13:GOSUB 6900:RETURN
6300 INPUT"";N$(3):X=12:GOSUB 6900:RETURN
6400 INPUT"";N$(4):X=11:GOSUB 6900:RETURN
6500 INPUT"";N$(5):X=10:GOSUB 6900:RETURN
6600 INPUT"";N$(6):X=9:GOSUB 6900:RETURN
6700 INPUT"";N$(7):X=8:GOSUB 6900:RETURN
6800 INPUT"";N$(8):X=7:GOSUB 6900:RETURN
6900 FORII=1 TO X:PRINT:NEXTII:RETURN
7000 REM ERROR CHECK RTN.
7005 INPUT#1,EN,EM$,ET,ES
7010 IFEN=50THENSTOP
7015 IFEN=0THENRETURN
7020 PRINT"[147]":PRINT"ERROR STATUS"
7025 PRINT"";EN;EM$;ET,ES
7030 PRINT"PLEASE CHECK THE ERROR"
7035 PRINT"EXECUTION TERMANATED"
7040 CLOSE2:CLOSE1:STOP
8000 REM
8005 PRINT"[147]":CN=0
8010 PRINTTAB(8)"PRINT GENERAL LIST"
8015 PRINTTAB(8)"******************"
8020 PRINTTAB(3)"ENTER 0 TO RETURN TO RETURN TO MENU"
8021 INPUT"ON SORT 1/YES 0/NO";FG
8022 PRINT"ENTER -1 FOR ALL"
8024 KY$="":FV$=""
8025 INPUT"STARTING REC-#";SS
8026 IFSS=0THEN110
8027 IFSS=-1THENED=NN:SS=1:GOTO8031
8030 INPUT"  ENDING REC-#";ED:IFED>NNTHENED=NN
8031 INPUT"   KEYED FIELD";KY$:IFKY$=""THEN8110
8032 INPUT"   FIELD VALUE";FV$
8045 GOSUB13000:IFCK=1THEN8000
8110 PRINT"SET TOP OF FORM"
8112 PRINT"WHEN DONE ENTER 'P' TO PRINT"
8113 PRINT"ENTER 'Q' TO QUIT"
8114 PRINT"ENTER 'B' TO STOP PRINTING"
8118 OPEN3,4
8119 CMD3:PRINT#3," "
8120 GETW$:IFW$=""THEN8120
8125 IFW$="Q"THEN110
8130 IFW$<>"P"THEN8120
8132 PRINT#3,"REC# NAME:               ADDRESS:                      CITY:";
8133 PRINT#3,"      ST:  ZIP:"
8134 PRINT#3:PRINT#3
8135 FORU=SSTOED:I=U:IFFG=1THENI=SQ(U)
8136 GETW$:IFW$="B"THEN8170
8140 GOSUB400:IFFL=1THENFL=0:GOTO8165
8141 IFFV$=""THEN8143
8142 IFN$(C)<>FV$THEN8165
8143 GOSUB 9000
8144 PRINT#3,A$SPC(Q(6))B$(1)SPC(Q(7))B$(2)SPC(Q(8))B$(3)SPC(Q(9))B$(4);
8145 PRINT#3,SPC(Q(10))B$(5)
8146 CN=CN+1
8165 NEXT
8166 PRINT#3,"NUMBER OF PERSONS PRINTED:";CN
8170 PRINT#3,"  ":CLOSE3
8175 PRINT"LABELS PRINTED"
8180 PRINT"ENTER C TO RETURN TO MENU"
8185 GETW$:IFW$=""THEN3185
8190 GOTO 110
9000 A$=STR$(I)
9010 B$(1)=N$(1)+" "+N$(2):B$(2)=N$(3):B$(3)=N$(5):B$(4)=N$(6):B$(5)=N$(7)
9020 L1=LEN(A$):Q(6)=Q(0)-L1
9030 FORX=1TO5
9042 IFLEN(B$(X))>Q(X)THENB$(X)=LEFT$(B$(X),Q(X)-1)
9043 L1=LEN(B$(X))
9050 Q(6+X)=Q(X)-L1:NEXT:RETURN
10000 REM
10005 PRINT"[147]":POKE 53280,0:POKE 53281,3
10010 PRINT TAB(10)"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
10012 PRINT TAB(10);"[144] * PRINTER OPTIONS * "
10015 PRINT TAB(10)"[144][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
10016 FOR I=1 TO 5:PRINT:NEXT
10017 PRINTTAB(11)"[0][146] RETURN TO MENU"
10020 PRINT TAB(11);"[1][146] MAILING LABELS"
10030 PRINT TAB(11);"[2][146] MAILING LIST"
10035 FOR I=1 TO 6:PRINT:NEXT
10040 PRINTTAB(11)"YOUR CHOICE [0-2]"
10045 GETM$:IFM$=""THEN10045
10050 M=VAL(M$)
10051 IFM=0THEN110
10052 IFM<1ORM>2THEN10045
10055 ON M GOTO 3000,8000
11000 R1=I:R2=0:IFR1>255THENR2=INT(R1/256):R1=R1-(256*R2)
11005 PRINT#1,"P"CHR$(3)CHR$(R1)CHR$(R2)CHR$(1)
11010 GET#2,Z$:IFZ$="[255]"THENFL=1:GOTO11050
11012 PRINT#1,"P"CHR$(3)CHR$(R1)CHR$(R2)CHR$(1)
11015 INPUT#2,SR$(I)
11020 PRINT#1,"P"CHR$(3)CHR$(R1)CHR$(R2)CHR$(14)
11022 INPUT#2,SF$(I):RETURN
11050 SR$(I)="**********":SF$(I)="**********":DF=1:VJ=VJ+1:DL(VJ)=I:RETURN
12000 PRINT"[147]":POKE 53280,2:POKE 53281,1
12005 PRINTTAB(9)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
12006 PRINTTAB(9)"[221] * SEARCH[206]SCROLL * [221]"
12007 PRINTTAB(9)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":PRINT:PRINT
12008 PRINTTAB(7)"PRESS F1[146] TO SLOW SCROLL"
12009 PRINTTAB(7)"PRESS F2[146] TO RETURN SCROLL"
12010 PRINTTAB(7)"PRESS F3[146] TO LEAVE SCROLL"
12011 PRINTTAB(7)"PRESS F7[146] TO STOP SCROLL"
12012 PRINTTAB(7)"PRESS F8[146] TO CONTINUE SCROLL"
12013 PRINT:PRINT
12014 PRINT TAB(13)"[0][146] FOR MENU"
12017 PRINT TAB(13)"[1][146] FOR SEARCH"
12018 PRINT TAB(13)"[2][146] FOR SCROLL"
12019 INPUT"YOUR CHOICE";M:IFM=2THEN12025
12020 IFM=0THEN110
12021 INPUT"LAST NAME [146]";H$
12022 INPUT"FIRST NAME [146]";H1$:PRINT"[147]":GOTO22000
12025 PRINT"[147]":FOR A=1 TO 8:PRINT:NEXT A
12050 FORI=1TONN
12051 GETA$:IFA$="[136]"THEN12100
12052 IFM=2THEN12200
12055 IFH$=SR$(I)THEN PRINT TAB(13);SR$(I);SQ(I):GOTO12070
12058 IFM=1THEN12063
12059 FORX=1TO75:NEXTX
12060 GOSUB20000
12061 IFA$="[134]"THEN110
12062 IFFP=1ANDM=2THENFORE=1TO400:NEXT
12063 NEXTI:IFM=2THEN12070
12065 PRINT"PERSON NOT FOUND"
12070 PRINT:PRINT TAB(13);"CONTINUE Y/N"
12075 GETM$:IFM$=""THEN12075
12080 IFM$="Y"THEN12000
12081 IFM$<>"N"THEN12075
12085 GOTO110
12100 PRINT
12110 GETA$:IFA$="[140]"THEN12052
12112 IFA$="[134]"THEN110
12115 GOTO12110
12200 ZJ=LEN(STR$(SQ(I))):Z1=4-ZJ:PRINTTAB(8)SQ(I)SPC(Z1)SR$(I);" ";SF$(I)
12201 GOTO12060
13000 REM
13001 CK=0
13015 IFKY$="CITY"THENC=5:GOTO13030
13020 IFKY$="STATE"THENC=6:GOTO13030
13025 IFKY$="ZIP"THENC=7:GOTO13030
13026 CK=1
13030 RETURN
14000 REM
14010 PRINT"[147]":POKE 53280,14:POKE 53281,1
14015 FOR A=1 TO 6:PRINT:NEXT A
14020 PRINTTAB(13)"[144]S O R T I N G"
14030 PRINTTAB(13)"[156][168][168][168][168][168][168][168][168][168][168][168][168][168]"
14040 FORY=1TONN:HY$=SR$(Y)
14041 PRINT"";Y
14050 FORZZ=YTONN
14060 IFSR$(ZZ)=<HY$THENHY$=SR$(ZZ):QQ=ZZ
14070 NEXTZZ
14080 SR$(QQ)=SR$(Y):SR$(Y)=HY$
14081 VZ=SQ(QQ):SQ(QQ)=SQ(Y):SQ(Y)=VZ
14082 H2$=SF$(QQ):SF$(QQ)=SF$(Y):SF$(Y)=H2$
14085 NEXTY
14090 GOTO110
20000 REM
20010 IFA$="[133]"THENFP=1:RETURN
20015 IFA$="[137]"THENFP=0:RETURN
20020 RETURN
21000 PRINT "";TAB(14);DL(VJ):GOTO 1702
22000 REM
22001 Y=1:Z=NN
22010 IFY<=ZTHENGOTO22100
22020 GOTO12065
22100 R=INT((Y+Z)/2)
22110 IFH$=SR$(R)ANDH1$=SF$(R)THEN22140
22120 IFH$=<SR$(R)THENZ=R-1:GOTO22010
22130 IFH$=>SR$(R)THENY=R+1:GOTO22010
22140 PRINT:PRINT:PRINT TAB(13);SF$(R);" ";SR$(R);SQ(R):GOTO12070
23000 POKE SI+5,8:POKE SI+6,255:POKE SI+4,33
23010 FOR A=15 TO 1 STEP -.5:POKE SI+1,16:POKE SI,195:POKESI+24,A:NEXT A
23020 POKE SI+4,16:POKE SI+1,0:POKE SI,0:RETURN
23050 POKE SI+5,8:POKE SI+6,255:POKE SI+4,33
23060 FOR A=15 TO 1 STEP -.5:POKE SI+1,22:POKE SI,96:POKESI+24,A:NEXT A
23070 POKE SI+4,16:POKE SI+1,0:POKE SI,0:RETURN
25000 PRINT "[147]":POKE 53280,0:POKE 53281,0:L=21
25005 SI=54272:FOR SN=0 TO 24:POKE SI+SN,0:NEXT:PRINT ""
25010 FOR A=1 TO 7:READ CH$:CH=ASC(CH$)
25020 PRINT CHR$(CH);"    [146]  [146]  [146]     [146]   [223][146] [169] [223][146]    [223][169] [146] [169] [223][146]  [146]  "
25030 PRINT "    [146]  [146]  [146]    [146]    [146][169]  [184] [146]    [146]   [146]  [184] [146]  [146]  "
25040 PRINT "   [223] [146][169]    [146]  [146]   [146][223][223][146]  [146]  [146]    [146]   [146]  [146]  [146]  [146]    "
25045 GOSUB 25300
25050 FOR D=1 TO 70:NEXT D:NEXT A
25055 FOR D=1 TO 100:NEXT D
25060 PRINT "":PRINT "[145][145][145]":SN=60:FOR A=1 TO 18:GOSUB 25350
25070 PRINT "                                       ":NEXT A:PRINT:PRINT
25080 SN=50:FOR A=1 TO L:PRINT:GOSUB 25400:NEXT A
25090 CT=CT+1:IF CT=2 THEN L=18
25095 IF CT=3 THEN 25110
25100 RESTORE:GOTO 25005
25110 PRINT "":FOR L=1 TO 12:PRINT:NEXT L:FOR D=1 TO 200:NEXT D
25120 MSG$="                                        DESIGNED BY..."
25130 M$=RIGHT$(MSG$,LEN(MSG$)-1):C$=M$+LEFT$(MSG$,1)
25140 GOSUB 25450:PRINT "[145][158]";LEFT$(C$,40);:MSG$=C$
25150 FOR D=1 TO 150:NEXT D:MSG=MSG+1:IF MSG=26 THEN 25170
25160 GOTO 25130
25170 P=55896:C=1624:FOR A=5 TO 35:CL=INT(RND(1)*8)+2:POKE P+A,CL:NEXT
25180 FOR A=1 TO 16:READ N:B=B+1:POKE C+11+B,N:IF N<>32 THEN GOSUB 25500
25185 FOR D=1 TO 75:NEXT D:NEXT A
25190 FOR D=1 TO 500:NEXT D:PRINT "[158]";TAB(19)"AND":GOSUB 25600
25195 FOR D=1 TO 400:NEXT D
25200 P=56056:C=1784:FOR A=5 TO 35:CL=INT(RND(1)*8)+2:POKE P+A,CL:NEXT
25210 B=0:FOR A=1 TO 18:READ N:B=B+1:POKE C+11+B,N:IF N<>32 THEN GOSUB 25500
25215 FOR D=1 TO 75:NEXT D:NEXT A
25220 FOR D=1 TO 400:NEXT D
25225 PRINT "  INSERT DATA DISK...PRESS F1 TO START"
25230 GET A$:IF A$="[133]" THEN 25250
25240 CL=INT(RND(1)*9)+2:POKE 53280,CL:FOR D=1 TO 300:NEXT D:GOTO 25230
25250 RETURN
25300 POKE SI+5,143:POKE SI+6,255:POKE SI+24,15:POKE SI+4,33
25310 FORSN=50 TO 100 STEP 5:POKESI,SN-40:POKESI+1,SN:NEXT SN
25320 POKE SI+4,16:POKE SI,0:POKE SI+1,0:RETURN
25350 POKE SI+5,143:POKE SI+6,255:POKE SI+24,15:POKE SI+4,33
25360 SN=SN-3:POKE SI,SN:POKE SI+1,SN+100
25370 POKE SI+4,16:POKE SI,0:POKE SI+1,0:RETURN
25400 POKE SI+5,143:POKE SI+6,255:POKE SI+24,15:POKE SI+4,33:POKE SI,30
25410 SN=SN+5:POKE SI+1,SN
25420 POKE SI+4,16:POKE SI,0:POKE SI+1,0:RETURN
25450 POKE SI+5,143:POKE SI+6,255:POKE SI+24,15:POKE SI+4,129
25460 POKE SI,3:POKE SI+1,35:FOR D=1 TO 25:NEXT D
25470 POKE SI+4,16:POKE SI,0:POKE SI+1,0:RETURN
25500 POKE SI+5,143:POKE SI+6,255:POKE SI+24,15:POKE SI+4,17
25510 SN=INT(RND(1)*100)+25:POKE SI,SN:POKE SI+1,SN
25520 POKE SI+4,16:POKE SI,0:POKE SI+1,0:RETURN
25600 POKE SI+5,143:POKE SI+6,255:POKE SI+24,15:POKE SI+4,129
25610 POKE SI,2:POKE SI+1,25:FOR D=1 TO 35:NEXT D
25620 POKE SI+4,16:POKE SI,0:POKE SI+1,0:RETURN
26000 DATA "[159]","[154]","","[156]","","[150]","[158]"
26010 DATA 10,32,15,32,5,32,32,6,32,21,32,19,32,3,32,15
26020 DATA 2,32,15,32,2,32,32,12,32,12,32,15,32,18,32,5,32,20