home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 22 / Tiger_Disk_022_19xx_Tiger-Crew-Disk_de_Side_A.d64 / doppel-directory (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  74 lines
  1. 10 dim fl$(145,2):poke53280,0:poke53281,0:poke646,5:poke788,52
  2. 20 print"[147]        2 directorys ausdrucken"
  3. 40 print"           by alf and martin"
  4. 45 print:fori=1to40:print"[162]";:next:print
  5. 50 print"bitte die vorderseite der diskette, die"
  6. 60 print"sie ausdrucken wollen, einlegen und :    taste druecken ! "
  7. 80 poke198,0:wait198,1:poke198,0
  8. 90 print"j[146] = ja : n[146] = nein : a[146] = alles : q[146] = ende"
  9. 100 print"ich lese das directory !"
  10. 110 x=1:gosub1000
  11. 120 print"bitte diskette umdrehen und eine         taste druecken ! "
  12. 140 poke198,0:wait198,1:poke198,0
  13. 150 print"j[146] = ja : n[146] = nein : a[146] = alles : q[146] = quit"
  14. 160 print"ich lese das directory !"
  15. 170 x=2:all=0:gosub1000
  16. 180 print"bitte schalten sie jetzt den drucker "
  17. 190 print"ein und justieren das papier."
  18. 200 print"eine  taste [146] zum start  druecken ! "
  19. 210 poke198,0:wait198,1:poke198,0
  20. 220 gosub2000
  21. 230 print"noch eine disk ausdrucken (j/n) ?"
  22. 240 geta$:ifa$=""then240
  23. 250 ifa$="j"thenrun
  24. 260 ifa$="n"thenprint"[147]":end
  25. 270 goto240
  26. 1000 rem "get $!
  27. 1005 [151]650,128
  28. 1010 [159]1,8,15,"i0":[159]2,8,2,"#"
  29. 1020 [152]1,"m-r"[199](144)[199](7)[199](23)
  30. 1030 [132]1,a$
  31. 1040 [139][198]([200](a$,1))[178]141[167]a$[178][201](a$,22)
  32. 1050 d$(x)[178]"     "[170]a$
  33. 1060 [153]:[151]212,255:[153]d$(x);:[153]" a";
  34. 1061 [151]198,0:[146]198,1:[161]a$
  35. 1062 [139]a$[178]"a"[167][153]"lles":all[178]1:[137]1070
  36. 1063 [151]211,29:[153]"  "
  37. 1070 [153]:s[178]1:f[178]1
  38. 1080 [152]1,"u1 2 0 18";s
  39. 1090 [129]i[178]0[164]7
  40. 1100 [152]1,"b-p 2"i[172]32[170]2
  41. 1110 [161]#2,a$:ft[178][198](a$[170][199](0))[175]7:[139]ft[178]0[137]1200
  42. 1120 [152]1,"b-p 2"i[172]32[170]5
  43. 1130 f$[178]"":[129]j[178]1[164]16:[161]#2,a$:f$[178]f$[170]a$:[130]
  44. 1140 [152]1,"b-p 2"i[172]32[170]30
  45. 1150 [161]#2,a$:bl[178][198](a$[170][199](0))
  46. 1160 [161]#2,a$:bh[178][198](a$[170][199](0))
  47. 1170 bl$[178][200]([196](bl[170]256[172]bh)[170]"     ",6)
  48. 1180 fl$(f,x)[178]bl$[170][199](34)[170]f$[170][199](34)[170]" "[170][202]("seqprgusrrel",(ft[171]1)[172]3[170]1,3)
  49. 1185 [139]all[178]1[167][153]fl$(f,x):f[178]f[170]1:p[178]1:[137]1200
  50. 1186 [153]fl$(f,x);" ncmd";
  51. 1187 [161]a$:[139]a$[178]""[167]1187
  52. 1190 [139] a$[178]"j"[167][153]"ja":f[178]f[170]1:p[178]1:[137]1200
  53. 1193 [139] a$[178]"q"[167][138]
  54. 1195 [153]"nein":p[178]0
  55. 1200 [130]i
  56. 1210 [152]1,"b-p 2 1"
  57. 1220 [161]#2,a$:s[178][198](a$[170][199](0))
  58. 1230 [139]s[179]19[137]1080
  59. 1235 [139]p[178]0[167]fl$(f,x)[178]""
  60. 1240 [152]1,"m-r"[199](250)[199](2)
  61. 1250 [161]#1,a$:bl[178][198](a$[170][199](0))
  62. 1255 [152]1,"m-r"[199](252)[199](2)
  63. 1260 [161]#1,a$:bh[178][198](a$[170][199](0))
  64. 1270 fl$(f,x)[178][196](bl[170]256[172]bh)[170]" blocks free!"
  65. 1275 [153]fl$(f,x)
  66. 1280 [160]1:[160]2:[151]650,0:[142]
  67. 2000 [143]"print directorys
  68. 2010 open1,4:x=1
  69. 2020 print#1,d$(1);chr$(16);"30";d$(2)
  70. 2030 print#1
  71. 2040 iffl$(x,1)=""andfl$(x,2)=""thenprint#1,chr$(13)chr$(13):close1:return
  72. 2050 print#1,fl$(x,1)+chr$(16)+"30"+fl$(x,2)
  73. 2060 x=x+1:goto2040
  74.