home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / CS98.D81 / m (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.8 KB  |  167 lines
  1. 5 GOTO1118:REM*NOFLM7:XZ=PEEK(53205):IFXZ=96ORXZ=169THEN1118
  2. 10 IFGW=1THENPRINT:PRINT"FAST LOADER INSTALLED !":FORK=1TO800:NEXT:GOTO1118
  3. 15 PRINTCHR$(142):GOTO1000:REM MENU
  4. 20 REM
  5. 22 POKE198,0:WAIT198,1:GETA$
  6. 23 REM
  7. 24 REM * 1.MENU 2.LOADNAME 3.COMMENTS *        * 4.FASTLOAD 5.200 OR 300      *
  8. 25 REM
  9. 30 IFA$="A"THEN8000
  10. 32 IFA$="B"THENB$="BOOKDISK 64":GOSUB2000:GOTO200:REM***SYS53205REMOVED
  11. 34 REM  IFA$="C"THENB$="ST DRAGON":SYS53205:GOTO200
  12. 36 REMIFA$="D"THENB$="PIXEL*"::GOTO200
  13. 38 REMIFA$="E"THENGOSUB3000:GOTO1118:  B$="SFX INST*":SYS53205:GOTO200
  14. 40 REM$="F"THENGOSUB2000:B$="LOADER":GOTO200
  15. 42 REM  IFA$="G"THENB$="AMOK*":SYS53205:GOTO200
  16. 44 REM   IFA$="H"THENB$="FITNESS*":SYS53205:GOTO200
  17. 46 REM  IFA$="I"THENB$="SCROLL*":SYS53205:GOTO200
  18. 50 IFA$="Q"THEN5000
  19. 70 GOTO20:REM1118=MENUSCREEN
  20. 99 REM BASIC+RUN 200*MC 300*
  21. 199 REM***BASIC + RUN****
  22. 200 C$=CHR$(34):POKE198,4
  23. 210 PRINT"[147]LOAD";C$;B$;C$;",8";
  24. 230 POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
  25. 298 REM
  26. 299 REM***M/C AUTORUN***
  27. 300 C$=CHR$(34)
  28. 302 PRINT"[147]":FORK=1TO10:PRINT:NEXT:PRINT" LOADING....":PRINT""
  29. 304 FORK=1TO800:NEXT:POKE646,0
  30. 310 PRINTCHR$(147);"LOAD";C$;B$;C$;",8,1"
  31. 320 POKE631,19:POKE632,13:POKE198,2:END
  32. 398 REM
  33. 795 REM
  34. 796 REM
  35. 797 REM
  36. 1000 POKE53281,0:POKE53280,0:PRINT"[147]":POKE646,12
  37. 1090 PRINT
  38. 1091 PRINT"[213][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][192][192][192][201]"
  39. 1092 PRINT"[221]        FAST LOADER AVAILABLE        [221]"
  40. 1093 PRINT"[221]        [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]        [221]"
  41. 1094 PRINT"[221] CHOOSE F TO USE A FAST LOADER FOR   [221]"
  42. 1096 PRINT"[221] THE PROGRAMMES ON THIS DISK.        [221]"
  43. 1098 PRINT"[221]                                     [221]"
  44. 1100 PRINT"[221] OWNERS OF SOME THIRD PARTY DISK     [221]"
  45. 1102 PRINT"[221] DRIVES MAY HAVE TO USE THE NORMAL   [221]"
  46. 1104 PRINT"[221] LOAD OPTION TO LOAD SUCCESSFULLY.   [221]"
  47. 1106 PRINT"[202][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][192][192][192][203]":POKE646,15:PRINT:PRINT
  48. 1108 PRINT:PRINT"F - FAST LOAD"
  49. 1110 PRINT:PRINT"N - NORMAL LOAD"
  50. 1111 PRINT:PRINT:PRINT"PLEASE CHOOSE F OR N"
  51. 1113 POKE198,0:WAIT198,1:GETFL$
  52. 1114 IFFL$="F"THENGW=1:PRINT:PRINT"[147]WAIT... ":LOAD"F-L 53205",8,1
  53. 1115 IFFL$="N"THENPOKE53205,96:GOTO1118
  54. 1116 GOTO1113
  55. 1118 PRINT"[147]":POKE646,8:POKE53281,0:POKE53280,0
  56. 1119 PRINT" DISK 2    C64 DISK MAGAZINE     SIDE B":PRINT
  57. 1120 REME646,3:PRINT" [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  58. 1130 POKE646,14
  59. 1132 REMNT"                                       "
  60. 1134 REMNT"            C64 DISK MAGAZINE          "
  61. 1136 REMNT"                                       "
  62. 1160 REME646,6:PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  63. 1180 PRINT
  64. 1188 REM
  65. 1189 REM
  66. 1190 REM***NAMES***
  67. 1191 POKE646,5
  68. 1192 REM
  69. 1201 TB=10
  70. 1202 PRINTTAB(TB)"[159]A - CONTENTS (READ FIRST)"
  71. 1204 PRINT
  72. 1210 PRINTTAB(TB)"[159]B - BOOKDISK 64"
  73. 1212 PRINT
  74. 1220 REMNTTAB(TB)"[159]C - ST DRAGON PLAYABLE DEMO"
  75. 1222 PRINT
  76. 1230 REMNTTAB(TB)"[159]D - PIXELPACKER"
  77. 1232 REMNT
  78. 1234 REMNTTAB(TB)"[159]E - UTILITIES ETC"
  79. 1240 REMNT
  80. 1242 REMNTTAB(TB)"[159]F - MUSIC MIX"
  81. 1243 REMNT
  82. 1244 REMNTTAB(TB)"[159]G - AMOK BLOCK EDIT"
  83. 1245 PRINT
  84. 1246 REMNTTAB(TB)"[159]H - FITNESS RECORD"
  85. 1247 PRINT
  86. 1248 REMNTTAB(TB)"[159]I - SCROLLER"
  87. 1249 PRINT
  88. 1252 POKE646,5:PRINT:PRINTTAB(6)"PLEASE CHOOSE A-B OR Q TO QUIT"
  89. 1254 GOTO22
  90. 1999 REM***************
  91. 2000 PRINT"[147]":PRINT"[159]";
  92. 2010 PRINT"PLEASE NOTE...." :PRINT
  93. 2012 PRINT:PRINT"WHEN PRG LOADS USE CRSR KEYS TO SCROLL"
  94. 2020 PRINT:PRINT"THROUGH THE MANY TEXT FILES THAT ARE"
  95. 2021 PRINT:PRINT"ON THIS DISK SIDE (RETURN TO READ)."
  96. 2022 PRINT:PRINT:PRINT"ONLY FILES WITH AN .A APPENDAGE"
  97. 2028 PRINT:PRINT"CAN BE READ WITH BOOKDISK."
  98. 2030 PRINT: PRINT:PRINT"IN BOOKDISK F2 KEY WILL EXIT TO MAIN"
  99. 2032 PRINT:PRINT"MENU & PRESSING _ WHEN READING WILL"
  100. 2034 PRINT:PRINT"SHOW A HELP SCREEN."
  101. 2380 GOSUB4800:REM*ANYKEY
  102. 2400 RETURN
  103. 2410 REM******
  104. 2500 PRINT"[147]":PRINT"[159]";
  105. 2510 PRINT"SPRINT IS USED TO READ THIS FILE."
  106. 2520 PRINT:PRINT"FILENAME TO ENTER IS:"                  "
  107. 2521 [153]:[153]"INFORMATION"
  108. 2580 [141]4800
  109. 2600 [142]
  110. 2610 [143]******
  111. 3000 [153]"LOAD":[153]"OPEN";
  112. 3010 [153]"THERE ARE VARIOUS UTILS & BASIC GAMES"
  113. 3020 [153]:[153]"ON THIS DISK SIDE, COURTESY OF C JAMES"
  114. 3021 [153]:[153]"OF PUNCHBOWL NSW."
  115. 3022 [153]:[153]"TOO MANY FOR THIS MENU SO PLEASE LIST"
  116. 3023 [153]:[153]"DIRECTORY & LOAD DIRECT."
  117. 3025 [153]:[153]"*PRESS A KEY":[151]198,0:[146]198,1:[142]
  118. 3080 [141]4800
  119. 3100 [142]
  120. 3110 [143]******
  121. 3500 [153]"LOAD":[153]"OPEN";
  122. 3510 [153]"                                       "
  123. 3520 [153]"                                       "
  124. 3580 [141]4800
  125. 3600 [142]
  126. 3610 [143]******
  127. 4000 [153]"LOAD":[153]"OPEN";
  128. 4010 [153]"                                       "
  129. 4020 [153]"                                       "
  130. 4080 [141]4800
  131. 4100 [142]
  132. 4110 [143]******
  133. 4500 [153]"LOAD":[153]"OPEN";
  134. 4510 [153]"                                       "
  135. 4520 [153]"                                       "
  136. 4580 [141]4800
  137. 4600 [142]
  138. 4799 [143]**S/R**
  139. 4800 [153]:[153]:[153]"PRESS A KEY TO LOAD PRG...":[151]198,0:[146]198,1:[142]
  140. 4999 [143]***QUIT
  141. 5000 [153]"LOADOPEN":[153]"QUIT MAGAZINE ?   Y/N"
  142. 5010 [153]:[153]"CHOOSE Y OR N"
  143. 5020 [151]198,0:[146]198,1:[161]QT$
  144. 5040 [139]QT$[178]"Y"[167][158]64738
  145. 5042 [139]QT$[178]"N"[167]1118
  146. 5044 [137]5020
  147. 8000 [153]"LOAD":[151]646,3:[153][199](14)
  148. 8002 [153]"LEN(null)(null)(null)VAL(null)(null)(null)":[153]:[153]"CHR$ARDENER'S STR$IARY WAS KINDLY SENT TO US"
  149. 8006 [153]"BY MID$EREMY (null)TOKOE ((null)IC)."
  150. 8010 [153]:[153]"(null)HE TEXT FILES ARE IN (null)PEEDSCRIPT FORMAT";
  151. 8012 [153]"BUT CAN ALSO BE READ FROM 'PEEKOOKDISK 64'"
  152. 8014 [153]"WHICH HAS BEEN SET UP TO READ "
  153. 8015 [153]"(null)PEEDSCRIPT TEXT FILES."
  154. 8016 [153]:[153]"(null)OAD PEEKOOKDISK FROM THE MAIN MENU THEN"
  155. 8017 [153]"SELECT ANY FILE WITH AN .A APPENDAGE."
  156. 8018 [153]:[153]"(ATNS WELL AS THE CHR$ARDENER'S STR$IARY FILES"
  157. 8019 [153]"THERE ARE OTHER (null)PEEDSCRIPT .A TEXT"
  158. 8020 [153]"FILES THAT GIVE INFO ABOUT SOME "
  159. 8021 [153]"UTILITIES THAT ARE ON THIS SIDE.)"
  160. 8022 [153]:[153]"(null)THER PRGS INCLUDE (null)PEEDSCRIPT UTILS"
  161. 8023 [153]"ETC - LIST DIR FOR CONTENTS."
  162. 8026 [143]NT:PRINT"LIST(null)RIGHT$(null)VAL(null)(null)ATNLEN(null)VAL(null) - OPENLENOMPRESS DATA FOR"
  163. 8028 [143]NT"LEFT$I-(null)ES (null)ICS. LENATERS FOR 24 DIFFERENT"
  164. 8032 [143]NT"FORMATS."
  165. 8120 [153]:[153]"* (null)RESS ATNNY (null)EY";:[151]198,0:[146]198,1:[151]198,0:[153]"LOAD"
  166. 8124 [129]K[178]1[164]400:[130]:[153][199](142):[137]1118
  167.