home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8606a.d64 / etiketten.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.