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