home *** CD-ROM | disk | FTP | other *** search
- 5 REM KOALA/DOODLE VIEWER
- 6 REM BY KEVIN TRACEY
- 7 REM ---------------------------------
- 8 REM TO CHANGE VIEWING SPEED IN CONTINUOUS MODE EDIT LINE 203!
- 9 REM ---------------------------------
- 10 POKE52,68:POKE56,68:CLR:POKE53281,0:POKE53280,0:POKE650,128
- 12 DIM F$(17):DN$=""
- 14 M=22230:GOSUB9000
- 16 X=PEEK(186):POKE831,X
- 100 FORA=0TO17:F$(A)="":NEXT
- 104 PRINT"[147][129] [164][175][185][162] [156]KEVIN'S KOALA/DOODLE VIEWER[129] [162][185][175][164]"
- 105 PRINT" VER. 1.0 -1993-"
- 106 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
- 107 PRINT"[155] INSERT PICTURE DISK THEN PRESS"
- 108 PRINT" [156]SPACE BAR [155]TO BEGIN!"
- 110 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
- 120 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
- 122 [153]"FOR NOTE: CLR*FOR KOALA PIC FILES MUST BEGIN"
- 123 [153]" WITH ATNWAITPFOR."
- 124 [153]" CLR*FOR DOODLE PIC FILES MUST BEGIN"
- 125 [153]" WITH DDFOR."
- 126 [153]" CLR* 17FOR PICTURE FILE LIMIT PER PIC DISK."
- 127 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP"
- 130 [141]4000:[137]900
- 132 [141]4000:[139]B$[178]"DIM"[167]100
- 140 [153]"LOAD ORLENLENLENLENLENLENLENLENLENLENLENLEN<CLRVIEW MODE-LENLENLENLENLENLENLENLENLENLENLENLEN^
- 141 PRINT" (F1) [152]CONTINUOUS"
- 142 PRINT" (F3) [152]MANUAL"
- 143 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
- 150 GOSUB4000:IFB$="[133]"THEN200
- 152 IFB$="[134]"THEN320
- 160 GOTO100
- 200 A=0
- 201 GOSUB512:TD=0
- 202 GETB$:IFB$<>""THEN210
- 203 TD=TD+1:IFTD=1500THEN206
- 204 GOTO202
- 206 GOSUB3010:PRINT"[147]":POKE53281,0:A=A+1:IFA=VTHEN200
- 208 GOTO201
- 210 GOSUB3010:PRINT"[147]":POKE53281,0:GOTO100
- 320 K=4
- 322 PRINT"[147][152] PICTURE DIRECTORY[152] [129]"
- 324 PRINTLEFT$(DN$,23);"[152] SPACE BAR=[156]SELECT[152] RETURN=[156]VIEW[152] [156]Q[152]=QUIT "
- 330 FORA=0TO(V-1):PRINTLEFT$(DN$,K);TAB(11);"[129]";MID$(F$(A),3,18)
- 331 PRINTLEFT$(DN$,K);TAB(6);"";(A+1)
- 332 K=K+1:NEXT:K=4:A=0
- 340 PRINTLEFT$(DN$,K);TAB(11);"[156]";MID$(F$(A),3,18)
- 341 GOSUB4000
- 342 IFB$=CHR$(13)THENGOSUB512:GOSUB4000:GOSUB3010:PRINT"[147]":POKE53281,0:GOTO320
- 343 IFB$="Q"THEN100
- 344 PRINTLEFT$(DN$,K);TAB(11);"[129]";MID$(F$(A),3,18)
- 346 K=K+1:A=A+1:IFA=VTHENK=4:A=0
- 348 GOTO340
- 370 PRINT"":END
- 380 GOSUB4000:IFB$="Q"THEN100
- 512 IF(MID$(F$(A),4,1)="[129]")AND(MID$(F$(A),5,1)="P")THENM=2:GOSUB3050
- 520 IF(MID$(F$(A),4,1)="D")AND(MID$(F$(A),5,1)="D")THENM=1:GOSUB3040
- 522 C=4:N=863
- 524 IFMID$(F$(A),C,1)=CHR$(34)THEN528
- 526 POKEN,ASC(MID$(F$(A),C,1)):N=N+1:C=C+1:GOTO524
- 528 POKE838,(C-4)
- 529 PRINT"[147] PICTURE # [158]";A+1;"[146] [156]";MID$(F$(A),3,18)
- 530 PRINT" [154]LOADING!"
- 532 PRINT"[152]TO EXIT PRESS [156]KEY[152] WHILE VIEWING PICTURE"
- 610 SYS828
- 612 IFPEEK(253)=0ORPEEK(253)>9THEN700
- 614 PRINT"[147] DISK ERROR HAS OCCURED! "
- 618 PRINT"[155] PRESS [156]SPACE BAR[155] TO CONTINUE ":GOSUB4000:GOTO100
- 700 IFM=1THENGOSUB3020
- 702 IFM=2THENGOSUB3030
- 710 GOSUB3000:RETURN
- 900 PRINT"[147] [152]PICTURE FILES ON DISK:"
- 910 OPEN 15,8,15:OPEN 1,X,0,"$0"
- 912 INPUT#15,EN,EM$,ET,ES:IF(EN=0)OR(EN=73)THEN1000
- 914 CLOSE15:CLOSE1
- 920 PRINTLEFT$(DN$,15);"[147] THE FOLLOWING DRIVE ERROR OCCURED:"
- 922 PRINT"[156] ";EM$
- 930 PRINT"[152] PRESS [156]SPACE BAR [152] TO CONTINUE ":GOSUB4000:GOTO100
- 1000 K=4:V=0
- 1002 GET#1,A$,A$
- 1003 GET#1,A$,A$
- 1004 IFA$=""THEN1020
- 1006 GET#1,A$,B$
- 1012 GET#1,A$:F$(V)=F$(V)+A$
- 1014 IFA$=""THENGOSUB2000:GOTO1003
- 1016 GOTO1012
- 1020 CLOSE1:CLOSE15
- 1050 PRINTLEFT$(DN$,24);" [152] PRESS [156](F1)[152] VIEW [156](F3)[152] ANOTHER DISK "
- 1054 GOTO132
- 2000 IFMID$(F$(V),4,1)<>"[129]"THEN2020
- 2002 IFMID$(F$(V),5,1)<>"P"THEN2020
- 2004 PRINTLEFT$(DN$,K);TAB(11);"[129]";MID$(F$(V),3,18):K=K+1:V=V+1:RETURN
- 2020 IFMID$(F$(V),4,1)<>"D"THEN2040
- 2022 IFMID$(F$(V),5,1)<>"D"THEN2040
- 2024 PRINTLEFT$(DN$,K);TAB(11);"[129]";MID$(F$(V),3,18):K=K+1:V=V+1:RETURN
- 2040 F$(V)="":RETURN
- 3000 POKE56578,PEEK(56578)OR3
- 3002 POKE56576,(PEEK(56576)AND252)OR2
- 3004 POKE53272,(PEEK(53272)AND240)OR8
- 3005 POKE53265,PEEK(53265)OR32
- 3006 IFM=2THENPOKE53270,PEEK(53270)OR16
- 3008 RETURN
- 3010 POKE56578,PEEK(56578)OR3
- 3012 POKE56576,(PEEK(56576)AND252)OR3
- 3014 POKE53272,(PEEK(53272)AND240)OR4
- 3015 POKE53265,PEEK(53265)AND223
- 3016 IFM=2THENPOKE53270,PEEK(53270)AND239
- 3018 RETURN
- 3020 POKE22231,0:POKE22232,92:POKE22234,0:POKE22235,68
- 3022 POKE22268,232:POKE22275,71:SYS22230:RETURN
- 3030 POKE22231,64:POKE22232,127:POKE22234,0:POKE22235,68
- 3032 POKE22268,232:POKE22275,71:SYS22230
- 3034 POKE22231,40:POKE22232,131:POKE22234,0:POKE22235,216
- 3036 POKE22268,232:POKE22275,219:SYS22230:POKE53281,PEEK(34576):RETURN
- 3040 POKE251,0:POKE252,92:POKE253,64:POKE254,128:RETURN
- 3050 POKE251,0:POKE252,96:POKE253,17:POKE254,135:RETURN
- 4000 GETB$:IFB$=""THEN4000
- 4002 RETURN
- 5020 RETURN
- 9000 READA:IFA<>-1THENPOKEM,A:M=M+1:GOTO9000
- 9002 M=828
- 9004 READA:IFA<>-1THENPOKEM,A:M=M+1:GOTO9004
- 9006 RETURN
- 9010 DATA 173,0,0,141,0,0,24,173,215,86,105,1,141,215,86,144,3,238,216,86
- 9012 DATA 24,173,218,86,105,1,141,218,86,144,3,238,219,86,173,218,86,201,0
- 9014 DATA 208,8,173,219,86,201,0,208,1,96,76,214,86,-1
- 9030 DATA 169,1,162,8,160,0,32,186,255,169,0,162,95,160,3,32,189,255
- 9032 DATA 169,0,166,251,164,252,32,213,255,133,253,169,1,32,195,255,96,-1
-