home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh92a.d64 / file64_128change (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.0 KB  |  20 lines
  1. 1 IFPEEK(215)=13THENA(1)=203:T=14:S=8:BY=95:A(3)=64:A(4)=74:A(5)=497:GOTO3
  2. 2 A(1)=213:A(3)=128:T=10:S=12:BY=116:A(4)=167:A(5)=569
  3. 3 POKE53280,0:POKE53281,0:PRINTCHR$(14):X=PEEK(186):IFX<8ORX>12THENX=8
  4. 4 PRINTCHR$(147)TAB(10)"[199][197][207][198][201][204][197]"A(3)"-[195]HANGE"TAB(57)"VON"
  5. 5 PRINTTAB(8)"[200]ANS-[202]UERGEN [218]IETHMANN"TAB(120)"[194]ITTE LEGEN [211]IE DIE [199][197][207][211]-"
  6. 6 PRINTTAB(40)"[193]PPLIKATIONSDISKETTE"A(3)TAB(80)"IN DAS [204]AUFWERK"X
  7. 7 PRINTTAB(40)"UND DRUECKEN EINE [212]ASTE":WAITA(1),64,64:OPEN1,X,15,"I"
  8. 8 OPEN2,X,2,"#":PRINT#1,"U1:";2;0;18;0:PRINT#1,"B-P:";2;190:GET#2,A$
  9. 9 A=ASC(A$+CHR$(0)):B=ASC(B$+CHR$(0)):PRINT#1,"U1:";2;0;T;S:PRINT#1,"B-P:";2;BY
  10. 10 GET#2,C$,D$:C=ASC(C$+CHR$(0)):D=ASC(D$+CHR$(0)):CLOSE2
  11. 11 PRINT"[145][145][145][145][145][199][197][207][198][201][204][197]"A(3)"[157] [196]ISKETTE    ":WAITA(1),64,64:OPEN2,X,2,"#"
  12. 12 PRINT#1,"U1:";2;0;18;0:PRINT#1,"B-P:";2;190:PRINT#2,CHR$(A);:PRINT#2,CHR$(B);
  13. 13 PRINT#1,"U2:";2;0;18;0:GOSUB15:PRINT#2,CHR$(C);:PRINT#2,CHR$(D);
  14. 14 PRINT#1,"U2:";2;0;T;S:CLOSE2:CLOSE1:PRINT"[199][197][207][198][201][204][197]"A(3)"ANGEPASST!":END
  15. 15 A(6)=20:FORT=1TO35:FORS=0TOA(6):PRINT#1,"U1:";2;0;T;S:PRINT#1,"B-P:";2;A(4)
  16. 16 GET#2,E$,F$,G$:E=ASC(E$+CHR$(0)):F=ASC(F$+CHR$(0)):G=ASC(G$+CHR$(0))
  17. 17 A=E+F+G:IFA=A(5)THENRETURN
  18. 18 A=0:IFT>17THENA(6)=18:IFT>24THENA(6)=17:IFT>30THENA(6)=16
  19. 19 NEXTS,T:CLOSE2:CLOSE1:PRINT"[147][203]ANN LEIDER DIE [201]NSTALLATIONS-[206]R. NICHT FINDEN"
  20.