home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh32b.d64 / change.ega (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  57 lines
  1. 10 N1$="NL-10 EINFACH":N2$="NL-10 VIERFACH":N3$="NL-10 VIERFACH/D"
  2. 15 N4$="NL-10 VIERFACH/V":U=8:D=0
  3. 60 PRINT "BITTE DRUCKERTREIBER DISK IN LAUFWERK 8 EINLEGEN UND TASTE DRUECKEN"
  4. 65 POKE198,0:WAIT 198,1
  5. 70 FOR IX=1TO4:
  6. 80 IF IX=1THEN N$=N1$:P=1024
  7. 85 IF IX=2THEN N$=N2$:P=1024
  8. 90 IF IX=3THEN N$=N3$:P=1024
  9. 95 IF IX=4THEN N$=N4$:P=1024
  10. 110 V=16: Q=32: F=256: N$=LEFT$(N$,V)
  11. 120 H$="0123456789ABCDEF": Z$=CHR$(0)
  12. 130 T$=RIGHT$(STR$(D),1): OPEN 1,U,15,"I"+T$: GOSUB 620
  13. 140 T$=T$+":"+N$: OPEN 2,U,2,T$+",P,R"
  14. 150 INPUT#1,E,M$,J,K: IF E=0 THEN 240
  15. 160 CLOSE 1: CLOSE 2: PRINT " PROGRAMM ";N$;
  16. 170 IF E=62 THEN PRINT " NICHT GEFUNDEN ":
  17. 180 IF E=64 THEN PRINT " FALSCHER FILETYP":
  18. 190 PRINT " DISK READ-ERROR";E: END
  19. 210 J=INT(C/V): K=C-J*V
  20. 220 M$=M$+MID$(H$,J+1,1)+MID$(H$,K+1,1)
  21. 230 RETURN
  22. 240 GET#2,A$,B$: IF ST THEN 190
  23. 250 CLOSE 2: CLOSE 1: M$=""
  24. 260 A=ASC(A$+Z$): B=ASC(B$+Z$)
  25. 270 C=B: GOSUB 210: C=A: GOSUB 210
  26. 280 PRINT"DIE STARTADRESSE VON ";N$;" IST: ";
  27. 290 PRINT"HEXADEZIMAL: ";M$;" DEZIMAL:  ";B*F+A
  28. 300 PRINT"UND WIRD GEAENDERT AUF DEZIMAL: ";P
  29. 340 B=INT(P/F): A=P-B*F: P$=CHR$(A)+CHR$(B): M$=""
  30. 350 C=B: GOSUB 210: C=A: GOSUB 210
  31. 360 PRINT " HEX:  ";M$;"    DECIMAL: ";B*F+A
  32. 390 J=LEN(N$): IF J=V THEN 410
  33. 400 FOR X=J+1 TO V:N$=N$+CHR$(160):NEXT
  34. 410 OPEN 1,U,15: OPEN 2,U,2,"#"
  35. 420 GOSUB 620: T=18: S=1
  36. 430 PRINT#1,"U1:";2;D;T;S: GOSUB 620
  37. 440 PRINT#1,"B-P:";2;0: GET#2,A$,B$
  38. 450 T=ASC(A$+Z$): S=ASC(B$+Z$): H=2
  39. 460 PRINT#1,"B-P:";2;H: GET#2,T$
  40. 470 C=ASC(T$+Z$): IF C<>130 THEN 510
  41. 480 GET#2,A$,B$: F$="": FOR X=1 TO V
  42. 490 GET#2,T$: F$=F$+T$: NEXT
  43. 500 IF F$=N$ THEN 530
  44. 510 H=H+Q: IF H<F THEN 460
  45. 520 GOTO 430
  46. 530 A=ASC(A$+Z$): B=ASC(B$+Z$)
  47. 540 PRINT#1,"U1:";2;D;A;B: GOSUB 620
  48. 550 PRINT#1,"B-P:";2;2: PRINT#2,P$;
  49. 560 PRINT#1,"U2:";2;D;A;B: GOSUB 620
  50. 570 CLOSE 2: GOSUB 620: CLOSE 1
  51. 600 NEXT IX
  52. 610 PRINT"FERTIG! DIE DRUCKERTREIBER SIND NUN MIT DER RICHTIGEN STARTADRESSE"
  53. 615 PRINT"VERSEHEN.":END
  54. 620 INPUT#1,E,M$,J,K:IF E=0 THEN RETURN
  55. 630 PRINT " ERROR: ";E;M$;J;K
  56. 640 CLOSE 2: CLOSE 1: END
  57.