8-Bit Software Online Conversion

:2.$.Instruc - Listing

10REM: Instruc 20VDU23;8202;0;0;0; 30CLS:PROCtitle 40PRINTTAB(11,4)CHR$131CHR$157CHR$129 "Instructions "CHR$156 50PRINTTAB(6,8)CHR$141"Do you want In structions?"TAB(6,9)CHR$141"Do you want Instructions?" 60PRINTTAB(11,11)CHR$141"Press 1 for YES"TAB(11,12)CHR$141"Press 1 for YES"TA B(11,14)CHR$141" Press 2 for NO"TAB(11,1 5)CHR$141" Press 2 for NO" 70PRINTTAB(10,21)CHR$141CHR$131CHR$15 7CHR$129"Press 1 or 2 "CHR$156TAB(10)CH R$141CHR$131CHR$157CHR$129"Press 1 or 2 "CHR$156:PROCting:A=GET 80IF A<49 OR A>50 THEN PROCrasp:PRINT TAB(10,21)CHR$141CHR$129CHR$157CHR$131"P ress 1 or 2 "CHR$156TAB(10,22)CHR$141CH R$129CHR$157CHR$131"Press 1 or 2 "CHR$1 56:PROCpause:GOTO70 90IF A=49 THEN CLS:GOTO110 100IF A=50 THEN CHAIN"EleMenu" 110PROCtitle:PRINTTAB(11,3)CHR$131CHR$ 157CHR$129"Instructions "CHR$156 120PRINTTAB(3,5)"When you have read th ese instructions"TAB(0,6)"you can choose Sound ON or OFF and then"TAB(0,7)"you w ill see the Menu and can choose"TAB(0,8) "another option." 130PRINTTAB(3,9)"If you are using eith er Program for"TAB(0,10)"the first time press 3 for an example of"TAB(0,11)"what the Program does." 140PRINTTAB(3,12)"Follow the screen pr ompts and when"TAB(0,13)"you are returne d to the Menu press 1 and"TAB(0,14)"ente r your own readings - BUT you will"TAB(0 ,15)"wipe out the example, and it will b "TAB(0,16)"replaced by YOUR readings." 150PRINTTAB(3,17)"If you press 1 you w ill be asked to"TAB(0,18)"enter the fina l official reading on your"TAB(0,19)"las t Bill. (This is the starting figure"TAB (0,20)"for your next bill)." 160PRINTTAB(9,23)CHR$131CHR$157CHR$129 " Press any key "CHR$156:PROCting:A=GE T:CLS:PROCtitle 170PRINTTAB(11,3)CHR$131CHR$157CHR$129 "Instructions "CHR$156 180PRINTTAB(3,5)"On return to the Menu you should"TAB(0,6)"select 2 and use th is sub-program to"TAB(0,7)"enter YOUR re adings, preferably on the"TAB(0,8)"same day each week, until the end of"TAB(0,9) "the 13+week period" 190PRINTTAB(3,11)"When the official me ter reader has"TAB(0,12)"read the meter again (at the end of the"TAB(0,13)"13+ w eek period), enter that reading as"TAB(0 ,14)"the final reading for the period." 200PRINTTAB(3,16)"On return to the Men u press 3 and"TAB(0,17)"you will be show n all the readings to"TAB(0,18)"date. Th en press any key and you will be"TAB(0,1 9)"shown the total cost to date (to the" TAB(0,20)"nearest p.)" 210PRINTTAB(9,23)CHR$131CHR$157CHR$129 " Press any key "CHR$156:PROCting:A=GE T:CLS 220PROCtitle:PRINTTAB(11,3)CHR$131CHR$ 157CHR$129"Instructions "CHR$156 230PRINTTAB(3,5)"Press any key again a nd you will be"TAB(0,6)"returned to the Menu to make another"TAB(0,7)"selection. " 240PRINTTAB(14,9)CHR$135CHR$157CHR$129 "N.B:- "CHR$156 250PRINTTAB(3,11)"In some areas your E lectricity or Gas"TAB(0,12)"Bill MAY sho w an item of Credit." 260PRINTTAB(3,14)"Obviously these Prog rams cannot take"TAB(0,15)"such individu al cases into account and"TAB(0,16)"ther efore you should deduct the Credit" 270PRINTTAB(0,17)"amount, plus VAT at 8 per cent on that"TAB(0,18)"amount, fro m the total which these"TAB(0,19)"Progra ms produce." 280PRINTTAB(9,23)CHR$131CHR$157CHR$129 " Press any key "CHR$156:PROCting:A=GE T:CLS 290PROCtitle:PRINTTAB(11,5)CHR$131CHR$ 157CHR$129"Instructions "CHR$156 300PRINTTAB(6,10)"(In these cases ther e may be some"TAB(0,11)"consolation in t he fact that the amount"TAB(0,12)"you ac tually pay may be LESS than that"TAB(0,1 3)"shown by the Program!)" 310PRINTTAB(9,23)CHR$131CHR$157CHR$129 " Press any key "CHR$156:PROCting:A=GE T:CHAIN "Sound" 320END 330REM: ***** 340DEFPROCtitle:PRINTTAB(0,0)CHR$141CH R$131CHR$157CHR$129" ELECTRICITY/GAS PROGRAMS "CHR$156TAB(0,1)CHR$141CH R$131CHR$157CHR$129" ELECTRICITY/GAS PROGRAMS "CHR$156:ENDPROC 350REM: ***** 360DEFPROCpause:FOR X=1 TO 2000:NEXT X :ENDPROC 370REM: ***** 380DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0 ,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPR OC 390REM: ***** 400DEFPROCrasp:ENVELOPE1,1,4,5,0,255,2 55,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SO UND1,1,80,10:ENDPROC 410REM: ***** 430DEFPROCbeep:SOUND2,-15,100,1:FOR X= 1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC 440REM: ***** 450DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0 ,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPR OC 460REM: ***** 470DEFPROCrasp:ENVELOPE1,1,4,5,0,255,2 55,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SO UND1,1,80,10:ENDPROC 480REM: ***** 490END