Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_20.ADF » G/CASmods
G/CASmods
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 ADFS disks » Electron_User_Group » EUG_20.ADF |
| Filename: | G/CASmods |
| Read OK: | ✔ |
| File size: | 014C bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
40ONERROR IF ERR=17 THENRUN ELSEMODE6:REPORT:PRINT" at line ";ERL:END 70MODE1:VDU23,1,0;0;0;0; 150IFmv%=FALSE THEN VDU7:PRINTTAB(10)"You can't move there!";:TIME=0:REPEATUNTILTIME>500:GOTO110 180UNTILwin%=TRUE 222INPUT''"Enter Deal No. "m% 224IFm%=0 m%=ABS(RND(-TIME)) 226G=RND(-m%) 245CLS 885PRINTTAB(0,1);"Deal No. ";m% 890PRINTTAB(6,2);"Move from? "; 940PRINTTAB(26,2);"Move to? "; 1010REPEAT:K$=INKEY$0:UNTILK$>="A" ANDK$<="H" OR flag% AND (K$>="1" ANDK$<="4")
('� � �=17 �� ��6:�:�" at line ";�:�
F�1:�23,1,0;0;0;0;
�?�mv%=� � �7:�10)"You can't move there!";:�=0:���>500:�Dn@
� �win%=�
��''"Enter Deal No. "m%
��m%=0 m%=�(�(-�))
� G=�(-m%)
��
u�0,1);"Deal No. ";m%
z�6,2);"Move from? ";
��26,2);"Move to? ";
�:�:K$=�0:�K$>="A" �K$<="H" � flag% � (K$>="1" �K$<="4")
� 00000000 0d 00 28 27 ee 85 20 e7 20 9f 3d 31 37 20 8c f9 |..('.. . .=17 ..|
00000010 20 8b eb 36 3a f6 3a f1 22 20 61 74 20 6c 69 6e | ..6:.:." at lin|
00000020 65 20 22 3b 9e 3a e0 0d 00 46 15 eb 31 3a ef 32 |e ";.:...F..1:.2|
00000030 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 0d 00 96 3f |3,1,0;0;0;0;...?|
00000040 e7 6d 76 25 3d a3 20 8c 20 ef 37 3a f1 8a 31 30 |.mv%=. . .7:..10|
00000050 29 22 59 6f 75 20 63 61 6e 27 74 20 6d 6f 76 65 |)"You can't move|
00000060 20 74 68 65 72 65 21 22 3b 3a d1 3d 30 3a f5 fd | there!";:.=0:..|
00000070 91 3e 35 30 30 3a e5 8d 44 6e 40 0d 00 b4 0b fd |.>500:..Dn@.....|
00000080 77 69 6e 25 3d b9 0d 00 de 1a e8 27 27 22 45 6e |win%=......''"En|
00000090 74 65 72 20 44 65 61 6c 20 4e 6f 2e 20 22 6d 25 |ter Deal No. "m%|
000000a0 0d 00 e0 15 e7 6d 25 3d 30 20 6d 25 3d 94 28 b3 |.....m%=0 m%=.(.|
000000b0 28 2d 91 29 29 0d 00 e2 0c 47 3d b3 28 2d 6d 25 |(-.))....G=.(-m%|
000000c0 29 0d 00 f5 05 db 0d 03 75 19 f1 8a 30 2c 31 29 |).......u...0,1)|
000000d0 3b 22 44 65 61 6c 20 4e 6f 2e 20 22 3b 6d 25 0d |;"Deal No. ";m%.|
000000e0 03 7a 19 f1 8a 36 2c 32 29 3b 22 4d 6f 76 65 20 |.z...6,2);"Move |
000000f0 66 72 6f 6d 3f 20 22 3b 0d 03 ac 18 f1 8a 32 36 |from? ";......26|
00000100 2c 32 29 3b 22 4d 6f 76 65 20 74 6f 3f 20 22 3b |,2);"Move to? ";|
00000110 0d 03 f2 3a f5 3a 4b 24 3d bf 30 3a fd 4b 24 3e |...:.:K$=.0:.K$>|
00000120 3d 22 41 22 20 80 4b 24 3c 3d 22 48 22 20 84 20 |="A" .K$<="H" . |
00000130 66 6c 61 67 25 20 80 20 28 4b 24 3e 3d 22 31 22 |flag% . (K$>="1"|
00000140 20 80 4b 24 3c 3d 22 34 22 29 0d ff | .K$<="4")..|
0000014c 
.