home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / restore.bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  574b  |  29 lines
  1. 5 PRINT"[147]      TASTE DRUECKEN !"
  2. 10 X=INT(RND(TI)*3)+1
  3. 20 ON X GOSUB 1000,2000,3000
  4. 25 POKE65,PEEK(122):POKE66,PEEK(123)
  5. 30 READA$:PRINTA$
  6. 50 DATA"HAUPTPROGRAMM!!!"
  7. 100 GOTO10
  8. 1000 REM ---UNTERPROGRAMM 1----
  9. 1010 POKE65,PEEK(122):POKE66,PEEK(123)
  10. 1020 FORI=1TO4:READA:PRINTA;:NEXT
  11. 1030 READA$:PRINTA$;
  12. 1040 POKE198,0:WAIT198,1
  13. 1050 RETURN
  14. 1060 DATA1,11,111,1111,"UPR 1  "
  15. 2000 REM ---UNTERPROGRAMM 2----
  16. 2010 POKE65,PEEK(122):POKE66,PEEK(123)
  17. 2020 FORI=1TO4:READA:PRINTA;:NEXT
  18. 2030 READA$:PRINTA$;
  19. 2040 POKE198,0:WAIT198,1
  20. 2050 RETURN
  21. 2060 DATA2,22,222,2222,"UPR 2  "
  22. 3000 REM ---UNTERPROGRAMM 3----
  23. 3010 POKE65,PEEK(122):POKE66,PEEK(123)
  24. 3020 FORI=1TO4:READA:PRINTA;:NEXT
  25. 3030 READA$:PRINTA$;
  26. 3040 POKE198,0:WAIT198,1
  27. 3050 RETURN
  28. 3060 DATA3,33,333,3333,"UPR 3  "
  29.