home *** CD-ROM | disk | FTP | other *** search
- 800 POKE53281,0:POKE53280,0
- 801 PRINTCHR$(14);"[147] [159] [199]RAPHING PROGRAM
- 810 [153]"CONT TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
- 900 [153]" DEF LEFT$OW MANY XDEF VALUES"
- 910 [133]" ";XV
- 920 [153]
- 1000 [129]A[178]1[164]XV
- 1010 [153]" DEFVALNTER XDEF VALUE #";A"
- 1020 INPUT" ";X(A)
- 1030 NEXTA
- 1200 PRINT" [150] [200]OW MANY Y[150] VALUES"
- 1210 INPUT" ";YV
- 1220 PRINT
- 1230 FORB=1TOYV
- 1240 PRINT" [150][197]NTER X[150] VALUE #";B"
- 1250 [133]" ";Y(B)
- 1251 [130]B
- 1253 [153]"LOAD OPEN (null)HE CHR$RAPH"
- 1254 [153]"CONT TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
- 1255 [153]"ONONON"
- 1256 [129]O[178]1[164]22
- 1257 [153]"(null)
- 1258 NEXTO
- 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]"
- 1310 R=1
- 1320 YY=23-Y(R)
- 1330 LL=YY*40
- 1340 FF=LL+X(R)
- 1350 POKE1024+FF,43:POKE55296+FF,15
- 1360 R=R+1
- 1370 IFR>XVTHEN1400
- 1380 GOTO1320
- 1400 GETTT$:IFTT$=""THEN1400
- 1500 RUN
-