home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / HiResGraphics / SPORTSCARS.ARC / RUN.TO.VIEW (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  4.1 KB  |  129 lines
  1. 5 REM      KOALA/DOODLE VIEWER
  2. 6 REM        BY KEVIN TRACEY
  3. 7 REM ---------------------------------
  4. 8 REM   TO CHANGE VIEWING SPEED IN            CONTINUOUS MODE EDIT LINE 203!
  5. 9 REM ---------------------------------
  6. 10 POKE52,68:POKE56,68:CLR:POKE53281,0:POKE53280,0:POKE650,128
  7. 12 DIM F$(17):DN$=""
  8. 14 M=22230:GOSUB9000
  9. 16 X=PEEK(186):POKE831,X
  10. 100 FORA=0TO17:F$(A)="":NEXT
  11. 104 PRINT"[147][129]  [164][175][185][162] [156]KEVIN'S KOALA/DOODLE VIEWER[129] [162][185][175][164]"
  12. 105 PRINT"       VER. 1.0             -1993-"
  13. 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]"
  14. 107 PRINT"[155]     INSERT PICTURE DISK THEN PRESS"
  15. 108 PRINT"          [156]SPACE BAR  [155]TO BEGIN!"
  16. 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]"
  17. 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]
  18. 122 [153]"FOR  NOTE: CLR*FOR KOALA PIC FILES MUST BEGIN"
  19. 123 [153]"          WITH ATNWAITPFOR."
  20. 124 [153]"        CLR*FOR DOODLE PIC FILES MUST BEGIN"
  21. 125 [153]"          WITH DDFOR."
  22. 126 [153]"        CLR* 17FOR PICTURE FILE LIMIT                   PER PIC DISK."
  23. 127 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP"
  24. 130 [141]4000:[137]900
  25. 132 [141]4000:[139]B$[178]"DIM"[167]100
  26. 140 [153]"LOAD ORLENLENLENLENLENLENLENLENLENLENLENLEN<CLRVIEW  MODE-LENLENLENLENLENLENLENLENLENLENLENLEN^
  27. 141 PRINT"            (F1) [152]CONTINUOUS"
  28. 142 PRINT"            (F3) [152]MANUAL"
  29. 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]"
  30. 150 GOSUB4000:IFB$="[133]"THEN200
  31. 152 IFB$="[134]"THEN320
  32. 160 GOTO100
  33. 200 A=0
  34. 201 GOSUB512:TD=0
  35. 202 GETB$:IFB$<>""THEN210
  36. 203 TD=TD+1:IFTD=1500THEN206
  37. 204 GOTO202
  38. 206 GOSUB3010:PRINT"[147]":POKE53281,0:A=A+1:IFA=VTHEN200
  39. 208 GOTO201
  40. 210 GOSUB3010:PRINT"[147]":POKE53281,0:GOTO100
  41. 320 K=4
  42. 322 PRINT"[147][152]           PICTURE DIRECTORY[152]           [129]"
  43. 324 PRINTLEFT$(DN$,23);"[152] SPACE BAR=[156]SELECT[152]  RETURN=[156]VIEW[152]  [156]Q[152]=QUIT "
  44. 330 FORA=0TO(V-1):PRINTLEFT$(DN$,K);TAB(11);"[129]";MID$(F$(A),3,18)
  45. 331 PRINTLEFT$(DN$,K);TAB(6);"";(A+1)
  46. 332 K=K+1:NEXT:K=4:A=0
  47. 340 PRINTLEFT$(DN$,K);TAB(11);"[156]";MID$(F$(A),3,18)
  48. 341 GOSUB4000
  49. 342 IFB$=CHR$(13)THENGOSUB512:GOSUB4000:GOSUB3010:PRINT"[147]":POKE53281,0:GOTO320
  50. 343 IFB$="Q"THEN100
  51. 344 PRINTLEFT$(DN$,K);TAB(11);"[129]";MID$(F$(A),3,18)
  52. 346 K=K+1:A=A+1:IFA=VTHENK=4:A=0
  53. 348 GOTO340
  54. 370 PRINT"":END
  55. 380 GOSUB4000:IFB$="Q"THEN100
  56. 512 IF(MID$(F$(A),4,1)="[129]")AND(MID$(F$(A),5,1)="P")THENM=2:GOSUB3050
  57. 520 IF(MID$(F$(A),4,1)="D")AND(MID$(F$(A),5,1)="D")THENM=1:GOSUB3040
  58. 522 C=4:N=863
  59. 524 IFMID$(F$(A),C,1)=CHR$(34)THEN528
  60. 526 POKEN,ASC(MID$(F$(A),C,1)):N=N+1:C=C+1:GOTO524
  61. 528 POKE838,(C-4)
  62. 529 PRINT"[147]  PICTURE # [158]";A+1;"[146]  [156]";MID$(F$(A),3,18)
  63. 530 PRINT"                [154]LOADING!"
  64. 532 PRINT"[152]TO EXIT PRESS [156]KEY[152] WHILE VIEWING PICTURE"
  65. 610 SYS828
  66. 612 IFPEEK(253)=0ORPEEK(253)>9THEN700
  67. 614 PRINT"[147]         DISK ERROR HAS OCCURED! "
  68. 618 PRINT"[155]       PRESS [156]SPACE BAR[155] TO CONTINUE ":GOSUB4000:GOTO100
  69. 700 IFM=1THENGOSUB3020
  70. 702 IFM=2THENGOSUB3030
  71. 710 GOSUB3000:RETURN
  72. 900 PRINT"[147]        [152]PICTURE FILES ON DISK:"
  73. 910 OPEN 15,8,15:OPEN 1,X,0,"$0"
  74. 912 INPUT#15,EN,EM$,ET,ES:IF(EN=0)OR(EN=73)THEN1000
  75. 914 CLOSE15:CLOSE1
  76. 920 PRINTLEFT$(DN$,15);"[147]    THE FOLLOWING DRIVE ERROR OCCURED:"
  77. 922 PRINT"[156]            ";EM$
  78. 930 PRINT"[152]      PRESS [156]SPACE BAR [152] TO CONTINUE ":GOSUB4000:GOTO100
  79. 1000 K=4:V=0
  80. 1002 GET#1,A$,A$
  81. 1003 GET#1,A$,A$
  82. 1004 IFA$=""THEN1020
  83. 1006 GET#1,A$,B$
  84. 1012 GET#1,A$:F$(V)=F$(V)+A$
  85. 1014 IFA$=""THENGOSUB2000:GOTO1003
  86. 1016 GOTO1012
  87. 1020 CLOSE1:CLOSE15
  88. 1050 PRINTLEFT$(DN$,24);" [152]  PRESS [156](F1)[152] VIEW  [156](F3)[152] ANOTHER DISK  "
  89. 1054 GOTO132
  90. 2000 IFMID$(F$(V),4,1)<>"[129]"THEN2020
  91. 2002 IFMID$(F$(V),5,1)<>"P"THEN2020
  92. 2004 PRINTLEFT$(DN$,K);TAB(11);"[129]";MID$(F$(V),3,18):K=K+1:V=V+1:RETURN
  93. 2020 IFMID$(F$(V),4,1)<>"D"THEN2040
  94. 2022 IFMID$(F$(V),5,1)<>"D"THEN2040
  95. 2024 PRINTLEFT$(DN$,K);TAB(11);"[129]";MID$(F$(V),3,18):K=K+1:V=V+1:RETURN
  96. 2040 F$(V)="":RETURN
  97. 3000 POKE56578,PEEK(56578)OR3
  98. 3002 POKE56576,(PEEK(56576)AND252)OR2
  99. 3004 POKE53272,(PEEK(53272)AND240)OR8
  100. 3005 POKE53265,PEEK(53265)OR32
  101. 3006 IFM=2THENPOKE53270,PEEK(53270)OR16
  102. 3008 RETURN
  103. 3010 POKE56578,PEEK(56578)OR3
  104. 3012 POKE56576,(PEEK(56576)AND252)OR3
  105. 3014 POKE53272,(PEEK(53272)AND240)OR4
  106. 3015 POKE53265,PEEK(53265)AND223
  107. 3016 IFM=2THENPOKE53270,PEEK(53270)AND239
  108. 3018 RETURN
  109. 3020 POKE22231,0:POKE22232,92:POKE22234,0:POKE22235,68
  110. 3022 POKE22268,232:POKE22275,71:SYS22230:RETURN
  111. 3030 POKE22231,64:POKE22232,127:POKE22234,0:POKE22235,68
  112. 3032 POKE22268,232:POKE22275,71:SYS22230
  113. 3034 POKE22231,40:POKE22232,131:POKE22234,0:POKE22235,216
  114. 3036 POKE22268,232:POKE22275,219:SYS22230:POKE53281,PEEK(34576):RETURN
  115. 3040 POKE251,0:POKE252,92:POKE253,64:POKE254,128:RETURN
  116. 3050 POKE251,0:POKE252,96:POKE253,17:POKE254,135:RETURN
  117. 4000 GETB$:IFB$=""THEN4000
  118. 4002 RETURN
  119. 5020 RETURN
  120. 9000 READA:IFA<>-1THENPOKEM,A:M=M+1:GOTO9000
  121. 9002 M=828
  122. 9004 READA:IFA<>-1THENPOKEM,A:M=M+1:GOTO9004
  123. 9006 RETURN
  124. 9010 DATA 173,0,0,141,0,0,24,173,215,86,105,1,141,215,86,144,3,238,216,86
  125. 9012 DATA 24,173,218,86,105,1,141,218,86,144,3,238,219,86,173,218,86,201,0
  126. 9014 DATA 208,8,173,219,86,201,0,208,1,96,76,214,86,-1
  127. 9030 DATA 169,1,162,8,160,0,32,186,255,169,0,162,95,160,3,32,189,255
  128. 9032 DATA 169,0,166,251,164,252,32,213,255,133,253,169,1,32,195,255,96,-1
  129.