Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04b_c16_c60_computer_tape_1.wav » bow-bow(530)(400
bow-bow(530)(400
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04b_c16_c60_computer_tape_1.wav |
Filename: | bow-bow(530)(400 |
Read OK: | ✔ |
File size: | 0779 bytes |
Load address: | 1001 |
Exec address: | 0000 |
File contents
5 ASDF=0:P=0:PP=0 10 SCNCLR 20 INPUT A$ 30 VOL1:SOUND 1,300,15 40 IF A$="1 PINT BOTTLE MILK" THEN P=P+1 50 IF A$="2 PINT MILK"THEN P=P+2 THEN PP=PP+50 60 IF A$="4 PINT MILK"THEN P=P+4 70 IF A$="LOO ROLL 1"THEN PP=PP+50 80 IF A$="LOO ROLL 2"THEN P=P+1 90 IF A$="LOO ROLL 9"THEN P=P+4 THEN PP=PP+50 100 IF A$="WHISKAS"THEN PP=PP+40 110 IF A$="GOLD WACTH"THEN P=P+1200 120 IF A$="C BATTERY 1"THEN PP=PP+70 130 IF A$="D BATTERY 1"THEN P=P+1 140 IF A$="AA BATTERY 1"THEN PP=PP+30 150 IF A$="9V BATTERY 1"THEN P=P+2 160 IF A$="AA BATTERY 2"THEN PP=PP+60 170 IF A$="C BATTERY 2"THEN P=P+1 180 IF A$="D BATTERY 2"THEN P=P+2 190 IF A$="CHEWITS"THEN PP=PP=12 200 IF A$="ICING SUGAR"THEN P=P+2 THEN PP=PP+50 210 IF A$="GRANULATED SUGUR"THEN P=P+2 THEN PP=PP+50 220 IF A$="EGGS 6"THEN P=P+2 230 IF A$="CHICKEN PIE" THEN P=P+2 240 IF A$="NEWSPAPER" THEN PP=PP+50 250 IF A$="LIGHT BULB" THEN P=P+2 260 IF A$="VISCOUNT" THEN PP=PP+35 270 IF A$="VIDEO CASSETTE" THEN P=P+2 280 IF A$="VIDEO" THEN P=P+75 290 IF A$="TV" THEN P=P+175 300 IF A$="SKY TV" THEN P=P+100075 310 IF A$="PAPER" THEN P=P+5 320 IF A$="BAKED BEANS" THEN P=P+1 330 IF A$="PLUG MAINS" THEN P=P+1 340 IF A$="POLO MINTS" THEN PP=PP+30 350 IF A$="TIC-TACS" THEN PP=PP+25 360 IF A$="ORANGE JUICE SMALL PACK" THEN P=P+3 370 IF A$="QUALITY STREET" THEN P=P+2 380 IF A$="CLOCK" THEN P=P+5 THEN PP=PP+50 390 IF A$="CAT A" THEN P=P+10 400 IF A$="CAT B" THEN P=P+1020 410 IF A$="HAMSTER A" THEN P=P+7 THEN PP=PP+55 420 IF A$="HAMSTER B" THEN P=P+9 THEN PP=PP+55 430 IF A$="HAMSTER C" THEN P=P+8 440 IF A$="HAMSTER D" THEN P=P+7 450 IF A$="HAMSTER E" THEN P=P+8 THEN PP=PP+35 460 IF A$="DOG A" THEN P=P+16 465 IF A$="DOG B" THEN P=P+32 470 IF A$="DOG C" THEN P=P+52 THEN PP=PP+50 480 IF A$="DOG D" THEN P=P+30 THEN PP=PP+50 490 IF A$="DOG E" THEN P=P+60 500 IF A$="COMMODORE 16 COMPUTER" THEN P=P+69 510 IF A$="ELECTRON COMPUTER" THEN P=P+100 520 IF A$="PENCIL" THEN P=P+1 THEN PP=PP+10 530 IF A$="PEN" THEN P=P+5 THEN PP=PP+50 4010 IF PP>99 THEN PP=PP-100 THEN P=P+1 4015 ASDF=ASDF+1:PRINT"£"P"."PP 4030 PRINT"RESET"; 4040 INPUT ASDF$ 4050 IF ASDF$="Y"THEN4080 4060 IF ASDF$="N"THEN10 4070 GOTO 4030 4080 PRINT"£"P"."PP:PRINT"HIT ANY KEY":GETKEY ASDFGHJKL$ 4090 RUN
ASDF�0:P�0:PP�0 � $ � A$ 6 �1:� 1,300,15 \( � A$�"1 PINT BOTTLE MILK" � P�P�1 �2 � A$�"2 PINT MILK"� P�P�2 � PP�PP�50 �<