Home » Personal collection » Acorn tapes » Own_Work » box01_tape08a_d90_acorn_acorn_eater.wav » L'sa-Money
L'sa-Money
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 » Acorn tapes » Own_Work » box01_tape08a_d90_acorn_acorn_eater.wav |
| Filename: | L'sa-Money |
| Read OK: | ✔ |
| File size: | 02F5 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
10REM Load'sa Money 20REM By Steve Bissel 30MODE 5:DIM S%(19,30):VDU23,1,0;0;0;0;23,255,56,56,16,124,16,56,40,40:HI%=1:N$="STEVE":*FX16 40REPEAT:CLS:X%=10:Y%=15:SC%=0:COLOUR 2:PRINT"HIGH `"TAB(11,0)N$TAB(0,31)"CASH `"TAB(11,31)"TIME";:TIME=0:REPEAT:T%=TIME/100:PP%=RND(10):IF PP%>8 PX%=RND(20)-1:PY%=(RND(30)+1)-1:COLOUR 1:PRINTTAB(PX%,PY%)"`";:S%(PX%,PY%)=96 50COLOUR0:PRINTTAB(X%,Y%)" ";:X%=X%+(INKEY-98 AND X%>0)-(INKEY-67 AND X%<19):Y%=Y%+(INKEY-73 AND Y%>1)-(INKEY-105 AND Y%<30):COLOUR 3:PRINTTAB(X%,Y%)CHR$(255); 60IF S%(X%,Y%)=96 SC%=SC%+1:S%(X%,Y%)=0:SOUND 1,-15,250,2 70COLOUR 3:PRINTTAB(6,0);HI%TAB(6,31);SC%TAB(16,31);10-T%" ";:UNTIL T%=10:SOUND 2,-15,15,20:FOR E%=0 TO 19:FOR E1%=0 TO 30:S%(E%,E1%)=0:NEXT:NEXT:CLS:COLOUR 2:PRINTTAB(1,8)"You Collected `";SC%:*FX21 80IF SC%>HI% HI%=SC%:COLOUR 1:PRINTTAB(1,13)"A new HIGH SCORE":COLOUR 3:INPUTTAB(0,17)"Enter Name (max. 8)"''''N$ 90COLOUR 3:PRINTTAB(0,17)" Play Again? (Y/N) ":K$=GET$:UNTIL K$<>"Y":CLS
� Load'sa Money � By Steve Bissel X� 5:� S%(19,30):�23,1,0;0;0;0;23,255,56,56,16,124,16,56,40,40:HI%=1:N$="STEVE":*FX16 (��:�:X%=10:Y%=15:SC%=0:� 2:�"HIGH `"�11,0)N$�0,31)"CASH `"�11,31)"TIME";:�=0:�:T%=�/100:PP%=�(10):� PP%>8 PX%=�(20)-1:PY%=(�(30)+1)-1:� 1:�PX%,PY%)"`";:S%(PX%,PY%)=96 2n�0:�X%,Y%)" ";:X%=X%+(�-98 � X%>0)-(�-67 � X%<19):Y%=Y%+(�-73 � Y%>1)-(�-105 � Y%<30):� 3:�X%,Y%)�(255); <6� S%(X%,Y%)=96 SC%=SC%+1:S%(X%,Y%)=0:� 1,-15,250,2 F�� 3:�6,0);HI%�6,31);SC%�16,31);10-T%" ";:� T%=10:� 2,-15,15,20:� E%=0 � 19:� E1%=0 � 30:S%(E%,E1%)=0:�:�:�:� 2:�1,8)"You Collected `";SC%:*FX21 P[� SC%>HI% HI%=SC%:� 1:�1,13)"A new HIGH SCORE":� 3:�0,17)"Enter Name (max. 8)"''''N$ Z5� 3:�0,17)" Play Again? (Y/N) ":K$=�:� K$<>"Y":� �
00000000 0d 00 0a 13 f4 20 4c 6f 61 64 27 73 61 20 4d 6f |..... Load'sa Mo| 00000010 6e 65 79 0d 00 14 15 f4 20 42 79 20 53 74 65 76 |ney..... By Stev| 00000020 65 20 42 69 73 73 65 6c 0d 00 1e 58 eb 20 35 3a |e Bissel...X. 5:| 00000030 de 20 53 25 28 31 39 2c 33 30 29 3a ef 32 33 2c |. S%(19,30):.23,| 00000040 31 2c 30 3b 30 3b 30 3b 30 3b 32 33 2c 32 35 35 |1,0;0;0;0;23,255| 00000050 2c 35 36 2c 35 36 2c 31 36 2c 31 32 34 2c 31 36 |,56,56,16,124,16| 00000060 2c 35 36 2c 34 30 2c 34 30 3a 48 49 25 3d 31 3a |,56,40,40:HI%=1:| 00000070 4e 24 3d 22 53 54 45 56 45 22 3a 2a 46 58 31 36 |N$="STEVE":*FX16| 00000080 0d 00 28 aa f5 3a db 3a 58 25 3d 31 30 3a 59 25 |..(..:.:X%=10:Y%| 00000090 3d 31 35 3a 53 43 25 3d 30 3a fb 20 32 3a f1 22 |=15:SC%=0:. 2:."| 000000a0 48 49 47 48 20 60 22 8a 31 31 2c 30 29 4e 24 8a |HIGH `".11,0)N$.| 000000b0 30 2c 33 31 29 22 43 41 53 48 20 60 22 8a 31 31 |0,31)"CASH `".11| 000000c0 2c 33 31 29 22 54 49 4d 45 22 3b 3a d1 3d 30 3a |,31)"TIME";:.=0:| 000000d0 f5 3a 54 25 3d 91 2f 31 30 30 3a 50 50 25 3d b3 |.:T%=./100:PP%=.| 000000e0 28 31 30 29 3a e7 20 50 50 25 3e 38 20 50 58 25 |(10):. PP%>8 PX%| 000000f0 3d b3 28 32 30 29 2d 31 3a 50 59 25 3d 28 b3 28 |=.(20)-1:PY%=(.(| 00000100 33 30 29 2b 31 29 2d 31 3a fb 20 31 3a f1 8a 50 |30)+1)-1:. 1:..P| 00000110 58 25 2c 50 59 25 29 22 60 22 3b 3a 53 25 28 50 |X%,PY%)"`";:S%(P| 00000120 58 25 2c 50 59 25 29 3d 39 36 0d 00 32 6e fb 30 |X%,PY%)=96..2n.0| 00000130 3a f1 8a 58 25 2c 59 25 29 22 20 22 3b 3a 58 25 |:..X%,Y%)" ";:X%| 00000140 3d 58 25 2b 28 a6 2d 39 38 20 80 20 58 25 3e 30 |=X%+(.-98 . X%>0| 00000150 29 2d 28 a6 2d 36 37 20 80 20 58 25 3c 31 39 29 |)-(.-67 . X%<19)| 00000160 3a 59 25 3d 59 25 2b 28 a6 2d 37 33 20 80 20 59 |:Y%=Y%+(.-73 . Y| 00000170 25 3e 31 29 2d 28 a6 2d 31 30 35 20 80 20 59 25 |%>1)-(.-105 . Y%| 00000180 3c 33 30 29 3a fb 20 33 3a f1 8a 58 25 2c 59 25 |<30):. 3:..X%,Y%| 00000190 29 bd 28 32 35 35 29 3b 0d 00 3c 36 e7 20 53 25 |).(255);..<6. S%| 000001a0 28 58 25 2c 59 25 29 3d 39 36 20 53 43 25 3d 53 |(X%,Y%)=96 SC%=S| 000001b0 43 25 2b 31 3a 53 25 28 58 25 2c 59 25 29 3d 30 |C%+1:S%(X%,Y%)=0| 000001c0 3a d4 20 31 2c 2d 31 35 2c 32 35 30 2c 32 0d 00 |:. 1,-15,250,2..| 000001d0 46 95 fb 20 33 3a f1 8a 36 2c 30 29 3b 48 49 25 |F.. 3:..6,0);HI%| 000001e0 8a 36 2c 33 31 29 3b 53 43 25 8a 31 36 2c 33 31 |.6,31);SC%.16,31| 000001f0 29 3b 31 30 2d 54 25 22 20 22 3b 3a fd 20 54 25 |);10-T%" ";:. T%| 00000200 3d 31 30 3a d4 20 32 2c 2d 31 35 2c 31 35 2c 32 |=10:. 2,-15,15,2| 00000210 30 3a e3 20 45 25 3d 30 20 b8 20 31 39 3a e3 20 |0:. E%=0 . 19:. | 00000220 45 31 25 3d 30 20 b8 20 33 30 3a 53 25 28 45 25 |E1%=0 . 30:S%(E%| 00000230 2c 45 31 25 29 3d 30 3a ed 3a ed 3a db 3a fb 20 |,E1%)=0:.:.:.:. | 00000240 32 3a f1 8a 31 2c 38 29 22 59 6f 75 20 43 6f 6c |2:..1,8)"You Col| 00000250 6c 65 63 74 65 64 20 60 22 3b 53 43 25 3a 2a 46 |lected `";SC%:*F| 00000260 58 32 31 0d 00 50 5b e7 20 53 43 25 3e 48 49 25 |X21..P[. SC%>HI%| 00000270 20 48 49 25 3d 53 43 25 3a fb 20 31 3a f1 8a 31 | HI%=SC%:. 1:..1| 00000280 2c 31 33 29 22 41 20 6e 65 77 20 20 48 49 47 48 |,13)"A new HIGH| 00000290 20 53 43 4f 52 45 22 3a fb 20 33 3a e8 8a 30 2c | SCORE":. 3:..0,| 000002a0 31 37 29 22 45 6e 74 65 72 20 4e 61 6d 65 20 28 |17)"Enter Name (| 000002b0 6d 61 78 2e 20 38 29 22 27 27 27 27 4e 24 0d 00 |max. 8)"''''N$..| 000002c0 5a 35 fb 20 33 3a f1 8a 30 2c 31 37 29 22 20 50 |Z5. 3:..0,17)" P| 000002d0 6c 61 79 20 41 67 61 69 6e 3f 20 28 59 2f 4e 29 |lay Again? (Y/N)| 000002e0 20 22 3a 4b 24 3d be 3a fd 20 4b 24 3c 3e 22 59 | ":K$=.:. K$<>"Y| 000002f0 22 3a db 0d ff |":...| 000002f5
L'sa-Money.m0
L'sa-Money.m1
L'sa-Money.m2
L'sa-Money.m4
L'sa-Money.m5
.