Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape10b_d46_c16_ghost_maze.wav » cards
cards
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_tape10b_d46_c16_ghost_maze.wav |
| Filename: | cards |
| Read OK: | ✔ |
| File size: | 017F bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
5 REM TYPE,NUMBER(EVEN),COLOUR
10 SCNCLR
20 READ A$,B,C
24 IF A$="F" THEN 24
26 COLOR 1,C,6
30 PRINT"╭🭸🭸🭸🭸🭸╮":PRINT"🭲 🭲":PRINT"🭲 ";B;" 🭲"
40 FOR ZX=1 TO B STEP 2
50 PRINT"🭲 🭲"
60 PRINT"🭲 ";A$;" ";A$;" 🭲"
70 NEXT:PRINT"🭲 🭲":PRINT"🭲 ";B;"🭲":PRINT"🭲 🭲"
80 PRINT"╰🭸🭸🭸🭸🭸╯"
90 FOR A=1 TO 1500:NEXT:SCNCLR:GOTO 20
100 DATA "♥",6,3,"♣",8,1,"♦",6,3,"♠",2,1,"♣",6,1,"♠",8,1
110 DATA "♣",4,1,"♥",4,3,"♦",6,1,"♣",6,1,"♠",2,1,"JOKER",2,14,"F",0,0
� TYPE,NUMBER(EVEN),COLOUR & � 3 � A$,B,C E � A$�"F" � 24 Q � 1,C,6 x �"�������":�"� �":�"� ";B;" �" �( � ZX�1 � B � 2 �2 �"� �" �< �"� ";A$;" ";A$;" �" �F �:�"� �":�"� ";B;"�":�"� �" �P �"�������" Z � A�1 � 1500:�:�:� 20 ;d � "�",6,3,"�",8,1,"�",6,3,"�",2,1,"�",6,1,"�",8,1 ~n � "�",4,1,"�",4,3,"�",6,1,"�",6,1,"�",2,1,"JOKER",2,14,"F",0,0
PE@. type,number(even),colour@&PJ@.@3PT@. a$,b,c@ePX@. a$."f" . 24@qPZ@. 1,c,6@XP.@.".......":.". .":.". ";b;" ."@.P(@. zx.1 . b . 2@.P2@.". ."@.P<@.". ";a$;" ";a$;" ."@.Pf@.:.". .":.". ";b;".":.". ."@.Pp@."......."@EQz@. a.1 . 1500:.:.:. 20@;QD@. ".",6,3,".",8,1,".",6,3,".",2,1,".",6,1,".",8,1@.QN@. ".",4,1,".",4,3,".",6,1,".",6,1,".",2,1,"joker",2,14,"f",0,0@@@
00000000 20 10 05 00 8f 20 54 59 50 45 2c 4e 55 4d 42 45 | .... TYPE,NUMBE| 00000010 52 28 45 56 45 4e 29 2c 43 4f 4c 4f 55 52 00 26 |R(EVEN),COLOUR.&| 00000020 10 0a 00 e8 00 33 10 14 00 87 20 41 24 2c 42 2c |.....3.... A$,B,| 00000030 43 00 45 10 18 00 8b 20 41 24 b2 22 46 22 20 a7 |C.E.... A$."F" .| 00000040 20 32 34 00 51 10 1a 00 e7 20 31 2c 43 2c 36 00 | 24.Q.... 1,C,6.| 00000050 78 10 1e 00 99 22 d5 c3 c3 c3 c3 c3 c9 22 3a 99 |x....".......":.| 00000060 22 c2 20 20 20 20 20 c2 22 3a 99 22 c2 20 22 3b |". .":.". ";| 00000070 42 3b 22 20 c2 22 00 8b 10 28 00 81 20 5a 58 b2 |B;" ."...(.. ZX.| 00000080 31 20 a4 20 42 20 a9 20 32 00 9a 10 32 00 99 22 |1 . B . 2...2.."| 00000090 c2 20 20 20 20 20 c2 22 00 b3 10 3c 00 99 22 c2 |. ."...<..".| 000000a0 20 22 3b 41 24 3b 22 20 22 3b 41 24 3b 22 20 c2 | ";A$;" ";A$;" .| 000000b0 22 00 dc 10 46 00 82 3a 99 22 c2 20 20 20 20 20 |"...F..:.". | 000000c0 c2 22 3a 99 22 c2 20 20 22 3b 42 3b 22 c2 22 3a |.":.". ";B;".":| 000000d0 99 22 c2 20 20 20 20 20 c2 22 00 eb 10 50 00 99 |.". ."...P..| 000000e0 22 ca c3 c3 c3 c3 c3 cb 22 00 05 11 5a 00 81 20 |"......."...Z.. | 000000f0 41 b2 31 20 a4 20 31 35 30 30 3a 82 3a e8 3a 89 |A.1 . 1500:.:.:.| 00000100 20 32 30 00 3b 11 64 00 83 20 22 d3 22 2c 36 2c | 20.;.d.. ".",6,| 00000110 33 2c 22 d8 22 2c 38 2c 31 2c 22 da 22 2c 36 2c |3,".",8,1,".",6,| 00000120 33 2c 22 c1 22 2c 32 2c 31 2c 22 d8 22 2c 36 2c |3,".",2,1,".",6,| 00000130 31 2c 22 c1 22 2c 38 2c 31 00 7e 11 6e 00 83 20 |1,".",8,1.~.n.. | 00000140 22 d8 22 2c 34 2c 31 2c 22 d3 22 2c 34 2c 33 2c |".",4,1,".",4,3,| 00000150 22 da 22 2c 36 2c 31 2c 22 d8 22 2c 36 2c 31 2c |".",6,1,".",6,1,| 00000160 22 c1 22 2c 32 2c 31 2c 22 4a 4f 4b 45 52 22 2c |".",2,1,"JOKER",| 00000170 32 2c 31 34 2c 22 46 22 2c 30 2c 30 00 00 00 |2,14,"F",0,0...| 0000017f
.