home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis1893.d64 / 257 (.txt) < prev   
Commodore BASIC  |  1995-07-31  |  607b  |  24 lines
  1. 2 A=PEEK(50053):B=PEEK(50054):C=PEEK(50055):D=A*100+B*10+C:G$="000":A$=STR$(D)
  2. 3 E=LEN(A$)-1:A$=LEFT$(G$,3-E)+RIGHT$(A$,E)
  3. 4 A=PEEK(50050):B=PEEK(50051):C=PEEK(50052):D=A*100+B*10+C:B$=STR$(D)
  4. 5 E=LEN(B$)-1:B$=LEFT$(G$,3-E)+RIGHT$(B$,E)
  5. 6 A=VAL(A$):B=VAL(B$)
  6. 7 IFB<79THENB1=1:GOTO13
  7. 8 IFB<165THENB1=2:GOTO13
  8. 9 IFB<256THENB1=3:GOTO13
  9. 10 IFB<332THENB1=4:GOTO13
  10. 11 IFB<350THENB1=5:GOTO13
  11. 12 B1=6
  12. 13 IFA<79THENA1=1:GOTO19
  13. 14 IFA<165THENA1=2:GOTO19
  14. 15 IFA<256THENA1=3:GOTO19
  15. 16 IFA<332THENA1=4:GOTO19
  16. 17 IFA<350THENA1=5:GOTO19
  17. 18 A1=6
  18. 19 IFA1=B1THEN22
  19. 20 PRINT"[159][147][194]ITTE [196]ISKETTENSEITE"A1"EINLEGEN."
  20. 21 POKE198,0:WAIT198,1
  21. 22 PRINT"[147][144]LOAD";CHR$(34);A$;CHR$(34);",8"
  22. 23 PRINT"RUN"
  23. 24 POKE631,13:POKE632,13:POKE198,2
  24.