home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 107 / Tiger_Disk_107_20xx_Tiger-Crew-Disk_de_Side_B.d64 / diskname-ma.v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  50 lines
  1. 10 poke53281,11:poke53280,11
  2. 20 print"[147][155]           disknamemaker v1.0"
  3. 21 print"1994 by mr.smart/art design"
  4. 22 print"-----------------------------"
  5. 23 print"bitte eine taste druecken
  6. 30 [139][194](203)[179][177]64[167]30
  7. 40 [139][194](203)[178]64[167]40
  8. 50 [129]i[178]1[164]5:[161]a$:[130]
  9. 51 [153]"load"
  10. 60 [153]"";:[159]1,8,15,"i"
  11. 70 [159]2,8,2,"#"
  12. 80 [152]1,"u1 2 0 18 0"
  13. 90 [152]1,"b-p 2 144"
  14. 100 [129]i[178]1[164]23
  15. 110 [161]#2,n$:[153]n$;:[130]:[160]1:[160]2
  16. 120 [153]"aendern ? [j/n]"
  17. 130 [139][194](203)[179][177]64[167]130
  18. 140 [139][194](203)[178]64[167]140
  19. 150 [161]a$:[139]a$[179][177]"j"[167][138]
  20. 160 [129]i[178]1[164]5:[161]a$:[130]
  21. 180 [153]"  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(  tab(tab(tab(tab( tab("
  22. 190 [159]1,8,15
  23. 200 [159]2,8,2,"#"
  24. 210 [152]1,"u1 2 0 18 0"
  25. 220 [152]1,"b-p 2 144"
  26. 230 [153]"onon";:[141]380:a$[178]e$
  27. 240 [139] [195](a$)[179]16 [167] a$[178]a$[170]"close":[137] 240
  28. 250 [152]2,a$;
  29. 260 [152]1,"u2 2 0 18 0"
  30. 270 [160] 2
  31. 280 [152]1,"i":[141]330
  32. 290 [153]"           taste druecken              "
  33. 300 [139][194](203)[179][177]64[167]300
  34. 310 [139][194](203)[178]64[167]310
  35. 320 [138]
  36. 330 [153]"";
  37. 340 nn$[178]""
  38. 350 [161]#1,n$:nn$[178]nn$[170]n$:[139]st[179][177]64[167]350
  39. 360 [139][200](nn$,2)[179][177]"00"[167][153]"";
  40. 370 [153]nn$:[142]
  41. 380 e$[178]"":cu$[178]"tocmd":[153]"]"cu$;
  42. 390 [139][194](203)[178]64[167]390
  43. 400 [161]ei$:[139][195](e$)[178]0[175]ei$[178][199](20)[167]390
  44. 410 [139]ei$[178][199](20)[167]e$[178][200](e$,[195](e$)[171]1):[137]450
  45. 420 [139]ei$[178][199](13)[167][142]
  46. 430 [139]ei$[178]"on"[176]ei$[178]""[176]ei$[178]""[176]ei$[178]"cmd"[176]ei$[178]""[167]390
  47. 435 [139][195](e$)[177]22[167]390
  48. 440 e$[178]e$[170]ei$
  49. 450 [153]ei$;cu$;:[137]390
  50.