home *** CD-ROM | disk | FTP | other *** search
/ Ozsi 10 / Ozsi_10_1998_Tide_Side_B.d64 / col.roll...._rtn (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  43 lines
  1. 2 forx=49152to49226:ready:pokex,y:c=c+y:next x
  2. 3 if c<>8678then print"fuck it!more debugging":end
  3. 4 dimc(3,16)
  4. 5 forn=1to3:forc=1to16
  5. 6 readc(n,c):next c,n
  6. 7 :
  7. 8 sys49152:rem color roll begins
  8. 9 :
  9. 10 print chr$(147);chr$(5);
  10. 11 poke53280,0:poke53281,0
  11. 12 t$="                  "
  12. 13 forl=1to18:sp=1944+l*2
  13. 14 t=asc(mid$(t$,l,1))and63
  14. 15 poke sp,t:pokesp+1,t+64
  15. 16 pokesp+40,t+128:poke sp+41,t+192
  16. 17 next l
  17. 18 n=1:print"            ozsi 64 and amiga"
  18. 20 for c=1to16
  19. 21 poke49226+c,c(n,c):next
  20. 22 get k$:if k$<"1"or k$>"3"then 22
  21. 24 :
  22. 25 poke2020,20:poke2021,9:poke2022,4:poke2023,5
  23. 50 rem*m/c here
  24. 51 data169,000,141,021,192,141,022,192
  25. 52 data120,169,023,141,020,003,169,192
  26. 53 data141,021,003,088,096,000,000,173
  27. 54 data022,192,073,001,141,022,192,240
  28. 55 data031,160,039,174,021,192,189,075
  29. 56 data192,153,152,219,153,191,219,032
  30. 57 data067,192,136,192,000,208,239,174
  31. 58 data021,192,032,067,192,142,021,192
  32. 59 data076,049,234,232,224,016,208,002
  33. 60 data162,000,096
  34. 61 rem*colour info 1.
  35. 62 data14,05,03,07,07,07,07,07
  36. 63 data03,05,14,06,06,06,06,06
  37. 64 rem*colour info 2.
  38. 65 data01,01,01,01,01,15,10,08
  39. 66 data02,02,02,02,02,08,10,15
  40. 67 rem*colour info 3.
  41. 68 data13,03,05,14,14,04,11,06
  42. 69 data04,02,08,10,10,07,07,01
  43.