home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_21_1988_Transactor_Publishing.d64 / placeholder.demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  40 lines
  1. 100 rem: placeholder example
  2. 110 rem: first load data into $c000
  3. 120 rem: then show off
  4. 130 rem: paul blair 5/85
  5. 140 :
  6. 150 goto330
  7. 160 m=53280:rt=49152:printchr$(31)
  8. 170 pokem,15:pokem+1,15
  9. 180 print"[147]           test placeholder":sysrt
  10. 190 print:print"hello there! ";:gosub290
  11. 200 print"from transactor magazine":gosub290
  12. 210 print:print:print"as you can see, ";:gosub290
  13. 220 print"screen control is easy":gosub290
  14. 230 print:print:print"           now i'm here":gosub290
  15. 240 print:print:print:print:print"now down here":gosub290
  16. 250 print:print"have fun!!";:gosub290
  17. 260 print" have fun!!";:gosub290
  18. 270 print" have fun!!":gosub290:end
  19. 280 :
  20. 290 fordelay=1to1000:next:sysrt:return
  21. 300 :
  22. 310 rem: load m/c into $c000
  23. 320 :
  24. 330 s=49152:f=49237
  25. 340 fori=stof:reada:cs=cs+a:pokei,a:next
  26. 350 ifcs<>10286thenprint"error":end
  27. 360 clr:goto160
  28. 370 :
  29. 380 data 169,   2, 141,  32, 208,  56,  32, 240
  30. 390 data 255, 138,  72, 152,  72,  24, 160,  12
  31. 400 data 162,  24,  32, 240, 255, 160, 192, 169
  32. 410 data  68,  32,  51, 192,  32, 228, 255, 240
  33. 420 data 251, 162,  24,  32, 255, 233, 169,  15
  34. 430 data 141,  32, 208, 104, 168, 104, 170,  24
  35. 440 data  76, 240, 255, 132,  93, 133,  92, 160
  36. 450 data   0, 177,  92, 240,   6,  32, 210, 255
  37. 460 data 200, 208, 246,  96,  18,  32,  80,  82
  38. 470 data  69,  83,  83,  32,  65,  78,  89,  32
  39. 480 data  75,  69,  89,  32, 146,   0
  40.