home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / bits (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  52 lines
  1. 100 rem color chaser demo program
  2. 110 :
  3. 120 f$="color.chase.o":poke147,0:sys57812f$,8,1:sys62631
  4. 130 :
  5. 140 print"[147]":poke53281,0
  6. 150 :
  7. 160 l$="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  8. 170 b$="[161][146]                         [161]"
  9. 180 :
  10. 190 rem draw boxes
  11. 200 :
  12. 210 forw=1to12
  13. 220 print"";
  14. 230 forx=1tow:print"";:nextx
  15. 240 printspc(w);"[172]";l$;"[187]"
  16. 250 forx=1to10:printspc(w);b$:nextx
  17. 260 printspc(w);"[188]";l$;"[146][190]"
  18. 270 :
  19. 280 rem poke rectangle boundaries
  20. 290 rem into memory
  21. 300 :
  22. 310 poke251,w:poke252,w
  23. 320 poke253,27:poke254,12
  24. 330 sys49152
  25. 340 nextw
  26. 350 :
  27. 360 rem clear inside of last rectangle
  28. 370 :
  29. 380 print""
  30. 390 forx=1to10:printspc(w);"                         ":nextx
  31. 400 :
  32. 410 rem display menu inside rectangle
  33. 420 :
  34. 430 print"[145][145][145][145][145][145][145]";tab(w+3);" r [146] [154]run demo again"
  35. 440 print"";tab(w+3);" q [146] [154]quit to loadstar"
  36. 450 :
  37. 460 rem 'chase' colors on rectangle
  38. 470 rem while waiting for a keypress
  39. 480 :
  40. 490 geta$:ifa$<>""then510
  41. 500 sys49155:forx=1to5:nextx:goto490
  42. 510 ifa$="r"thengoto140
  43. 520 ifa$<>"q"then490
  44. 530 :
  45. 540 :
  46. 550 rem return to  l o a d s t a r
  47. 560 :
  48. 570 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  49. 580 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  50. 590 print"[158]load"q$a$q$",8"
  51. 600 print"run":poke631,13:poke632,13:poke198,2:end
  52.