PRINTER MAZE
FILE INFORMATION
FILENAME(S): PRINTER MAZE
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 18:12:07
APPEARS ON: 1 disk(s)
FILE HASH
9e9c7edadeb3e2b67acfb56e8fb6a76aa88ea283a593fa48381853da3efa6c80
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 34 S 1 | PRINTER MAZE | PRG | Sailor, Ganheden | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 05 00 86 20 50 24 28 37 38 2C 33 29 |..#.... P$(78,3)| 00000010: 2C 44 24 28 33 29 2C 52 28 35 29 2C 43 4B 24 28 |,D$(3),R(5),CK$(| 00000020: 35 30 29 00 62 08 0A 00 97 35 33 32 38 30 2C 2E |50).b....53280,.| 00000030: 3A 97 35 33 32 38 31 2C 2E 3A 99 22 93 08 22 C7 |:.53281,.:."..".| 00000040: 28 31 34 32 29 22 20 20 20 20 20 20 20 20 20 20 |(142)" | 00000050: 20 20 20 20 1E 50 52 49 4E 54 45 52 20 4D 41 5A | .PRINTER MAZ| 00000060: 45 22 00 8D 08 0C 00 99 22 20 20 20 20 20 20 20 |E"......" | 00000070: 20 20 99 42 59 20 4A 45 52 52 59 20 41 2E 20 53 | .BY JERRY A. S| 00000080: 54 55 52 44 49 56 41 4E 54 11 11 11 22 00 A0 08 |TURDIVANT..."...| 00000090: 14 00 8F 20 20 20 49 4E 49 54 49 41 4C 49 53 45 |... INITIALISE| 000000A0: 00 B5 08 1E 00 8F 22 20 B8 B8 B8 B8 B8 B8 B8 B8 |......" ........| 000000B0: B8 B8 B8 B8 22 00 EE 08 32 00 43 48 4F 49 43 45 |...."...2.CHOICE| 000000C0: 24 28 30 29 B2 22 50 41 54 54 45 52 4E 20 22 3A |$(0)."PATTERN ":| 000000D0: 43 48 4F 49 43 45 24 28 31 29 B2 22 4D 49 58 20 |CHOICE$(1)."MIX | 000000E0: 22 3A 52 B2 BB 28 AB 54 49 29 3A 4E B2 31 00 07 |":R..(.TI):N.1..| 000000F0: 09 3C 00 44 24 28 31 29 B2 22 BA A4 CC BA 20 CC |.<.D$(1).".... .| 00000100: 20 CD CD CE CE 20 22 00 20 09 46 00 44 24 28 32 | .... ". .F.D$(2| 00000110: 29 B2 22 20 20 20 A7 20 A5 CD A0 CD CE A0 CE 22 |)." . ......."| 00000120: 00 39 09 50 00 44 24 28 33 29 B2 22 D0 A3 CF D0 |.9.P.D$(3)."....| 00000130: A0 CF CD CD A0 A0 CE CE 22 00 49 09 5A 00 8F 20 |........".I.Z.. | 00000140: 20 20 20 49 4E 50 55 54 53 00 5A 09 64 00 8F 22 | INPUTS.Z.d.."| 00000150: 20 B8 B8 B8 B8 B8 B8 B8 B8 22 00 7C 09 6E 00 4D | ........".|.n.M| 00000160: 49 58 B2 30 3A 52 41 4E B2 30 3A 53 43 52 45 45 |IX.0:RAN.0:SCREE| 00000170: 4E B2 30 3A 4E 55 B2 30 3A 41 B2 30 00 B2 09 78 |N.0:NU.0:A.0...x| 00000180: 00 99 22 9A 28 05 53 9A 29 43 52 45 45 4E 2C 20 |..".(.S.)CREEN, | 00000190: 28 05 48 9A 29 41 52 44 20 43 4F 50 59 2C 20 4F |(.H.)ARD COPY, O| 000001A0: 52 20 28 05 51 9A 29 55 49 54 20 20 20 20 20 20 |R (.Q.)UIT | 000001B0: 20 22 00 DD 09 82 00 A1 20 41 24 3A 8B 28 C6 28 | "...... A$:.(.(| 000001C0: 41 24 AA C7 28 2E 29 29 B1 31 32 38 29 A7 41 24 |A$..(.)).128).A$| 000001D0: B2 C7 28 C6 28 41 24 29 AB 31 32 38 29 00 04 0A |..(.(A$).128)...| 000001E0: 87 00 8B 28 41 24 B3 B1 22 53 22 29 AF 28 41 24 |...(A$.."S").(A$| 000001F0: B3 B1 22 48 22 29 AF 28 41 24 B3 B1 22 51 22 29 |.."H").(A$.."Q")| 00000200: A7 31 33 30 00 1B 0A 89 00 8B 41 24 B2 22 51 22 |.130......A$."Q"| 00000210: A7 8D 36 30 30 30 3A 89 31 32 30 00 3F 0A 8A 00 |..6000:.120.?...| 00000220: 8B 20 41 24 B2 22 48 22 20 A7 8D 37 30 30 30 3A |. A$."H" ..7000:| 00000230: 8B 28 41 42 29 A7 41 42 B2 2E 3A 89 31 32 30 00 |.(AB).AB..:.120.| 00000240: 57 0A 8C 00 8B 20 41 24 B2 22 53 22 20 A7 20 53 |W.... A$."S" . S| 00000250: 43 52 45 45 4E B2 31 00 85 0A 96 00 99 22 11 11 |CREEN.1......"..| 00000260: 28 05 50 9A 29 41 54 54 45 52 4E 20 4F 52 20 28 |(.P.)ATTERN OR (| 00000270: 05 4D 9A 29 49 58 20 4F 52 20 28 05 52 9A 29 41 |.M.)IX OR (.R.)A| 00000280: 4E 44 4F 4D 22 00 B0 0A A0 00 A1 20 41 24 3A 8B |NDOM"...... A$:.| 00000290: 28 C6 28 41 24 AA C7 28 2E 29 29 B1 31 32 38 29 |(.(A$..(.)).128)| 000002A0: A7 41 24 B2 C7 28 C6 28 41 24 29 AB 31 32 38 29 |.A$..(.(A$).128)| 000002B0: 00 D2 0A A5 00 8B 20 41 24 B3 B1 22 50 22 AF 41 |...... A$.."P".A| 000002C0: 24 B3 B1 22 4D 22 AF 41 24 B3 B1 22 52 22 A7 31 |$.."M".A$.."R".1| 000002D0: 36 30 00 E7 0A AA 00 8B 20 41 24 B2 22 4D 22 20 |60...... A$."M" | 000002E0: A7 20 4D 49 58 B2 31 00 02 0B B4 00 8B 20 41 24 |. MIX.1...... A$| 000002F0: B2 22 52 22 20 A7 20 52 41 4E B2 31 3A 89 20 32 |."R" . RAN.1:. 2| 00000300: 34 30 00 2D 0B BE 00 99 22 11 11 57 4F 55 4C 44 |40.-...."..WOULD| 00000310: 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 45 4E 54 | YOU LIKE TO ENT| 00000320: 45 52 20 41 20 50 41 54 54 45 52 4E 22 00 46 0B |ER A PATTERN".F.| 00000330: C3 00 99 22 4E 55 4D 42 45 52 20 28 05 59 9A 2F |..."NUMBER (.Y./| 00000340: 05 4E 9A 29 11 22 00 75 0B C8 00 A1 20 41 24 3A |.N.).".u.... A$:| 00000350: 8B 20 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E |. A$.."Y".A$.."N| 00000360: 22 AF 41 24 B3 B1 22 D9 22 AF 41 24 B3 B1 22 CE |".A$..".".A$..".| 00000370: 22 A7 32 30 30 00 A8 0B D2 00 8B 20 41 24 B2 22 |".200...... A$."| 00000380: 59 22 20 B0 41 24 B2 22 D9 22 20 A7 20 8D 20 38 |Y" .A$."." . . 8| 00000390: 37 30 3A 8F 20 47 45 54 20 53 45 4C 45 43 54 45 |70:. GET SELECTE| 000003A0: 44 20 4E 55 4D 42 45 52 00 B2 0B D7 00 99 22 93 |D NUMBER......".| 000003B0: 22 3B 00 C5 0B DC 00 8F 20 20 20 53 45 54 20 4F |";...... SET O| 000003C0: 55 54 50 55 54 00 DA 0B E6 00 8F 22 20 B8 B8 B8 |UTPUT......" ...| 000003D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 07 0C F0 00 41 |.........".....A| 000003E0: 43 52 4F 53 53 B2 37 38 3A 56 45 52 54 49 43 41 |CROSS.78:VERTICA| 000003F0: 4C B2 28 36 36 AB 32 29 AC 32 3A 44 45 56 49 43 |L.(66.2).2:DEVIC| 00000400: 45 B2 34 3A 41 B2 30 00 35 0C FA 00 8B 20 53 43 |E.4:A.0.5.... SC| 00000410: 52 45 45 4E 20 A7 20 41 43 52 4F 53 53 B2 33 39 |REEN . ACROSS.39| 00000420: 3A 56 45 52 54 49 43 41 4C B2 32 33 3A 44 45 56 |:VERTICAL.23:DEV| 00000430: 49 43 45 B2 33 00 48 0C 04 01 A0 20 31 3A 9F 20 |ICE.3.H.... 1:. | 00000440: 31 2C 44 45 56 49 43 45 00 6E 0C 0E 01 8B 20 44 |1,DEVICE.n.... D| 00000450: 45 56 49 43 45 B2 34 20 A7 20 A0 20 36 3A 9F 20 |EVICE.4 . . 6:. | 00000460: 36 2C 34 2C 36 3A 98 36 2C C7 28 31 38 29 00 7C |6,4,6:.6,.(18).|| 00000470: 0C 18 01 8B 4E 55 B2 31 A7 35 31 30 00 8F 0C 22 |....NU.1.510..."| 00000480: 01 8B 28 41 24 B2 22 48 22 29 A7 20 35 34 30 00 |..(A$."H"). 540.| 00000490: 99 0C 2C 01 41 24 B2 22 22 00 B4 0C 36 01 8F 20 |..,.A$.""...6.. | 000004A0: 20 20 50 49 43 4B 20 34 20 52 4E 44 20 4E 55 4D | PICK 4 RND NUM| 000004B0: 42 45 52 53 00 D1 0C 40 01 8F 22 20 B8 B8 B8 B8 |BERS...@.." ....| 000004C0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000004D0: 22 00 DF 0C 4A 01 81 20 49 B2 31 20 A4 20 34 00 |"...J.. I.1 . 4.| 000004E0: F2 0C 54 01 52 28 49 29 B2 B5 28 BB 28 30 29 AC |..T.R(I)..(.(0).| 000004F0: 34 29 00 05 0D 5E 01 48 4F 24 28 49 29 B2 C4 28 |4)...^.HO$(I)..(| 00000500: 52 28 49 29 29 00 0B 0D 68 01 82 00 39 0D 72 01 |R(I))...h...9.r.| 00000510: 8B 20 52 28 31 29 B2 52 28 32 29 20 AF 20 52 28 |. R(1).R(2) . R(| 00000520: 32 29 B2 52 28 33 29 20 AF 20 52 28 33 29 B2 52 |2).R(3) . R(3).R| 00000530: 28 34 29 20 A7 20 33 33 30 00 57 0D 7C 01 4E B2 |(4) . 330.W.|.N.| 00000540: 4E AA 31 3A 8B 20 4E B2 35 30 20 A7 20 38 33 30 |N.1:. N.50 . 830| 00000550: 3A 8F 20 51 55 49 54 00 74 0D 86 01 8F 20 20 20 |:. QUIT.t.... | 00000560: 4D 45 4D 4F 52 49 5A 45 20 54 48 45 20 4E 55 4D |MEMORIZE THE NUM| 00000570: 42 45 52 53 00 93 0D 90 01 8F 22 20 B8 B8 B8 B8 |BERS......" ....| 00000580: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000590: B8 B8 22 00 AB 0D 9A 01 43 4B 24 28 4E 29 B2 22 |..".....CK$(N)."| 000005A0: 22 3A 81 20 49 B2 31 20 A4 20 34 00 C9 0D A4 01 |":. I.1 . 4.....| 000005B0: 43 4B 24 28 4E 29 B2 43 4B 24 28 4E 29 AA C9 28 |CK$(N).CK$(N)..(| 000005C0: 48 4F 24 28 49 29 2C 31 29 00 CF 0D AE 01 82 00 |HO$(I),1).......| 000005D0: EA 0D B8 01 8F 20 20 20 53 45 45 20 49 46 20 55 |..... SEE IF U| 000005E0: 53 45 44 20 42 45 46 4F 52 45 00 07 0E C2 01 8F |SED BEFORE......| 000005F0: 22 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |" ..............| 00000600: B8 B8 B8 B8 B8 B8 22 00 15 0E CC 01 43 4F 4D 50 |......".....COMP| 00000610: 41 52 45 B2 4E 00 25 0E D6 01 81 20 49 B2 31 20 |ARE.N.%.... I.1 | 00000620: A4 20 4E AB 31 00 45 0E E0 01 8B 20 43 4B 24 28 |. N.1.E.... CK$(| 00000630: 49 29 B2 43 4B 24 28 43 4F 4D 50 41 52 45 29 20 |I).CK$(COMPARE) | 00000640: A7 20 33 33 30 00 4B 0E EA 01 82 00 81 0E FE 01 |. 330.K.........| 00000650: 99 22 93 81 11 53 45 4C 45 43 54 49 4F 4E 20 4E |."...SELECTION N| 00000660: 55 4D 42 45 52 3A 20 9E 22 20 43 48 4F 49 43 45 |UMBER: ." CHOICE| 00000670: 24 28 4D 49 58 29 20 43 4B 24 28 4E 29 22 9F 22 |$(MIX) CK$(N)"."| 00000680: 3B 00 9C 0E 08 02 8F 20 20 20 53 45 54 20 55 50 |;...... SET UP| 00000690: 20 54 48 52 45 45 20 4C 49 4E 45 53 00 B9 0E 12 | THREE LINES....| 000006A0: 02 8F 22 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |.." ............| 000006B0: B8 B8 B8 B8 B8 B8 B8 B8 22 00 D2 0E 1C 02 81 20 |........"...... | 000006C0: 52 4F 57 B2 31 20 A4 20 56 45 52 54 49 43 41 4C |ROW.1 . VERTICAL| 000006D0: AD 33 00 10 0F 26 02 8B 20 4D 49 58 20 A7 20 52 |.3...&.. MIX . R| 000006E0: 28 35 29 B2 52 28 34 29 3A 52 28 34 29 B2 52 28 |(5).R(4):R(4).R(| 000006F0: 33 29 3A 52 28 33 29 B2 52 28 32 29 3A 52 28 32 |3):R(3).R(2):R(2| 00000700: 29 B2 52 28 31 29 3A 52 28 31 29 B2 52 28 35 29 |).R(1):R(1).R(5)| 00000710: 00 25 0F 30 02 81 20 58 B2 31 20 A4 20 41 43 52 |.%.0.. X.1 . ACR| 00000720: 4F 53 53 AD 33 00 3B 0F 3A 02 41 B2 41 AA 31 3A |OSS.3.;.:.A.A.1:| 00000730: 8B 20 41 B1 34 20 A7 20 41 B2 31 00 4A 0F 44 02 |. A.4 . A.1.J.D.| 00000740: 52 B2 52 28 41 29 AC 33 AA 31 00 66 0F 4E 02 8B |R.R(A).3.1.f.N..| 00000750: 20 52 41 4E 20 A7 20 52 B2 B5 28 BB 28 30 29 AC | RAN . R..(.(0).| 00000760: 34 29 AC 33 AA 31 00 74 0F 58 02 81 20 59 B2 31 |4).3.1.t.X.. Y.1| 00000770: 20 A4 20 33 00 8D 0F 62 02 50 24 28 58 2C 59 29 | . 3...b.P$(X,Y)| 00000780: B2 CA 28 44 24 28 59 29 2C 52 2C 33 29 00 97 0F |..(D$(Y),R,3)...| 00000790: 6C 02 82 20 59 2C 58 00 B7 0F 76 02 8F 20 20 20 |l.. Y,X...v.. | 000007A0: 50 52 49 4E 54 20 54 48 4F 53 45 20 54 48 52 45 |PRINT THOSE THRE| 000007B0: 45 20 4C 49 4E 45 53 00 D9 0F 80 02 8F 22 20 B8 |E LINES......" .| 000007C0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000007D0: B8 B8 B8 B8 B8 B8 B8 B8 22 00 E7 0F 8A 02 81 20 |........"...... | 000007E0: 59 B2 31 20 A4 20 33 00 EE 0F 94 02 98 31 00 03 |Y.1 . 3......1..| 000007F0: 10 9E 02 81 20 58 B2 31 20 A4 20 41 43 52 4F 53 |.... X.1 . ACROS| 00000800: 53 AD 33 00 13 10 A8 02 98 31 2C 50 24 28 58 2C |S.3......1,P$(X,| 00000810: 59 29 3B 00 1B 10 B2 02 82 20 58 00 33 10 BC 02 |Y);...... X.3...| 00000820: A1 20 41 24 3A 8B 20 41 24 B2 22 20 22 20 A7 20 |. A$:. A$." " . | 00000830: 37 33 30 00 3B 10 C6 02 82 20 59 00 45 10 D0 02 |730.;.... Y.E...| 00000840: 82 20 52 4F 57 00 65 10 DA 02 8B 20 53 43 52 45 |. ROW.e.... SCRE| 00000850: 45 4E B2 30 20 A7 20 81 20 49 B2 31 20 A4 20 36 |EN.0 . . I.1 . 6| 00000860: 3A 98 31 3A 82 00 81 10 E4 02 8F 20 20 20 46 55 |:.1:....... FU| 00000870: 4C 4C 20 50 41 47 45 2D 4E 4F 57 20 57 48 41 54 |LL PAGE-NOW WHAT| 00000880: 3F 00 9F 10 EE 02 8F 22 20 B8 B8 B8 B8 B8 B8 B8 |?......" .......| 00000890: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 |..............".| 000008A0: A5 10 F8 02 99 00 D8 10 02 03 99 22 20 20 9A 57 |..........." .W| 000008B0: 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F |OULD YOU LIKE TO| 000008C0: 20 44 4F 20 41 4E 4F 54 48 45 52 3F 20 28 05 59 | DO ANOTHER? (.Y| 000008D0: 9A 2F 05 4E 9A 29 13 22 00 06 11 20 03 A1 20 41 |./.N.)."... .. A| 000008E0: 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 |$:.A$.."Y".A$.."| 000008F0: 4E 22 AF 41 24 B3 B1 22 D9 22 AF 41 24 B3 B1 22 |N".A$..".".A$.."| 00000900: CE 22 A7 38 30 30 00 1D 11 34 03 8B 20 41 24 B2 |.".800...4.. A$.| 00000910: 22 59 22 B0 41 24 B2 22 D9 22 A7 31 30 00 3F 11 |"Y".A$.".".10.?.| 00000920: 3E 03 A0 20 31 3A 8B 20 44 45 56 49 43 45 B2 34 |>.. 1:. DEVICE.4| 00000930: 20 A7 20 98 36 2C C7 28 33 36 29 3A A0 20 36 00 | . .6,.(36):. 6.| 00000940: 78 11 48 03 9F 31 35 2C 38 2C 31 35 2C 22 52 30 |x.H..15,8,15,"R0| 00000950: 3A 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 3D 48 |:HELLO CONNECT=H| 00000960: 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 3A 84 31 |ELLO CONNECT":.1| 00000970: 35 2C 45 52 3A A0 31 35 00 8C 11 4A 03 99 22 93 |5,ER:.15...J..".| 00000980: 22 3B 3A 8B 45 52 B3 B1 36 33 A7 80 00 A3 11 4C |";:.ER..63.....L| 00000990: 03 93 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 |.."HELLO CONNECT| 000009A0: 22 2C 38 00 C1 11 52 03 8F 20 20 20 49 4E 50 55 |",8...R.. INPU| 000009B0: 54 20 53 45 4C 45 43 54 45 44 20 4E 55 4D 42 45 |T SELECTED NUMBE| 000009C0: 52 00 E1 11 5C 03 8F 22 20 B8 B8 B8 B8 B8 B8 B8 |R...\.." .......| 000009D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000009E0: 22 00 F0 11 66 03 4E B2 4E AA 31 3A 4E 55 B2 31 |"...f.N.N.1:NU.1| 000009F0: 00 1D 12 70 03 99 20 22 11 9A 45 4E 54 45 52 20 |...p.. "..ENTER | 00000A00: 41 20 46 4F 55 52 2D 44 49 47 49 54 20 4E 55 4D |A FOUR-DIGIT NUM| 00000A10: 42 45 52 20 20 5B 30 20 2D 20 33 5D 22 00 42 12 |BER [0 - 3]".B.| 00000A20: 75 03 99 20 22 3A 05 A4 20 20 20 20 9D 9D 9D 9D |u.. ":.. ....| 00000A30: 22 3B 3A 8D 35 30 30 30 3A 43 4B 24 28 4E 29 B2 |";:.5000:CK$(N).| 00000A40: 41 24 00 79 12 76 03 4F 4B B2 AB 31 3A 81 41 B2 |A$.y.v.OK..1:.A.| 00000A50: 31 A4 C3 28 41 24 29 3A 8B CA 28 41 24 2C 41 2C |1..(A$):..(A$,A,| 00000A60: 31 29 B1 22 33 22 B0 CA 28 41 24 2C 41 2C 31 29 |1)."3"..(A$,A,1)| 00000A70: B3 22 30 22 A7 4F 4B B2 2E 00 93 12 77 03 82 3A |."0".OK.....w..:| 00000A80: 8B A8 28 4F 4B 29 A7 99 22 91 91 91 22 3B 3A 89 |..(OK).."...";:.| 00000A90: 38 38 30 00 A2 12 7A 03 81 20 49 B2 20 31 20 A4 |880...z.. I. 1 .| 00000AA0: 20 34 00 BC 12 84 03 52 28 49 29 B2 C5 28 CA 28 | 4.....R(I)..(.(| 00000AB0: 43 4B 24 28 4E 29 2C 49 2C 31 29 29 00 C2 12 8E |CK$(N),I,1))....| 00000AC0: 03 82 00 C8 12 98 03 8E 00 DC 12 88 13 81 41 B2 |..............A.| 00000AD0: 31 A4 34 3A 47 24 28 41 29 B2 22 22 00 F0 12 92 |1.4:G$(A).""....| 00000AE0: 13 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 31 30 |..A$:.A$."".5010| 00000AF0: 00 27 13 9C 13 8B 28 41 24 B2 C7 28 32 30 29 29 |.'....(A$..(20))| 00000B00: AF 28 41 B1 31 29 A7 41 B2 41 AB 31 3A 99 22 9D |.(A.1).A.A.1:.".| 00000B10: 9D 20 20 9D 9D A4 22 3B 3A 47 24 28 41 29 B2 22 |. ...";:G$(A)."| 00000B20: 22 3A 89 35 30 31 30 00 43 13 B0 13 8B 28 41 24 |":.5010.C....(A$| 00000B30: B3 22 30 22 29 B0 28 41 24 B1 22 39 22 29 A7 35 |."0").(A$."9").5| 00000B40: 30 31 30 00 5D 13 BA 13 99 22 9D 22 41 24 22 A4 |010.]...."."A$".| 00000B50: 22 3B 3A 47 24 28 41 29 B2 41 24 3A 82 00 6D 13 |";:G$(A).A$:..m.| 00000B60: C4 13 99 22 9D 20 22 3A 41 24 B2 22 22 00 8A 13 |...". ":A$.""...| 00000B70: CE 13 81 42 B2 31 A4 41 AB 31 3A 41 24 B2 41 24 |...B.1.A.1:A$.A$| 00000B80: AA 47 24 28 42 29 3A 82 3A 8E 00 BD 13 70 17 99 |.G$(B):.:....p..| 00000B90: 22 91 20 20 41 52 45 20 59 4F 55 20 53 55 52 45 |". ARE YOU SURE| 00000BA0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 51 55 49 | YOU WANT TO QUI| 00000BB0: 54 3F 20 28 05 59 9A 2F 05 4E 9A 29 22 00 EB 13 |T? (.Y./.N.)"...| 00000BC0: 7A 17 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 |z..A$:.A$.."Y".A| 00000BD0: 24 B3 B1 22 D9 22 AF 41 24 B3 B1 22 4E 22 AF 41 |$..".".A$.."N".A| 00000BE0: 24 B3 B1 22 CE 22 A7 36 30 31 30 00 06 14 84 17 |$..".".6010.....| 00000BF0: 8B 41 24 B2 22 4E 22 B0 41 24 B2 22 CE 22 A7 99 |.A$."N".A$."."..| 00000C00: 22 91 22 3B 3A 8E 00 0F 14 8E 17 89 38 34 30 00 |".";:.......840.| 00000C10: 2A 14 58 1B 9F 31 35 2C 34 2C 31 35 3A A0 31 35 |*.X..15,4,15:.15| 00000C20: 3A 8B 28 53 54 B2 2E 29 A7 8E 00 5C 14 62 1B 99 |:.(ST..)...\.b..| 00000C30: 22 91 96 43 41 4E 27 54 20 55 53 45 20 50 52 49 |"..CAN'T USE PRI| 00000C40: 4E 54 45 52 20 2E 2E 2E 20 49 54 27 53 20 4E 4F |NTER ... IT'S NO| 00000C50: 54 20 4F 4E 2D 4C 49 4E 45 2E 91 22 00 74 14 6C |T ON-LINE..".t.l| 00000C60: 1B 81 41 B2 31 A4 32 30 30 30 3A 82 3A 41 42 B2 |..A.1.2000:.:AB.| 00000C70: AB 31 3A 8E 00 00 00 |.1:.... |
..#.... P$(78,3),D$(3),R(5),CK$(50).B...
.53280,.:.53281,.:.".."G(142)"
.PRINTER MAZE"......" .BY JE
RRY A. STURDIVANT...". .... INITIALISE
......" ............"...2.CHOICE$(0)."PA
TTERN ":CHOICE$(1)."MIX ":R..(.TI):N.1..
.<.D$(1)."..L. L MMNN ". .F.D$(2)." .
.M MN N".9.P.D$(3)."P.OP OMM NN".I.Z..
INPUTS.Z.D.." ........".|.N.MIX.0:RAN
.0:SCREEN.0:NU.0:A.0...X..".(.S.)CREEN,
(.H.)ARD COPY, OR (.Q.)UIT "......
A$:.(F(A$.G(.)).128).A$.G(F(A$).128)...
...(A$.."S").(A$.."H").(A$.."Q").130....
..A$."Q"..6000:.120.?.... A$."H" ..7000:
.(AB).AB..:.120.W.... A$."S" . SCREEN.1.
....."..(.P.)ATTERN OR (.M.)IX OR (.R.)A
NDOM"... .. A$:.(F(A$.G(.)).128).A$.G(F(
A$).128).R.... A$.."P".A$.."M".A$.."R".1
60...... A$."M" . MIX.1...... A$."R" . R
AN.1:. 240.-...."..WOULD YOU LIKE TO ENT
ER A PATTERN".F.C.."NUMBER (.Y./.N.).".U
.H.. A$:. A$.."Y".A$.."N".A$.."Y".A$.."N
".200...R.. A$."Y" .A$."Y" . . 870:. GET
SELECTED NUMBER...W..".";.E.... SET O
UTPUT.Z...." ............".....ACROSS.78
:VERTICAL.(66.2).2:DEVICE.4:A.0.5.... SC
REEN . ACROSS.39:VERTICAL.23:DEVICE.3.H.
.. 1:. 1,DEVICE.N.... DEVICE.4 . 6:.
6,4,6:.6,G(18).|....NU.1.510..."..(A$."H
"). 540...,.A$.""...6.. PICK 4 RND NUM
BERS.Q.@.." ...................."...J..
I.1 . 4...T.R(I)..(.(0).4)...^.HO$(I).D(
R(I))...H...9.R.. R(1).R(2) . R(2).R(3)
. R(3).R(4) . 330.W.|.N.N.1:. N.50 . 830
:. QUIT.T.... MEMORIZE THE NUMBERS....
.." ......................".....CK$(N)."
":. I.1 . 4.I...CK$(N).CK$(N).I(HO$(I),1
).O.......... SEE IF USED BEFORE...B..
" ...................."...L.COMPARE.N.%.
V.. I.1 . N.1.E.... CK$(I).CK$(COMPARE)
. 330.K.........."...SELECTION NUMBER: .
" CHOICE$(MIX) CK$(N)".";...... SET UP
THREE LINES......" ....................
".R.... ROW.1 . VERTICAL.3...&.. MIX . R
(5).R(4):R(4).R(3):R(3).R(2):R(2).R(1):R
(1).R(5).%.0.. X.1 . ACROSS.3.;.:.A.A.1:
. A.4 . A.1.J.D.R.R(A).3.1.F.N.. RAN . R
..(.(0).4).3.1.T.X.. Y.1 . 3...B.P$(X,Y)
.J(D$(Y),R,3)...L.. Y,X...V.. PRINT TH
OSE THREE LINES.Y...." .................
........"...... Y.1 . 3......1...... X.1
. ACROSS.3......1,P$(X,Y);...... X.3...
. A$:. A$." " . 730.;.F.. Y.E.P.. ROW.E.
Z.. SCREEN.0 . . I.1 . 6:.1:....... FU
LL PAGE-NOW WHAT?......" ...............
......".......X...." .WOULD YOU LIKE TO
DO ANOTHER? (.Y./.N.)."... .. A$:.A$.."
Y".A$.."N".A$.."Y".A$.."N".800...4.. A$.
"Y".A$."Y".10.?.>. 1:. DEVICE.4 . .6,G(
36): 6.X.H..15,8,15,"R0:HELLO CONNECT=H
ELLO CONNECT":.15,ER: 15...J..".";:.ER..
63.....L.."HELLO CONNECT",8.A.R.. INPU
T SELECTED NUMBER...\.." ...............
........"...F.N.N.1:NU.1...P.. "..ENTER
A FOUR-DIGIT NUMBER [0 - 3]".B.U.. ":..
....";:.5000:CK$(N).A$.Y.V.OK..1:.A.
1.C(A$):.J(A$,A,1)."3".J(A$,A,1)."0".OK.
....W..:..(OK).."...";:.880...Z.. I. 1 .
4.....R(I).E(J(CK$(N),I,1)).B.....H....
......A.1.4:G$(A).""......A$:.A$."".5010
.'....(A$.G(20)).(A.1).A.A.1:.".. ...";
:G$(A)."":.5010.C....(A$."0").(A$."9").5
010.]...."."A$".";:G$(A).A$:..M.D..". ":
A$.""...N..B.1.A.1:A$.A$.G$(B):.:....P..
". ARE YOU SURE YOU WANT TO QUIT? (.Y./
.N.)"...Z..A$:.A$.."Y".A$.."Y".A$.."N".A
$.."N".6010......A$."N".A$."N"..".";:...
....840.*.X..15,4,15: 15:.(ST..)...\.B..
"..CAN'T USE PRINTER ... IT'S NOT ON-LIN
E..".T.L..A.1.2000:.:AB..1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL