start tok64 d64-OQFL5U 10 PRINT"{clear}":POKE53272,21 20 POKE53280,07:POKE53281,15 22 PRINTTAB(8)CHR$(156)CHR$(18)" the stationary store " 25 PRINTTAB(9)"********************" 30 PRINTTAB(9)CHR$(28)"d.c. bug{space*3}eugene or" 40 PRINTTAB(5)"461-0750{space*2}998-6525{space*2}688-2056" 45 PRINTTAB(5)"{cm t*28}" 50 PRINTTAB(11)CHR$(158)"call one today !" 60 FORt=1TO2000:NEXT 70 PRINT 80 PRINTTAB(2)CHR$(28)"cbm (1525) comp"TAB(21)"star sl-10c comp" 90 PRINTTAB(2)"{cm t*15}"TAB(21)"{cm t*16}" 110 PRINTTAB(2)"(1)line-up"TAB(21)"(7)reciept maker" 120 PRINT 130 PRINTTAB(2)"(2)graph paper"TAB(21)"(8)memo maker" 140 PRINT 150 PRINTTAB(2)"(3)calendar maker"TAB(21)"(9)telephone memos" 160 PRINT 170 PRINTTAB(2)"(4)groc/menu list"TAB(21)"(10)var. gr/paper" 180 PRINT 190 PRINTTAB(2)"(5)envelope maker"TAB(21)"(11)year calendar" 193 PRINT 194 PRINTTAB(2)"(6)music sheets"TAB(21)"(12)form maker" 195 PRINT 196 PRINTTAB(2)"(13)rolo print" 200 PRINT 210 INPUT"your choice";ch 220 IFch=1THEN GOTO2900 230 IFch=2THEN GOTO3800 240 IFch=3THEN LOAD"ss-1",8,1:RUN 250 IFch=4THEN GOTO4900 255 IFch=5THEN LOAD"ss-2",8,1:RUN 260 IFch=6THEN GOTO300 270 IFch=7THEN GOTO500 280 IFch=8THEN GOTO800 290 IFch=9THEN GOTO1900 291 IFch=10THEN GOTO2700 292 IFch=11THEN LOAD"ss-3",8,1:RUN 293 IFch=12THEN LOAD"ss-4",8,1:RUN 294 IFch=13THEN LOAD"ss-5",8,1:RUN 298 IFch<>1-10THENGOTO10 300 REM magic musical staff 310 REM star mods. by john collins 320 PRINT"{clear}{right*3}{down*3}position paper & turn on printer":PRINT"{right*10}press 'p' to print" 330 GETa$:IFa$="p"THEN OPEN4,4 340 IFa$<>"p"THEN330 360 a$=CHR$(164):PRINT#4:PRINT#4:PRINT#4 370 PRINT#4,CHR$(27)+CHR$(51)+CHR$(20) 380 FORj=1TO79:a$=a$+CHR$(164):NEXT 390 FORk=1TO15 400 FORl=1TO5:PRINT#4,a$:NEXTl 410 PRINT#4:PRINT#4 420 NEXTk 430 CLOSE4:PRINT"{clear}{right*3}{down*3}[a]gain or [m]enu?" 440 GETb$ 450 IF b$="a" THEN 320 460 IF b$="m" THEN GOTO10 470 IF b$<>"a"ORb$<>"m"THEN440 500 PRINT"{clear}{right*4}{down*2}position paper & turn on printer":PRINT"{right*10}press 'p' to print" 510 GETa$:IFa$="p"THEN OPEN4,4 520 IFa$<>"p"THEN510 530 PRINT#4,CHR$(27)+CHR$(51)+CHR$(22) 540 PRINT#4,"{cm +*59}" 550 PRINT#4,"{cm +}{space*57}{cm +}" 560 PRINT#4,"{cm +}{space*57}{cm +}" 570 PRINT#4,"{cm +} date{cm @*10},19{cm @*3}{space*23}no.{cm @*7}{space*3}{cm +}" 580 PRINT#4,"{cm +}{space*57}{cm +}" 590 PRINT#4,"{cm +}{space*57}{cm +}" 600 PRINT#4,"{cm +}{space*45}O{cm t*8}P{space*2}{cm +}" 610 PRINT#4,"{cm +} rec'd from {cm @*30}{space*2}$L{cm @*8}{sh @}{space*2}{cm +}" 620 PRINT#4,"{cm +}{space*57}{cm +}" 630 PRINT#4,"{cm +}{space*57}{cm +}" 640 PRINT#4,"{cm +}{space*57}{cm +}" 650 PRINT#4,"{cm +}{space*2}{cm @*46}dollars{space*2}{cm +}" 660 PRINT#4,"{cm +}{space*57}{cm +}" 670 PRINT#4,"{cm +}{space*57}{cm +}" 680 PRINT#4,"{cm +}{space*57}{cm +}" 690 PRINT#4,"{cm +} for{cm @*15}{space*38}{cm +}" 700 PRINT#4,"{cm +}{space*57}{cm +}" 710 PRINT#4,"{cm +}{space*4}{cm @*15}{space*12}by{cm @*21}{space*3}{cm +}" 720 PRINT#4,"{cm +}{space*57}{cm +}" 730 PRINT#4,"{cm +}{space*57}{cm +}" 740 PRINT#4,"{cm +*59}" 750 PRINT#4:CLOSE4 760 PRINT"{clear}{right*3}{down*3} [a]gain or [m]enu?" 770 GETb$:IFb$="a"THEN500 780 IFb$="m"THEN GOTO10 790 IFb$<>"a"ORb$<>"m"THENGOTO770 800 PRINT"{clear}{right*3}{down*3}position paper & turn on printer":PRINT"{right*13}press 'p' to print" 810 GETa$:IFa$="p"THEN OPEN4,4 820 IFa$<>"p"THEN810 830 PRINT#4,CHR$(27)+CHR$(51)+CHR$(22):PRINT#4:PRINT#4:PRINT#4:PRINT#4 840 PRINT#4,"U{sh asterisk*68}I" 850 PRINT#4,"{sh -}{space*68}{sh -}" 860 PRINT#4,"{sh -}"; 870 PRINT#4,CHR$(14),"{space*5}memo",CHR$(15)+"{space*10}{sh -}" 880 PRINT#4,"{sh -}{space*68}{sh -}" 890 PRINT#4,"{cm q}{sh asterisk*33}{cm r}{sh asterisk*34}{cm w}" 900 PRINT#4,"{sh -}"; 910 PRINT#4,CHR$(27)+CHR$(83)+CHR$(0),"to>"; 920 PRINT#4,CHR$(27)+CHR$(84); 930 PRINT#4,"{space*20}{sh -}"; 940 PRINT#4,CHR$(27)+CHR$(83)+CHR$(0)," from>"; 950 PRINT#4,CHR$(27)+CHR$(84),"{space*8}{sh -}" 960 PRINT#4,"{sh -}{space*33}{sh -}{space*34}{sh -}" 970 PRINT#4,"{sh -}{space*33}{sh -}{space*34}{sh -}" 980 PRINT#4,"{sh -}{space*33}{sh -}{space*34}{sh -}" 990 PRINT#4,"{sh -}{space*33}{sh -}{space*34}{sh -}" 1000 PRINT#4,"{sh -}{space*33}{sh -}{space*34}{sh -}" 1010 PRINT#4,"{sh -}{space*33}{sh -}{space*34}{sh -}" 1020 PRINT#4,"{sh -}{space*33}{sh -}{space*34}{sh -}" 1030 PRINT#4,"{cm q}{sh asterisk*33}{cm e}{sh asterisk*34}{cm w}" 1040 PRINT#4,"{sh -}{space*68}{sh -}" 1050 PRINT#4,"{sh -}{space*68}{sh -}" 1060 PRINT#4,"{sh -}",CHR$(27)+CHR$(83)+CHR$(0); 1070 PRINT#4,"date{space*3}/{space*3}/{space*7}subject{cm @*22}"; 1080 PRINT#4,CHR$(27)+CHR$(84),"{sh -}" 1090 PRINT#4,"{sh -}{space*68}{sh -}" 1100 PRINT#4,"{cm q}{sh asterisk*68}{cm w}" 1110 PRINT#4,"{sh -}{space*68}{sh -}" 1120 PRINT#4,"{sh -}"; 1130 PRINT#4,CHR$(27)+CHR$(83)+CHR$(0),"message>"; 1140 PRINT#4,CHR$(27)+CHR$(84),"{space*40}{sh -}" 1150 FORi=1TO24 1160 PRINT#4,"{sh -}{space*68}{sh -}" 1170 NEXTi 1390 PRINT#4,"{sh -}"; 1400 PRINT#4,CHR$(27)+CHR$(83)+CHR$(0),"{space*22}signed{cm @*20}"; 1410 PRINT#4,CHR$(27)+CHR$(84),"{sh -}" 1420 PRINT#4,"{sh -}{space*68}{sh -}" 1430 PRINT#4,"{cm q}{sh asterisk*68}{cm w}" 1440 PRINT#4,"{sh -}{space*68}{sh -}" 1450 PRINT#4,"{sh -}"; 1460 PRINT#4,CHR$(27)+CHR$(83)+CHR$(0),"reply>"; 1470 PRINT#4,CHR$(27)+CHR$(84); 1480 PRINT#4,"{space*52}{sh -}" 1490 FORi=1TO26 1500 PRINT#4,"{sh -}{space*68}{sh -}" 1510 NEXTi 1750 PRINT#4,"{sh -}"; 1760 PRINT#4,CHR$(27)+CHR$(83)+CHR$(0),"{space*22}signed{cm @*20}"; 1770 PRINT#4,CHR$(27)+CHR$(84),"{sh -}" 1780 PRINT#4,"{sh -}{space*68}{sh -}" 1790 PRINT#4,"J{sh asterisk*68}K" 1800 PRINT#4:CLOSE4 1810 PRINT"{clear}{right*3}{down*3}[a]gain or [m]enu?" 1820 GETb$:IFb$="a"THEN800 1830 IFb$="m"THEN GOTO10 1840 IFb$<>"a"ORb$<>"m"THEN1820 1900 PRINT"{clear}{right*3}{down*3}position paper & turn on printer":PRINT"{right*9}press 'p' to print" 1910 GETa$:IFa$="p"THEN OPEN4,4 1920 IFa$<>"p" THEN 1910 1930 PRINT#4,CHR$(27)+CHR$(51)+CHR$(22) 1935 FORi=1TO2 1940 PRINT#4,"O{cm t*25}P{space*4}O{cm t*26}P" 1950 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 1960 PRINT#4,"{cm h}{space*3}while you were out,{space*3}{cm n}{space*4}{cm h}{space*4}while you were out,{space*3}{cm n}" 1970 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 1980 PRINT#4,"{cm h} {cm @*16} called.{cm n}{space*4}{cm h} {cm @*17} called.{cm n}" 1990 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2000 PRINT#4,"{cm h} he/she wanted:{space*10}{cm n}{space*4}{cm h} he/she wanted:{space*11}{cm n}" 2010 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2020 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2030 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2040 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2050 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2060 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2070 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2080 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2090 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2100 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2110 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2120 PRINT#4,"{cm h}OP{space*23}{cm n}{space*4}{cm h}OP{space*24}{cm n}" 2130 PRINT#4,"{cm h}L{sh @} will call back at{space*5}{cm n}{space*4}{cm h}L{sh @} will call back at{space*6}{cm n}" 2140 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2150 PRINT#4,"{cm h}{space*3}{cm @*13} am/pm{space*3}{cm n}{space*4}{cm h}{space*3}{cm @*13} am/pm{space*4}{cm n}" 2160 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2170 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2180 PRINT#4,"{cm h}OP{space*23}{cm n}{space*4}{cm h}OP{space*24}{cm n}" 2190 PRINT#4,"{cm h}L{sh @} wants you to call{space*5}{cm n}{space*4}{cm h}L{sh @} wants you to call{space*6}{cm n}" 2200 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2210 PRINT#4,"{cm h}{space*3}{cm @*17}{space*5}{cm n}{space*4}{cm h}{space*3}{cm @*18}{space*5}{cm n}" 2220 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2230 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2240 PRINT#4,"{cm h}{space*3}when {cm @*12}{space*5}{cm n}{space*4}{cm h}{space*3}when {cm @*12}{space*6}{cm n}" 2250 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2260 PRINT#4,"{cm h}{space*25}{cm n}{space*4}{cm h}{space*26}{cm n}" 2270 PRINT#4,"L{cm @*25}{sh @}{space*4}L{cm @*26}{sh @}" 2280 PRINT#4:PRINT#4:PRINT#4:PRINT#4 2290 NEXTi 2640 PRINT#4:CLOSE4 2650 PRINT"{clear}{right*3}{down*3}[a]gain or [m]enu?" 2660 GETb$ 2670 IFb$="a"THENGOTO1900 2680 IFb$="m" THEN GOTO10 2690 IFb$<>"a"ORb$<>"m"THENGOTO2660 2700 PRINT"{clear}{right*3}{down*3}position paper & turn on printer":PRINT"{right*9}press 'c' to continue" 2710 GETa$:IFa$="c"THEN GOTO2740 2720 IFa$<>"c"THEN2710 2730 REM variable graph paper-dan price 2740 PRINT"{clear}":PRINT:PRINT:INPUT"how many squares across";x:IFx>40THENx=40 2750 INPUT"{down}{right}how many squares down";y 2760 OPEN4,4:OPEN6,4 2770 s=27 2780 a$="OP":b$="L{sh @}" 2790 a=a+1:IFa=y+1GOTO2850 2800 PRINT#6,CHR$(s)+CHR$(51)+CHR$(20) 2810 FORi=1TOx:PRINT#4,a$;:NEXT 2820 PRINT#6,CHR$(s)+CHR$(51)+CHR$(20) 2830 FORi=1TOx:PRINT#4,b$;:NEXT 2840 GOTO2790 2850 PRINT#6:CLOSE6:PRINT#4:CLOSE4 2860 PRINT"{clear}{right*3}{down*3}[a]gain or [m]enu?" 2870 GETb$:IFb$="a"THEN RUN2700 2880 IFb$="m"THEN GOTO10 2890 IFb$<>"a"ORb$<>"m"THEN2870 2900 REM *** magic menu *** 2905 REM**** variables **** 2910 REM 2915 REM n=number of line items in menu 2920 REM cr$=check mark cursor 2925 REM e$=eraser 2930 REM a$=answer to promt 2935 REM l=line item where check mark appears 2940 REM i=index counter used by for/next loop 2945 REM ****************** 2950 POKE53280,15:POKE53281,15:POKE646,0 2955 PRINT CHR$(14):REM upper/lower case 2960 n=7:REM set number of lines in menu 2965 cr$="{reverse on} "+CHR$(186)+" {reverse off}"+"{left*3}" 2970 e$="{space*3}{left*3}": REM 3 spaces 3 left 2975 REM print menu 2980 PRINT"{clear}"; 2985 PRINT TAB(15)"{reverse on}Line-Up Menu":PRINT 2990 PRINT TAB(5)"1) Wide Lined Paper" 2995 PRINT TAB(5)"2) Med. Lined Paper" 3000 PRINT TAB(5)"3) Fine Lined Paper" 3005 PRINT TAB(5)"4) Music Sheets" 3010 PRINT TAB(5)"5) Alphabet Practice" 3015 PRINT TAB(5)"6) 'Big Chief Pad'" 3020 PRINT TAB(5)"7){sh space}Main Menu" 3025 PRINT:PRINT 3030 REM display prompt 3035 PRINTTAB(5)"{reverse on} Press Return To Enter Choice{space*3}" 3040 PRINTTAB(5)"{reverse on} Press Space Bar To Move Cursor " 3045 PRINT"{home}{down*2}";:l=1: REM position cursor on first line item 3050 PRINT cr$; 3055 REM get answer to prompt 3060 GET a$:IF a$="" THEN 3060 3065 IF a$<>CHR$(13) AND a$<>CHR$(32) THEN 3060 : REM ignor invalid keys 3070 IF a$=CHR$(13) THEN 3090 :REM choice made, so branch. 3075 REM move check mark cursor 3080 PRINT e$: l=l+1 : IF l>n THEN 3045 3085 GOTO 3050 3090 REM print menu choice 3095 PRINT "{home}";: FOR i=1 TO n+8 :PRINT:NEXT: REM drop cursor below prompt 3100 REM line choice is l 3105 PRINT"Your choice is item ";l".":PRINT:PRINT 3110 REM branch here for remainder of program 3115 ON l GOTO 3125,3185,3245,3300,3355,3435,3515 3120 REM lg lined paper - john r. collins 3125 PRINT"{clear}{down*4}position paper & turn on printer":PRINT"press 'p' print" 3130 GETa$ 3135 IFa$="p"THEN3145 3140 IFa$<>"p"THEN3130 3145 a$=CHR$(164):OPEN4,4:PRINT#4:PRINT#4:PRINT#4 3150 FORj=1TO79:a$=a$+CHR$(164):NEXT 3155 FORk=1TO20 3160 FORl=1TO1:PRINT#4,a$:NEXTl 3165 PRINT#4:PRINT#4 3170 NEXTk 3175 CLOSE4:GOTO2900 3180 REM med lined paper - john r. collins 3185 PRINT"{clear}{down*3}position paper & turn on printer":PRINT"press 'p' to print" 3190 GETa$ 3195 IFa$="p"THEN3205 3200 IFa$<>"p"THEN3190 3205 a$=CHR$(164):OPEN4,4:PRINT#4:PRINT#4:PRINT#4 3210 FORj=1TO79:a$=a$+CHR$(164):NEXT 3215 FORk=1TO30 3220 FORl=1TO1:PRINT#4,a$:NEXTl 3225 PRINT#4 3230 NEXTk 3235 CLOSE4:GOTO2900 3240 REM fine lined paper - john r. collins 3245 PRINT"{clear}{down*3}position paper & turn on printer":PRINT"press 'p' to print" 3250 GETa$ 3255 IFa$="p"THEN3265 3260 IFa$<>"p"THEN3250 3265 a$=CHR$(164):OPEN4,4:PRINT#4:PRINT#4:PRINT#4 3270 FORj=1TO79:a$=a$+CHR$(164):NEXT 3275 FORk=1TO60 3280 FORl=1TO1:PRINT#4,a$:NEXTl 3285 NEXTk 3290 CLOSE4:GOTO2900 3295 REM magic musical staff - m.l. oakes 3300 PRINT"{clear}{down*3}position paper & turn on printer":PRINT"press 'p' to print" 3305 GETa$ 3310 IFa$="p"THEN3320 3315 IFa$<>"p"THEN3305 3320 a$=CHR$(164):OPEN4,4:PRINT#4:PRINT#4:PRINT#4 3325 FORj=1TO79:a$=a$+CHR$(164):NEXT 3330 FORk=1TO8 3335 FORl=1TO5:PRINT#4,a$:NEXTl 3340 PRINT#4:PRINT#4 3345 NEXTk 3350 CLOSE4:GOTO2900 3355 REM alphabet practice 3360 PRINT"{clear}{down*4}position paper & turn on printer":PRINT"press 'p' print" 3365 GETa$ 3370 IFa$="p"THEN3380 3375 IFa$<>"p"THEN3365 3380 t$="{space*10}" 3385 FORj=1TO79:sl$=sl$+CHR$(195):NEXT 3390 FORk=1TO79:dl$=dl$+CHR$(45):NEXT 3395 OPEN4,4 3400 PRINT#4,SPC(40-LEN(t$)/2);t$ 3405 FOR j = 1 TO 10 3410 PRINT#4:PRINT#4,sl$ 3415 PRINT#4:PRINT#4,dl$ 3420 PRINT#4:PRINT#4,sl$ 3425 NEXT 3430 CLOSE4:RUN 2900 3435 REM 'big chief' type pad 3440 PRINT"{clear}{down*4}position paper & turn on printer":PRINT"press 'p' print" 3445 GETa$ 3450 IFa$="p"THEN3460 3455 IFa$<>"p"THEN3445 3460 t$="{space*10}" 3465 FORj=1TO79:sl$=sl$+CHR$(195):NEXT 3470 FORk=1TO79:dl$=dl$+CHR$(45):NEXT 3475 OPEN4,4 3480 PRINT#4,SPC(40-LEN(t$)/2);t$ 3485 FOR j = 1 TO 15 3490 PRINT#4:PRINT#4,sl$ 3495 PRINT#4:PRINT#4,dl$ 3500 NEXT 3505 PRINT#4:PRINT#4,sl$ 3510 CLOSE4:RUN 2900 3515 GOTO10 3800 POKE53280,0:POKE53281,0:POKE646,7 3810 OPEN4,4:PRINT#4,CHR$(27)+CHR$(64):CLOSE4 3820 PRINT"{clear}{down*5}{right*3}position paper and turn on printer" 3830 PRINT"{down*2}{right*6}large or small graph paper?" 3840 PRINT"{right*7}'l' or 's' or [m]ain menu";:INPUT x$ 3850 IFx$="s"THENGOTO 3920 3860 IFx$="l"THEN RUN 4000 3870 IFx$="m"THEN RUN10 3880 GOTO3840 3890 REM *** graph paper program *** 3900 REM for printer output 3910 REM ------- by tom nielsen ------ 3920 FORi=1TO6:READa:a$=a$+CHR$(a):NEXT 3930 DATA255,137,137,255,137,137 3940 OPEN1,4:PRINT#1,CHR$(8); 3950 INPUT"# of sheets";n:FORa=1TOn:FORi=1TO95:FORj=1TO80:PRINT#1,a$;:NEXT:NEXT 3960 FORi=1TO4:PRINT#1:NEXT:NEXT:PRINT#1,CHR$(15):CLOSE1:RUN3800 3970 REM *** large graph program *** 3980 REM for printer output 3990 REM ------ by tom nielsen ------ 4000 FORi=1TO6:READa:NEXT 4010 FORi=1TO6:READa:a$=a$+CHR$(a):NEXT 4020 DATA255,129,129,129,129,129 4030 OPEN4,4:PRINT#4,CHR$(8); 4040 INPUT"# of sheets";n:FORa=1TOn:FORi=1TO95:FORj=1TO80:PRINT#4,a$;:NEXT:NEXT 4050 FORi=1TO4:PRINT#4:NEXT:NEXT:PRINT#4,CHR$(15):CLOSE4:RUN3800 4900 PRINT"{clear}{down*3}{right*3}position paper & turn on printer":PRINT"{right*5}press 'p' to print" 4910 GETa$ 4920 IFa$="p"THEN4940 4930 IFa$<>"p"THEN4910 4940 OPEN4,4:PRINT#4 4950 PRINT#4,CHR$(14); 4960 PRINT#4,"{space*8}-= grocery & menu list =-" 4970 PRINT#4,CHR$(15); 4980 PRINT#4:PRINT#4 4990 PRINT#4,"{space*15}meat{space*17}vegetable{space*13}misc." 5000 PRINT#4 5010 PRINT#4,"{space*2}sunday{space*4}{cm @*18}{space*3}{cm @*18}{space*3}{cm @*16}" 5020 PRINT#4 5030 PRINT#4,"{space*2}monday{space*4}{cm @*18}{space*3}{cm @*18}{space*3}{cm @*16}" 5040 PRINT#4 5050 PRINT#4,"{space*2}tuesday{space*3}{cm @*18}{space*3}{cm @*18}{space*3}{cm @*16}" 5060 PRINT#4 5070 PRINT#4,"{space*2}wednesday {cm @*18}{space*3}{cm @*18}{space*3}{cm @*16}" 5080 PRINT#4 5090 PRINT#4,"{space*2}thursday{space*2}{cm @*18}{space*3}{cm @*18}{space*3}{cm @*16}" 5100 PRINT#4 5110 PRINT#4,"{space*2}friday{space*4}{cm @*18}{space*3}{cm @*18}{space*3}{cm @*16}" 5120 PRINT#4 5130 PRINT#4,"{space*2}saturday{space*2}{cm @*18}{space*3}{cm @*18}{space*3}{cm @*16}" 5140 PRINT#4:PRINT#4 5150 PRINT#4,CHR$(14); 5160 PRINT#4,"{space*3}main items" 5170 PRINT#4,CHR$(15); 5180 FORi=1TO17 5190 PRINT#4,"{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*7}" 5200 NEXTi 5350 PRINT#4 5360 PRINT#4,CHR$(14); 5370 PRINT#4,"{space*2}coupon specials" 5380 PRINT#4,CHR$(15); 5390 PRINT#4 5400 FORi=1TO8 5410 PRINT#4,"{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*7}" 5420 NEXTi 5480 PRINT#4 5490 PRINT#4,CHR$(14); 5500 PRINT#4," misc." 5510 PRINT#4,CHR$(15); 5520 PRINT#4 5530 FORi=1TO9 5540 PRINT#4,"{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*10} {cm @*2}{space*2}{cm @*7}" 5550 NEXTi 5620 PRINT#4:CLOSE4 5630 PRINT"{clear}{right*3}{down*3}[a]gain or [m]enu?" 5640 GETb$ 5650 IFb$="a"THEN4900 5660 IFb$="m"THEN GOTO10 5670 IFb$<>"a" ORb$<>"m"THEN5640 stop tok64 (bastext 1.0)