home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / restore x-demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  719 b   |  41 lines
  1. 1 rem **********************
  2. 2 rem *        demo        *
  3. 3 rem * subroutine/restore *
  4. 4 rem **********************
  5. 5 print"[147]      taste druecken!"
  6. 6 print:print
  7. 10 x=int(rnd(ti)*3)+1
  8. 20 onxgosub1000,2000,3000
  9. 25 poke65,peek(122):poke66,peek(123)
  10. 30 reada$:printa$
  11. 50 data"hauptprogramm"
  12. 100 goto10
  13. 999 :
  14. 1000 rem *** subroutine 1 ***
  15. 1005 :
  16. 1010 poke65,peek(122):poke66,peek(123)
  17. 1020 fori=1to4:reada:printa;:next
  18. 1030 reada$:printa$;
  19. 1040 poke198,0:wait198,1
  20. 1050 data1,11,111,1111,"up 1 "
  21. 1060 return
  22. 1070 :
  23. 2000 rem *** subroutine 2 ***
  24. 2005 :
  25. 2010 poke65,peek(122):poke66,peek(123)
  26. 2020 fori=1to4:reada:printa;:next
  27. 2030 reada$:printa$;
  28. 2040 poke198,0:wait198,1
  29. 2050 data2,22,222,2222,"up 2 "
  30. 2060 return
  31. 2070 :
  32. 3000 rem *** subroutine 3 ***
  33. 3005 :
  34. 3010 poke65,peek(122):poke66,peek(123)
  35. 3020 fori=1to4:reada:printa;:next
  36. 3030 reada$:printa$;
  37. 3040 poke198,0:wait198,1
  38. 3050 data3,33,333,3333,"up 3 "
  39. 3060 return
  40. 3070 :
  41.