home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / KEEP (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  768b  |  35 lines
  1. 800 POKE53281,0:POKE53280,0
  2. 801 PRINTCHR$(14);"[147]  [159]          [199]RAPHING PROGRAM
  3. 810 [153]"CONT            TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  4. 900 [153]"   DEF         LEFT$OW MANY XDEF VALUES"
  5. 910 [133]"            ";XV
  6. 920 [153]
  7. 1000 [129]A[178]1[164]XV
  8. 1010 [153]"            DEFVALNTER XDEF VALUE #";A"
  9. 1020 INPUT"            ";X(A)
  10. 1030 NEXTA
  11. 1200 PRINT"   [150]         [200]OW MANY Y[150] VALUES"
  12. 1210 INPUT"            ";YV
  13. 1220 PRINT
  14. 1230 FORB=1TOYV
  15. 1240 PRINT"            [150][197]NTER X[150] VALUE #";B"
  16. 1250 [133]"            ";Y(B)
  17. 1251 [130]B
  18. 1253 [153]"LOAD   OPEN              (null)HE CHR$RAPH"
  19. 1254 [153]"CONT                 TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  20. 1255 [153]"ONONON"
  21. 1256 [129]O[178]1[164]22
  22. 1257 [153]"(null)
  23. 1258 NEXTO
  24. 1259 PRINT"[219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]"
  25. 1310 R=1
  26. 1320 YY=23-Y(R)
  27. 1330 LL=YY*40
  28. 1340 FF=LL+X(R)
  29. 1350 POKE1024+FF,43:POKE55296+FF,15
  30. 1360 R=R+1
  31. 1370 IFR>XVTHEN1400
  32. 1380 GOTO1320
  33. 1400 GETTT$:IFTT$=""THEN1400
  34. 1500 RUN
  35.