Atari 8-bit Source code

100GOTO1120
110REM
115REMby
120REM
125REM
130REM
135REM
140REM
150REM
160REM
170REM
180NS=10:DD=2:T$=STR$(N):N$=BL$:DP=LEN(T$)+1
190FORJ=1TOLEN(T$)
200IFT$(J,J)="."THENDP=J:J=NS
210NEXTJ
220NL=DP+DD
230N$(NS-NL+1,NS)=T$
240IFDD=OTHENRETURN
250N$(NS-DD,NS-DD)="."
260FORJ=NS-DD+1TONS
270IFN$(J,J)=""THENN$(J,J)="0"
280NEXTJ
290RETURN
300REMSUBROUTINEREVARIANCELETTER
310IFN>0THENV$="B":RETURN
320IFN<0THENV$="W":RETURN
330V$="O":RETURN
340REM
350DATA1989
360REM
370REM
380DATA1534.76,1935.4,1789.22,1621.55,2248.67
390REM
400DATA2491.,2321.94,2236,3079.32,0
410REM
420DATA2222.,3456.78,2975.53,3004.1,0
430REM
440DATA3000.,3321.11,2269.03,2984.3
450REM
460DATA
470REM
480DATA
490REM
500DATA
510REM
520DATA
530REM
540DATA
550REM
560DATA
570REM
580DATA
590REM
600DATA
610REM
620DATA10000.
630REM
640REM
650REM
660REM
670REM
680REMDISBURSEMENTCATEGORIESANDDATA
690REM
700DATAADVERTISING,120.,135.97,119.41,129.55
710REM
720DATAINSURANCE,250.,0,0,0
730REM
740DATAMORT.INTEREST,400.,402.47,402.03
750REM
760DATAMORT.PRINCIPL,50.,47.53,47.97
770REM
780DATAOTHER,50.,0,44.69
790REM
800DATAHEAT&ELECT,400.,576.45,603.42
810REM
820DATALIGHT&WATER,350.,425.33,467.83
830REM
840DATAPHONE&FIRE,100.,97.71,84.07
850REM
860DATAMTCE.INDOOR,700.,844,927.2
870REM
880DATAMTCE.OUTDOOR,100.,200,245.43
890REM
900DATACAPITAL,500.,718.4,0
910REM
920DATAOTHER,50.,0,39.76
930REM
940DATASPEAKERS,3000.,3216.55,2830.43
950REM
960DATAMISSIONS,3000.,3000,3000
970REM
980DATAAWANA,250.,0,238.37
990REM
1000DATASUNDAYSCHOOL,250.,0,421.96
1010REM
1020DATAYOUNGPEOPLES,100.,258,-32.27
1030REM
1040DATAPAIRS/SPARES,100.,0,101
1050REM
1060DATAFLOWERS/GIFTS,80.,42.74,111.94
1070REM
1080DATAOTHER,150.,86.72,171.1
1090REM
1100DATA2945.62
1110REM
1120DIMC$(13),N$(10),T$(10),V$(1),BL$(80),MY$(17)
1130BL$(1)="":BL$(80)=BL$:BL$(2)=BL$
1140PRINTCHR$(125)
1150SETCOLOR1,0,10:SETCOLOR2,8,4:SETCOLOR4,0,14
1160PRINT""
1170PRINT""
1180PRINT""
1190PRINT""
1200PRINT""
1210PRINT
1220PRINT
1230PRINT"DOYOUWISHTO:"
1240PRINT
1250PRINT"RUNPROGRAM"
1260PRINT
1270PRINT"ENTER/EDITDATA"
1280PRINT
1290PRINT"SAVEUPDATEDFILE"
1300PRINT
1310PRINT"READPROGRAMINFORMATION"
1320PRINT
1330PRINT"END"
1340PRINT
1350TRAP1350:PRINT"ENTER#PLEASE";:INPUTT:TRAP40000
1360IFT=1THEN1420
1370IFT=2THEN3380
1380IFT=3THEN4740
1390IFT=4THEN3640
1400IFT=5THEN4520
1410IFT<1ORT>5THENPRINT"PLEASEENTERANUMBERBETWEEN&":GOTO1350
1420PRINTCHR$(125)
1430PRINT""
1440PRINT""
1450PRINT""
1460PRINT""
1470PRINT""
1480PRINT
1490PRINT""
1500PRINT
1510PRINT"ENTERFORSCREEN,FORPRINTER:"
1520INPUTT$
1530IFT$="P"THEN1560
1540IFT$="S"THEN1580
1550GOTO1510
1560TRAP1570:OPEN#5,8,0,"P":LETQ=1:GOTO1600
1570PRINT"PRINTERNOTRESPONDING.CHECKANDRE-ENTERCHOICE.":CLOSE#5:GOTO1510
1580OPEN#5,8,0,"S:"
1590SETCOLOR4,0,14
1600PRINT
1610PRINT""
1620PRINT
1630PRINT"JANUARYFEBRUARYMARCH"
1640PRINT"APRILMAYJUNE"
1650PRINT"JULYAUGUSTSEPTEMBER"
1660PRINT"OCTOBERNOVEMBERDECEMBER"
1670PRINT
1680TRAP1680:PRINT"ENTERMONTH#PLEASE";:INPUTM:TRAP40000
1690IFM<0ORM>12THENPRINT"PLEASEENTERANUMBERBETWEEN&":GOTO1680
1700PRINTCHR$(125):PRINT"CHURCHTREASURER'SREPORT":PRINT#5;"YOURCHURCHNAMECENTEREDHERE"
1710PRINT#5;"MONTHLYFINANCIALREPORT"
1720PRINT#5
1730READX
1740IFM=1THENPRINT#5;"JANUARY";X
1750IFM=2THENPRINT#5;"FEBRUARY";X
1760IFM=3THENPRINT#5;"MARCH";X
1770IFM=4THENPRINT#5;"APRIL";X
1780IFM=5THENPRINT#5;"MAY";X
1790IFM=6THENPRINT#5;"JUNE";X
1800IFM=7THENPRINT#5;"JULY";X
1810IFM=8THENPRINT#5;"AUGUST";X
1820IFM=9THENPRINT#5;"SEPTEMBER";X
1830IFM=10THENPRINT#5;"OCTOBER";X
1840IFM=11THENPRINT#5;"NOVEMBER";X
1850IFM=12THENPRINT#5;"DECEMBER";X
1860PRINT#5
1870PRINT#5
1880PRINT#5;"";CHR$(15);"CURRENTMONTH";CHR$(14);"";
1890PRINT#5;CHR$(15);"YEARTODATE";CHR$(14)
1900PRINT#5;"ACTUALBUDGETVARIANCEACTUALBUDGETVARIANCE"
1910PRINT#5
1920PRINT#5;CHR$(15);"OFFERINGS:";CHR$(14)
1930PRINT#5
1940PRINT
1950PRINT"READINGSUNDAYOFFERINGS:"
1960TG=0
1970YTDTG=0
1980IFM=1THEN2030
1990FORX=1TO5*(M-1)
2000TRAP3240:READG:TRAP40000:REM*OFFERINGDATAINCOMPLETEFORMONTHESPRIORTOCURRENTMONTH.
2010YTDTG=YTDTG+G
2020NEXTX
2030FORS=1TO5
2040TRAP3240:READG:TRAP40000:REM*OFFERINGDATAINCOMPLETEFORCURRENTMONTH.
2050N=G:GOSUB180:PRINT#5;S,"";N$(1,NS)
2060TG=TG+G
2070YTDTG=YTDTG+G
2080NEXTS
2090RESTORE620
2100READB
2110TGV=TG-B
2120PRINT#5;"_____________________________________________________________________________"
2130N=TG:GOSUB180:PRINT#5;"";CHR$(15);"TOTAL";N$(1,NS);
2140N=B:GOSUB180:PRINT#5;N$(1,NS);
2150N=TGV:GOSUB180:PRINT#5;N$(1,NS);
2160GOSUB310:PRINT#5;CHR$(32);V$;
2170YTDB=B*M
2180YTDTGV=YTDTG-YTDB
2190N=YTDTG:GOSUB180:PRINT#5;"";N$(1,NS);
2200N=YTDB:GOSUB180:PRINT#5;N$(1,NS);
2210N=YTDTGV:GOSUB180:PRINT#5;N$(1,NS);
2220GOSUB310:PRINT#5;"";V$;CHR$(14)
2230PRINT#5
2240PRINT#5
2250IFQ=1THEN2280
2260GOSUB4940
2270PRINTCHR$(125)
2280PRINT"READINGDISBURSEMENTS:":SETCOLOR1,0,0:SETCOLOR2,4,4:SETCOLOR4,0,14
2290PRINT#5;CHR$(15);"DISBURSEMENTS:";CHR$(14)
2300PRINT#5
2310TD=0
2320TB=0
2330TDV=0
2340YTDB=0
2350YTDV=0
2360YTDTD=0
2370YTDTB=0
2380YTDTDV=0
2390FORD=1TO20
2400YTDA=0
2410IFD=1THEN?#5;"ADMINISTRATION:"
2420IFD=6THEN?#5;"FACILITIES:"
2430IFD=13THEN?#5;"MINISTRIES:"
2440READC$
2450READB
2460FORN=1TOM
2470TRAP3240:READA:TRAP40000:REM*DISBURSEMENTDATAINCOMPLETEFORNEXTDISBURSEMENTCATEGORY/CATEGORIES.
2480YTDA=YTDA+A
2490NEXTN
2500RESTORE700+(D*20)
2510TD=TD+A
2520YTDTD=YTDTD+YTDA
2530YTDB=B*M
2540TB=TB+B
2550YTDTB=YTDTB+YTDB
2560V=B-A
2570YTDV=YTDB-YTDA
2580TDV=TDV+V
2590YTDTDV=YTDTDV+YTDV
2600N=A:GOSUB180:PRINT#5;"";C$;N$(1,NS);
2610N=B:GOSUB180:PRINT#5;N$(1,NS);
2620N=V:GOSUB180:PRINT#5;N$(1,NS);
2630GOSUB310:PRINT#5;CHR$(32);V$;"";
2640N=YTDA:GOSUB180:PRINT#5;N$(1,NS);
2650N=YTDB:GOSUB180:PRINT#5;N$(1,NS);
2660N=YTDV:GOSUB180:PRINT#5;N$(1,NS);
2670GOSUB310:PRINT#5;CHR$(32);V$
2680NEXTD
2690PRINT#5;"_____________________________________________________________________________"
2700N=TD:GOSUB180:PRINT#5;"";CHR$(15);"TOTAL";N$(1,NS);
2710N=TB:GOSUB180:PRINT#5;N$(1,NS);
2720N=TDV:GOSUB180:PRINT#5;N$(1,NS);
2730GOSUB310:PRINT#5;CHR$(32);V$;"";
2740RESTORE620:READB
2750IFB-TB=0THEN2780
2760PRINT"1/12OFBUDGETDOESNOTEQUALTOTALOFBUDGETAMOUNTSFORDISBURSEMENTCATEGORIES."
2770GOSUB4960:CLOSE#5:RESTORE350:GOTO1140
2780N=YTDTD:GOSUB180:PRINT#5;N$(1,NS);
2790N=YTDTB:GOSUB180:PRINT#5;N$(1,NS);
2800N=YTDTDV:GOSUB180:PRINT#5;N$(1,NS);
2810GOSUB310:PRINT#5;CHR$(32);V$;CHR$(14)
2820IFQ=1THEN2850
2830GOSUB4940
2840PRINTCHR$(125)
2850PRINT"DETERMINGNETTOTALS:":SETCOLOR1,0,0:SETCOLOR2,2,8:SETCOLOR4,2,8
2860NET=TG-TD
2870NETV=TGV+TDV
2880YTDNET=YTDTG-YTDTD
2890YTDNETV=YTDTGV+YTDTDV
2900PRINT#5;"________________________________________________________________________________"
2910PRINT#5;CHR$(15);"NET";
2920N=NET:GOSUB180:PRINT#5;N$(1,NS);"-";
2930N=NETV:GOSUB180:PRINT#5;N$(1,NS);
2940GOSUB310:PRINT#5;"";V$;"";
2950N=YTDNET:GOSUB180:PRINT#5;N$(1,NS);"-";
2960N=YTDNETV:GOSUB180:PRINT#5;N$(1,NS);"";
2970GOSUB310:PRINT#5;V$;CHR$(14)
2980PRINT#5
2990PRINT#5
3000IFQ=1THEN3030
3010GOSUB4940
3020PRINTCHR$(125)
3030PRINT"CALCULATINGBANKSUMMARY:":SETCOLOR1,0,2:SETCOLOR2,13,6:SETCOLOR4,13,2
3040PRINT#5;CHR$(15);"BANKINGINFORMATION:";CHR$(14)
3050PRINT#5
3060RESTORE1100
3070READYTDOB
3080MOB=YTDOB+(YTDTG-TG)-(YTDTD-TD)
3090NET=TG-TD
3100YTDNET=YTDTG-YTDTD
3110CB=MOB+NET
3120YTDCB=YTDOB+YTDNET
3130N=MOB:GOSUB180:PRINT#5;"OPENINGBAL.";N$(1,NS);
3140N=YTDOB:GOSUB180:PRINT#5;"";N$(1,NS)
3150N=TG:GOSUB180:PRINT#5;"OFFERINGS";N$(1,NS),"";
3160N=YTDTG:GOSUB180:PRINT#5;N$(1,NS)
3170N=TD:GOSUB180:PRINT#5;"DISBURSMTS";CHR$(15);N$(1,NS);CHR$(14),"";
3180N=YTDTD:GOSUB180:PRINT#5;CHR$(15);N$(1,NS);CHR$(14)
3190N=NET:GOSUB180:PRINT#5;"NET";CHR$(15);N$(1,NS);"";CHR$(14);
3200N=YTDNET:GOSUB180:PRINT#5;"";CHR$(15);N$(1,NS);"";CHR$(14)
3210N=CB:GOSUB180:PRINT#5;CHR$(15);"CLOSINGBAL.";N$(1,NS);
3220N=YTDCB:GOSUB180:PRINT#5;"";N$(1,NS);CHR$(14)
3230GOSUB4960:CLOSE#5:RESTORE350:GOTO1140
3240PRINT""
3250PRINT""
3260PRINT""
3270EL=PEEK(187)*256+PEEK(186)
3280PRINT"";EL;""
3290PRINT""
3300LISTEL
3310PRINT""
3320PRINT""
3330PRINT""
3340PRINT""
3350PRINT""
3360GOSUB4960:CLOSE#5:RESTORE350:GOTO1140
3370REM
3380PRINTCHR$(125)
3390?""
3400?""
3410?""
3420?""
3430?""
3440?
3450?""
3460?""
3470?""
3480?"START":?"OPTION"
3490?"BREAK"
3500?"CTRL&"
3510?"CLEAR"
3520?"CONT"
3530?"RETURN"
3540?""
3550?"BREAK"
3560?"RUN"
3570?""
3580FORLST=340TO50000STEP5
3590LISTLST+1,LST+5
3600IFPEEK(53279)=6THENGOTO3630
3610IFPEEK(53279)=3THENLST=LST-5:GOTO3590
3620GOTO3600
3630NEXTLST:GOTO3590
3640PRINTCHR$(125)
3650PRINT
3660PRINT""
3670PRINT""
3680PRINT""
3690PRINT""
3700PRINT""
3710PRINT
3720?"THISPROGRAMPRODUCES1PAGEMONTHLYFINANCIALREPORTSCONSISTINGOFFOURSECTIONSANDSIXCOLUMNSOF"
3730?"DECIMALALIGNEDFIGURESINCLUDINGTRAILINGZEROSASFOLLOWS:"
3740?""
3750?"SECTION1-OFFERINGS"
3760?"SECTION2-DISBURSEMENTS"
3770?"SECTION3-NET"
3780?"SECTION4-BANKSUMMARY"
3790?"COLUMNS1-3CURRENTMONTHDATA"
3800?"ACTUAL/BUDGET/VARIANCE"
3810?"COLUMNS4-6YEARTODATEDATA"
3820?"ACTUAL/BUDGET/VARIANCE"
3830GOSUB4940
3840?"DISBURSEMENTSAREORGANIZEDINTOTHREESUB-CATEGORIESASFOLLOWS:"
3850?
3860?"1)ADMINISTRATIVE:NON-BUILDINGANDNON-PEOPLERELATEDDISBURSEMENTS"
3870?
3880?"2)FACILITIES:BUILDINGANDEQUIPMENTRELATEDDISBURSMENTS"
3890?
3900?"3)MINISTRIES:PEOPLERELATEDDISBURSEMENTS."
3910GOSUB4940
3920?
3930?"'OTHER'ORMISCELLANEOUSDISBURSEMENTSAREORGANIZEDACCORDINGTOTHEIR"
3940?"APPLICABLESUB-CATEGORYASFOLLOWS:"
3950?
3960?"1)OTHER-ADMINISTRATIVE:OFFICESUPPLIES,BULLETINS,POSTAGE,BANKCHARGES"
3970?
3980?"2)OTHER-FACILITIES:PIANOTUNING,PHOTOCOPIERRENTAL,CERTIFICATION"
3990?"OFFIREEXTINGUISHERS"
4000?
4010?"3)OTHER-MINISTRIES:CONFERENCES,OUTREACHPROGRAMSTALENT,NURSERYETC."
4020GOSUB4940
4030?
4040?"THE'CAPITAL'CATEGORYISUSED"
4050?"FOREQUIPMENT,IMPROVEMENTSTOFACILITIES,ETC.WHICHAREOFAMAJORSIGNIFICANCEAND"
4060?"DONOTPROPERLYBELONGUNDERTHEMAINTENANCECATEGORIES."
4070GOSUB4940
4080PRINT
4090?""
4100PRINT
4110?"(I)DUPLICATETHISFILEFORBACK-UP"
4120?
4130PRINT
4140?"(II)LISTPROGRAMTOENTERTHEFOLLOWINGDATA:"
4150GOSUB4940
4160?"1.CHURCHNAMEONLINE1700"
4170?"2.CURRENTYEARONLINE350"
4180?"3.OPENINGBANKBALANCEJANUARY01,CURRENTYEARONLINE1100"
4190?"4.1/12th.OFTHEANNUALBUDGETONLINE620"
4200?"5.DISBURSEMENTCATEGORIESANDBUDGETAMOUNTSONLINES630THROUGH1080"
4210?"6.OFFERINGDATAONLINES360THROUGH600"
4220?"7.DISBURSEMENTDATAONLINES690THROUGH1080"
4230?""
4240?"NOTE:"
4250?"A.#1ONLYENTEREDONCE,"
4260?"B.#2-5ONLYENTEREDONCEEACHYEAR,"
4270?"C.#6-7ENTEREDMONTHLY."
4280GOSUB4940
4290?
4300?":"
4310?
4320?"IFTHENUMBEROFDISBURSEMENTCATEGO-RIESISCHANGEDTHENCHANGELINE2390TOSHOWTHETOTALNUMBER."
4330?"IFNECESSARYCHANGECATEGORIESANDLINES2410-2430FORTITLINGPURPOSES."
4340?"CTR.INCLUDESARENUMBERINGPROGRAMATLINES32100THROUGH33500WHICH"
4345?"MAYBEREQUIREDIFTHENUMBEROFDIS-BURSEMENTCATEGORIESISCHANGED."
4350?"TOUSEENTERANEWLINE'90GOTO32100'TYPERUNANDATTHEPROMPT"
4360?"'FROM,BY'ENTER90,10.WHENTHERE-NUMBERINGISCOMPLETEDDELETELINE90ANDSAVEUSINGOPTION#3."
4370?"ITMAYBENECESSARYTOMANUALLYRE-NUMBERTHECONTENTSOFREMSTATEMENTS."
4390GOSUB4940
4400?""
4410?
4420?"ATPROMPTENTER'S'ANDTHEMONTHNUMBER.IFALLOFTHETOTALSANDPAR-"
4425?"TICULARLYTHEBANKSUMMARYBALANCES"
4430?"CORRESPONDTOTHELEDGERTOTALSTHENSAVETHEUPDATEDDATAENTRIESANDRUNTHEHARDCOPYREPORT."
4440?"THETREASURERMUSTASSUMEFULLRES-PONSIBILITYFORTHEACCURACYOFTHE"
4450?"DATAENTRYANDTHERELIABILITYOFTHE'CHURCHTREASURER'SREPORT'."
4460?
4470?"REMEMBERTOENTERFIVEOFFERINGAM-OUNTSEACHMONTH.IFTHERE'SNOFIFTH"
4475?"SUNDAYMAKETHEFIFTHENTRYZERO."
4480?"ONEMONTHLYDISBURSEMENTTOTALISRE-QUIREDFOREACHCATEGORY.IFNODIS-BURSEMENTTHENENTERZERO."
4500?""
4510GOSUB4960:CLOSE#5:RESTORE350:GOTO1140
4520PRINTCHR$(125)
4530PRINT""
4540PRINT""
4550PRINT""
4560PRINT""
4570PRINT""
4580PRINT
4590PRINT""
4600PRINT""
4610PRINT""
4620PRINT""
4630PRINT""
4640PRINT""
4650PRINT""
4660PRINT""
4670PRINT""
4680PRINT""
4690PRINT"RUN"
4700PRINT""
4710PRINT"NEW"
4720PRINT""
4730END
4740PRINTCHR$(125)
4750PRINT""
4760PRINT""
4770PRINT""
4780PRINT""
4790PRINT""
4800PRINT
4810PRINT
4820PRINT"TYPEESTOSAVE"
4830PRINT
4840PRINT"TYPEOTORETURNTO"
4850PRINT"MAINMENU."
4860PRINT
4870INPUTT$
4880IFT$="Y"THEN4920
4890IFT$="N"THEN1140
4900PRINT"PLEASETYPEESORO.":GOTO4800
4910PRINT"":GOSUB4940:GOTO4740
4920TRAP4910:?"SAVINGUPDATEDCHURCHTREASURER'SREPORT.":SAVE"D:CHURCHTR.REP":TRAP40000
4930GOSUB4960:CLOSE#5:RESTORE350:GOTO1140
4940OPEN#1,4,0,"K:":POKE752,3:?:?"":GET#1,K:?CHR$(125)
4950CLOSE#1:POKE752,0:RETURN
4960OPEN#1,4,0,"K:":POKE752,3:?:?"":GET#1,K:?CHR$(125)
4970CLOSE#1:POKE752,0:RETURN
32100?""
32103?""
32105?""
32107?""
32110T8=256:I=1:Z=32100
32120WM=0:X=PEEK(138)+PEEK(139)*T8:Y=PEEK(134)+PEEK(135)*T8+8*(PEEK(X+5)-128)+2
32130?"FROM,BY":INPUTFR,BY:?CHR$(125)
32140B=PEEK(136)+PEEK(137)*T8:X=B:M=FR
32150LN=PEEK(X)+PEEK(X+I)*T8:SOUND0,LN,10,8
32160IFLN=ZTHEN32220
32170PL=PEEK(X+2):C=X+3
32180LL=PEEK(C):C=C+I
32190GOSUB32280
32200IFLL<PLTHENC=X+LL:GOTO32180
32210X=X+PL:M=M+BY:GOTO32150
32220M=FR:X=B:SOUND1,0,0,0
32230LN=PEEK(X)+PEEK(X+I)*T8:SOUND0,32768-LN,10,8
32240IFLN=ZTHEN32550
32250MH=INT(M/T8):ML=M-MH*T8
32260POKEX,ML:POKEX+I,MH
32270M=M+BY:X=X+PEEK(X+2):GOTO32230
32280TK=PEEK(C)
32290IFTK=10ORTK=11ORTK=12ORTK=13ORTK=35THENC=C+I:GOSUB32450:RETURN
32300IFTK<>30THEN32380
32310C=C+I:D=PEEK(C)
32320IFD=23ORD=24THEN32350
32330IFD=14THENC=C+6
32340GOTO32310
32350C=C+I:GOSUB32450:D=PEEK(C)
32360IFD<>20ANDD<>22THEN32350
32370RETURN
32380IFTK<>7THENRETURN
32390C=C+I:D=PEEK(C)
32400IFD=27THEN32430
32410IFD=14THENC=C+6
32420GOTO32390
32430C=C+I:IFC<(X+LL)THENGOSUB32450
32440RETURN
32450D=PEEK(C):IFD=20ORD=22THENC=C+I:RETURN
32460IFD<>14THEN?M;"SR,";:C=C+I:RETURN
32470C=C+I:FORJ=0TO3:POKEY+J,PEEK(C+J):NEXTJ
32480IFWM<LNTHENWX=B:RN=FR:GOTO32500
32490WX=X:RN=M
32500WN=PEEK(WX)+PEEK(WX+I)*T8:SOUND1,WN,10,8
32510IFWN<ZANDWN<WMTHENRN=RN+BY:WX=WX+PEEK(WX+2):GOTO32500
32520IFWN<>WMTHEN?M;"NF,";:GOTO32540
32530WM=RN:FORJ=0TO3:POKEC+J,PEEK(Y+J):NEXTJ
32540C=C+6:RETURN
32550?:?(M-FR)/BY;"LINES"
32566?"DELETELINE90,TYPERUNANDSAVERENUMBEREDPROGRAMUSINGOPTION#3."
32570END	

• Download link 1
• Download link 2