home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_21_1988_Transactor_Publishing.d64 / placeholder.plot (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  315b  |  15 lines
  1. 100 rem: plot routine in basic
  2. 110 rem: paul blair 5/85
  3. 120 :
  4. 130 printchr$(147);:sy=65520
  5. 140 a=781:b=782:c=783
  6. 150 print"hello there ";
  7. 160 pokec,peek(c)or1:syssy:rem set carry flag
  8. 170 x=peek(a):y=peek(b)
  9. 180 pokec,peek(c)and254:rem clear carry flag
  10. 190 pokea,24:pokeb,14:syssy
  11. 200 print"press a key";
  12. 210 gety$:ify$=""then210
  13. 220 pokea,x:pokeb,y:syssy
  14. 230 print"from transactor"
  15.