home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 February / 64er_Magazin_86-02_1986_Markt__Technik_de.d64 / garbage64demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  393b  |  20 lines
  1. 1 ifa=1then3
  2. 2 a=1:load"garbage64",8,1
  3. 3 poke53280,0:poke53281,0
  4. 4 sys51400
  5. 5 poke50956,1:poke50961,7
  6. 10 dimk(30)
  7. 12 diml%(100)
  8. 14 dime$(200,1):e$(200,1)="ok"
  9. 16 dimn$(20):n$(20)="test"
  10. 30 f%=56
  11. 32 a$="12345"
  12. 34 x=3
  13. 36 b$="abcdef"+"g"
  14. 38 c$="tes"+"t"
  15. 40 b$=""
  16. 62 forx=1to200:e$(x,0)="abcdefgh"+"9":next
  17. 63 forx=1to200:e$(x,0)="12345678"+"9":next
  18. 85 printa$:printb$:printc$:printe$(1,0):printe$(200,0):printn$(20);e$(200,1)
  19. 90 goto30
  20.