home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / TRIVIAMASTER.ARC / TRIV.MOD2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.6 KB  |  260 lines
  1. 1 POKE53265,27:POKE53272,21:POKE56576,PEEK(56576)OR1:PRINTCHR$(8)CHR$(142)
  2. 2 B=PEEK(186):IFB<8THENB=8
  3. 3 DIMZ$(225,1):S=54272:S1=53280:GOSUB1000:POKES1+1,0:POKES1,11:DIMZ1(225)
  4. 4 L$="[158]:[153]:[159]:[154]::[154]:[159]:[153]:[158]:[153]:[159]:[154]::[154]:[159]:[153]:[158]:[153]:[159]:[154]::[154]:[159]:[153]:[158]:[153]:[159]:[154]::[154]:[159]:[153]:[158]:[153]:[159]:"
  5. 5 DIMZY(225):L$=L$+"[154]::[154]:[159]:[153]:"
  6. 6 M$="[151]:[152]:[155]::[155]:[152]:[151]:[152]:[155]::[155]:[152]:[151]:[152]:[155]::[155]:[152]:[151]:[152]:[155]::[155]:[152]:[151]:[152]:[155]::[155]:[152]:[151]:[152]:[155]::[155]:"
  7. 7 M$=M$+"[152]:[151]:[152]:[155]::":GOSUB260:GOSUB950
  8. 10 PRINT"[147]HOW MANY PLAYERS (1-6)?[146]":D3=4:GOSUB150:PRINT:IFH$="*"THEN10
  9. 11 A=VAL(H$):IFA<1ORA>6THENGOSUB310:GOTO10
  10. 15 FORX=1TOA:PRINT
  11. 16 PRINT"[159]PLAYER"X"[157]'S NAME (10 CHARACTERS MAX):[146]":D3=13:GOSUB150
  12. 18 D$(X)=LEFT$(H$,10):IFH$="*"THEN16
  13. 19 NEXTX:GOSUB400:GOSUB1500:GOTO35
  14. 20 PRINT"[147][153]QUESTION FILE'S NAME TO BE LOADED:[146]":D3=19:GOSUB150
  15. 21 IFH$="*"THENGOSUB125:PRINTH$
  16. 22 IFLEN(H$)<1ORLEN(H$)>16THEN20
  17. 23 IFRIGHT$(H$,3)<>".TM"ANDLEN(H$)<=13THENH$=H$+".TM"
  18. 24 IFLEN(H$)>13ANDRIGHT$(H$,3)<>".TM"THENH$=LEFT$(H$,13)+".TM"
  19. 25 GOSUB250:IFX<>0THEN20
  20. 26 GOSUB230:RETURN
  21. 35 IFX2=0THEN46
  22. 36 X3=X3+1:IFX3>X2THEN1200
  23. 37 GOSUB110:H$=X2$(X3):GOSUB230:GOSUB105
  24. 45 R=1:X1=1:GOTO50
  25. 46 R=R+1:IFR>10ANDX2<>0THEN36
  26. 47 IFR>10ANDX2=0THEN1200
  27. 49 X1=1
  28. 50 POKES1+1,0:PRINT"[147]"SPC(13)"[154]TRIVIA MASTER[146]":D2=0:D5=0
  29. 51 PRINTSPC(15)"[129]ROUND #"R"[146]"
  30. 52 PRINT""D$(X1)" IS UP[146]":PRINT"[150]"D$(X1)"'S SCORE IS "C(X1,3)
  31. 53 GOSUB300:PRINT""L$
  32. 54 E=INT(RND(0)*(224)+1):IFS2=1THENGOSUB975
  33. 55 PRINT" "Z$(E,0):PRINT""L$:D7=ZY(E)
  34. 56 PRINTSPC(5)"[129]QUESTION IS WORTH[158]"D7"[157] [129] POINTS"
  35. 60 IFLEFT$(Z$(E,1),4)="TRUE"THENPRINTSPC(7)"[156]TRUE OR FALSE QUESTION[146]"
  36. 61 IFLEFT$(Z$(E,1),5)="FALSE"THENPRINTSPC(7)"[156]TRUE OR FALSE QUESTION[146]"
  37. 62 IFLEFT$(Z$(E,1),3)="YES"THENPRINTSPC(10)"[153]YES OR NO QUESTION[146]"
  38. 63 IFLEFT$(Z$(E,1),2)="NO"THENPRINTSPC(10)"[153]YES OR NO QUESTION[146]":POKE198,0
  39. 69 PRINT"ANSWER QUESTION BELOW:[146]":TI$="000000":D3=40:D6=VAL(TI$)+1:GOSUB450
  40. 70 D4=1:GOSUB150:POKE198,0:D4=0:D5=0:GOSUB330:IFD2=1ORH$="*"THEN800
  41. 80 GOTO500
  42. 100 FORX=1TO60:NEXTX:RETURN
  43. 101 PRINT"[147]":FORX=1TO70:POKES1,3:POKES1,6:POKES1+1,7:POKES1+1,8:NEXTX
  44. 102 POKES1+1,0:POKES1,11:RETURN
  45. 105 POKE214,20:PRINT:PRINTSPC(7)"HIT ANY KEY TO PROCEED[146]"
  46. 106 GETA$:IFA$<>""THENPOKES1,11:RETURN
  47. 107 POKES1,7:GOSUB100:POKES1,13:GOSUB100:POKES1,3:GOSUB100:POKES1,14:GOSUB100
  48. 108 POKES1,6:GOSUB100:POKES1,14:GOSUB100:POKES1,3:GOSUB100:POKES1,13:GOTO106
  49. 109 FORX=1TO100:NEXTX:RETURN
  50. 110 FORX=1TO225:Z$(X,0)="":Z$(X,1)="":Z1(X)=0:NEXTX:RETURN
  51. 111 POKES1,0:GOSUB100:POKES1,11:GOSUB100:POKES1,12:GOSUB100:POKES1,15:GOSUB100
  52. 112 POKES1,1:GOSUB100:POKES1,15:GOSUB100:POKES1,12:GOSUB100:POKES1,11:GOSUB100
  53. 113 POKES1,11:RETURN
  54. 115 FORX=STOS+24:POKEX,0:NEXTX:RETURN
  55. 116 GETA$:IFA$<>""THENPOKES1,11:RETURN
  56. 117 POKE214,20:PRINT:PRINTSPC(7)"HIT ANY KEY TO PROCEED[146]"
  57. 118 GOSUB100:POKES1,0:GOSUB100:POKES1,1:GOSUB100:GOTO116
  58. 120 A$="":B$=RIGHT$(STR$(D6),LEN(STR$(D6))-1):T=LEN(B$)
  59. 121 FORX=1TO(6-T):A$=A$+"0":NEXTX:TI$=A$+B$:RETURN
  60. 125 X=INT(RND(0)*(4)+1):A$=STR$(X):H$="Q & A"+RIGHT$(A$,LEN(A$)-1)+".TM":RETURN
  61. 150 PRINT"[164][157][158]";:H$=""
  62. 151 I$="":IFLEN(H$)=D3THENRETURN
  63. 152 GETI$:IFD1=1ANDD4=1THENGOSUB450
  64. 153 IFD2=1THENFORX=1TO200:NEXTX:RETURN
  65. 154 IFI$=""THEN152
  66. 155 IFI$="[147]"ORI$=""ORI$="[157]"ORI$=""ORI$=""ORI$="[145]"ORI$=CHR$(34)THEN151
  67. 156 IFI$=CHR$(20)ANDLEN(H$)=0THEN151
  68. 157 PRINT"[158]"I$"[164][157][158]";:IFI$=CHR$(13)THEN160
  69. 158 IFI$=CHR$(20)THENH$=LEFT$(H$,LEN(H$)-1):GOTO151
  70. 159 H$=H$+I$:GOTO151
  71. 160 IFH$=""THENH$="*"
  72. 161 PRINT" ":RETURN
  73. 200 A$="":Z$=""
  74. 201 GET#8,Z$:A$=A$+Z$:IFZ$<>CHR$(13)THEN201
  75. 202 A$=LEFT$(A$,(LEN(A$)-1)):RETURN
  76. 230 PRINT"[147]LOADING..."H$"[146]":OPEN8,B,8,"0:"+H$+",S,R"
  77. 231 FORX=1TO225:INPUT#8,ZY(X):INPUT#8,A$
  78. 232 IFA$="*"THENGOSUB200:Z$(X,0)=A$:GOTO234
  79. 233 INPUT#8,Z$(X,0)
  80. 234 INPUT#8,A$
  81. 235 IFA$="*"THENGOSUB200:Z$(X,1)=A$:GOTO237
  82. 236 INPUT#8,Z$(X,1)
  83. 237 POKES1,INT(15*RND(1)):NEXTX:POKES1,11:CLOSE8:GOSUB350:GOSUB116:RETURN
  84. 250 OPEN2,B,2,"0:"+H$+",S":CLOSE2:OPEN15,B,15:INPUT#15,X,B$:CLOSE15:RETURN
  85. 260 PRINT"[147][154]WOULD YOU LIKE INSTRUCTIONS (Y/N)?[146]":X=0
  86. 261 GETB$:IFB$=""THENGOSUB111:GOTO261
  87. 262 IFB$="Y"THEN265
  88. 263 IFB$="N"THENRETURN
  89. 264 GOTO261
  90. 265 GOSUB275:PRINT"[147][150] F7 TO PAUSE               F1 TO ABORT[146]"
  91. 266 OPEN8,B,8,"0:TRIVIA DOCS V2.0,S,R":PRINTSPC(4)""A1$" DOCUMENTATION"
  92. 267 GET#8,A$:PRINTA$;:IFST<>0THEN272
  93. 268 IFX=1THENPRINT#4,A$;
  94. 269 GETB$:IFB$="[133]"THEN272
  95. 270 IFB$="[136]"THEN273
  96. 271 GOTO267
  97. 272 CLOSE8:CLOSE4:PRINT"[147]":GOSUB105:RETURN
  98. 273 GETB$:IFB$="[136]"THEN267
  99. 274 GOTO273
  100. 275 PRINT"[159]DO WANT INSTRUCTIONS PRINTED (Y/N)?[146]"
  101. 276 GETB$:IFB$=""THENGOSUB111:GOTO276
  102. 277 IFB$<>"Y"THENRETURN
  103. 278 X=1:OPEN4,4:RETURN
  104. 300 GOSUB115
  105. 301 POKES+24,15:POKES+1,110:POKES+5,9:POKES+6,9:POKES+4,17:POKES+4,16
  106. 302 FORX=1TO220:NEXTX:POKES+24,0:RETURN
  107. 310 FORX=1TO20:POKES+24,15:FORU=1TO3:NEXT:POKES+24,0:FORU=1TO3:NEXTU:NEXTX
  108. 311 RETURN
  109. 320 GOSUB115:POKES+24,15:POKES+23,0:POKES+6,240:POKES+1,4:POKES+5,0:POKES+4,33
  110. 321 FORX=1024TO512STEP-8:POKES+1,X/256:POKES,XAND255:NEXTX:GOTO332
  111. 330 GOSUB115:POKES+6,240:POKES+5,34:POKES+24,15:POKES+4,21
  112. 331 FORX=1TO10:POKES+1,RND(1)*180:POKES,RND(1)*20:FORU=1TO60:NEXTU:NEXTX
  113. 332 POKES+24,0:RETURN
  114. 340 GOSUB115
  115. 341 POKES+5,129:POKES+6,65:POKES+1,5:POKES,5:POKES+4,129
  116. 342 FORX=15TO0STEP-1:POKES+24,X:FORY=1TO50:NEXTY:NEXTX:POKES+24,128:RETURN
  117. 350 GOSUB115:POKES+5,85:POKES+6,85:POKES+12,85:POKES+13,85
  118. 351 POKES+24,15:POKES+4,33:POKES+11,17:POKES+1,25:POKES,30:POKES+8,18
  119. 352 POKES+7,209:GOSUB109:POKES+1,33:POKES,135:POKES+8,25:POKES+7,30:GOSUB109
  120. 353 POKES+1,42:POKES,62::POKES+8,31:POKES+7,165:GOSUB109:POKES+1,50
  121. 354 POKES,60:POKES+8,37:POKES+7,162:FORX=1TO200:NEXTX:GOSUB109:POKES+1,42
  122. 355 POKES,62:POKES+8,31:POKES+7,165:GOSUB109:POKES+1,50:POKES,60:POKES+8,37
  123. 356 POKES+7,162:FORX=1TO200:NEXTX:GOSUB109:POKES+24,0:RETURN
  124. 360 GOSUB115:POKES+24,15
  125. 361 FORY=1TO5:POKES+4,0:POKES+5,0:POKES+6,240:POKES+4,17
  126. 362 FORX=40TO22STEP-1:POKES+1,X:NEXTX:POKES+1,0:NEXTY:RETURN
  127. 370 GOSUB115:POKES+24,15:POKES+1,100:POKES+5,2
  128. 371 FORX=1TO125:IF(PEEK(162)AND16)=16THENPOKES+4,33
  129. 372 POKES+4,0:NEXTX:RETURN
  130. 380 GOSUB115:POKES+24,15:POKES+6,253:POKES+4,33
  131. 381 FORX=1TO8:FORY=200TO220:POKES+1,Y:NEXTY:FORY=100TO20STEP-2:POKES+1,Y:NEXTY
  132. 382 NEXTX:POKES+24,0:RETURN
  133. 400 PRINT"[147][155]WOULD YOU LIKE TIMER OPTION (Y/N)?[146]"
  134. 401 GETA$:IFA$=""THENGOSUB111:GOTO401
  135. 402 IFA$="Y"THEN405
  136. 403 IFA$="N"THENRETURN
  137. 404 GOTO401
  138. 405 D1=1:PRINT"[150]TIMER CAN BE FROM [158]1-59[150] SECONDS[146]"
  139. 406 FORY=1TOA
  140. 407 PRINT""D$(Y)"'S TIMER:[146]";:D3=4:GOSUB150
  141. 408 IFVAL(H$)<1ORVAL(H$)>59THENGOSUB310:GOTO407
  142. 409 C(Y,4)=VAL(H$):NEXTY
  143. 410 FORX=1TO10:READA(X):NEXTX:X=1:FORY=49152TO49161:POKEY,A(X):X=X+1:NEXTY
  144. 411 RETURN
  145. 412 DATA56,32,240,255,96,24,32,240,255,96
  146. 450 IF(VAL(TI$)-D6)>2THENGOSUB120
  147. 451 IFD1<>1ORD6=VAL(TI$)THENRETURN
  148. 452 SYS49152:A$=STR$(C(X1,4)):A$=RIGHT$(A$,(LEN(A$)-1)):D6=VAL(TI$)
  149. 453 IFD5<>1THENPRINT""SPC(33)"[151][161][157][161][157][188][146][152][162][162][162][162][155][190][145][157][161][145][157][161][157][157][157][157][157][157][151][172][162][162][162][162][155][187][146]":D5=1
  150. 455 PRINT""TAB(35)"  ":PRINT""TAB(34);:PRINT(C(X1,4)-(VAL(RIGHT$(TI$,2))))
  151. 459 IFVAL(RIGHT$(TI$,2))=VAL(RIGHT$(A$,LEN(A$)))THEND2=1:GOSUB470:RETURN
  152. 460 SYS49157:RETURN
  153. 470 PRINT""TAB(35);:PRINT"00[146]":GOSUB370:RETURN
  154. 500 IFLEFT$(Z$(E,1),4)="TRUE"ANDH$<>"TRUE"THEN800
  155. 501 IFLEFT$(Z$(E,1),5)="FALSE"ANDH$<>"FALSE"THEN800
  156. 502 IFLEFT$(Z$(E,1),3)="YES"ANDH$<>"YES"THEN800
  157. 503 IFLEFT$(Z$(E,1),2)="NO"ANDH$<>"NO"THEN800
  158. 510 IFLEFT$(Z$(E,1),4)="TRUE"ANDH$="TRUE"THEN700
  159. 511 IFLEFT$(Z$(E,1),5)="FALSE"ANDH$="FALSE"THEN700
  160. 512 IFLEFT$(Z$(E,1),3)="YES"ANDH$="YES"THEN700
  161. 513 IFLEFT$(Z$(E,1),2)="NO"ANDH$="NO"THEN700
  162. 528 IFA=1ANDH$<>Z$(E,1)THEN800
  163. 529 IFH$<>Z$(E,1)THEN600
  164. 530 GOTO700
  165. 600 PRINT"[147][156]"SPC(13)"VERDICT VOTE[146]"
  166. 601 PRINT"[153]"D$(X1)"'S ANSWER[146]":PRINTL$:PRINT" "H$:PRINTL$""
  167. 605 PRINTSPC(11)"[154]CORRECT ANSWER[146]":PRINTM$:PRINT"[155] "Z$(E,1):PRINTM$
  168. 610 PRINT"[150]IS "D$(X1)"'S ANSWER ACCEPTABLE":PRINT"BY OTHER PLAYERS (Y/N)?[146]"
  169. 611 GETA$:IFA$=""THEN611
  170. 612 IFA$="N"THEN800
  171. 613 IFA$="Y"THEN700
  172. 614 GOTO611
  173. 700 GOSUB101:PRINT"[147]"SPC(14)"[158]C[153]O[159]R[154]RE[154]C[159]T[153]![158]![146]"
  174. 701 PRINTSPC(14)"[158][185][153][162][146][159][184][154][183][163][154][183][159][184][153][162][158][185][146]"
  175. 702 X=INT(1+(3)*RND(1)):ONXGOSUB350,360,380
  176. 705 PRINT"[150]"SPC(9)"THE CORRECT ANSWER WAS[146]":PRINTM$:PRINT"[158] "Z$(E,1):PRINTM$
  177. 706 C(X1,3)=C(X1,3)+D7:C(X1,1)=C(X1,1)+1
  178. 707 PRINT""D$(X1)"'S SCORE IS NOW "C(X1,3)"[146]POINTS"
  179. 708 GOSUB105:X1=X1+1:IFX1>ATHEN900
  180. 709 GOTO50
  181. 800 GOSUB101
  182. 801 PRINT"[147]"SPC(13)"[151]I[152]N[155]C[152]O[151]R[152]R[155]E[152]C[151]T[152]![155]![152]![146]":C(X1,3)=C(X1,3)-D7
  183. 802 X=INT(1+(3)*RND(1)):ONXGOSUB310,320,340
  184. 803 IFD2=1THENPRINTSPC(9)"[129]YOUR TIME RAN OUT!!![146]"
  185. 804 PRINT"THE CORRECT ANSWER IS:[146]"
  186. 805 PRINT""M$:PRINT"[158] "Z$(E,1):PRINT""M$
  187. 806 PRINT""D$(X1)"'S SCORE IS NOW "C(X1,3)"[146]POINTS"
  188. 807 GOSUB105:C(X1,2)=C(X1,2)+1:X1=X1+1:IFX1>ATHEN900
  189. 808 GOTO50
  190. 900 PRINT"[147][156]"SPC(12)"ROUND"R"SUMMARY[146]"
  191. 905 A$="[151]                                       [146]":PRINTA$
  192. 906 B$="[151] [152]                                     [151] [146]":PRINTB$
  193. 907 PRINT"[151] [152] [155]   [158]NAME[155]        [153]SCR[155]  [159]# RGHT[155] [154]#WRNG[155]   [152] [151] [146]"
  194. 908 Z$="[151] [152] [155]                                  [155] [152] [151] [146]":PRINTZ$
  195. 910 FORX=1TOA
  196. 911 PRINT"[151] [152] [155]  [146] [158]"D$(X);:POKE211,17:PRINTC(X,3);:POKE211,24:PRINTC(X,1);
  197. 912 POKE211,30:PRINTC(X,2);:POKE211,35:PRINT" [155] [152] [151] [146]":NEXTX
  198. 915 PRINTZ$:PRINT"[151] [152] [155]                                   [152] [151] [146]":PRINTB$
  199. 916 PRINTA$
  200. 920 GOSUB105:GOTO46
  201. 921 GOTO1200
  202. 950 PRINT"[147][150]WOULD YOU LIKE TO USE DOUBLE CHECKER    (Y/N)?[146]"
  203. 951 GETA$:IFA$=""THENGOSUB111:GOTO951
  204. 952 IFA$="N"THENRETURN
  205. 953 IFA$="Y"THENS2=1:GOTO955
  206. 954 GOTO951
  207. 955 PRINT"HOW MANY TIMES CAN EACH QUESTION BE USED(1-10)?[146]":D3=4:GOSUB150
  208. 956 IFH$="*"ORVAL(H$)<1ORVAL(H$)>10THEN955
  209. 957 S3=VAL(H$):RETURN
  210. 975 IFZ1(E)=S3THEN54
  211. 976 Z1(E)=Z1(E)+1:RETURN
  212. 1000 POKES1+1,0:POKES1,0:PRINT"[147]":A1$="TRIVIA MASTER V2.0":A2$="BY KENNETH FREY"
  213. 1002 A3$="BROUGHT TO YOU BY CHEETAH MEDIAWARE":B1$="          "
  214. 1003 B2$="            ":B3$="  "
  215. 1010 PRINTB1$"[151]"A1$:GOSUB100:PRINTB1$"[152]"A1$:GOSUB100:PRINTB1$"[155]"A1$:GOSUB100
  216. 1011 PRINTB1$""A1$:PRINTB2$"[149]"A2$:GOSUB100:PRINTB2$""A2$:GOSUB100
  217. 1012 PRINTB2$"[129]"A2$:PRINTB3$"[158]"A3$:GOSUB100:PRINTB3$"[159]"A3$:GOSUB100
  218. 1013 PRINTB3$"[153]"A3$:GOSUB100:PRINTB3$"[154]"A3$:GOSUB100:PRINTB3$""A3$
  219. 1014 A2$="":A3$="":B1$="":B2$="":B3$=""
  220. 1015 GOSUB340:FORX=1TO25:FORY=0TO15STEP3:POKE53270,Y:NEXTY
  221. 1016 FORY=15TO0STEP-3:POKE53270,Y:NEXTY:NEXTX:POKE53270,200:FORX=1TO1000:NEXTX
  222. 1017 RETURN
  223. 1200 GOSUB1225:PRINT"[147]"SPC(13)"[150]END OF GAME[146]"
  224. 1201 PRINT""SPC(5)"WOULD YOU LIKE TO PLAY AGAIN?[146]"
  225. 1202 GETA$:IFA$=""THENGOSUB111:GOTO1202
  226. 1203 IFA$="Y"THEN1400
  227. 1204 IFA$="N"THENPRINT"[154][147]":POKES1+1,6:POKES1,14:END
  228. 1205 GOTO1202
  229. 1225 GOSUB310:GOSUB330:GOSUB320:GOSUB300:GOSUB350:GOSUB340:GOSUB360:GOSUB370
  230. 1226 GOSUB380:GOSUB101:RETURN
  231. 1400 PRINT"[147][156]"SPC(12)"PLAY GAME AGAIN[146]"
  232. 1401 PRINT"[158] F1 [146]   RESTART GAME"
  233. 1402 PRINT"[158] F3 [146]   CONTINUE GAME WITH SAME FILE"
  234. 1403 PRINT"[158] F5 [146]   CONTINUE GAME WITH NEW FILE"
  235. 1404 PRINT"[158] F7 [146]   CONTINUE GAME WITH MULTI FILE"
  236. 1405 GETA$:IFA$=""THEN1405
  237. 1406 IFA$="[133]"THENRUN
  238. 1407 IFA$="[134]"THEN45
  239. 1408 IFA$="[135]"THENPRINT"[147]":GOSUB110:GOSUB20:GOTO45
  240. 1409 IFA$="[136]"THENPRINT"[147]":GOTO1505
  241. 1410 GOTO1405
  242. 1500 PRINT"[147][150]WANT DO PLAY A MULTI-FILE GAME (Y/N)[146]"
  243. 1501 GETA$:IFA$=""THENGOSUB111:GOTO1501
  244. 1502 IFA$="N"THENGOSUB20:RETURN
  245. 1503 IFA$="Y"THEN1505
  246. 1504 GOTO1501
  247. 1505 PRINT"HOW MANY FILES (MAX 10)?[146]":D3=3:GOSUB150
  248. 1506 IFH$="*"ORVAL(H$)<2ORVAL(H$)>10THEN1505
  249. 1507 X2=VAL(H$)
  250. 1508 FORX=1TOX2
  251. 1509 PRINT"[155]NAME OF FILE #"X"[146]":D3=19:GOSUB150:GOSUB1550:X2$(X)=H$:NEXTX
  252. 1510 PRINT"[153]CHECKING FILES...[146]"
  253. 1511 FORY=1TOX2:H$=X2$(Y):GOSUB250:IFX<>0THENPRINT"[129]ERROR WITH FILE[146]":GOTO1508
  254. 1512 NEXTY:IFA$="[136]"THEN35
  255. 1513 RETURN
  256. 1550 IFLEN(H$)<1ORLEN(H$)>16THEN1509
  257. 1551 IFRIGHT$(H$,3)<>".TM"ANDLEN(H$)<=13THENH$=H$+".TM"
  258. 1552 IFLEN(H$)>13ANDRIGHT$(H$,3)<>".TM"THENH$=LEFT$(H$,13)+".TM"
  259. 1553 RETURN
  260.