home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / univ.lader.init (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  103 lines
  1. 10 REM  *************************
  2. 20 REM  *                       *
  3. 30 REM  *    UNIVERSAL LADER    *
  4. 40 REM  *                       *
  5. 50 REM  *    INITIALISIERUNG    *
  6. 60 REM  *                       *
  7. 70 REM  *                       *
  8. 80 REM  *    VON UWE GERLACH    *
  9. 85 REM  *                       *
  10. 90 REM  *************************
  11. 95 REM
  12. 200 PRINT"[147]"CHR$(14): POKE 53280,0: POKE 53281,0
  13. 210 PRINT"[154]     [213]NIVERSALLADER [201]NITIALISIERUNG"
  14. 220 PRINT:PRINT"[152][196]IESES [208]ROGRAMM ERGAENZT DEN [213]NIVERSAL-"
  15. 222 PRINT"LADER, DER EIN AUTOMATISCHES [193]USWAHL-"
  16. 224 PRINT"MENUE JEDER [196]ISKETTE ERSTELLT."
  17. 226 PRINT"[197]R SOLLTE IMMER AN ERSTER [211]TELLE DES"
  18. 227 PRINT"[196]IRECTORYS STEHEN, UM LEICHT AUFGERUFEN"
  19. 228 PRINT"WERDEN ZU KOENNEN."
  20. 229 PRINT"[194]EIDE [208]ROGRAMME WURDEN GESCHRIEBEN VON:"
  21. 230 PRINT:PRINT,"  [213]WE [199]ERLACH",,,"  [194]RUEHLSTR. 23",,,"  6440 [194]EBRA 1[152]"
  22. 240 PRINT:PRINT"[196]IESER [212]EIL DIENT ZUM EINMALIGEN [198]ESTLE-";
  23. 250 PRINT"GEN DER [197]INTRAEGE, DIE BEIM [211]TARTEN DES"
  24. 260 PRINT"[213]NIVERSALLADERS AUFGEFUEHRT WERDEN SOL-"
  25. 270 PRINT"LEN. ([205]IT [202][152], [206][152] UND [211][152] AUSWAEHLEN."
  26. 280 PRINT"<[210]ET.>[152] FUER ALTEN [218]USTAND, ^[152] GEHT ZU-"
  27. 290 PRINT"RUECK UND [209][152] BRICHT AB.)"
  28. 300 DIM N(144)
  29. 310 POKE 649,1: REM  TASTATURPUFFER
  30. 320 POKE 650,128: REM  TASTATURPUFFER
  31. 400 PRINT:PRINT"[154][194]ITTE [196]ISK EINLEGEN UND [212]ASTE DRUECKEN ![152]"
  32. 500 GET A$: IF A$="" THEN 500
  33. 510 PRINT: PRINT CHR$(142);"[147]TITEL DIESER DISKETTE: ";: REM  REVERSE ON
  34. 1000 OPEN 1,8,15    : REM  KOMMANDOS
  35. 1010 OPEN 2,8,2,"#" : REM  PUFFER
  36. 1020 PRINT#1, "U1 2 0 18 0"
  37. 1030 PRINT#1, "B-P 2 144"
  38. 1040 FOR J=1 TO 16
  39. 1050 : GET#2, A$
  40. 1060 : IF A$=CHR$(160) THEN 2000
  41. 1070 : PRINT A$;
  42. 1080 NEXT J
  43. 2000 PRINT:PRINT"[146][152]": REM  REVERSE OFF
  44. 2020 T=18           : REM  TRACK
  45. 2030 S=1            : REM  SECTOR
  46. 3000 PRINT#1, "U1: 2 0";T;S: REM  LESEN
  47. 3010 FOR J=0 TO 224 STEP 32
  48. 3011 : PRINT#1, "B-P:"2,STR$(J+2)
  49. 3014 : GET#2, A$: REM  FILETYP HOLEN
  50. 3016 : IF A$="" THEN 3690
  51. 3020 : PRINT#1, "B-P:"2,STR$(J+24)
  52. 3030 : GET#2, A$: REM  MARKIERUNG HOLEN
  53. 3035 : M$=" JA ": V$="J"
  54. 3040 : IF A$=CHR$(128) THEN M$="NEIN": V$=A$
  55. 3042 : IF A$="N" THEN M$="SKIP": V$="N"
  56. 3045 : M$=""+M$+"[157][157][157][157][146][152]"
  57. 3050 : PRINT#1, "B-P:"2,STR$(J+5)
  58. 3060 : N$=""
  59. 3070 : FOR K=1 TO 16
  60. 3080 :  GET#2, A$: REM  FILENAMEN HOLEN
  61. 3090 :  IF A$=CHR$(160) THEN 3300
  62. 3100 :  N$=N$+A$
  63. 3110 : NEXT K
  64. 3300 : PRINT "[154]";N$; TAB(18); "(J/N/S)[146] ";
  65. 3330 : GET A$
  66. 3332 : IF J<>0 THEN IF A$="^" THEN J=J-32: PRINT"    [145][145]"  : GOTO 3011
  67. 3335 : IF A$="Q" THEN 5000
  68. 3337 : Z=Z+1: IF Z>6 THEN PRINT"";
  69. 3339 : PRINT M$;: IF Z>12 THEN Z=0
  70. 3345 : IF A$="J" OR A$="Y" THEN 7050
  71. 3347 : IF A$="" THEN GOTO 3330
  72. 3350 : IF A$="S" THEN V$="N": PRINT"SKIP": GOTO 3400: REM UEBERSPRINGEN
  73. 3360 : IF A$=CHR$(13) THEN PRINT M$: GOTO 3400: BEI RETURN
  74. 3370 : V$=CHR$(128): PRINT"NEIN"
  75. 3400 : PRINT#1, "B-P:"2,STR$(J+24)
  76. 3410 : PRINT#2, V$;: REM  MARKIEREN
  77. 3690 NEXT J
  78. 3700 PRINT#1, "U2 2 0" T;S
  79. 4000 PRINT#1, "B-P: 2 0"
  80. 4010 GET#2, A$, B$
  81. 4020 T=ASC(A$+CHR$(0))
  82. 4030 S=ASC(B$+CHR$(0))
  83. 4040 IF T<>0 THEN 3000: REM  NEXT BLOCK
  84. 5000 CLOSE 1: CLOSE 2
  85. 6000 PRINT:PRINT:PRINT"NOCH EINE DISKETTE?"
  86. 6010 GET A$: IF A$="" THEN 6010
  87. 6020 IF A$="J" THEN PRINT"[147]";CHR$(14): GOTO 400
  88. 6050 END
  89. 7000 :
  90. 7010 REM ** STARTADRESSE FESTSTELLEN **
  91. 7020 :
  92. 7050 PRINT" JA ";
  93. 7070 OPEN 3,8,3,N$: REM FILE ZUM LESEN OEFFNEN
  94. 7100 GET#3,SL$: SL=ASC(SL$+CHR$(0)): REM STARTBYTE LOW
  95. 7110 GET#3,SH$: SH=ASC(SH$+CHR$(0)): REM STARTBYTE HIGH
  96. 7190 CLOSE 3
  97. 7210 PRINT"SA "; LEFT$(STR$(SH*256+SL)+"     ",6);
  98. 7220 INPUT"[157][157][157][157][157][157][157]";SA: REM STARTADRESSE
  99. 7250 SH=INT(SA/256): REM HIGHBYTE
  100. 7260 SL=SA-SH*256: REM LOWBYTE
  101. 7900 V$=CHR$(0)+CHR$(SL)+CHR$(SH): REM MARKIERUNG VORBEREITEN
  102. 7990 GOTO 3400
  103.