home *** CD-ROM | disk | FTP | other *** search
Wrap
1 REM CREATED BY MIKE HOOPER FOR THE USERS OF GENIE AND THE GRAFIX CONNEXTION 2 REM 9/20/86 3 REM THANKS TO WAYNE SCHMIDT FOR THE BASIC IDEA IN HIS ORIGINAL DOODLE SHOW 4 REM ADDRESS MAIL TO: GRAFIX.M ON GENIE 5 BA=53265:H2=56579 10 POKE2,2:POKE53281,0:POKE53280,11:PRINT""CHR$(14) 11 IFA=0THENGOSUB5000 12 IFPS=2THEN15 15 IFA=1THENPOKE55,0:POKE56,92:CLR:DIMA$(18):A=2:AU=0:PS=2 20 IF A=3THENSYS49154:GOTO197 25 C=11 30 IFMS=0THENGOSUB2000 40 GOSUB700 197 A=2:IFAU=0THEN200 198 FORTT=1TO50:GETT$:IFT$<>""THENAU=0:GOSUB1000:GOTO200 199 NEXT:I=I+1:GOTO250 200 GETB$:IFB$=""THEN200 202 IFB$="^"THENAU=1:POKE198,0:GOTO198 204 IFB$="[134]"THENC=C-1:IFC<0THENC=0 205 IFB$="[134]"THENPOKE53280,C:IFC=0THENC=15 206 IFB$="[135]"THENMS=0:GOSUB2000:GOTO25 208 IFB$="[140]"THENSYS52224:GOTO200 210 IFB$="1"THENPOKE2,1:GOSUB701 212 IFB$="2"THENPOKE2,2:GOSUB701 214 IFB$="[136]"THENI=I+1:GOTO250 216 IFB$="[133]"THENGOSUB1000 230 IFB$<"A"ORB$>"Q"THEN200 240 I=ASC(B$)-64 250 IFI>16THENI=1 260 F$=A$(I) 265 IFF$=""THEN197 270 REM 280 HR=1 290 A=3:LOAD F$,8,1 700 PRINT"[147]"; 701 PRINTCHR$(14);"[154] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 702 PRINT"[154] [176][179][158] [203]OALA [211]HOW [146][154][171][192][179][129][199]RAFIX [195]ONNE[216]TION![154][171][174]" 703 PRINT"[154] [221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]" 704 PRINT" [221] [193][146] "A$(1)TAB(21)"[194][146] "A$(2)TAB(38)"[154][221]" 705 PRINT" [221] [195][146] "A$(3)TAB(21)"[196][146] "A$(4)TAB(38)"[154][221]" 706 PRINT" [221] [197][146] "A$(5)TAB(21)"[198][146] "A$(6)TAB(38)"[154][221]" 707 PRINT" [221] [199][146] "A$(7)TAB(21)"[200][146] "A$(8)TAB(38)"[154][221]" 708 PRINT" [221] [201][146] "A$(9)TAB(21)"[202][146] "A$(10)TAB(38)"[154][221]" 709 PRINT" [221] [203][146] "A$(11)TAB(21)"[204][146] "A$(12)TAB(38)"[154][221]" 710 PRINT" [221] [205][146] "A$(13)TAB(21)"[206][146] "A$(14)TAB(38)"[154][221]" 711 PRINT" [221] [207][146] "A$(15)TAB(21)"[208][146] "A$(16)TAB(38)"[154][221]" 712 PRINT" [173][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][189]" 713 PRINT" [221] [195]ALL THE [199]RAFIX [195]ONNE[216]TION [221] " 714 PRINT" [221][155] 304-768-9360 24 HOURS [154] [221] 803 [153]" OR>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ORTANTANTANTANTANTANTANTAN>^ 820 PRINT" [221][129][198]1[146]-[212]OGGLES [203]OALA & MENU [154][171][179][212]HANKS TO[221]" 821 PRINT" [221][129][198]3[146]-[195]HANGES BORDER COLOR [154][221][221] [215]AYNE [221]" 822 PRINT" [221][129][198]5[146]-[211]ELECT NEW DISK [154][221][221] [211]CHMIDT [221]" 823 PRINT" [221][129][198]7[146]-[204]OAD NEXT SCREEN [154][171][179] FOR THE [221]" 824 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221] BASIC [221]" 825 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221] PROGRAM [221]" 826 PRINT" [221][129]^[146]-[211]TART AUTO SEQ. LOAD [154][221][173][192][192][192][192][192][192][192][192][192][189]" 827 PRINT" [221][129][193][206][217] [203][197][217][146] STOPS AUTO LOAD [154][221][176][192][192][192][192][192][192][192][192][192][174]" 828 PRINT" [221][129][193][146]-[129][209][146]-[211]ELECT LOAD & VIEW [154][171][179][214]ERS. 1.0[221]" 830 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][189]"; 835 PRINT""; 840 NC=I+1:IFI>16THENNC=1 845 IFA$(NC)=""THENNC=1 850 PRINT"[155]"CHR$(NC+192);"[146]"; 899 RETURN 1000 IFHR=1THEN1020 1004 SYS49154:HR=1:PRINTCHR$(14);:RETURN 1020 PRINT"[147]"; 1026 POKE 53265,PEEK(53265)AND223 1027 POKE53272,(PEEK(53272)AND240)OR4 1028 POKE53270,PEEK(53270)AND239 1029 POKE 53281,FC:POKE646,CC 1030 HR=0:GOSUB700:RETURN 2000 FORI=0TO18:A$(I)="":NEXT 2005 PRINTCHR$(14);"[147][158] [201]NSERT [196]ISK WITH [203]OALAS - [200]IT [210]ETURN" 2010 GETZZ$:IFZZ$=""THEN2010 2020 PRINT"[147] [211]EARCHING FOR POSSIBLE [203]OALA FILES" 3000 CLOSE8:OPEN8,8,0,"$0:*":NQ=0:Q=1:MS=1 3004 GET#8,A$,B$ 3008 GET#8,A$,B$ 3012 GET#8,A$,B$ 3016 C=0:NQ=NQ+1:IFA$<>""THENC=ASC(A$):A$="" 3020 IFB$<>""THENC=C+ASC(B$)*256:B$="" 3036 GET#8,B$:IFST<>0THEN3084 3040 D$="":IFB$<>CHR$(34)THENB$="":GOTO3036 3044 GET#8,B$:IFB$<>CHR$(34)THEND$=D$+B$:GOTO3044 3048 GET#8,B$:IFB$=CHR$(32)THENB$="":GOTO3048 3056 GET#8,B$:IFB$<>""THEN3056 3060 IFST=0THENJ=0 3065 IF C<>40 THEN3080 3070 IFLEFT$(D$,1)=CHR$(129)THEND$="?"+MID$(D$,2):GOTO3075 3075 A$(Q)=D$:PRINT"[198]OUND ";D$ 3079 Q=Q+1 3080 IFJ=0THENJ=1:A$="":B$="":C$="":GOTO3008 3084 CLOSE8 3110 IFQ=1THENPRINT"[206]O [203]OALAS ON THIS [196]ISK":FORI=0TO1000:NEXT:I=0:RETURN 3120 I=0 3200 PRINT"[147][154][214]ERIFYING FILES..." 3210 FORI=1TOQ:OPEN8,8,8,A$(I) 3220 GET#8,A$,B$:CLOSE8 3230 PRINTA$(I);" ";:WQ$="[155]IS A [203]OALA[158]" 3235 IFASC(A$+CHR$(0))=0ANDASC(B$+CHR$(0))=96THEN3300 3240 A$(I)="":WQ$="[155]IS [206]OT A [203]OALA[158]" 3300 PRINTWQ$:NEXT 3310 RETURN 5000 FORA=49154TO49326 5020 READI:T=T+1:POKEA,I 5030 NEXT 5040 A=1:RETURN 5190 DATA 173,17,208,41,239,141,17,208 5200 DATA 173,17,208,9,32,141,17,208 5210 DATA 173,22,208,41,223,9,16,141 5220 DATA 22,208,173,24,208,41,240,9 5230 DATA 8,141,24,208,76,49,192,173 5240 DATA 17,208,41,239,141,17,208,162 5250 DATA 127,160,64,134,252,132,251,162 5260 DATA 4,160,0,134,254,132,253,162 5270 DATA 131,160,39,32,133,192,162,131 5280 DATA 160,40,134,252,132,251,162,216 5290 DATA160,0,134,254,132,253,162,135 5300 DATA160,15,32,133,192,173,16,135 5310 DATA141,33,208,162,96,160,0,134 5320 DATA252,132,251,162,32,160,0,134 5330 DATA254,132,253,162,127,160,63,32 5340 DATA 133,192,173,17,208,9,16,141 5350 DATA 17,208,96,142,1,192,140,0 5360 DATA 192,160,0,177,251,145,253,165 5370 DATA 252,205,1,192,208,8,165,251 5380 DATA 205,0,192,208,1,96,230,251 5390 DATA 208,2,230,252,230,253,208,227 5400 DATA 230,254,76,141,192 10000 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:PRINTA$;B$;C$;D$