home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh5x / sh55b.d64 / changeadress (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  84 lines
  1. 1 REM STARTADRESSE AUF DISKETTE
  2. 2 REM AENDERN (4/90 H.BEILER)
  3. 3 REM =========================
  4. 10 GOSUB1000
  5. 20 L=1:P=3:X=8:D=5:F=2:FL=0:F2=0
  6. 40 OPEN1,8,15
  7. 50 OPEN2,8,2,"#"
  8. 60 PRINT#1,"U1";2;0;18;0
  9. 70 PRINT#1,"B-P";2;144
  10. 90 FORI=0TO15:GET#2,A$:PRINTA$;:NEXT:PRINTCHR$(32);
  11. 100 PRINT#1,"B-P";2;162
  12. 110 FORI=0TO4:GET#2,A$:PRINTA$;:NEXT:PRINTCHR$(13);
  13. 112 PRINT"ADRESSE  FILENAME":PRINTLN$
  14. 120 PRINT#1,"U1";2;0;18;L
  15. 130 PRINT#1,"B-P";2;1
  16. 140 GET#2,C$:SE=ASC(C$):SA=SE-L
  17. 150 PRINT#1,"U1";2;0;18;L
  18. 160 PRINT#1,"B-P";2;F
  19. 170 GET#2,D$:IFD$=""THEND$=CHR$(0)
  20. 171 IFASC(D$)=0ANDFL=0THEN300
  21. 181 IFASC(D$)<>130THEN300
  22. 190 PRINT#1,"B-P";2;P
  23. 200 GET#2,A$:T=ASC(A$)
  24. 202 GET#2,A$:IFA$=""THENA$=CHR$(0)
  25. 203 S=ASC(A$)
  26. 210 PRINT#1,"U1";2;0;T;S
  27. 220 PRINT#1,"B-P";2;2
  28. 230 GET#2,A$:IFA$=""THENA$=CHR$(0)
  29. 232 LO=ASC(A$)
  30. 234 GET#2,A$:IFA$=""THENA$=CHR$(0)
  31. 236 HI=ASC(A$)
  32. 238 GOSUB1300
  33. 240 PRINTLO+256*HI;
  34. 250 PRINT#1,"U1";2;0;18;L
  35. 260 PRINT#1,"B-P";2;D
  36. 270 FORI=0TO15
  37. 280 GET#2,A$:PRINTTAB(9)A$;
  38. 290 NEXT:GOTO500
  39. 300 PRINTCHR$(13);:X=X-1:D=D+32:P=P+32:F=F+32
  40. 301 IFX=0ANDFL=1THEN350
  41. 310 IFX=0ANDFL=0THENL=L+SA:X=8:P=3:D=5:F=2:GOTO120
  42. 320 IFSE=255ANDFL=0THENFL=1:L=SE-SA:GOTO120
  43. 340 GOTO150
  44. 350 CLOSE2:CLOSE1:RUN
  45. 500 GETT$
  46. 505 IFT$="X"ANDFL=0THENCLOSE2:CLOSE1:RUN
  47. 506 IFT$="E"THENCLOSE2:CLOSE1:PRINTCHR$(147):POKE808,237:END
  48. 510 IFT$=CHR$(32)THEN300
  49. 520 IFT$="A"THENGOSUB600:GOTO300
  50. 530 GOTO500
  51. 600 GOSUB700:PRINTCHR$(32);:POKE19,64:INPUTLA:POKE19,0:PRINT
  52. 610 HI=INT(LA/256):LO=LA-(HI*256)
  53. 630 PRINT#1,"U1";2;0;T;S
  54. 640 PRINT#1,"B-P";2;2
  55. 650 PRINT#2,CHR$(LO);:PRINT#2,CHR$(HI);
  56. 660 PRINT#1,"U2";2;0;T;S
  57. 665 GOSUB1300
  58. 670 RETURN
  59. 700 REM
  60. 710 PRINT:PRINT"NEUE LADEADRESSE:[146]";
  61. 720 RETURN
  62. 1000 FORI=1TO39:LN$=LN$+"[192]":LR$=LR$+CHR$(32):NEXT
  63. 1005 POKE53280,0:POKE53281,0:POKE646,15
  64. 1011 PRINT"[147]"CHR$(142)LN$
  65. 1020 PRINT"          CHANGE LOAD-ADRESS           "
  66. 1021 PRINTLN$
  67. 1031 PRINTLN$
  68. 1040 PRINT" A=AENDERN   SPACE=WEITER    X=ABBRUCH "
  69. 1041 PRINTTAB(12)"E=PROGRAMMENDE"
  70. 1042 PRINTLN$
  71. 1060 PRINTLN$
  72. 1070 PRINTTAB(5)"RICHTIGE DISKETTE EINLEGEN UND"
  73. 1080 PRINTTAB(10)"<RETURN> DRUECKEN !"
  74. 1090 PRINTLN$:PRINT
  75. 1100 GETT$:IFT$=CHR$(13)THEN1110
  76. 1101 IFT$="E"THENPOKE808,237:PRINT"[147]":END
  77. 1102 GOTO1100
  78. 1110 GOSUB1200
  79. 1120 FORI=1TO10:PRINTLR$:NEXT:GOSUB1200
  80. 1130 RETURN
  81. 1200 POKE214,8:POKE211,0:SYS58640:RETURN
  82. 1300 POKE214,12:POKE211,0:SYS58640:FORI=1TO3:PRINTLR$:NEXT
  83. 1400 POKE214,12:POKE211,0:SYS58640:PRINTLR$:RETURN
  84.