home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Querbyte_01_19xx_Civitas.d64 / screen-pac...... (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  518b  |  17 lines
  1. 9 rem"screen-pac /bsm"(NULL)
  2. 10 poke53280,14:poke53281,6
  3. 11 print"[147][154]    **** commodore 64 basic v2 ****"
  4. 12 print" 64k ram system  38911 basic bytes free":forx=1to500:next
  5. 13 print"[209]":forx=1to300:next
  6. 14 print" [209]":fort=1to200:next:print"  [209]":fort=1to200:next:print"   [209]"
  7. 15 fort=1to200:next:print" "
  8. 16 fort=1069to1098:poket-1,96
  9. 17 z=z+1:poket,81
  10. 18 forx=1to70:next
  11. 19 poket,0:forx=1to70:next
  12. 20 ifz<3then17
  13. 21 z=0:next:fort=1to900:next
  14. 22 print"[213][192][192][192][192][192][201][157][157][157][157][157][157][157][221]fart![221][215].[157][157][157][157][157][157][157][157][157][202][192][192][192][192][192][203]"
  15. 23 fort=1to20:poke54296,15:poke54296,0:next
  16. 24 fort=1to700:next:print"rettich.":sys42115
  17.