10 REM Notepad V2 B.RAW K6N 1997 20 *TV255 30 *FX18 40 *FX21 50 *KEY10"*EXEC !BOOT|M" 60 *FX4,1 62 *FX229,1 70 *FX225,200 80 *FX226,210 90 *FX227,220 100 MODE7 110 VDU23;10,&60;0;0;0 120 copy%=0:epson%=0:L%=0:P%=1 130 ONERROR:GOTO150 140 F%=OPENIN"Ndata":INPUT#F%,L%,P%,epson%:CLOSE#F% 150 ONERROR:VDU7 160 PROCstart 170 PROCinit 180 : 200 REPEAT 210 REPEAT 220 H%=0 230 $W%="Vol"+STR$(P%) 240 PROCload 250 PROCgettop 260 VDU30,157,129 270 IFcopy%=0:PRINT"opy elp ndex

rint ap " 280 IFcopy%=1:PRINT"opy to here or cursor keys to move " 290 REPEAT 300 Q%=GET 310 UNTILINSTR("CHIPZchipz",CHR$(Q%))ORQ%=13ORQ%=27ORQ%>135 320 IFQ%>127:T%=0 330 IFQ%=67ORQ%=99:PROCcopy 340 IFQ%=72ORQ%=104:PROChelp1 350 IFQ%=73ORQ%=105:PROCindex 360 IFQ%=80ORQ%=112:PROCvprint 370 IFQ%=90ORQ%=122:PROCzap 380 IFQ%=27:RUN 390 IFQ%=136:L%=L%-1 400 IFQ%=137:L%=L%+1 410 IFQ%=138:P%=P%-1 420 IFQ%=139:P%=P%+1 430 IFP%<1:P%=M%:L%=L%-1 440 IFP%>M%:P%=1:L%=L%+1 450 IFL%<0:L%=25 460 IFL%>25:L%=0 470 UNTILQ%=13 AND H%=0 480 VDU30:PRINT$&A00:VDU30,9,9 490 E%=E%EOR1:VDU23,1,E%;0;0;0; 500 REPEAT 510 a%=GET:A%=a% 520 IFA%<>27:PROCkeys 530 UNTILA%=27 540 PROCsave 550 E%=E%EOR1:VDU23,1,E%;0;0;0; 560 UNTILFALSE 570 : 580 DEFPROCcopy 590 copy%=copy%EOR1 600 IFcopy%=1:sl%=L%:sp%=P%:source$=$W%:ENDPROC 610 VDU30:PRINT$&A00:VDU30,9,9 620 dl%=L%:dp%=P%:dest$=$W% 630 L%=sl%:P%=sp%:$W%=source$ 640 PROCload 650 L%=dl%:P%=dp%:$W%=dest$ 660 E%=1:PROCsave:E%=0 670 ENDPROC 680 : 690 DEFPROCzap 700 VDU30,157,129 710 PRINT"Zap this page Y/N ? " 720 Q$=GET$:IFQ$<>"Y"ANDQ$<>"y":ENDPROC 730 PROCnewpage:E%=1:PROCsave:E%=0 740 ENDPROC 750 : 760 DEFPROCgettop 770 $&A00="" 780 FORI%=0TO39 790 $&A00=$&A00+CHR$(?(&7C00+I%)) 800 NEXT 810 ENDPROC 820 : 830 DEFPROCvprint 840 VDU30:PRINT$&A00:VDU30,9,9 850 PROCprint 860 ENDPROC 870 : 880 DEFPROCkeys 890 IFA%=16:PROCprint:ENDPROC 900 IFA%=3:PROCnewpage:PROCgettop:ENDPROC 910 IFA%=13ANDVPOS=24:VDU7:ENDPROC 920 IFA%=13:VDU10,13,8:PROCright:ENDPROC 930 IFINSTR("QWASZXqwaszx",CHR$(a%))<>0ANDt%:PROCpixel:ENDPROC 940 IFA%=136:PROCleft:ENDPROC 950 IFA%=137:PROCright:ENDPROC 960 IFA%=138:PROCdown:ENDPROC 970 IFA%=139:PROCup:ENDPROC 980 IFa%>=200ANDa%<=229:PROCfkeys 990 IFA%=127:PROCdelete:ENDPROC 1000 IFA%=226:PROCinspc:ENDPROC 1010 IFA%=227:PROCinsline:ENDPROC 1020 IFA%=228:PROCdelline:ENDPROC 1030 IFA%=209ORA%=219ORA%=229:PROCptog:ENDPROC 1040 IFE%=0:VDU7:ENDPROC 1050 IFVPOS=24ANDPOS=39ANDt%=0:?(&7C27+40*24)=A%:VDU7:ENDPROC 1060 IFt%=0ANDA%>31:VDUA%,8:PROCright 1070 ENDPROC 1080 : 1090 DEFPROCfkeys 1100 IFa%>=200ANDa%<=208:A%=a%-71 1110 IFa%>=210ANDa%<=216:A%=a%-65 1120 IFa%>=217ANDa%<=218:A%=a%-61 1130 IFa%>=220ANDa%<=221:A%=a%-67 1140 IFa%>=222ANDa%<=223:A%=a%-64 1150 IFa%>=224ANDa%<=225:A%=365-a% 1160 ENDPROC 1170 : 1180 DEFPROCpixel 1190 LOCALW% 1200 W%=2^((INSTR("QWASZ X",CHR$(A%AND223)))-1) 1210 K%=&7C00+40*VPOS+POS 1220 IF(?K%AND160)<>160:?K%=?K%OR160 1230 IF?(K%ANDW%)=W%:?K%=?K%AND(255-W%)ELSE?K%=?K%EORW% 1240 ENDPROC 1250 : 1260 DEFPROCptog 1270 t%=t%EOR1 1280 IFt%:VDU23;10,&70;0;0;0 ELSE VDU23;10,&60;0;0;0 1290 ENDPROC 1300 : 1310 DEFPROCleft 1320 IFPOS>2:VDU8:ENDPROC 1330 IFVPOS>0:VDU31,39,VPOS-1ELSEVDU7 1340 ENDPROC 1350 : 1360 DEFPROCright 1370 IFPOS<39:VDU9:ENDPROC 1380 IFVPOS<24:VDU9,9,9ELSEVDU7 1390 ENDPROC 1400 : 1410 DEFPROCdown 1420 IFVPOS<24:VDU10ELSEVDU7 1430 ENDPROC 1440 : 1450 DEFPROCup 1460 IFVPOS>0:VDU11ELSEVDU7 1470 ENDPROC 1480 : 1490 DEFPROCdelete 1500 IFPOS=2ANDVPOS=0:VDU7:ENDPROC 1510 org%=&7C00+40*VPOS 1520 IFPOS=2:PROCleft ELSE FORI%=POS TO 39:?(org%+I%-1)=?(org%+I%):NEXT:VDU8 1530 ?(&7C27+VPOS*40)=32 1540 ENDPROC 1550 : 1560 DEFPROCinspc 1570 dest%=&7C27+40*VPOS 1580 org%=&7C00+40*VPOS+POS 1590 diff%=dest%-org% 1600 FORI%=0TOdiff% 1610 ?(dest%-I%)=?(dest%-I%-1) 1620 NEXT 1630 ?org%=32 1640 ENDPROC 1650 : 1660 DEFPROCinsline 1670 LOCALP% 1680 org%=&70:dest%=&74:end%=&78:stop%=&7C 1690 !org%=&7C27+40*23 1700 !dest%=&7C27+40*24 1710 !end%=&7C02+40*VPOS 1720 !stop%=&7C27+40*VPOS 1730 FORI%=0TO2STEP2 1740 P%=&980 1750 [OPTI% 1760 LDY#0 1770 .loop 1780 LDA(org%),Y:STA(dest%),Y 1790 LDAorg%::BNEd1 1800 DECorg%+1 1810 .d1 1820 DECorg% 1830 LDAdest%:BNEd2 1840 DECdest%+1 1850 .d2 1860 DECdest% 1870 LDAorg%+1:CMPend%+1:BNEloop 1880 LDAorg%:CMPend%:BCSloop 1890 RTS 1900 ]NEXT 1910 CALL&980 1920 REPEAT 1930 ?!end%=32 1940 !end%=!end%+1 1950 UNTIL!end%=!stop%+1 1960 ENDPROC 1970 : 1980 DEFPROCdelline 1990 LOCALP% 2000 org%=&70:dest%=&74:end%=&78:stop%=&7C 2010 !org%=&7C02+40*(VPOS+1) 2020 !dest%=&7C02+40*VPOS 2030 !end%=&7C27+40*24 2040 !stop%=&7C02+40*24 2050 FORI%=0TO2STEP2 2060 P%=&980 2070 [OPTI% 2080 LDY#0 2090 .loop 2100 LDA(org%),Y:STA(dest%),Y 2110 INCorg%::BNEd1:INCorg%+1 2120 .d1 2130 INCdest%:BNEd2:INCdest%+1 2140 .d2 2150 LDAend%+1:CMPorg%+1:BNEloop 2160 LDAend%:CMPorg%:BCSloop 2170 RTS 2180 ]NEXT 2190 CALL&980 2200 REPEAT 2210 ?!end%=32 2220 !end%=!end%-1 2230 UNTIL!end%=!stop%-1 2240 ENDPROC 2250 : 2260 DEFPROCprint 2270 O%=&7C00:o%=0:graphic%=0:sep%=0 2280 VDU2 2290 IFepson%:VDU1,27,1,48 2300 FORl%=1TO25 2310 FORc%=1TO40 2320 d%=?(O%+o%) 2330 IFd%<32:d%=32 2340 IFepson%=0 AND (d%<32ORd%>126):d%=32 2350 IFd%>127ANDepson%:PROCeprint 2360 IFd%=91ANDepson%:d%=0:VDU1,27,1,75,1,8,1,0,1,0,1,&10,1,&38,1,&54,1,&10,1,&10,1,&10,1,&10 2370 IFd%=93ANDepson%:d%=0:VDU1,27,1,75,1,8,1,0,1,0,1,&10,1,&10,1,&10,1,&10,1,&54,1,&38,1,&10 2380 VDU1,d% 2390 o%=o%+1 2400 NEXT 2410 IFepson%:VDU1,10 2420 VDU1,13:graphic%=0:sep%=0 2430 NEXT 2440 IFepson%:VDU1,27,1,50 2450 VDU1,13,3 2460 ENDPROC 2470 : 2480 DEFPROCeprint 2490 IFd%=&80:d%=32:ENDPROC 2500 IFd%>&80 AND d%<&88:graphic%=0:d%=32:ENDPROC 2510 IFd%>&87 AND d%<&91:d%=32:ENDPROC 2520 IFd%>&90 AND d%<&98:graphic%=1:d%=32:ENDPROC 2530 IFd%=&99:sep%=0 2540 IFd%=&9A:sep%=1 2550 IFd%>&97 AND d%<&A0:d%=32:ENDPROC 2560 IFd%>&BF AND d%<&E0:d%=32:ENDPROC 2570 IFgraphic%=0:d%=32:ENDPROC 2580 PROCpixprint:d%=0 2590 ENDPROC 2600 : 2610 DEFPROCpixprint 2620 REM******* FOR EPSON PRINTER ****** 2630 flag%=0 2640 FORn%=0TO6 2650 flag%=flag%+(d%AND2^n%) 2660 NEXT 2670 : 2680 VDU1,27,1,ASC"^",1,0,1,6,1,0 2690 pr%=0 2700 IFflag%AND1:pr%=pr%+&E0-(sep%*&20) 2710 IFflag%AND4:pr%=pr%+&1C-(sep%*&04) 2720 IFflag%AND16:pr%=pr%+&8003-(sep%*&8000) 2730 IFsep%:VDU1,0,1,0 2740 FORn%=sep%TO2 2750 VDU1,pr%AND&FF 2760 VDU1,(pr%AND&FF00)DIV&100 2770 NEXT 2780 pr%=0 2790 IFflag%AND2:pr%=pr%+&E0-(sep%*&20) 2800 IFflag%AND8:pr%=pr%+&1C-(sep%*&04) 2810 IFflag%AND64:pr%=pr%+&8003-(sep%*&8000) 2820 IFsep%:VDU1,0,1,0 2830 FORn%=sep%TO2 2840 VDU1,pr%AND&FF 2850 VDU1,(pr%AND&FF00)DIV&100 2860 NEXT 2870 ENDPROC 2880 REM******** FOR EPSON PRINTER ***** 2890 : 2900 DEFPROCnewpage 2910 VDU30 2920 FORD%=1TO24 2930 PRINTCHR$(157)CHR$(132)STRING$(38," "); 2940 NEXT 2950 PRINTCHR$(157)CHR$(132)STRING$(37," "); 2960 ?(&7C27+40*24)=32 2970 VDU30 2980 PRINTCHR$(157)CHR$(132)"Volume "STR$(P%)" Page "STR$(L%+1); 2990 PRINTTAB(2,0); 3000 ENDPROC 3010 : 3020 DEFPROCindex 3030 oldL%=L%:oldP%=P% 3040 FORP%=1TOM% 3050 FORL%=0TO25 3060 $W%="Vol"+STR$(P%) 3070 T%=0:PROCload 3080 Q%=INKEY(100) 3090 IFQ%=27:P%=M%:L%=25 3100 IFQ%=135:oldL%=L%:oldP%=P%:P%=M%:L%=25 3110 IFQ%=136:IFL%>0:L%=L%-2 3120 IFQ%=137:IFL%<25:L%=L%+1 3130 IFQ%=138:P%=P%-1:L%=-1:IFP%<1:P%=M% 3140 IFQ%=139:P%=P%+1:L%=-1:IFP%>M%:P%=1 3150 NEXT:NEXT 3160 L%=oldL%:P%=oldP% 3170 T%=0:Q%=0 3180 ENDPROC 3190 : 3200 DEFPROCload 3210 X%=W%MOD256 3220 Y%=W%DIV256 3230 A%=&C0 3240 F%=(USR&FFCE)AND&FF 3250 PROCdisc(4,&3E8) 3260 PRINTTAB(2,1); 3270 VDU23,1,E%;0;0;0; 3280 CLOSE#F% 3290 ENDPROC 3300 : 3310 DEFPROCsave 3320 X%=W%MOD256 3330 Y%=W%DIV256 3340 A%=&C0 3350 F%=(USR&FFCE)AND&FF 3360 T%=0 3370 IFE%:PROCdisc(2,&3E8) 3380 CLOSE#F% 3390 F%=OPENOUT"Ndata":PRINT#F%,L%,P%,epson%:CLOSE#F% 3400 ENDPROC 3410 : 3420 DEFPROCdisc(A%,S%) 3430 PTR#F%=L%*&3E8 3440 B%?0=F% 3450 B%!1=&7C00 3460 B%!5=S% 3470 X%=B%MOD256 3480 Y%=B%DIV256 3490 CALL&FFD1 3500 ENDPROC 3510 : 3520 DEFPROCstart 3530 REM "𓇣𙹁𠪟6 3540 REM "‹솬456 3550 E%=0:VDU23,1,0;0;0;0; 3560 REPEAT 3570 VDU30 3580 PRINT"儩 "; 3590 PRINT"儩 暆 儩"; 3600 PRINT"儩両nstructions 暆 儩"; 3610 PRINT"儩慲``````````` 暆 儩"; 3620 PRINT"儩両nstall your 暆 儩"; 3630 PRINT"儩乸reprepared disc暆 0h7k4'+j7`! 儩"; 3640 PRINT"儩乥efore running 暆 uj5j5 jup 儩"; 3650 PRINT"儩乼he program or 暆 kj5j5 j5 儩"; 3660 PRINT"儩乮nstall a blank 暆 *uz% jup0 儩"; 3670 PRINT"儩乫ormatted disc 暆 儩"; 3680 PRINT"儩乤nd indicate its暆 }璺氪} 儩"; 3690 PRINT"儩乻ize to prepare 暆 甑甑 儩"; 3700 PRINT"儩乤 new disc 暆 !攴氲 儩"; 3710 PRINT"儩 暆 甑甑鹂 儩"; 3720 PRINT"儩丱ptions 暆 儩"; 3730 PRINT"儩慲`````` 暆 儩"; 3740 PRINT"儩丷un NotePad 暆 儩"; 3750 PRINT"儩丒pson 9pin NO 暆 儩"; 3760 PRINT"儩* Command 暆 儩"; 3770 PRINT"儩丳repare DFS 40T暆 儩"; 3780 PRINT"儩丳repare DFS 80T暆 儩"; 3790 PRINT"儩丳repare ADFS S 暆 儩"; 3800 PRINT"儩丳repare ADFS M 暆 儩"; 3810 PRINT"儩丳repare ADFS L 暆 儩"; 3820 PRINT"儩 "; 3830 IFepson%:PRINTTAB(16,17)"YES"; 3840 O%=&7C00+40*16:S%=-1 3850 REPEAT 3860 S%=S%+1:IFS%=8:S%=0 3870 ?(O%+S%*40)=32 3880 Q%=GET 3890 ?(O%+S%*40)=131 3900 UNTILQ%=13 3910 IFS%=0:ENDPROC 3920 IFS%=1:epson%=epson%EOR1 3930 IFS%=2:PROCoscli 3940 IFS%=3:M%=3 3950 IFS%=4:M%=7 3960 IFS%=5:M%=6 3970 IFS%=6:M%=12 3980 IFS%=7:M%=24 3990 IFS%>2:PROCprepdisc 4000 UNTIL FALSE 4010 : 4020 ENDPROC 4030 DEFPROCprepdisc 4040 CLS 4050 PRINT'''"Creating a New NotePad" 4060 PRINT'" Continue Y/N ? " 4070 Q$=GET$ 4080 IFQ$<>"Y"ANDQ$<>"y":RUN 4090 L%=0:P%=1 4100 F%=OPENOUT"Ndata":PRINT#F%,L%,P%,epson%:CLOSE#F% 4110 B%=&900:W%=&9F0 4120 FORP%=1TOM% 4130 file$="Vol"+STR$(P%) 4140 F%=OPENOUTfile$ 4150 FORL%=0TO25 4160 PROCnewpage 4170 PROCdisc(2,&3E8) 4180 NEXT 4190 CLOSE#F% 4200 NEXT 4210 L%=0:P%=1 4220 ENDPROC 4230 : 4240 REM "𓇣𙹁𠪟6 4250 REM "‹솬456 4260 DEFPROChelp1 4270 VDU30,23,1,0;0;0;0; 4280 PRINT"潄 "; 4290 PRINT"潄 "; 4300 PRINT"潟 0h7k4'+j7`! }璺氪} "; 4310 PRINT"潟 uj5j5 jup 甑甑 "; 4320 PRINT"潟 kj5j5 j5 !攴氲 "; 4330 PRINT"潟 *uz% jup0 甑甑鹂 "; 4340 PRINT"潄 "; 4350 PRINT"潄 NOTE PAD HELP 1 "; 4360 PRINT"潄慲`````````````` "; 4370 PRINT"潄 View Mode Cursor OFF "; 4380 PRINT"潄慲```````` "; 4390 PRINT"潄 C.....Copy this page to another "; 4400 PRINT"潄 H.....This help "; 4410 PRINT"潄 I.....Index see next page "; 4420 PRINT"潄 P.....Print Page "; 4430 PRINT"潄 Z.....Zap this page "; 4440 PRINT"潄 <['>.....Enter edit mode "; 4450 PRINT"潄.....Close the NotePad "; 4460 PRINT"潄 "; 4470 PRINT"潄 Edit Mode Cursor ON "; 4480 PRINT"潄慲```````` "; 4490 PRINT"潄Once here any changes you make will "; 4500 PRINT"潄be saved on leaving i.e. after you "; 4510 PRINT"潄hit , no prompt is asked for "; 4520 PRINT"潄before saving, to abort. "; 4530 Q%=GET 4540 IFQ%<>27:PROChelp2 4550 H%=1:Q%=13 4560 ENDPROC 4570 : 4580 REM "𓇣𙹁𠪟6 4590 REM "‹솬456 4600 DEFPROChelp2 4610 PRINTTAB(0,7); 4620 PRINT"潄 INDEX "; 4630 PRINT"潄慲```` "; 4640 PRINT"潄Cycles through the whole NotePad A1-Zn"; 4650 PRINT"潄use the cursor keys to :- "; 4660 PRINT"潄 "; 4670 PRINT"潄Left/Right...move between pages "; 4680 PRINT"潄 "; 4690 PRINT"潄 Up/Down...move between Volumes "; 4700 PRINT"潄 movment between Volumes "; 4710 PRINT"潄 causes a jump to page A "; 4720 PRINT"潟 "; 4730 PRINT"潄You may exit this routine by hitting "; 4740 PRINT"潄 "; 4750 PRINT"潄 to stop at the displayed page "; 4760 PRINT"潄 "; 4770 PRINT"潄 to return to the page at "; 4780 PRINT"潄 which you started from "; 4790 PRINT"潄 "; 4800 ?(&7C27+40*24)=32 4810 Q%=GET 4820 IFQ%<>27:PROChelp3 4830 H%=1:Q%=13 4840 ENDPROC 4850 : 4860 REM "𓇣𙹁𠪟6 4870 REM "‹솬456 4880 DEFPROChelp3 4890 PRINTTAB(0,7); 4900 PRINT"潄 NOTE PAD HELP 3 "; 4910 PRINT"潄慲`````````````` "; 4920 PRINT"潄 Ctrl+C....Clear screen "; 4930 PRINT"潄 Ctrl+P....Print page "; 4940 PRINT"潄 "; 4950 PRINT"潄 f0...Red text "; 4960 PRINT"潄 f1...Green text "; 4970 PRINT"潄 f2...Yellow text "; 4980 PRINT"潄 f3...Blue text "; 4990 PRINT"潄 f4...Magenta text "; 5000 PRINT"潄 f5...Cyan text "; 5010 PRINT"潄 f6...White text "; 5020 PRINT"潄 f7...Flashing "; 5030 PRINT"潄 f8...Steady "; 5040 PRINT"潄 f9...Pixel editor "; 5050 PRINT"潄 "; 5060 PRINT"潄 ...Save, Return to View Mode "; 5070 PRINT"潄 "; 5080 Q%=GET 5090 IFQ%<>27:PROChelp4 5100 H%=1:Q%=13 5110 ENDPROC 5120 : 5130 REM "𓇣𙹁𠪟6 5140 REM "‹솬456 5150 DEFPROChelp4 5160 PRINTTAB(0,7); 5170 PRINT"潄 NOTE PAD HELP 4 "; 5180 PRINT"潄慲`````````````` "; 5190 PRINT"潄 Ctrl+C....Clear screen "; 5200 PRINT"潄 Ctrl+P....Print page "; 5210 PRINT"潄 "; 5220 PRINT"潄 Shift+f0...Red graphics "; 5230 PRINT"潄 Shift+f1...Green graphics "; 5240 PRINT"潄 Shift+f2...Yellow graphics "; 5250 PRINT"潄 Shift+f3...Blue graphics "; 5260 PRINT"潄 Shift+f4...Magenta graphics "; 5270 PRINT"潄 Shift+f5...Cyan graphics "; 5280 PRINT"潄 Shift+f6...White graphics "; 5290 PRINT"潄 Shift+f7...Black background "; 5300 PRINT"潄 Shift+f8...Colour background "; 5310 PRINT"潄 Shift+f9...Pixel editor "; 5320 PRINT"潄 "; 5330 PRINT"潄 ...Save, Return to View Mode "; 5340 PRINT"潄 "; 5350 Q%=GET 5360 IFQ%<>27:PROChelp5 5370 H%=1:Q%=13 5380 ENDPROC 5390 : 5400 REM "𓇣𙹁𠪟6 5410 REM "‹솬456 5420 DEFPROChelp5 5430 PRINTTAB(0,7); 5440 PRINT"潄 NOTE PAD HELP 5 "; 5450 PRINT"潄慲`````````````` "; 5460 PRINT"潄 Ctrl+C....Clear screen "; 5470 PRINT"潄 Ctrl+P....Print page "; 5480 PRINT"潄 "; 5490 PRINT"潄 Ctrl+f0...Contiguous graphics "; 5500 PRINT"潄 Ctrl+f1...Seperated graphics "; 5510 PRINT"潄 Ctrl+f2...Hold graphics "; 5520 PRINT"潄 Ctrl+f3...Release graphics "; 5530 PRINT"潄 Ctrl+f4...Double height "; 5540 PRINT"潄 Ctrl+f5...Single height "; 5550 PRINT"潄 Ctrl+f6...Insert space "; 5560 PRINT"潄 Ctrl+f7...Insert line "; 5570 PRINT"潄 Ctrl+f8...Delete line "; 5580 PRINT"潄 Ctrl+f9...Pixel editor "; 5590 PRINT"潄 "; 5600 PRINT"潄 ...Save, Return to View Mode "; 5610 PRINT"潄 "; 5620 Q%=GET 5630 ENDPROC 5640 : 5650 DEFPROCoscli 5660 CLS:PRINT"*";:INPUT""L$:OSCLIL$ 5670 PRINT'"Hit Any Key":Q%=GET:RUN 5680 ENDPROC 5690 : 5700 DEFPROCinit 5710 t%=0 5720 B%=&900:W%=&9F0 5730 T%=0:M%=0 5740 REPEAT 5750 M%=M%+1 5760 $W%="Vol"+STR$(M%) 5770 X%=W%MOD256 5780 Y%=W%DIV256 5790 A%=&C0:F%=(USR&FFCE)AND&FF 5800 A%=0:Y%=0:CALL&FFCE 5810 UNTILF%=0 5820 M%=M%-1 5830 ENDPROC 5840 : 5850 DEFPROCfinish 5860 A%=0:Y%=0:CALL&FFCE 5870 *FX4,0 5880 *FX229,0 5890 VDU23;10,&70;0;0;0 5900 END 5910 ENDPROC