home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh15b.d64 / tape-index (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  3KB  |  100 lines
  1. 1 REM +-+-+-+-+-+-+-+-+-+-+-
  2. 2 REM - TAPE-INDEX         +
  3. 3 REM +                    -
  4. 4 REM - BY BERND HARDER    +
  5. 5 REM + AN DER CHAUSSEE 92 -
  6. 6 REM - 2208 GLUECKSTADT   +
  7. 7 REM +                    -
  8. 8 REM - TEL.: 04124/2791   +
  9. 9 REM +-+-+-+-+-+-+-+-+-+-+-
  10. 101 :
  11. 102 REM  BILDSCHIRMFARBEN , TURBO-TAPE VERAENDERN , ECHTZEITUHR INITIALISIEREN
  12. 103 :
  13. 105 POKE53280,0:POKE53281,0
  14. 110 DATA160,5,177,178,32,22,231,200,192,21,208,246,166,2,154,173,11,220,141,11
  15. 115 DATA220,76,174,167,186,134,2,32,224,196,76,174,167,165,1,41,16,208,1,96,32
  16. 120 DATA147,252,76,36,197
  17. 125 FORI=50456TO50488:READA:POKEI,A:NEXT
  18. 130 FORI=50694TO50706:READA:POKEI,A:NEXT:POKE50053,76:POKE50054,48
  19. 135 POKE50055,197:POKE56334,PEEK(56334)OR128:POKE56335,PEEK(56335)AND127
  20. 140 :
  21. 141 REM  MENUE
  22. 142 :
  23. 145 PRINT"[147][159]-F1- CASSETTE DURCHSUCHEN
  24. 150 [153]"-F3- INDEX AUSDRUCKEN
  25. 155 PRINT"-F5- INDEX ABSPEICHERN
  26. 160 [153]"-F7- INDEX LADEN
  27. 165 GETC$:IFC$=""THEN165
  28. 170 IFASC(C$)<133ORASC(C$)>136THEN165
  29. 175 ONASC(C$)-133GOTO260,355,400
  30. 176 :
  31. 177 REM  CASSETTE DURCHSUCHEN
  32. 178 :
  33. 180 CLR:DIMA$(512):PRINT"[147]LEGEN SIE DIE ERSTE SEITE EIN !":POKE198,0:WAIT198,1
  34. 185 POKE198,0:POKE56331,0:POKE56330,0:POKE56329,0:PRINT"PRESS PLAY ON TAPE
  35. 190 [139]([194](1)[175]48)[179][177]0[167]190
  36. 195 [151]56328,0
  37. 200 [153]"LOAD":[151]56328,[194](56328):_L
  38. 205 [151]631,13:[139]([194](1)[175]16)[179][177]0[167]230
  39. 210 T[178][194](56331)[172]3600[170](([194](56330)[175]112)[172].625[170]([194](56330)[175]15))[172]60
  40. 215 T[178]T[170]([194](56329)[175]112)[172].625[170]([194](56329)[175]15)[170][181]([194](56328)[173]10[170].5)
  41. 220 T[178][181](((T[172]4[170]1874.89)[174].5[171]43.3)[172]7.85512[170].5):[151]198,1:[133]"CMDCMD";A$(Z)
  42. 225 A$(Z)[178][201]("00"[170][201]([196](T),[195]([196](T))[171]1),3)[170]"  "[170]A$(Z):Z[178]Z[170]1:[137]200
  43. 230 [139]O[179][177]0[167]254
  44. 235 [153]"LOADZWEITE SEITE AUCH ?    (J/N)
  45. 240 GETC$:IFC$="N"THEN254
  46. 245 IFC$<>"J"THEN240
  47. 250 O=Z:GOTO185
  48. 254 IFO=ZTHENO=0
  49. 255 INPUT"NAME DER CASSETTE";N$:GOTO140
  50. 256 :
  51. 257 REM  INDEX AUSDRUCKEN
  52. 258 :
  53. 260 PRINT"[147]PRINTER ODER BILDSCHIRM ?    (P/B)
  54. 265 [161]C$:[139]C$[178]"P"[167]305
  55. 270 [139]C$[179][177]"B"[167]265
  56. 275 [153]"LOAD"N$,"SEITE 1
  57. 280 FORI=0TO39:PRINT"=";:NEXT:PRINT:R=O:IFO=0THENR=Z
  58. 285 FORI=0TOR-1:PRINTA$(I):POKE198,0:WAIT198,1:POKE198,0:NEXT:IFO=0THEN140
  59. 290 PRINT:PRINT"[147]"N$,"SEITE 2
  60. 295 [129]I[178]0[164]39:[153]"=";:[130]:[153]
  61. 300 [129]I[178]O[164]Z[171]1:[153]A$(I):[151]198,0:[146]198,1:[151]198,0:[130]:[137]140
  62. 305 [159]1,4:[152]1,N$[199](13)[199](13)
  63. 310 [139]O[179][177]0[167]320
  64. 315 [129]I[178]0[164]Z[171]1:[152]1,A$(I):[130]:[160]1:[137]140
  65. 320 [152]1,"SEITE 1                         SEITE 2"[199](13)
  66. 325 [129]I[178]0[164]O[171]1:[152]1,A$(I)[166]32[171][195](A$(I)))A$(O[170]I):[130]
  67. 330 [139]Z[179][178]2[172]O[167][160]1:[137]140
  68. 335 [129]I[178]2[172]O[164]Z[171]1:[152]1,[166]32)A$(I):[130]:[160]1:[137]140
  69. 340 [139]C$[178]"C"[167][153]"I/O-FEHLER":[137]352
  70. 345 [132]1,N,O$,P,Q:[153]N;O$;P;Q:[137]352
  71. 350 [153]"LOADFERTIG !!!
  72. 352 CLOSE2:CLOSE1:POKE198,0:WAIT198,1:POKE198,0:GOTO140
  73. 353 :
  74. 354 REM  INDEX ABSPEICHERN
  75. 355 :
  76. 356 IFZ=0THENPRINT"[147]ES IST NICHTS IM SPEICHER !!!":GOTO352
  77. 357 PRINT"[147]CASSETTE ODER DISKETTE ?    (C/D)
  78. 360 [161]C$:[139]C$[178]"C"[167]375
  79. 365 [139]C$[179][177]"D"[167]360
  80. 370 [159]1,8,15,"I":[159]2,8,2,[200](N$[170]" ",16)[170]",S,W":[137]377
  81. 375 [159]2,1,2,[200](N$[170]" ",16)
  82. 377 [139]ST[179][177]0[167]340
  83. 380 [152]2,N$:[152]2,O:I[178]0
  84. 385 [152]2,A$(I):[139]ST[179][177]0[167]340
  85. 390 I[178]I[170]1:[139]I[179]Z[167]385
  86. 395 [137]350
  87. 396 :
  88. 397 [143]  INDEX LADEN
  89. 398 :
  90. 400 [156]:[134]A$(512):[133]"LOADNAME";N$:[153]"CASSETTE ODER DISKETTE ?    (C/D)
  91. 405 GETC$:IFC$="C"THEN420
  92. 410 IFC$<>"D"THEN405
  93. 415 OPEN1,8,15,"I":OPEN2,8,2,LEFT$(N$+" ",16)+",S,R":GOTO425
  94. 420 OPEN2,1,0,LEFT$(N$+" ",16)
  95. 422 IFST<>0THEN340
  96. 425 INPUT#2,N$:INPUT#2,O:Z=0
  97. 430 IFST<>0THEN340
  98. 435 INPUT#2,A$(Z):Z=Z+1:IFST<>64THEN430
  99. 440 GOTO350
  100.