SHAPE MATCH
FILE INFORMATION
FILENAME(S): SHAPE MATCH
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 18:07:04
APPEARS ON: 2 disk(s)
FILE HASH
62fd1846c89497683e5e3b269ec1db199b3d2c0559a04506691cf9ec2897ce56
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE JUNE 84 | SHAPE MATCH | PRG | Xii | 25 | 5 | DOWNLOAD FILE |
| C64 SPEL 90 2 | SHAPE MATCH | PRG | DuncanTwain | 3 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 32 00 8F 20 2A 2A 20 20 20 20 20 20 |..(.2.. ** |
00000010: 20 20 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 20 | INITIALIZE |
00000020: 20 20 20 20 20 20 2A 2A 00 38 08 34 00 86 20 43 | **.8.4.. C|
00000030: 4C 28 32 30 2C 34 30 29 00 75 08 35 00 99 22 93 |L(20,40).u.5..".|
00000040: 1F 22 3A 9E 36 35 35 31 37 3A 57 49 B2 C2 28 37 |.":.65517:WI..(7|
00000050: 38 31 29 3A 8B 57 49 B2 32 32 A7 57 49 B2 30 3A |81):.WI.22.WI.0:|
00000060: 97 33 36 38 37 39 2C 32 33 38 3A 53 53 B2 32 3A |.36879,238:SS.2:|
00000070: 50 48 B2 2E 35 00 98 08 36 00 8B 20 57 49 B2 30 |PH..5...6.. WI.0|
00000080: A7 41 41 24 B2 22 56 49 43 22 3A 42 42 24 B2 22 |.AA$."VIC":BB$."|
00000090: 56 49 43 22 3A 89 36 30 00 BF 08 37 00 97 35 33 |VIC":.60...7..53|
000000A0: 32 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 35 3A |280,1:.53281,15:|
000000B0: 53 53 B2 31 32 3A 57 49 B2 38 3A 50 48 B2 31 00 |SS.12:WI.8:PH.1.|
000000C0: EC 08 39 00 41 41 24 B2 22 36 34 11 9D 9D 9D 9D |..9.AA$."64.....|
000000D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000000E0: 9D 9D 22 3A 42 42 24 B2 22 36 34 22 00 2B 09 3C |..":BB$."64".+.<|
000000F0: 00 8B 20 57 49 B2 30 20 A7 20 43 4C 28 34 2C 31 |.. WI.0 . CL(4,1|
00000100: 38 29 B2 31 3A 43 4C 28 34 2C 33 31 29 B2 32 3A |8).1:CL(4,31).2:|
00000110: 43 4C 28 31 30 2C 31 38 29 B2 33 3A 43 4C 28 31 |CL(10,18).3:CL(1|
00000120: 30 2C 33 31 29 B2 34 3A 89 38 30 00 51 09 3F 00 |0,31).4:.80.Q.?.|
00000130: 81 41 B2 36 A4 31 32 A9 36 3A 81 42 B2 31 37 A4 |.A.6.12.6:.B.17.|
00000140: 33 33 A9 31 36 3A 53 B2 36 34 36 3A 97 53 2C 53 |33.16:S.646:.S,S|
00000150: 53 00 6A 09 46 00 54 B2 54 AA 31 3A 43 4C 28 41 |S.j.F.T.T.1:CL(A|
00000160: 2C 42 29 B2 54 3A 82 42 2C 41 00 8F 09 50 00 99 |,B).T:.B,A...P..|
00000170: 22 11 11 11 11 11 11 22 3B 3A 99 A3 57 49 AA 35 |"......";:..WI.5|
00000180: 29 22 90 53 48 41 50 45 20 4D 41 54 43 48 22 00 |)".SHAPE MATCH".|
00000190: B1 09 BE 00 8D 33 30 30 30 3A 8F 20 2A 2A 20 20 |.....3000:. ** |
000001A0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 20 20 2A |INSTRUCTIONS *|
000001B0: 2A 00 CF 09 C8 00 8D 31 30 30 30 3A 8F 20 2A 2A |*......1000:. **|
000001C0: 20 50 52 49 4E 54 20 42 4F 41 52 44 20 2A 2A 00 | PRINT BOARD **.|
000001D0: DF 09 D2 00 81 54 B2 31 A4 31 30 30 30 3A 82 00 |.....T.1.1000:..|
000001E0: 05 0A 2C 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..,.. **********|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 00 2B 0A 2E 01 8F 20 2A 2A 20 20 |*****.+.... ** |
00000210: 20 20 20 20 20 20 53 45 4C 45 43 54 20 53 48 41 | SELECT SHA|
00000220: 50 45 53 20 20 20 20 20 20 2A 2A 00 51 0A 31 01 |PES **.Q.1.|
00000230: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 00 5E 0A 32 01 4B B2 BB 28 AB 54 49 29 00 7A |*.^.2.K..(.TI).z|
00000260: 0A 36 01 4B B2 B5 28 BB 28 30 29 AC 34 29 AA 31 |.6.K..(.(0).4).1|
00000270: 3A 8B 4B B2 4B 4B A7 33 31 30 00 80 0A 40 01 8F |:.K.KK.310...@..|
00000280: 00 B6 0A 54 01 81 54 B2 31 A4 33 3A 8D 32 30 30 |...T..T.1.3:.200|
00000290: 30 3A 42 4F 24 B2 53 48 24 28 54 29 3A 41 B2 34 |0:BO$.SH$(T):A.4|
000002A0: AA 54 3A 42 B2 31 38 3A 99 22 13 22 3A 8D 31 31 |.T:B.18:.".":.11|
000002B0: 37 30 3A 82 20 54 00 D8 0A 59 01 8D 31 31 38 30 |70:. T...Y..1180|
000002C0: 3A 8F 20 2A 2A 20 20 20 20 20 20 44 45 4C 41 59 |:. ** DELAY|
000002D0: 20 20 20 20 20 20 2A 2A 00 0A 0B 5C 01 8B 57 49 | **...\..WI|
000002E0: B2 30 A7 81 54 B2 31 A4 33 3A 8D 32 31 30 30 3A |.0..T.1.3:.2100:|
000002F0: 42 4F 24 B2 53 48 24 28 54 29 3A 41 B2 34 AA 54 |BO$.SH$(T):A.4.T|
00000300: 3A 42 B2 33 32 3A 99 22 13 22 00 22 0B 5D 01 8B |:B.32:.".".".]..|
00000310: 57 49 B2 30 A7 8D 31 31 37 30 3A 82 54 3A 89 33 |WI.0..1170:.T:.3|
00000320: 35 35 00 58 0B 5E 01 81 54 B2 31 A4 33 3A 8D 32 |55.X.^..T.1.3:.2|
00000330: 31 30 30 3A 42 4F 24 B2 53 48 24 28 54 29 3A 41 |100:BO$.SH$(T):A|
00000340: B2 34 AA 54 3A 42 B2 32 38 3A 99 22 13 22 3A 8D |.4.T:B.28:.".":.|
00000350: 31 31 37 30 3A 82 20 54 00 62 0B 63 01 8D 31 31 |1170:. T.b.c..11|
00000360: 38 30 00 99 0B 68 01 81 54 B2 31 A4 33 3A 8D 32 |80...h..T.1.3:.2|
00000370: 32 30 30 3A 42 4F 24 B2 53 48 24 28 54 29 3A 41 |200:BO$.SH$(T):A|
00000380: B2 31 30 AA 54 3A 42 B2 31 38 3A 99 22 13 22 3A |.10.T:B.18:.".":|
00000390: 8D 31 31 37 30 3A 82 20 54 00 A3 0B 6D 01 8D 31 |.1170:. T...m..1|
000003A0: 31 38 30 00 DA 0B 72 01 81 54 B2 31 A4 33 3A 8D |180...r..T.1.3:.|
000003B0: 32 33 30 30 3A 42 4F 24 B2 53 48 24 28 54 29 3A |2300:BO$.SH$(T):|
000003C0: 41 B2 31 30 AA 54 3A 42 B2 32 38 3A 99 22 13 22 |A.10.T:B.28:."."|
000003D0: 3A 8D 31 31 37 30 3A 82 20 54 00 E4 0B 77 01 8D |:.1170:. T...w..|
000003E0: 31 31 38 30 00 EF 0B 7C 01 81 54 B2 31 A4 33 00 |1180...|..T.1.3.|
000003F0: 0A 0C 7F 01 91 4B 8D 32 30 30 30 2C 32 31 30 30 |.....K.2000,2100|
00000400: 2C 32 32 30 30 2C 32 33 30 30 00 38 0C 81 01 42 |,2200,2300.8...B|
00000410: 4F 24 B2 53 48 24 28 54 29 3A 41 B2 20 38 AA 54 |O$.SH$(T):A. 8.T|
00000420: 3A 42 B2 33 3A 99 22 13 22 3A 8D 31 31 37 30 3A |:B.3:.".":.1170:|
00000430: 82 20 54 3A 4B 4B B2 4B 00 3E 0C F4 01 8F 00 48 |. T:KK.K.>.....H|
00000440: 0C 26 02 8F 20 45 4E 44 00 6E 0C 58 02 8F 20 2A |.&.. END.n.X.. *|
00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 94 |**************..|
00000470: 0C 5A 02 8F 20 2A 2A 20 20 20 20 20 20 20 20 20 |.Z.. ** |
00000480: 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 20 20 20 | MOVE CURSOR |
00000490: 20 20 2A 2A 00 BA 0C 5C 02 8F 20 2A 2A 2A 2A 2A | **...\.. *****|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D0 0C 5D 02 99 |**********...]..|
000004C0: 22 13 22 3A 43 B2 31 3A 81 4E 54 B2 31 A4 31 30 |".":C.1:.NT.1.10|
000004D0: 00 0A 0D 62 02 81 54 B2 31 A4 31 35 3A 42 4F 24 |...b..T.1.15:BO$|
000004E0: B2 C7 28 36 33 29 3A 8B 54 AD 32 B2 B5 28 54 AD |..(63):.T.2..(T.|
000004F0: 32 29 A7 20 42 4F 24 B2 C7 28 31 38 29 AA C7 28 |2). BO$..(18)..(|
00000500: 36 33 29 AA C7 28 31 34 36 29 00 2C 0D 65 02 8B |63)..(146).,.e..|
00000510: 20 57 49 B2 30 A7 20 91 20 43 20 89 20 36 36 30 | WI.0. . C . 660|
00000520: 2C 36 37 33 2C 36 38 33 2C 36 38 37 00 44 0D 67 |,673,683,687.D.g|
00000530: 02 91 43 20 89 36 37 30 2C 36 37 35 2C 36 38 30 |..C .670,675,680|
00000540: 2C 36 38 35 00 6E 0D 6C 02 8D 31 31 37 30 3A 99 |,685.n.l..1170:.|
00000550: 22 13 22 3A 81 54 54 B2 31 A4 20 37 35 3A 20 20 |".":.TT.1. 75: |
00000560: 20 20 20 20 20 20 82 54 54 3A 89 37 30 30 00 76 | .TT:.700.v|
00000570: 0D 71 02 82 20 54 00 AB 0D 76 02 42 4F 24 B2 C7 |.q.. T...v.BO$..|
00000580: 28 33 32 29 3A 8D 31 31 37 30 3A 99 22 13 22 3A |(32):.1170:.".":|
00000590: 20 20 20 20 20 20 20 20 81 54 54 B2 31 A4 20 37 | .TT.1. 7|
000005A0: 35 3A 82 54 54 3A 43 B2 43 AA 31 00 B8 0D 80 02 |5:.TT:C.C.1.....|
000005B0: 8B 43 B1 34 A7 43 B2 31 00 D6 0D 8A 02 82 4E 54 |.C.4.C.1......NT|
000005C0: 3A 89 36 30 30 3A 8F 20 2A 2A 20 20 52 45 50 45 |:.600:. ** REPE|
000005D0: 41 54 20 20 2A 2A 00 EC 0D 94 02 41 B2 34 3A 42 |AT **.....A.4:B|
000005E0: B2 31 38 3A 4C B2 31 3A 89 36 32 30 00 02 0E 9E |.18:L.1:.620....|
000005F0: 02 41 B2 36 3A 42 B2 31 37 3A 4C B2 31 3A 89 36 |.A.6:B.17:L.1:.6|
00000600: 32 30 00 19 0E A1 02 41 B2 31 30 3A 42 B2 31 38 |20.....A.10:B.18|
00000610: 3A 4C B2 32 3A 89 36 32 30 00 30 0E A3 02 41 B2 |:L.2:.620.0...A.|
00000620: 31 32 3A 42 B2 31 37 3A 4C B2 32 3A 89 36 32 30 |12:B.17:L.2:.620|
00000630: 00 46 0E A8 02 41 B2 36 3A 42 B2 33 33 3A 4C B2 |.F...A.6:B.33:L.|
00000640: 33 3A 89 36 32 30 00 5C 0E AB 02 41 B2 34 3A 42 |3:.620.\...A.4:B|
00000650: B2 33 31 3A 4C B2 33 3A 89 36 32 30 00 73 0E AD |.31:L.3:.620.s..|
00000660: 02 41 B2 31 32 3A 42 B2 33 33 3A 4C B2 34 3A 89 |.A.12:B.33:L.4:.|
00000670: 36 32 30 00 8A 0E AF 02 41 B2 31 30 3A 42 B2 33 |620.....A.10:B.3|
00000680: 31 3A 4C B2 34 3A 89 36 32 30 00 B0 0E BC 02 8F |1:L.4:.620......|
00000690: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006B0: 00 D6 0E BE 02 8F 20 2A 2A 20 20 20 20 20 43 48 |...... ** CH|
000006C0: 45 43 4B 20 46 4F 52 20 52 45 53 50 4F 4E 53 45 |ECK FOR RESPONSE|
000006D0: 20 20 20 20 2A 2A 00 FC 0E C0 02 8F 20 2A 2A 2A | **...... ***|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 10 0F C6 |************....|
00000700: 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 20 36 32 35 |..A$:.A$."". 625|
00000710: 00 25 0F CB 02 8B 20 41 24 B2 22 51 22 A7 20 99 |.%.... A$."Q". .|
00000720: 22 93 22 3A 80 00 43 0F D0 02 8B 43 4C 28 41 2C |".":..C....CL(A,|
00000730: 42 29 B2 4B 20 A7 38 30 30 3A 8F 20 43 4F 52 52 |B).K .800:. CORR|
00000740: 45 43 54 00 5F 0F E4 02 89 38 35 30 3A 20 8F 20 |ECT._....850: . |
00000750: 2A 2A 20 20 57 52 4F 4E 47 20 20 20 20 2A 2A 00 |** WRONG **.|
00000760: 85 0F 20 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. .. **********|
00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000780: 2A 2A 2A 2A 2A 00 AB 0F 22 03 8F 20 2A 2A 20 20 |*****...".. ** |
00000790: 20 20 20 20 20 20 20 43 4F 52 52 45 43 54 20 41 | CORRECT A|
000007A0: 4E 53 57 45 52 20 20 20 20 2A 2A 00 D1 0F 24 03 |NSWER **...$.|
000007B0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007D0: 2A 00 00 10 2A 03 42 4F 24 B2 22 12 05 59 45 53 |*...*.BO$."..YES|
000007E0: 21 20 54 48 41 54 27 53 20 52 49 47 48 54 21 22 |! THAT'S RIGHT!"|
000007F0: 3A 41 B2 31 38 3A 8D 31 31 37 34 3A 99 22 13 22 |:A.18:.1174:."."|
00000800: 00 2F 10 34 03 42 4F 24 B2 22 98 12 90 20 50 52 |./.4.BO$."... PR|
00000810: 45 53 53 20 41 4E 59 20 4B 45 59 20 05 92 22 3A |ESS ANY KEY ..":|
00000820: 41 B2 32 30 3A 8D 31 31 37 34 3A 99 22 13 22 00 |A.20:.1174:.".".|
00000830: 42 10 39 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 |B.9..A$:.A$."".8|
00000840: 32 35 00 87 10 3E 03 81 41 B2 31 A4 32 33 3A 42 |25...>..A.1.23:B|
00000850: 4F 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |O$." |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 42 B2 | ":B.|
00000880: 30 3A 8D 31 31 37 30 00 92 10 43 03 99 22 13 22 |0:.1170...C.."."|
00000890: 3A 82 00 B4 10 48 03 89 32 30 30 3A 8F 20 2A 2A |:....H..200:. **|
000008A0: 20 20 52 45 2D 50 52 49 4E 54 20 42 4F 41 52 44 | RE-PRINT BOARD|
000008B0: 20 20 2A 2A 00 DA 10 52 03 8F 20 2A 2A 2A 2A 2A | **...R.. *****|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 11 54 03 8F |**********...T..|
000008E0: 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 57 52 | ** WR|
000008F0: 4F 4E 47 20 41 4E 53 57 45 52 20 20 20 20 2A 2A |ONG ANSWER **|
00000900: 00 26 11 56 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.&.V.. *********|
00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000920: 2A 2A 2A 2A 2A 2A 00 3F 11 57 03 42 4F 24 B2 C7 |******.?.W.BO$..|
00000930: 28 33 32 29 3A 8D 31 31 37 30 3A 99 22 13 22 00 |(32):.1170:.".".|
00000940: 7F 11 5C 03 42 4F 24 B2 22 12 98 90 53 4F 52 52 |..\.BO$."...SORR|
00000950: 59 2E 2E 2E 54 52 59 20 41 47 41 49 4E 2E 2E 2E |Y...TRY AGAIN...|
00000960: 05 92 22 3A 20 20 20 20 20 20 20 41 B2 31 38 3A |..": A.18:|
00000970: 42 B2 31 30 3A 8D 31 31 37 34 3A 99 22 13 22 00 |B.10:.1174:.".".|
00000980: 8F 11 61 03 81 57 B2 31 A4 31 30 30 30 3A 82 00 |..a..W.1.1000:..|
00000990: CB 11 66 03 42 4F 24 B2 22 20 20 20 20 20 20 20 |..f.BO$." |
000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000009B0: 3A 41 B2 31 38 3A 20 20 20 20 20 20 42 B2 31 30 |:A.18: B.10|
000009C0: 3A 8D 31 31 37 34 3A 99 22 13 22 00 DE 11 6B 03 |:.1174:."."...k.|
000009D0: 43 B2 43 AA 31 3A 8B 43 B1 34 A7 43 B2 31 00 E8 |C.C.1:.C.4.C.1..|
000009E0: 11 70 03 89 20 36 32 35 00 0E 12 E7 03 8F 20 20 |.p.. 625...... |
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 18 |**************..|
00000A10: 12 E8 03 99 22 93 1F 22 00 53 12 F7 03 8B 57 49 |...."..".S....WI|
00000A20: B2 30 A7 42 4F 24 B2 22 20 12 B0 C0 C0 C0 C0 C0 |.0.BO$." .......|
00000A30: B2 C0 C0 C0 C0 C0 AE 22 3A 41 B2 33 3A 42 B2 31 |.......":A.3:B.1|
00000A40: 35 3A 8D 20 31 31 37 30 3A 99 22 13 22 3A 89 31 |5:. 1170:.".":.1|
00000A50: 30 33 30 00 89 12 FC 03 41 B2 33 3A 42 B2 31 35 |030.....A.3:B.15|
00000A60: 3A 42 4F 24 B2 22 12 B0 C0 C0 C0 C0 C0 C0 C0 C0 |:BO$."..........|
00000A70: C0 B2 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 92 22 3A 8D |.............":.|
00000A80: 31 31 37 30 3A 99 22 13 22 00 8F 12 01 04 8F 00 |1170:.".".......|
00000A90: A5 12 06 04 81 54 B2 31 A4 35 3A 41 B2 33 AA 54 |.....T.1.5:A.3.T|
00000AA0: 3A 42 B2 31 35 00 DC 12 0B 04 8B 20 57 49 B2 30 |:B.15...... WI.0|
00000AB0: A7 42 4F 24 B2 22 20 12 DD 92 20 20 20 20 20 12 |.BO$." ... .|
00000AC0: DD 92 20 20 20 20 20 12 DD 92 22 3A 8D 31 31 37 |.. ...":.117|
00000AD0: 30 3A 99 22 13 22 3A 89 31 30 34 35 00 0D 13 10 |0:.".":.1045....|
00000AE0: 04 42 4F 24 B2 22 12 C2 92 20 20 20 20 20 20 20 |.BO$."... |
00000AF0: 20 20 12 C2 92 20 20 20 20 20 20 20 20 20 12 C2 | ... ..|
00000B00: 92 22 3A 8D 31 31 37 30 3A 99 22 13 22 00 15 13 |.":.1170:."."...|
00000B10: 15 04 82 20 54 00 50 13 17 04 8B 57 49 B2 30 A7 |... T.P....WI.0.|
00000B20: 41 B2 39 3A 42 B2 31 35 3A 42 4F 24 B2 22 20 12 |A.9:B.15:BO$." .|
00000B30: AB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 B3 92 22 3A |..............":|
00000B40: 8D 31 31 37 30 3A 99 22 13 22 3A 89 31 30 36 30 |.1170:.".":.1060|
00000B50: 00 86 13 1A 04 41 B2 39 3A 42 B2 31 35 3A 42 4F |.....A.9:B.15:BO|
00000B60: 24 B2 22 12 AB C0 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 |$.".............|
00000B70: C0 C0 C0 C0 C0 C0 C0 C0 B3 92 22 3A 8D 31 31 37 |..........":.117|
00000B80: 30 3A 99 22 13 22 00 9C 13 24 04 81 54 B2 31 A4 |0:."."...$..T.1.|
00000B90: 35 3A 41 B2 39 AA 54 3A 42 B2 31 35 00 D2 13 29 |5:A.9.T:B.15...)|
00000BA0: 04 8B 57 49 B2 30 A7 42 4F 24 B2 22 20 12 DD 92 |..WI.0.BO$." ...|
00000BB0: 20 20 20 20 20 12 DD 92 20 20 20 20 20 12 DD 92 | ... ...|
00000BC0: 22 3A 8D 31 31 37 30 3A 99 22 13 22 3A 89 31 30 |":.1170:.".":.10|
00000BD0: 37 33 00 03 14 2E 04 42 4F 24 B2 22 12 C2 92 20 |73.....BO$."... |
00000BE0: 20 20 20 20 20 20 20 20 12 C2 92 20 20 20 20 20 | ... |
00000BF0: 20 20 20 20 12 C2 92 22 3A 8D 31 31 37 30 3A 99 | ...":.1170:.|
00000C00: 22 13 22 00 0A 14 31 04 82 54 00 46 14 36 04 41 |"."...1..T.F.6.A|
00000C10: B2 31 35 3A 42 B2 31 35 3A 8B 57 49 B2 30 A7 42 |.15:B.15:.WI.0.B|
00000C20: 4F 24 B2 22 20 12 AD C0 C0 C0 C0 C0 B1 C0 C0 C0 |O$." ...........|
00000C30: C0 C0 BD 92 22 3A 8D 31 31 37 30 3A 99 22 13 22 |....":.1170:."."|
00000C40: 3A 89 31 30 39 30 00 73 14 38 04 42 4F 24 B2 22 |:.1090.s.8.BO$."|
00000C50: 12 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 |................|
00000C60: C0 C0 C0 C0 C0 BD 92 22 3A 8D 31 31 37 30 3A 99 |.......":.1170:.|
00000C70: 22 13 22 00 93 14 42 04 42 4F 24 B2 54 24 3A 41 |"."...B.BO$.T$:A|
00000C80: B2 32 30 3A 42 B2 31 33 3A 8D 31 31 37 30 3A 99 |.20:B.13:.1170:.|
00000C90: 22 13 22 00 B3 14 45 04 99 A3 57 49 29 22 20 20 |"."...E...WI)" |
00000CA0: 54 59 50 45 20 28 51 29 20 54 4F 20 51 55 49 54 |TYPE (Q) TO QUIT|
00000CB0: 2E 13 22 00 B9 14 47 04 8E 00 DE 14 4C 04 8F 20 |.."...G.....L.. |
00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2B 2A 2A 2A 00 03 |**********+***..|
00000CE0: 15 56 04 8F 20 2A 2A 20 20 20 20 20 20 20 20 20 |.V.. ** |
00000CF0: 20 20 50 52 49 4E 54 20 20 20 20 20 20 20 20 20 | PRINT |
00000D00: 20 2A 2A 00 28 15 57 04 8F 20 2A 2A 2A 2A 2A 2A | **.(.W.. ******|
00000D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 00 48 15 92 04 81 49 B2 |********.H....I.|
00000D30: 31 A4 41 3A 99 22 11 22 3B 3A 82 3A 99 A3 42 AC |1.A:.".";:.:..B.|
00000D40: 50 48 29 42 4F 24 3A 8E 00 66 15 96 04 81 49 B2 |PH)BO$:..f....I.|
00000D50: 31 A4 41 3A 99 22 11 22 3B 3A 82 3A 99 A3 57 49 |1.A:.".";:.:..WI|
00000D60: 29 42 4F 24 3A 8E 00 6C 15 97 04 8F 00 7D 15 9C |)BO$:..l.....}..|
00000D70: 04 81 58 B2 31 A4 35 30 30 3A 82 3A 8E 00 83 15 |..X.1.500:.:....|
00000D80: D0 07 8F 00 97 15 DF 07 53 48 24 28 31 29 B2 22 |........SH$(1)."|
00000D90: 1C 20 12 B8 B8 B8 22 00 AA 15 E4 07 53 48 24 28 |. ....".....SH$(|
00000DA0: 32 29 B2 22 20 12 20 20 20 22 00 C0 15 E9 07 53 |2)." . ".....S|
00000DB0: 48 24 28 33 29 B2 22 20 12 20 20 20 05 22 3A 8E |H$(3)." . .":.|
00000DC0: 00 C6 15 34 08 8F 00 D9 15 43 08 53 48 24 28 31 |...4.....C.SH$(1|
00000DD0: 29 B2 22 9C 12 1D 20 1D 22 00 EB 15 48 08 53 48 |)."... ."...H.SH|
00000DE0: 24 28 32 29 B2 22 12 20 20 20 22 00 00 16 4D 08 |$(2).". "...M.|
00000DF0: 53 48 24 28 33 29 B2 22 12 1D 20 1D 05 22 3A 8E |SH$(3).".. ..":.|
00000E00: 00 06 16 98 08 8F 00 1A 16 A7 08 53 48 24 28 31 |...........SH$(1|
00000E10: 29 B2 22 90 12 1D 1D 1D A9 22 00 2D 16 AC 08 53 |)."......".-...S|
00000E20: 48 24 28 32 29 B2 22 12 1D 1D A9 20 22 00 43 16 |H$(2).".... ".C.|
00000E30: B1 08 53 48 24 28 33 29 B2 22 12 1D A9 20 20 05 |..SH$(3)."... .|
00000E40: 22 3A 8E 00 49 16 FC 08 8F 00 5E 16 0B 09 53 48 |":..I.....^...SH|
00000E50: 24 28 31 29 B2 22 1F 12 1D 1D A9 DF 1D 22 00 72 |$(1).".......".r|
00000E60: 16 10 09 53 48 24 28 32 29 B2 22 12 1D A9 20 20 |...SH$(2)."... |
00000E70: DF 22 00 8F 16 15 09 8B 57 49 B2 38 A7 53 48 24 |."......WI.8.SH$|
00000E80: 28 33 29 B2 22 12 A9 20 20 20 20 DF 22 3A 8E 00 |(3).".. .":..|
00000E90: 9F 16 1A 09 53 48 24 28 33 29 B2 22 22 3A 8E 00 |....SH$(3)."":..|
00000EA0: CA 16 B8 0B 99 22 11 11 11 11 22 3B 3A 99 A3 57 |....."....";:..W|
00000EB0: 49 29 22 20 20 49 4E 53 54 52 55 43 54 49 4F 4E |I)" INSTRUCTION|
00000EC0: 53 20 28 59 2F 4E 29 20 3F 22 00 DE 16 CC 0B A1 |S (Y/N) ?"......|
00000ED0: 41 24 3A 8B 41 24 B2 22 22 A7 33 30 32 30 00 EF |A$:.A$."".3020..|
00000EE0: 16 D6 0B 8B 41 24 B2 22 4E 22 A7 33 32 30 30 00 |....A$."N".3200.|
00000EF0: 07 17 E0 0B 8B 41 24 B2 22 59 22 A7 99 22 93 22 |.....A$."Y".."."|
00000F00: 3A 89 20 33 31 30 30 00 11 17 EA 0B 89 33 30 32 |:. 3100......302|
00000F10: 30 00 51 17 1C 0C 99 A3 57 49 29 22 49 4E 20 53 |0.Q.....WI)"IN S|
00000F20: 48 41 50 45 20 4D 41 54 43 48 2C 54 48 45 20 22 |HAPE MATCH,THE "|
00000F30: 41 41 24 3B 3A 99 A3 57 49 29 22 57 49 4C 4C 20 |AA$;:..WI)"WILL |
00000F40: 50 52 49 4E 54 20 41 20 53 48 41 50 45 20 4F 4E |PRINT A SHAPE ON|
00000F50: 22 00 8C 17 26 0C 99 A3 57 49 29 22 54 48 45 20 |"...&...WI)"THE |
00000F60: 4C 45 46 54 20 53 49 44 45 20 4F 46 20 54 48 45 |LEFT SIDE OF THE|
00000F70: 22 3A 99 A3 57 49 29 22 53 43 52 45 45 4E 2E 20 |":..WI)"SCREEN. |
00000F80: 54 48 45 20 53 54 55 44 45 4E 54 22 00 C8 17 2B |THE STUDENT"...+|
00000F90: 0C 99 A3 57 49 29 22 57 49 4C 4C 20 46 49 4E 44 |...WI)"WILL FIND|
00000FA0: 20 34 20 44 49 46 46 45 52 45 4E 54 22 3A 99 A3 | 4 DIFFERENT":..|
00000FB0: 57 49 29 22 53 48 41 50 45 53 20 4F 4E 20 54 48 |WI)"SHAPES ON TH|
00000FC0: 45 20 52 49 47 48 54 22 00 00 18 30 0C 99 A3 57 |E RIGHT"...0...W|
00000FD0: 49 29 22 53 49 44 45 20 4F 46 20 54 48 45 20 53 |I)"SIDE OF THE S|
00000FE0: 43 52 45 45 4E 2C 22 3A 99 A3 57 49 29 22 4F 4E |CREEN,":..WI)"ON|
00000FF0: 45 20 4F 46 20 57 48 49 43 48 20 57 49 4C 4C 22 |E OF WHICH WILL"|
00001000: 00 2F 18 3A 0C 99 A3 57 49 29 22 4D 41 54 43 48 |./.:...WI)"MATCH|
00001010: 20 54 48 45 20 53 48 41 50 45 20 4F 4E 22 3A 99 | THE SHAPE ON":.|
00001020: A3 57 49 29 22 54 48 45 20 4C 45 46 54 2E 22 00 |.WI)"THE LEFT.".|
00001030: 66 18 44 0C 99 A3 57 49 29 22 57 48 45 4E 20 54 |f.D...WI)"WHEN T|
00001040: 48 45 20 12 3F 92 20 49 53 22 3A 99 A3 57 49 29 |HE .?. IS":..WI)|
00001050: 22 4E 45 58 54 20 54 4F 20 54 48 45 20 53 48 41 |"NEXT TO THE SHA|
00001060: 50 45 20 48 45 22 00 9E 18 4E 0C 99 A3 57 49 29 |PE HE"...N...WI)|
00001070: 22 4F 52 20 53 48 45 20 54 48 49 4E 4B 53 20 49 |"OR SHE THINKS I|
00001080: 53 22 3A 99 A3 57 49 29 22 43 4F 52 52 45 43 54 |S":..WI)"CORRECT|
00001090: 2C 20 54 48 45 20 53 54 55 44 45 4E 54 22 00 BF |, THE STUDENT"..|
000010A0: 18 53 0C 99 A3 57 49 29 22 53 48 4F 55 4C 44 20 |.S...WI)"SHOULD |
000010B0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 00 |PRESS ANY KEY.".|
000010C0: E4 18 54 0C 99 A3 57 49 29 22 54 48 45 20 22 3B |..T...WI)"THE ";|
000010D0: 42 42 24 3B 22 20 57 49 4C 4C 20 45 56 41 4C 55 |BB$;" WILL EVALU|
000010E0: 41 54 45 22 00 1E 19 58 0C 99 A3 57 49 29 22 54 |ATE"...X...WI)"T|
000010F0: 48 45 20 41 4E 53 57 45 52 20 41 4E 44 20 4C 45 |HE ANSWER AND LE|
00001100: 54 22 3A 99 A3 57 49 29 22 54 48 45 20 53 54 55 |T":..WI)"THE STU|
00001110: 44 45 4E 54 20 4B 4E 4F 57 20 48 4F 57 22 00 56 |DENT KNOW HOW".V|
00001120: 19 5D 0C 99 A3 57 49 29 22 48 45 20 44 49 44 2E |.]...WI)"HE DID.|
00001130: 20 54 59 50 45 20 12 51 92 20 54 4F 22 3A 99 A3 | TYPE .Q. TO":..|
00001140: 57 49 29 22 45 4E 44 20 54 48 45 20 50 52 4F 47 |WI)"END THE PROG|
00001150: 52 41 4D 2E 11 22 00 78 19 76 0C 99 A3 57 49 29 |RAM..".x.v...WI)|
00001160: 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |"PRESS ANY KEY T|
00001170: 4F 20 50 4C 41 59 22 3B 00 8C 19 7B 0C A1 41 24 |O PLAY";...{..A$|
00001180: 3A 8B 41 24 B2 22 22 A7 33 31 39 35 00 9C 19 7C |:.A$."".3195...||
00001190: 0C 99 22 93 05 22 C7 28 31 34 32 29 00 A2 19 80 |.."..".(142)....|
000011A0: 0C 8E 00 00 00 |..... |
..(.2.. ** INITIALIZE **
.8.4.. CL(20,40).U.5.."..":.65517:WI.B(7
81):.WI.22.WI.0:.36879,238:SS.2:PH..5...
6.. WI.0.AA$."VIC":BB$."VIC":.60...7..53
280,1:.53281,15:SS.12:WI.8:PH.1...9.AA$.
"64.......................":BB$."64".+.<
.. WI.0 . CL(4,18).1:CL(4,31).2:CL(10,18
).3:CL(10,31).4:.80.Q.?..A.6.12.6:.B.17.
33.16:S.646:.S,SS.J.F.T.T.1:CL(A,B).T:.B
,A...P.."......";:..WI.5)".SHAPE MATCH".
.....3000:. ** INSTRUCTIONS **.O.H..1
000:. ** PRINT BOARD **...R..T.1.1000:..
..,.. *******************************.+.
... ** SELECT SHAPES **.Q.1.
. *******************************.^.2.K.
.(.TI).Z.6.K..(.(0).4).1:.K.KK.310...@..
...T..T.1.3:.2000:BO$.SH$(T):A.4.T:B.18:
.".":.1170:. T.X.Y..1180:. ** DELAY
**...\..WI.0..T.1.3:.2100:BO$.SH$(
T):A.4.T:B.32:.".".".]..WI.0..1170:.T:.3
55.X.^..T.1.3:.2100:BO$.SH$(T):A.4.T:B.2
8:.".":.1170:. T.B.C..1180...H..T.1.3:.2
200:BO$.SH$(T):A.10.T:B.18:.".":.1170:.
T...M..1180.Z.R..T.1.3:.2300:BO$.SH$(T):
A.10.T:B.28:.".":.1170:. T...W..1180...|
..T.1.3.....K.2000,2100,2200,2300.8...B
O$.SH$(T):A. 8.T:B.3:.".":.1170:. T:KK.K
.>.....H.&.. END.N.X.. *****************
**************...Z.. ** MOVE CU
RSOR **...\.. *********************
**********.P.]..".":C.1:.NT.1.10...B..T.
1.15:BO$.G(63):.T.2..(T.2). BO$.G(18).G(
63).G(146).,.E.. WI.0. . C . 660,673,683
,687.D.G..C .670,675,680,685.N.L..1170:.
".":.TT.1. 75: .TT:.700.V.Q.. T..
.V.BO$.G(32):.1170:.".": .TT.1. 7
5:.TT:C.C.1......C.4.C.1.V....NT:.600:.
** REPEAT **.....A.4:B.18:L.1:.620....
.A.6:B.17:L.1:.620.....A.10:B.18:L.2:.62
0.0...A.12:B.17:L.2:.620.F...A.6:B.33:L.
3:.620.\...A.4:B.31:L.3:.620.S...A.12:B.
33:L.4:.620.....A.10:B.31:L.4:.620......
*******************************.V.... *
* CHECK FOR RESPONSE **...... ***
****************************...F..A$:.A$
."". 625.%.K.. A$."Q". .".":..C.P..CL(A,
B).K .800:. CORRECT._....850: . ** WRON
G **... .. **************************
*****...".. ** CORRECT ANSWER
**.Q.$.. ******************************
*...*.BO$."..YES! THAT'S RIGHT!":A.18:.1
174:."."./.4.BO$."... PRESS ANY KEY ..":
A.20:.1174:.".".B.9..A$:.A$."".825...>..
A.1.23:BO$."
":B.0:.1170...C..".":....H..
200:. ** RE-PRINT BOARD **.Z.R.. *****
**************************...T.. **
WRONG ANSWER **.&.V.. *********
**********************.?.W.BO$.G(32):.11
70:."."..\.BO$."...SORRY...TRY AGAIN...
..": A.18:B.10:.1174:."."...A..W.1
.1000:..K.F.BO$." "
:A.18: B.10:.1174:."."...K.C.C.1:.C
.4.C.1...P.. 625...... ****************
**************......"..".S....WI.0.BO$."
..............":A.3:B.15:. 1170:.".":.1
030.....A.3:B.15:BO$."..................
.....":.1170:."."............T.1.5:A.3.T
:B.15...... WI.0.BO$." ... ... .
..":.1170:.".":.1045.....BO$.".B.
.B. .B.":.1170:."."...... T.P.
...WI.0.A.9:B.15:BO$." ...............":
.1170:.".":.1060.....A.9:B.15:BO$.".....
..................":.1170:."."...$..T.1.
5:A.9.T:B.15.R.)..WI.0.BO$." ... ...
...":.1170:.".":.1073.....BO$.".B.
.B. .B.":.1170:."."...1.
.T.F.6.A.15:B.15:.WI.0.BO$." ...........
....":.1170:.".":.1090.S.8.BO$."........
...............":.1170:."."...B.BO$.T$:A
.20:B.13:.1170:."."...E...WI)" TYPE (Q)
TO QUIT.."...G.....L.. ****************
**********+***...V.. ** PRINT
**.(.W.. **********************
********.H....I.1.A:.".";:.:..B.PH)BO$:.
.F....I.1.A:.".";:.:..WI)BO$:..L.....}..
..X.1.500:.:....P.......SH$(1).". ....".
....SH$(2)." . ".....SH$(3)." . .":.
.F.4...Y.C.SH$(1)."... ."...H.SH$(2).".
"...M.SH$(3).".. ..":............SH$(1
)."......".-...SH$(2).".... ".C...SH$(3)
."... .":..I.....^...SH$(1).".......".R
...SH$(2)."... ."......WI.8.SH$(3)."..
.":......SH$(3)."":..J...."....";:..W
I)" INSTRUCTIONS (Y/N) ?"...L..A$:.A$."
".3020...V..A$."N".3200......A$."Y".."."
:. 3100......3020.Q.....WI)"IN SHAPE MAT
CH,THE "AA$;:..WI)"WILL PRINT A SHAPE ON
"...&...WI)"THE LEFT SIDE OF THE":..WI)"
SCREEN. THE STUDENT".H.+...WI)"WILL FIND
4 DIFFERENT":..WI)"SHAPES ON THE RIGHT"
...0...WI)"SIDE OF THE SCREEN,":..WI)"ON
E OF WHICH WILL"./.:...WI)"MATCH THE SHA
PE ON":..WI)"THE LEFT.".F.D...WI)"WHEN T
HE .?. IS":..WI)"NEXT TO THE SHAPE HE"..
.N...WI)"OR SHE THINKS IS":..WI)"CORRECT
, THE STUDENT"...S...WI)"SHOULD PRESS AN
Y KEY."...T...WI)"THE ";BB$;" WILL EVALU
ATE"...X...WI)"THE ANSWER AND LET":..WI)
"THE STUDENT KNOW HOW".V.]...WI)"HE DID.
TYPE .Q. TO":..WI)"END THE PROGRAM..".X
.V...WI)"PRESS ANY KEY TO PLAY";...{..A$
:.A$."".3195...|..".."G(142).........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL