home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / 64-assembly (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  853b  |  23 lines
  1. 10 print"[147][144]       [206]ow [208]laying 64-[193][211][211][197][205][194][204][217] ..."
  2. 100 rem c-64 assembly - louis f. sander
  3. 110 s=54272:pokes+5,9:pokes+6,144:pokes+24,15
  4. 115 forn=1to4:readn(n,1),n(n,2):next
  5. 120 readno,du:ifno=0then1000
  6. 130 pokes+1,n(no,1):pokes,n(no,2):pokes+4,17:forj=1to15*du:next:pokes+4,16
  7. 140 forj=1to50:next:goto120
  8. 150 data012,143,016,195,021,031,025,030
  9. 160 data1,06,1,02,2,06,1,02,2,06,3,02
  10. 170 data2,12,2,04,2,02,3,06,2,02,3,06
  11. 180 data4,02,3,12,2,06,3,02,4,12,3,06
  12. 190 data2,02,1,12,1,06,1,02,2,12,2,06
  13. 200 data2,02,2,18,0,00
  14. 1000 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][192][174]"
  15. 1005 print" [221][208]ress: [198]1 - [210][213][206] this program again. [221]"
  16. 1010 print" [221]       [198]7 - [210]eturn to [212]ips & [212]ricks.[221]"
  17. 1015 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][192][189]"
  18. 1020 geta$:ifa$="[133]"thenrun
  19. 1030 ifa$<>"[136]"then1020
  20. 63995 print"[147]    [210]eturning to [212]ips & [212]ricks [205]enu."
  21. 63998 print"[159]l[207]";chr$(34);"tips & tricks";chr$(34);",8"
  22. 63999 poke631,13:poke632,13:poke633,82:poke634,213:poke635,13:poke198,5:new
  23.