home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 June / 64er_Magazin_86-06_1986_Markt__Technik_de_Side_A.d64 / etiketten.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  83 lines
  1. 10 dimb$(144),dl$(144),na$(144):l=1:z1$="                    "
  2. 20 poke53280,6:poke53281,6:poke198,0:goto70
  3. 30 print"[147]";:fori=1to8:printz1$;:next
  4. 40 print"disketten etikettieren"
  5. 50 print"(c) 1986 by softside"
  6. 60 print"[158]";:fori=1to6:printz1$;:next:return
  7. 70 gosub30:print"[145][145]bitte diskette einlegen und return"
  8. 80 geta$:ifa$<>chr$(13)then80
  9. 100 print"bitte warten, ich lese diskette."
  10. 110 i=0:b=0:gb=1:gt=1:close15:open15,8,15:close1:open1,8,0,"$0"
  11. 120 input#15,t,k$,o,o:ift<>0thenprint"floppyfehler:[146]";
  12. 130 ift<>0thenprint"  ";k$:print"taste druecken":poke198,0:wait198,1:run
  13. 140 get#1,a$,f$
  14. 150 get#1,a$,f$:b$(i+1)="":get#1,a$,f$:c=0:l$="   ":ifa$<>""thenc=asc(a$)
  15. 160 iff$<>""thenc=c+asc(f$)*256
  16. 170 q$=mid$(str$(c),2):l$=left$(q$+l$,3)
  17. 180 get#1,f$:iff$=""thenza=i:goto300
  18. 190 iff$<>chr$(34)then180
  19. 200 get#1,f$:iff$<>chr$(34)thenb$(i+q)=b$(i+q)+f$:goto200
  20. 210 ifq=1thenb$(i+1)=""
  21. 220 get#1,f$:iff$=chr$(32)then220
  22. 230 c$=""
  23. 240 c$=c$+f$:get#1,f$:iff$<>""then240
  24. 250 ifgb=1thenid$=left$(c$,2):gb$=gc$:gb=0
  25. 260 b$(i+q)=left$(b$(i+q)+z1$,17)+left$(gb$,3)+left$(q$+"   ",3)
  26. 270 ifgt=1thengt=0:b$(i)="":goto150
  27. 280 ifq=1thenq=0:b$(i+1)=""
  28. 290 i=i+1:goto150
  29. 300 close1:close15:fr$=q$
  30. 310 gosub30:print"[145][145]directory bearbeiten"
  31. 320 z1=0:z2=0
  32. 330 print""id$:input"[145]id    ";id$
  33. 340 print"spiele":input"[145]header";he$:he$=left$(he$+z1$,16)
  34. 350 print"1541":input"[145]floppy";dr$
  35. 355 print"35":input"[145]spuren";sp$
  36. 360 print"...............................":input"[145][145]text  ";te$
  37. 365 te$=left$(te$,31)
  38. 370 print"[158]";:fori=1to8:printz1$;:next
  39. 380 print"[145][145][145][145]f1: name veraendern"
  40. 390 print"f3: name nicht uebernehmen"
  41. 400 print"[145]f5: name unveraendert uebernehmen"
  42. 410 print"":fori=1to17:printz1$;:next
  43. 420 print""left$(b$(z1),16):print""z2
  44. 430 ifz1=zaorz2=27then490
  45. 440 getq$:ifq$=""then440
  46. 450 ifq$="[134]"thenb$(z1)="":z1=z1+1:goto420
  47. 460 ifq$="[135]"thenna$(z2)=left$(b$(z1)+z1$,17):z1=z1+1:z2=z2+1:goto420
  48. 470 ifq$="[133]"theninput"[145][145]";na$(z2):na$(z2)=left$(na$(z2)+z1$,17)
  49. 475 ifq$="[133]"thenz2=z2+1:print"[145][145]"z1$:z1=z1+1:goto420
  50. 480 goto440
  51. 490 gosub30:print"[145][145]etikett ausdrucken"
  52. 495 fori=z2to28:na$(i)=left$(z1$,17):next
  53. 500 print"sitzt das etikett richtig (j/n) ?"
  54. 510 getq$:ifq$=""then510
  55. 520 ifq$<>"j"then510
  56. 530 print"[158] ausdruck beginnt "
  57. 540 close1:open1,4,1:print#1,chr$(27);"@";chr$(27);"e";
  58. 560 print#1,"  ";he$;"           ";id$:print#1,chr$(27);"@";
  59. 570 print#1,chr$(27);"a";chr$(5);
  60. 580 print#1,chr$(27);"s";chr$(0);chr$(15);
  61. 590 print#1,"   ";:fori=1to52:print#1,"-";:next:print#1
  62. 600 print#1,"   "na$(0);na$(13);" !  commodore 64
  63. 610 [152]1,"   "na$(1);na$(14);" !  floppy: "dr$
  64. 620 [152]1,"   "na$(2);na$(15);" !
  65. 630 print#1,"   "na$(3);na$(16);" !----------------
  66. 640 [152]1,"   "na$(4);na$(17);" !
  67. 650 print#1,"   "na$(5);na$(18);" !
  68. 660 [152]1,"   "na$(6);na$(19);" !   spuren: "sp$
  69. 670 [152]1,"   "na$(7);na$(20);" !
  70. 680 print#1,"   "na$(8);na$(21);" !----------------
  71. 690 [152]1,"   "na$(9);na$(22);" !
  72. 700 print#1,"   "na$(10);na$(23);" !  hauptprg."z2
  73. 710 print#1,"   "na$(11);na$(24);" !  gesamt:  "za
  74. 720 print#1,"   "na$(12);na$(26);" !
  75. 730 [152]1,"   ";:[129]i[178]1[164]52:[152]1,"-";:[130]:[152]1
  76. 740 [152]1,"   "te$"    !  free: "fr$" blk
  77. 750 print#1:print#1:close1
  78. 760 print"noch eine diskette (j/n) ?
  79. 770 [161]a$:[139]a$[178]""[167]770
  80. 780 [139]a$[178]"n"[167][128]
  81. 790 [139]a$[178]"j"[167][138]
  82. 800 [137]770
  83.