Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape28b_acorn_eu_1991_october.wav » Taipei
Taipei
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 » Electron_User » Electron_User_tape28b_acorn_eu_1991_october.wav |
| Filename: | Taipei |
| Read OK: | ✔ |
| File size: | 01D8 bytes |
| Load address: | FFFF1A00 |
| Exec address: | FFFF8023 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_09_08_D-MU09_08.ssd » TAIPEI
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape28a_acorn_eu_1991_october.wav » Taipei
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape28b_acorn_eu_1991_october.wav » Taipei
File contents
10REM TAIPEI
20REM by Albert Gardner
30REM (c) The Micro User
40MODE7
50ENVELOPE1,1,0,0,0,0,0,0,0,0,-2,-2,60,0
60*FX212,0
70*FX213,31
80PROCprt("TAIPEI",5,2,1)
90PROCprt("MAH JONGG PATIENCE",8,1,1):PROCprt("by",11,3,0)
100PROCprt("Albert Gardner",13,6,1)
110PROCprt("Deal Number ",17,5,0):INPUTTAB(24,17)""M%
120IFM%=0 M%=TIME:N%=0 ELSE PRINTTAB(15,19);CHR$133;"Redeals ";:INPUT""N%
130PAGE=&2100:CHAIN"TAI2"
140:
150DEFPROCprt(A$,L%,C%,D%)
160IF D% A$=CHR$141+A$
170X%=(40-(LENA$))DIV 2 -1
180FORY%=L%TOL%+D%:PRINTTAB(X%,Y%);CHR$(128+C%);A$:NEXT
190ENDPROC
� TAIPEI
� by Albert Gardner
� (c) The Micro User
(�7
2#�1,1,0,0,0,0,0,0,0,0,-2,-2,60,0
< *FX212,0
F
*FX213,31
P�prt("TAIPEI",5,2,1)
Z6�prt("MAH JONGG PATIENCE",8,1,1):�prt("by",11,3,0)
d!�prt("Albert Gardner",13,6,1)
n0�prt("Deal Number ",17,5,0):�24,17)""M%
x5�M%=0 M%=�:N%=0 � �15,19);�133;"Redeals ";:�""N%
��=&2100:�"TAI2"
�:
���prt(A$,L%,C%,D%)
�� D% A$=�141+A$
�X%=(40-(�A$))� 2 -1
�(�Y%=L%�L%+D%:�X%,Y%);�(128+C%);A$:�
��
� 00000000 0d 00 0a 0c f4 20 54 41 49 50 45 49 0d 00 14 17 |..... TAIPEI....|
00000010 f4 20 62 79 20 41 6c 62 65 72 74 20 47 61 72 64 |. by Albert Gard|
00000020 6e 65 72 0d 00 1e 18 f4 20 28 63 29 20 54 68 65 |ner..... (c) The|
00000030 20 4d 69 63 72 6f 20 55 73 65 72 0d 00 28 06 eb | Micro User..(..|
00000040 37 0d 00 32 23 e2 31 2c 31 2c 30 2c 30 2c 30 2c |7..2#.1,1,0,0,0,|
00000050 30 2c 30 2c 30 2c 30 2c 30 2c 2d 32 2c 2d 32 2c |0,0,0,0,0,-2,-2,|
00000060 36 30 2c 30 0d 00 3c 0c 2a 46 58 32 31 32 2c 30 |60,0..<.*FX212,0|
00000070 0d 00 46 0d 2a 46 58 32 31 33 2c 33 31 0d 00 50 |..F.*FX213,31..P|
00000080 18 f2 70 72 74 28 22 54 41 49 50 45 49 22 2c 35 |..prt("TAIPEI",5|
00000090 2c 32 2c 31 29 0d 00 5a 36 f2 70 72 74 28 22 4d |,2,1)..Z6.prt("M|
000000a0 41 48 20 4a 4f 4e 47 47 20 50 41 54 49 45 4e 43 |AH JONGG PATIENC|
000000b0 45 22 2c 38 2c 31 2c 31 29 3a f2 70 72 74 28 22 |E",8,1,1):.prt("|
000000c0 62 79 22 2c 31 31 2c 33 2c 30 29 0d 00 64 21 f2 |by",11,3,0)..d!.|
000000d0 70 72 74 28 22 41 6c 62 65 72 74 20 47 61 72 64 |prt("Albert Gard|
000000e0 6e 65 72 22 2c 31 33 2c 36 2c 31 29 0d 00 6e 30 |ner",13,6,1)..n0|
000000f0 f2 70 72 74 28 22 44 65 61 6c 20 4e 75 6d 62 65 |.prt("Deal Numbe|
00000100 72 20 20 20 20 20 22 2c 31 37 2c 35 2c 30 29 3a |r ",17,5,0):|
00000110 e8 8a 32 34 2c 31 37 29 22 22 4d 25 0d 00 78 35 |..24,17)""M%..x5|
00000120 e7 4d 25 3d 30 20 4d 25 3d 91 3a 4e 25 3d 30 20 |.M%=0 M%=.:N%=0 |
00000130 8b 20 f1 8a 31 35 2c 31 39 29 3b bd 31 33 33 3b |. ..15,19);.133;|
00000140 22 52 65 64 65 61 6c 73 20 22 3b 3a e8 22 22 4e |"Redeals ";:.""N|
00000150 25 0d 00 82 13 d0 3d 26 32 31 30 30 3a d7 22 54 |%.....=&2100:."T|
00000160 41 49 32 22 0d 00 8c 05 3a 0d 00 96 16 dd f2 70 |AI2"....:......p|
00000170 72 74 28 41 24 2c 4c 25 2c 43 25 2c 44 25 29 0d |rt(A$,L%,C%,D%).|
00000180 00 a0 13 e7 20 44 25 20 41 24 3d bd 31 34 31 2b |.... D% A$=.141+|
00000190 41 24 0d 00 aa 17 58 25 3d 28 34 30 2d 28 a9 41 |A$....X%=(40-(.A|
000001a0 24 29 29 81 20 32 20 2d 31 0d 00 b4 28 e3 59 25 |$)). 2 -1...(.Y%|
000001b0 3d 4c 25 b8 4c 25 2b 44 25 3a f1 8a 58 25 2c 59 |=L%.L%+D%:..X%,Y|
000001c0 25 29 3b bd 28 31 32 38 2b 43 25 29 3b 41 24 3a |%);.(128+C%);A$:|
000001d0 ed 0d 00 be 05 e1 0d ff |........|
000001d8 
.