home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2004-02_2004_CSW_Side_B.d64 / megademo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  705b  |  26 lines
  1. 1 if a=0 then a=1:load"mega2.sm",8,1
  2. 2 if a=1 then a=2:sys49152
  3. 3 poke53281,11:poke53280,12
  4. 9 print"[147]":gosub200:forza=0to4717:next
  5. 10 print""
  6. 20 print"                 [209]    [209]      "
  7. 30 print"                [206][194][205]  [206][194][205]     "
  8. 40 print"                 [194]    [194]      "
  9. 50 print"                [206] [205]  [206] [205]     "
  10. 55 for y=1 to 65:next y
  11. 60 print"":poke53280,1
  12. 70 print"                 [209]    [209]      "
  13. 80 print"                [205] [206]  [205] [206][160][160][160][160][160]"
  14. 90 print"                 [194]    [194]      "
  15. 100 print"                [194] [194]  [194] [194]     "
  16. 101 print:print:poke53280,12
  17. 105 for y=1 to 65:next y
  18. 106 print"   the pentagon megademo willow 2003"
  19. 110 goto 10
  20. 200 print"[147]"
  21. 201 print"                 [209]    [209]      "
  22. 202 print"                [206][194][205]  [206][194][205]     "
  23. 203 print"                 [194]    [194]      "
  24. 204 print"                [206] [205]  [206] [205]     "
  25. 205 return
  26.