Paypackets 161
110 CLS #1,:CLEAR
120 FOR J= 1 TO 10:READ C$(J),CV(J):NEXT
130 DATA ONE PENCE,0.01,TWO PENCE,0.02 140 DATA FIVE PENCE,0.05,TEN PENCE,0.1,T WENTY PENCE,0.2
150 DATA FIFTY PENCE,0.5,0NE POUND,1,FIV E POUND,5
160 DATA TEN POUND,10,TWENTY POUND,20 170 SR=0
180 GOSUB 440
190 LOCATE #1,9,17:PRINT#1,"PRESS ANY KE FOR MENU"
191 WINDOW #0, 1,40,18,25
192 PAPER #0,2:PEN #0, 3
193 CLS #0
200 IF INKEY$="" THEN 200
220 PRINT #0,"	PRESS [1] TO INPUT NEW
PAYMENT "
240 PRINT #0,"	PRESS [2] TO GIVE THE T
OTAL AMOUNT "
260 PRINT #0,"	PRESS [3] TO CANCEL ALL
DATA
270 XX=0:SR=1
280 LOCATE #0, 1,6:PRINT #0,"	SELECT
A KEY NUMBER [1-3] ";:INPUT #0, x$:1F x $="" THEN 280
290 IF x$<"1" OR x$>"3" THEN 280
300 REM
310 ON VAL (x$) GOTO 330,410,110
320 GOTO 280 330 CLS #1
340 LOCATE #1,1,1:INPUT #1,"CASH AMOUNT IN PACKET";A$
350 A= VAL(A$):A1=A
360 INPUT #1,"NUMBER OF PACKETS";B$
370 CLS #1,
380 B=VAL(B$):B1=B
390 GOSUB 810 400 GOTO 180 410 CLS #1,
420 XX=1
430 GOTO 180 440 REM TABLE