home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 51 / Mail_Madness_51_2003_Raiders_of_the_Lost_Empire_Side_B.d64 / c64-emulator_djr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  42 lines
  1. 1 poke53280,0:poke53281,0:print"[147][155]booting ...";:forb=1to20:gosub200:nextb
  2. 2 print:print"now creating c64-system partition";:forb=1to4:gosub200:nextb
  3. 3 print:print"initializing";:forb=1to4:gosub200:nextb
  4. 10 print"":print"system ready 2 use"
  5. 20 foraa=1to150:nextaa
  6. 29 print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  7. 30 print" [221] c64-emulator v-0.20503 by dejuhra [221]"
  8. 31 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  9. 40 print" install components:[155]"
  10. 50 print" press 1[155] for 6510 mos-prozessor:"
  11. 52 print" press 2[155] for 6581 sid-prozessor:"
  12. 54 print" press 3[155] for 6569 vic-prozessor:"
  13. 56 print" press 4[155] for 16kb rom-prozessor:"
  14. 58 print" press 5[155] for 64kb ram-prozessor:"
  15. 60 print" press key to activate"
  16. 70 print"[150]off";:gosub210
  17. 72 print"[150]off";:gosub210
  18. 74 print"[150]off";:gosub210
  19. 76 print"[150]off";:gosub210
  20. 78 print"[150]off";:gosub210
  21. 80 ifwa=1andwb=1andwc=1andwd=1andwe=1thengoto100
  22. 81 geta$:ifa$=""then81
  23. 82 ifa$="1"then220
  24. 84 ifa$="2"then222
  25. 86 ifa$="3"then224
  26. 88 ifa$="4"then226
  27. 90 ifa$="5"then228
  28. 92 ifwa=1andwb=1andwc=1andwd=1andwe=1thenprint"ready":end
  29. 100 print"[147][155] c64 emulator will started ..."
  30. 110 forfe=1to600:next:sys64738
  31. 199 end
  32. 200 print"[164][157]";:fora=1to90:nexta:print" [157]";:fora=1to90:nexta:return
  33. 210 forrr=1to222:nextrr:return
  34. 220 print"[153]on!";:gosub210:wa=1:goto80
  35. 222 print"[153]on!";:gosub210:wb=1:goto80
  36. 224 print"[153]on!"
  37. 225 gosub210:wc=1:goto80
  38. 226 print"[153]on!"
  39. 227 gosub210:wd=1:goto80
  40. 228 print"[153]on!"
  41. 229 gosub210:we=1:goto80
  42.