home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / videos.arc / CATALOG (.txt) next >
Commodore BASIC  |  1987-07-18  |  5KB  |  111 lines
  1. 1 GOTO1080
  2. 12 PRINTNU%(I)TAB(4)S%(I)TAB(9)H$+":"+M$TAB(17)TY$(I)TAB(20)NM$(I):P=P+1:RETURN
  3. 17 H=INT(EL%/60):M=EL%-H*60:TT=1:GOTO25
  4. 20 H=INT(LE%(I)/60):M=LE%(I)-H*60
  5. 25 H$=STR$(H):M$=RIGHT$(STR$(M),2):IFM<10THENM$="0"+RIGHT$(STR$(M),1)
  6. 27 IFTT=1THENTT=0:RETURN
  7. 30 RETURN
  8. 155 I=1:PRINT"[147][158]LOADING MAIN PROGRAM.":PRINT"[208][204][197][193][211][197][160][215][193][201][212][155]":OPEN15,8,15,"C0:VIDMAIN=VIDMAIN":OPEN5,8,15:INPUT#5,ER,ER$:CLOSE5:CLOSE15:OPEN15,8,15,"I0":CLOSE15:IFER=63GOTO165
  9. 158 IFER=62THENPRINT"[147][158]VIDEOFILE DISK IS NOT IN THE DRIVE      PRESS ANY KEY TO ";
  10. 159 IFER=62THENPRINT"TRY AGAIN
  11. 160 [139]ER[179][177]62[167][153]"SYSERROR"ER;ER$"CMDCMDCMDCMDCMDPRESS ANY KEY
  12. 161 GETR$:IFR$=""THEN161
  13. 162 GOTO155
  14. 165 LOAD"VIDMAIN",8
  15. 1080 PRINT"[147]":PRINT"             [158]TAPE CATALOG":PRINT"[159][160][160][160][201][160][195][193][206][160][212][197][204][204][160][217][207][213][160][193][194][207][213][212][160][212][200][197][160][212][193][208][197][211][160][201][206][160][160][160][160]";:PRINT"[160][160][160][160][160][160][160][160][160][211][197][214][197][210][193][204][160][196][201][198][198][197][210][197][206][212][160][215][193][217][211][160][160][160][160][160][160][160][160][160]":PRINT"  [158] 1. [146]   [160][160][160][194][217][160][212][217][208][197][160][207][198][160][211][200][207][215][160][160][160][160][160][160][160][160][160][160][160]":PRINT"  [158] 2. [146]   [160][160][160][194][217][160][193][204][208][200][193][194][197][212][201][195][193][204][160][207][210][196][197][210][160][160][160][160][160]
  16. 1099 [153]"  SYS 3. WAIT   CLOSECLOSECLOSEPEEK(null)CLOSE(null)ATN(null)VALCLOSE(null)ASCCLOSE(null)LEFT$(null)(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE":[153]"  SYS 4. WAIT   CLOSECLOSECLOSEPEEK(null)CLOSE(null)ATN(null)VALCLOSE(null)(null)(null)PEEKVAL(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE":[153]"  SYS 5. WAIT   CLOSECLOSECLOSEATN(null)(null)CLOSE(null)ATN(null)VAL(null)CLOSERIGHT$(null)CLOSE(null)(null)(null)VAL(null)RIGHT$LENCLOSE(null)(null)STR$VAL(null)":[153]"  SYS 6. WAIT   CLOSECLOSECLOSESYSPRINTOUTCLOSE(null)LEFT$VALCLOSELEN(null)(null)(null)VAL(null)(null)CLOSE(null)LEFT$(null)(null)(null)":[153]"  SYS 7. WAIT   CLOSECLOSECLOSE(null)VAL(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)LEFT$VALCLOSE(null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)CLOSECLOSECLOSE
  17. 1111 IFRR<>-1THENPRINT"  [158] 8. [146]   [160][160][160][197][216][201][212][160][212][200][197][160][208][210][207][199][210][193][205][160][160][160][160][160][160][160][160][160][160]
  18. 1135 [161]R$:[139]R$[178]""[167]1135
  19. 1145 WR[178][197](R$):[145]WR[137]1155,1315,1505,1685,1595,2415,155,1152:[137]1135
  20. 1152 [139]RR[179][177][171]1[167][153]"LOAD":[128]
  21. 1155 [153]"LOAD
  22. 1160 PRINT"[160][208][204][197][193][211][197][160][197][206][212][197][210][160][207][206][197][160][207][198][160][212][200][197][160][195][207][196][197][211][160]":PRINT"[159][160][195][207][196][197][160][160][212][217][208][197]":PRINT" ----  ----":FORI=1TO8:PRINT"  [158]"TS$(I)"":NEXT:PRINT"  [158]E   EXIT THIS SCREEN
  23. 1185 [161]WT$:[139]WT$[178]""[137]1185
  24. 1190 [153]"LOAD";:[139]WT$[178]"E"[167]1080
  25. 1195 [129]I[178]1[164]8:[139]WT$[178][200](TS$(I),1)[167]1205
  26. 1200 [130]:[137]1160
  27. 1205 [153][163]20[171][181](([195](TS$(I))[171]4)[173]2))"SYS"[201]((TS$(I)),([195](TS$(I))[171]3)):[139]TY[178]1[167]2440
  28. 1245 [153]"POKE"[201](P3$,[195](P3$)[171]1):P[178]6:[153]"POKE"PR$:[129]I[178]1[164]CT:[139]TY$(I)[179][177]WT$[167][137]1275
  29. 1265 [141]20:[141]12:[139]P[177][178]23[167]TY[178]1:[141]2160:TY[178]0
  30. 1275 [130]:[153]"CLOSECLOSE(null)(null)(null)(null)STR$CLOSE(null)(null)(null)CLOSE(null)RIGHT$(null)VALCLOSE(null)(null)CLOSELENLEFT$VALLEN(null)CLOSEATN(null)(null)(null)LEFT$VAL(null)CLOSE(null)(null)(null)VALCLOSECLOSE";:[153][166]5)"VAL(null)(null)VAL(null)CLOSESYS"YN$"CLOSE(null)(null)CLOSESYS"F3$"";
  31. 1290 [161]R$:[139]R$[178]""[167][137]1290
  32. 1295 [139]R$[178]"Y"[167]1155
  33. 1300 [139]R$[178]"N"[167]1080
  34. 1305 [139]R$[178]"DIM"[167]TY[178]1:[141]2415:TY[178]0:[137]1080
  35. 1310 [137]1290
  36. 1315 [153]:[139]AL[178]1[137]1385
  37. 1320 [153]"LOADOPENCLOSECLOSECLOSE(null)(null)VALATN(null)VALCLOSE(null)ATNRIGHT$(null)CLOSE(null)LEFT$RIGHT$(null)VALCLOSERIGHT$CLOSE(null)(null)(null)(null)CLOSE(null)LEFT$VALCLOSE(null)ATN(null)VAL(null)CLOSECLOSECLOSE";:[153]"THE COUNTER WILL GO TO";CT:[129]I[178]1[164]CT:K[178][195](NM$(I)):MN$(I)[178]NM$(I)[170][201]("                   ",19[171]K)[170][196](I):[153]""I:[130]
  38. 1380 [158]49152,CT,MN$(1):AL[178]1
  39. 1385 [153]P3$"":P[178]3:[129]I[178]1[164]CT:K[178][197]([201](MN$(I),3)):[153]NU%(K)[163]4)S%(K)[163]9);:EL%[178]LE%(K):[141]17:[153]H$[170]":"[170]M$[163]17)TY$(K)[163]20);:[153][200](MN$(I),19):P[178]P[170]1:[139]P[173]2[178][181](P[173]2)[167][153]"";:[137]1460
  40. 1455 [153]"";
  41. 1460 [139]P[177][178]23[167][153]"";:[141]2160:[153]"";
  42. 1465 [130]:[153]" CLOSECLOSE(null)(null)(null)(null)STR$CLOSE(null)(null)(null)CLOSE(null)RIGHT$(null)VALCLOSE(null)(null)CLOSE(null)VAL(null)RIGHT$VAL(null)CLOSE(null)LEFT$RIGHT$(null)CLOSE(null)RIGHT$(null)(null)CLOSECLOSE";:[153][166]9)"SYS"YN$"CLOSE(null)(null)CLOSESYS"F3$"WAIT
  43. 1480 GETR$:IFR$=""THENGOTO1480
  44. 1485 IFR$="Y"THENGOTO1380
  45. 1490 IFR$="[134]"THENAL=2:GOTO2415
  46. 1495 IFR$<>"N"THENGOTO1480
  47. 1500 GOTO1080
  48. 1505 PRINT:PRINT"[147][208][204][197][193][211][197][160][197][206][212][197][210][160][212][200][197][160][206][193][205][197][160][207][198][160][212][200][197][160][211][200][207][215][160][217][207][213][160][160][160]";:PRINT"[193][210][197][160][204][207][207][203][201][206][199][160][198][207][210][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":PRINTEV$"":INPUT"[158]";WX$:PRINT"";:PRINTP3$"":P=0:PRINTP3$"":P=3:FORI=1TOCT:IFLEFT$(NM$(I),LEN(WX$))<>WX$THENGOTO1555
  49. 1545 GOSUB20:GOSUB12
  50. 1555 NEXT:IFP=0THENPRINT"I'M SORRY, BUT I CAN'T FIND THE EXACT   NAME YOU REQUESTED
  51. 1565 [153]"WOULD YOU LIKE TO TRY ANOTHER NAME?":[153]"SYS"YN$"WAIT
  52. 1575 GETR$:IFR$=""GOTO1575
  53. 1580 IFR$="Y"GOTO1505
  54. 1585 IFR$<>"N"THENGOTO1575
  55. 1590 GOTO1080
  56. 1595 PRINT"[147]":PRINTP3$:P=2:FORI=1TOCT:GOSUB20:IF(NU%(I)=NU%(I+2)ANDP>=21)OR(NU%(I)=NU%(I+1)ANDP>=22)THENGOSUB2260:PRINT"[145]";
  57. 1615 IFNU%(I)<>NU%(I-1)ORI=1THENPRINT:P=P+1:GOTO1630
  58. 1625 GOSUB12:GOTO1645
  59. 1630 IFP>=24THENGOSUB2260
  60. 1635 GOSUB12
  61. 1645 IFP>=24THENGOSUB2260
  62. 1650 NEXT:IFP>=20THENGOSUB2260
  63. 1660 PRINT"[215][207][213][204][196][160][217][207][213][160][204][201][203][197][160][212][207][160][210][197][214][201][197][215][160][212][200][201][211][160][204][201][211][212][160][160][160]":PRINT"[158]"YN$"[146]
  64. 1665 [161]R$:[139]R$[178]""[167][137]1665
  65. 1670 [139]R$[178]"Y"[167][137]1595
  66. 1675 [139]R$[179][177]"N"[167][137]1665
  67. 1680 [137]1080
  68. 1685 [153]
  69. 1690 [153]"LOAD(null)LEFT$ATN(null)CLOSERIGHT$(null)CLOSE(null)LEFT$VALCLOSE(null)(null)(null)PEEKVAL(null)CLOSE(null)ASCCLOSE(null)LEFT$VALCLOSE(null)ATN(null)VALCLOSE(null)(null)(null)CLOSE(null)RIGHT$(null)LEFT$CLOSE";:[153]"(null)(null)CLOSELENLEFT$VALLEN(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE
  70. 1695 PRINTEV$"":INPUT"[158]";RE:PRINT"[146]":IFRE>NU%(CT)ORRE<0ORRE<>INT(RE)THENPRINT"ILLEGAL ENTRY":GOTO1695
  71. 1705 PRINTP3$"":P=3:FORI=1TOCT:IFNU%(I)<>RETHEN1730
  72. 1720 GOSUB20:GOSUB12
  73. 1730 NEXT:PRINT"[215][207][213][204][196][160][217][207][213][160][204][201][203][197][160][212][207][160][195][200][197][195][203][160][193][206][207][212][200][197][210][160][212][193][208][197][160][160][160][160]"SPC(17)"[158]"YN$"[146]":IFRE<>NU%(CT)THENPRINTSPC(5)"[160][207][210][160][200][201][212][160][158] F1 [160][212][207][160][195][200][197][195][203][158]"T$;RE+1
  74. 1750 GETR$:IFR$=""GOTO1750
  75. 1755 IFR$="Y"GOTO1690
  76. 1760 IFR$="[133]"ANDRE<>NU%(CT)THENRE=RE+1:GOTO1705
  77. 1765 IFR$<>"N"THENGOTO1750
  78. 1770 GOTO1080:PRINTP4$
  79. 2150 GETR$:IFR$=""GOTO2150
  80. 2155 PRINT"[147]":P=0:RETURN
  81. 2160 PRINTCB$:PRINT"[200][201][212][160][193][160][203][197][217][160][158][160]F1 [160][212][207][160][197][216][201][212][160][158]"F3$"[146]";
  82. 2170 GETR$:IFR$=""THENGOTO2170
  83. 2175 IFR$="[133]"GOTO1080
  84. 2176 IFR$="[134]"THENIFTY=1THENGOSUB2415:GOTO2180
  85. 2177 IFR$="[134]"THENAL=2:GOTO2415
  86. 2180 PRINTP3$"":P=3:RETURN
  87. 2260 PRINTCB$:PRINT"[200][201][212][160][193][160][203][197][217][160][160][158] F1 [160][212][207][160][197][216][201][212][160][158]"F3$"[146]";
  88. 2270 GETR$:IFR$=""THENGOTO2270
  89. 2275 IFR$="[133]"GOTO1080
  90. 2277 IFR$="[134]"THENGOTO2415
  91. 2280 PRINTP3$"":P=3:RETURN
  92. 2415 PRINT"[147]PRINTING...":OPEN4,4:CMD4:PRINTCHR$(9)CHR$(9)CHR$(27)CHR$(52)CHR$(14)"     VIDEOFILE":P=3:IFAL=2THENPRINTCHR$(9)CHR$(9)CHR$(27)CHR$(52)CHR$(14)"   (ALPHABETICAL)":P=4
  93. 2430 PRINTCHR$(27)CHR$(53)CHR$(10)CHR$(10):IFTY=1THEN1195
  94. 2440 GOSUB2510:IFAL<>2THEN2450
  95. 2446 FORI=1TOCT:K=VAL(RIGHT$(MN$(I),3)):PRINTCHR$(9)NU%(K)CHR$(9)S%(K)CHR$(9);:EL%=LE%(K):GOSUB17:PRINTH$+":"+M$CHR$(9)TY$(K)CHR$(9)LEFT$(MN$(I),19):P=P+1:IFP>=58THENGOSUB2505
  96. 2449 NEXT:GOTO2491
  97. 2450 FORI=1TOCT:GOSUB20:IFTY=1ANDTY$(I)<>WT$THEN2490
  98. 2460 IFTY=1THEN2484
  99. 2475 IFNU%(I)<>NU%(I-1)ORI=1THENP=P+1:GOSUB2501:PRINT:GOTO2484
  100. 2480 PRINTCHR$(9)CHR$(9)S%(I)CHR$(9)H$+":"+M$CHR$(9)" "TY$(I)CHR$(9)NM$(I):GOTO2485
  101. 2484 PRINTCHR$(9)NU%(I)CHR$(9)S%(I)CHR$(9)H$+":"+M$CHR$(9)" "TY$(I)CHR$(9)NM$(I)
  102. 2485 P=P+1
  103. 2490 NEXT
  104. 2491 PRINTCHR$(7)CHR$(12):IFAL=2THENAL=1
  105. 2495 IFTY=1THENTY=0:PRINT#4,"":CLOSE4:RETURN
  106. 2500 PRINT#4,"":CLOSE4:GOTO1080
  107. 2501 IFP>=57THENGOSUB2505
  108. 2502 RETURN
  109. 2505 P=0:PRINTCHR$(7)CHR$(12)
  110. 2510 PRINTCHR$(9)"TAPE #"CHR$(9)"START"CHR$(9)" TIME"CHR$(9)"TYPE"CHR$(9)"NAME":PRINTP1$;P1$:P=P+2:RETURN
  111.