home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 15 / 64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_B.d64 / tape-index (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  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.