home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #9 / Commodore_Disk_User_Vol.4_9_1991_-_Side_A.d64 / european01 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  631b  |  26 lines
  1. 0 p=p+1:print"[147]":poke53280,0:poke53281,0
  2. 1 ifp=1thenload"european05",8,1
  3. 3 ifp<3then310
  4. 9 poke53280,0:poke53281,0
  5. 10 print"[147][144]p[207]43,1:p[207]44,65:p[207]16640,0:new"
  6. 11 print"l[207]"chr$(34)"european02"chr$(34)",8"
  7. 12 print"run"
  8. 13 print"";
  9. 14 poke198,3:poke631,13:poke632,13:poke633,13:new
  10. 310 poke53265,peek(53265)and239
  11. 320 poke53272,peek(53272)or8
  12. 330 poke53265,peek(53265)or32
  13. 340 poke53270,peek(53270)or16
  14. 342 poke53281,peek(17193)
  15. 420 d=1024:s=8000+8192
  16. 421 e=55296:t=8000+8192+16+1000:x=53280
  17. 430 fori=0to999:pokex,0:poked+i,peek(s+i):pokex,1:pokee+i,peek(t+i):next
  18. 440 poke53280,peek(17192)
  19. 640 poke53265,peek(53265)or16
  20. 650 poke198,0:wait198,1
  21. 651 poke53265,peek(53265)and239:print"[147]"
  22. 652 poke53265,peek(53265)and223
  23. 653 poke53272,peek(53272)and247
  24. 654 poke53265,peek(53265)or16
  25. 660 goto0
  26.