COMPLETE SUBS
FILE INFORMATION
FILENAME(S): COMPLETE SUBS
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-10-19 23:07:24
APPEARS ON: 1 disk(s)
FILE HASH
f5e5803f4b86815964a7790da2c99154f2ca537e3cbe89fe28c3d2cc925a4faf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RHS SOFT952 3964 | COMPLETE SUBS | PRG | Bugjam - Argentina | 14 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 5E D3 8F 20 2A 2A 20 50 41 55 53 45 |....^.. ** PAUSE|
00000010: 20 44 45 4C 41 59 20 2A 2A 2A 2A 00 58 08 60 D3 | DELAY ****.X.`.|
00000020: 8F 20 50 4C 41 43 45 20 43 55 52 53 4F 52 20 50 |. PLACE CURSOR P|
00000030: 4F 53 49 54 49 4F 4E 20 53 55 42 20 2D 20 20 20 |OSITION SUB - |
00000040: 20 20 20 20 20 20 20 20 2D 20 52 4F 55 54 49 4E | - ROUTIN|
00000050: 45 53 20 20 48 45 52 45 00 7B 08 62 D3 99 C7 28 |ES HERE.{.b...(|
00000060: 31 38 29 3B 3A 20 8F 2A 2A 2A 52 45 56 45 52 53 |18);: .***REVERS|
00000070: 45 20 56 49 53 45 4F 20 2A 2A 2A 00 A3 08 64 D3 |E VISEO ***...d.|
00000080: 99 22 5B 20 50 52 45 53 53 20 53 50 41 43 45 20 |."[ PRESS SPACE |
00000090: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |BAR TO CONTINUE |
000000A0: 5D 22 3B 00 AC 08 66 D3 A1 20 41 24 00 C0 08 68 |]";...f.. A$...h|
000000B0: D3 8B 20 41 24 B3 B1 22 20 22 89 35 34 31 31 38 |.. A$.." ".54118|
000000C0: 00 C6 08 6A D3 99 00 CC 08 6C D3 8E 00 EA 08 6E |...j.....l.....n|
000000D0: D3 8F 20 2A 2A 2A 2A 2A 2A 20 45 4E 44 20 4F 46 |.. ****** END OF|
000000E0: 20 53 55 42 20 2A 2A 2A 2A 2A 00 03 09 70 D3 8F | SUB *****...p..|
000000F0: 20 2A 2A 20 54 49 4D 45 20 44 45 4C 41 59 20 2A | ** TIME DELAY *|
00000100: 2A 2A 2A 00 1D 09 72 D3 8F 20 2A 2A 2A 2A 2A 2A |***...r.. ******|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 09 |*************.7.|
00000120: 74 D3 8F 20 2A 20 20 20 54 49 4D 45 20 44 45 4C |t.. * TIME DEL|
00000130: 41 59 20 20 20 20 2A 00 51 09 76 D3 8F 20 2A 20 |AY *.Q.v.. * |
00000140: 5A 58 3D 41 4D 54 20 4F 46 20 54 49 4D 45 20 20 |ZX=AMT OF TIME |
00000150: 2A 00 6B 09 78 D3 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.k.x.. ********|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 91 09 7A D3 |***********...z.|
00000170: 8F 20 42 45 20 53 55 52 45 20 54 4F 20 55 53 45 |. BE SURE TO USE|
00000180: 20 5A 58 20 45 41 52 4C 59 20 49 4E 20 50 52 4F | ZX EARLY IN PRO|
00000190: 47 00 B1 09 7C D3 8F 20 2A 2A 2A 2A 20 5A 58 20 |G...|.. **** ZX |
000001A0: 53 45 43 4F 4E 44 20 54 49 4D 45 20 44 45 4C 41 |SECOND TIME DELA|
000001B0: 59 00 C2 09 7E D3 81 20 59 B2 31 A4 5A 58 AC 39 |Y...~.. Y.1.ZX.9|
000001C0: 32 30 00 C8 09 80 D3 82 00 CE 09 82 D3 8E 00 E9 |20..............|
000001D0: 09 84 D3 8F 20 2A 2A 2A 2A 2A 2A 45 4E 44 20 4F |.... ******END O|
000001E0: 46 20 53 55 42 20 2A 2A 2A 00 02 0A 86 D3 8F 20 |F SUB ***...... |
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 00 1B 0A 88 D3 8F 20 2A 2A 2A 20 43 45 4E |**...... *** CEN|
00000210: 54 52 20 26 20 50 52 54 20 41 24 00 2E 0A 8A D3 |TR & PRT A$.....|
00000220: 4C B2 28 33 39 AB C3 28 41 24 29 29 AD 32 00 3A |L.(39..(A$)).2.:|
00000230: 0A 8C D3 99 C7 28 31 38 29 3B 00 46 0A 8E D3 99 |.....(18);.F....|
00000240: A3 4C 29 20 41 24 00 4C 0A 90 D3 8E 00 65 0A 92 |.L) A$.L.....e..|
00000250: D3 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000260: 2A 2A 2A 2A 2A 00 77 0A 94 D3 8F 20 43 4F 4C 4F |*****.w.... COLO|
00000270: 52 20 41 20 52 4F 57 00 97 0A 96 D3 8F 20 2A 2A |R A ROW...... **|
00000280: 2A 20 43 4F 4C 4F 52 3D 57 48 49 54 45 2E 2E 2E |* COLOR=WHITE...|
00000290: 43 48 52 24 28 35 29 00 A2 0A 98 D3 99 C7 28 35 |CHR$(5).......(5|
000002A0: 29 3B 00 C6 0A 9A D3 8F 20 43 52 53 52 20 50 4F |);...... CRSR PO|
000002B0: 53 49 54 49 4F 4E 20 28 52 4F 57 29 20 47 4F 45 |SITION (ROW) GOE|
000002C0: 53 20 48 45 52 45 00 07 0B 9C D3 99 C7 28 31 38 |S HERE.......(18|
000002D0: 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |)" |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 20 20 20 20 20 20 20 22 3A 8F 20 34 30 | ":. 40|
00000300: 20 53 50 41 43 45 53 00 0D 0B 9E D3 8E 00 1F 0B | SPACES.........|
00000310: A0 D3 8F 20 43 4F 4C 4F 52 20 41 20 52 4F 57 00 |... COLOR A ROW.|
00000320: 3E 0B A2 D3 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |>.... **********|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5F |**************._|
00000340: 0B A4 D3 8F 20 4E 55 4D 42 45 52 20 54 4F 20 53 |.... NUMBER TO S|
00000350: 54 52 49 4E 47 20 43 4F 4E 56 45 52 54 45 52 00 |TRING CONVERTER.|
00000360: 72 0B A6 D3 5A B2 31 20 3A 8F 20 45 58 41 4D 50 |r...Z.1 :. EXAMP|
00000370: 4C 45 00 7E 0B A8 D3 5A 24 B2 C4 28 5A 29 00 8A |LE.~...Z$..(Z)..|
00000380: 0B AA D3 4C B2 C3 28 5A 24 29 00 9A 0B AC D3 8B |...L..(Z$)......|
00000390: 5A B1 B2 30 A7 4C B2 4C AB 31 00 A9 0B AE D3 5A |Z..0.L.L.1.....Z|
000003A0: 24 B2 C9 28 5A 24 2C 4C 29 00 C1 0B B0 D3 99 5A |$..(Z$,L)......Z|
000003B0: 24 3A 8F 20 50 52 49 4E 54 20 45 58 41 4D 50 4C |$:. PRINT EXAMPL|
000003C0: 45 00 C7 0B B2 D3 8E 00 E6 0B B4 D3 8F 20 2A 2A |E............ **|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003E0: 2A 2A 2A 2A 2A 2A 00 FC 0B B6 D3 8F 20 2A 2A 2A |******...... ***|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 12 0C B8 |************....|
00000400: D3 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000410: 2A 2A 00 28 0C BA D3 8F 20 43 53 53 52 20 50 4F |**.(.... CSSR PO|
00000420: 53 49 54 49 4F 4E 45 52 00 41 0C BC D3 99 C7 28 |SITIONER.A.....(|
00000430: 31 39 29 3A 8F 20 4D 4F 56 45 20 43 53 52 20 48 |19):. MOVE CSR H|
00000440: 4D 00 5A 0C BE D3 8F 20 4D 4F 56 45 20 43 53 52 |M.Z.... MOVE CSR|
00000450: 20 44 4E 20 56 20 52 4F 57 53 00 6A 0C C0 D3 8B | DN V ROWS.j....|
00000460: 20 56 B2 30 89 35 34 32 31 36 00 76 0C C2 D3 81 | V.0.54216.v....|
00000470: 20 41 B2 31 A4 56 00 82 0C C4 D3 99 C7 28 31 37 | A.1.V.......(17|
00000480: 29 3B 00 88 0C C6 D3 82 00 A5 0C C8 D3 8F 20 4D |);............ M|
00000490: 4F 56 45 20 43 53 52 20 52 49 47 48 54 20 48 20 |OVE CSR RIGHT H |
000004A0: 43 4F 4C 4D 53 00 B6 0C CA D3 8B 20 48 B2 30 20 |COLMS...... H.0 |
000004B0: 89 35 34 32 32 36 00 C3 0C CC D3 81 20 41 B2 31 |.54226...... A.1|
000004C0: A4 20 48 00 CF 0C CE D3 99 C7 28 32 39 29 3B 00 |. H.......(29);.|
000004D0: D5 0C D0 D3 82 00 DB 0C D2 D3 8E 00 F1 0C D4 D3 |................|
000004E0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000004F0: 2A 00 08 0D D6 D3 8F 2A 20 49 4E 50 55 54 20 4E |*......* INPUT N|
00000500: 4F 20 3F 20 4D 41 52 4B 00 21 0D D8 D3 8F 2A 20 |O ? MARK.!....* |
00000510: 49 4E 50 55 54 23 20 44 41 54 41 20 45 4E 54 52 |INPUT# DATA ENTR|
00000520: 59 00 2A 0D DA D3 9F 31 2C 30 00 34 0D DC D3 84 |Y.*....1,0.4....|
00000530: 31 2C 41 24 00 3B 0D DE D3 A0 31 00 41 0D E0 D3 |1,A$.;....1.A...|
00000540: 8E 00 5E 0D E2 D3 8F 20 2A 20 54 55 52 4E 20 50 |..^.... * TURN P|
00000550: 52 49 4E 54 45 52 20 4F 4E 20 2A 2A 2A 2A 00 64 |RINTER ON ****.d|
00000560: 0D E4 D3 8F 00 6E 0D E6 D3 9F 20 31 2C 34 00 76 |.....n.... 1,4.v|
00000570: 0D E8 D3 9D 20 31 00 7C 0D EA D3 8E 00 93 0D EC |.... 1.|........|
00000580: D3 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000590: 2A 2A 2A 00 B3 0D EE D3 8F 20 2A 2A 2A 2A 2A 2A |***...... ******|
000005A0: 2A 3A 55 53 45 52 20 44 45 46 20 46 55 4E 43 54 |*:USER DEF FUNCT|
000005B0: 49 4F 4E 00 CA 0D F0 D3 8F 20 44 45 46 49 4E 45 |ION...... DEFINE|
000005C0: 20 46 55 4E 43 54 49 4F 4E 53 00 FF 0D F2 D3 96 | FUNCTIONS......|
000005D0: 20 A5 20 5A 31 28 59 29 B2 B5 28 58 AC 31 30 AA | . Z1(Y)..(X.10.|
000005E0: 2E 35 29 AD 31 30 3A 8F 20 2A 2A 2A 2A 20 52 4F |.5).10:. **** RO|
000005F0: 55 4E 44 53 20 54 4F 20 31 20 50 4C 41 43 45 00 |UNDS TO 1 PLACE.|
00000600: 35 0E F4 D3 96 20 A5 20 5A 32 28 59 29 B2 B5 28 |5.... . Z2(Y)..(|
00000610: 58 AC 31 30 30 AA 2E 35 29 AD 31 30 30 3A 8F 20 |X.100..5).100:. |
00000620: 2A 2A 20 52 4F 55 4E 44 53 20 54 4F 20 32 20 50 |** ROUNDS TO 2 P|
00000630: 4C 41 43 45 53 00 6B 0E F6 D3 96 20 A5 20 5A 33 |LACES.k.... . Z3|
00000640: 28 59 29 B2 B5 28 58 AC 31 30 30 30 AA 2E 35 29 |(Y)..(X.1000..5)|
00000650: AD 31 30 30 30 3A 8F 2A 20 52 4F 55 4E 44 53 20 |.1000:.* ROUNDS |
00000660: 54 4F 20 33 20 50 4C 41 43 45 53 00 8B 0E F8 D3 |TO 3 PLACES.....|
00000670: 8F 20 2A 2A 2A 2A 2A 2A 2A 3A 55 53 45 52 20 44 |. *******:USER D|
00000680: 45 46 20 46 55 4E 43 54 49 4F 4E 00 9C 0E FA D3 |EF FUNCTION.....|
00000690: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AD 0E FC |. **********....|
000006A0: D3 8F 20 4E 4F 52 4D 41 4C 20 47 45 54 00 C6 0E |.. NORMAL GET...|
000006B0: FE D3 A1 20 41 24 3A 8B 20 41 24 B2 22 22 A7 20 |... A$:. A$."". |
000006C0: 89 35 34 32 37 30 00 CC 0E 00 D4 8E 00 DD 0E 02 |.54270..........|
000006D0: D4 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F7 0E |.. **********...|
000006E0: 04 D4 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000006F0: 2A 2A 2A 2A 2A 2A 2A 00 0A 0F 06 D4 8F 20 46 4C |*******...... FL|
00000700: 41 53 48 49 4E 47 20 47 45 54 00 10 0F 08 D4 8F |ASHING GET......|
00000710: 00 2F 0F 0A D4 97 20 32 30 34 2C 30 3A 20 8F 20 |./.... 204,0: . |
00000720: 2A 2A 20 46 4C 41 53 48 20 43 55 52 53 4F 52 00 |** FLASH CURSOR.|
00000730: 48 0F 0C D4 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |H.... A$:. A$.""|
00000740: A7 20 89 35 34 32 38 34 00 69 0F 0E D4 99 20 41 |. .54284.i.... A|
00000750: 24 3A 20 8F 20 2A 2A 20 44 49 53 50 4C 41 59 20 |$: . ** DISPLAY |
00000760: 4B 45 59 53 54 52 4F 4B 45 00 6F 0F 10 D4 8E 00 |KEYSTROKE.o.....|
00000770: 89 0F 12 D4 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A9 0F 14 D4 8F 20 |*********...... |
00000790: 2A 2A 2A 2A 2A 2A 2A 20 45 52 52 4F 52 20 4D 45 |******* ERROR ME|
000007A0: 53 53 41 47 45 20 2A 2A 2A 00 CD 0F 16 D4 8F 20 |SSAGE ***...... |
000007B0: 45 24 3D 4D 45 53 53 41 47 45 3A 45 58 41 4D 50 |E$=MESSAGE:EXAMP|
000007C0: 4C 45 2E 2E 45 24 3D 22 48 45 4C 50 22 00 DC 0F |LE..E$="HELP"...|
000007D0: 18 D4 81 20 4A B2 20 31 20 A4 20 35 00 FD 0F 1A |... J. 1 . 5....|
000007E0: D4 5A 58 B2 2E 33 3A 8D 35 34 33 31 36 3A 20 8F |.ZX..3:.54316: .|
000007F0: 20 2E 33 20 53 45 43 20 44 45 4C 41 59 00 1D 10 | .3 SEC DELAY...|
00000800: 1C D4 8F 20 50 4F 53 49 20 43 52 53 52 20 47 4F |... POSI CRSR GO|
00000810: 53 55 42 20 47 4F 45 53 20 48 45 52 45 00 4F 10 |SUB GOES HERE.O.|
00000820: 1E D4 99 C7 28 31 38 29 45 24 3A 8F 20 4D 45 53 |....(18)E$:. MES|
00000830: 53 41 47 45 20 47 4F 45 53 20 48 45 52 45 20 49 |SAGE GOES HERE I|
00000840: 4E 20 52 45 56 45 52 53 45 20 56 49 44 45 4F 00 |N REVERSE VIDEO.|
00000850: 70 10 20 D4 5A 58 B2 2E 33 3A 8D 35 34 33 31 36 |p. .ZX..3:.54316|
00000860: 3A 20 8F 20 2E 33 20 53 45 43 20 44 45 4C 41 59 |: . .3 SEC DELAY|
00000870: 00 90 10 22 D4 8F 20 50 4F 53 49 20 43 52 53 52 |...".. POSI CRSR|
00000880: 20 47 4F 53 55 42 20 47 4F 45 53 20 48 45 52 45 | GOSUB GOES HERE|
00000890: 00 B7 10 24 D4 99 C7 28 31 34 36 29 45 24 3A 8F |...$...(146)E$:.|
000008A0: 20 54 55 52 4E 20 4F 46 46 20 52 45 56 45 52 53 | TURN OFF REVERS|
000008B0: 45 20 56 49 44 45 4F 00 BD 10 26 D4 82 00 EA 10 |E VIDEO...&.....|
000008C0: 28 D4 8F 20 43 4C 45 41 52 20 56 2C 48 20 4D 45 |(.. CLEAR V,H ME|
000008D0: 53 53 41 47 45 20 4C 49 4E 45 20 47 4F 53 55 42 |SSAGE LINE GOSUB|
000008E0: 20 47 4F 45 53 20 48 45 52 45 00 F0 10 2A D4 8E | GOES HERE...*..|
000008F0: 00 09 11 2C D4 8F 2A 2A 2A 20 5A 58 20 53 45 43 |...,..*** ZX SEC|
00000900: 4F 4E 44 20 44 45 4C 41 59 00 1C 11 2E D4 81 20 |OND DELAY...... |
00000910: 4B B2 31 20 A4 20 5A 58 AC 39 32 30 00 22 11 30 |K.1 . ZX.920.".0|
00000920: D4 82 00 28 11 32 D4 8E 00 4A 11 34 D4 8F 20 2A |...(.2...J.4.. *|
00000930: 2A 2A 2A 2A 2A 2A 2A 20 45 4E 44 20 53 55 42 20 |******* END SUB |
00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 65 11 36 D4 8F |**********.e.6..|
00000950: 20 2A 2A 2A 20 50 52 49 4E 54 45 52 20 54 41 42 | *** PRINTER TAB|
00000960: 20 2A 2A 2A 2A 00 7C 11 38 D4 8F 20 20 54 41 42 | ****.|.8.. TAB|
00000970: 20 48 4F 57 20 46 41 52 20 54 3D 35 00 82 11 3A | HOW FAR T=5...:|
00000980: D4 8F 00 8E 11 3C D4 42 24 B2 C4 28 54 29 00 9A |.....<.B$..(T)..|
00000990: 11 3E D4 4C B2 C3 28 42 24 29 00 AE 11 40 D4 8B |.>.L..(B$)...@..|
000009A0: 4C B2 33 A7 42 24 B2 C9 28 42 24 2C 32 29 00 BE |L.3.B$..(B$,2)..|
000009B0: 11 42 D4 98 31 2C C7 28 31 36 29 42 24 3B 00 C4 |.B..1,.(16)B$;..|
000009C0: 11 44 D4 8E 00 DF 11 46 D4 8F 20 2A 2A 2A 20 50 |.D.....F.. *** P|
000009D0: 52 49 4E 54 45 52 20 54 41 42 20 2A 2A 2A 2A 00 |RINTER TAB ****.|
000009E0: ED 11 48 D4 8F 20 50 52 49 4E 54 45 52 00 07 12 |..H.. PRINTER...|
000009F0: 4A D4 8F 20 43 45 4E 54 45 52 20 41 4E 44 20 50 |J.. CENTER AND P|
00000A00: 52 49 4E 54 20 5A 24 00 1A 12 4C D4 54 B2 28 38 |RINT Z$...L.T.(8|
00000A10: 30 AB C3 28 5A 24 29 29 AD 32 00 27 12 4E D4 98 |0..(Z$)).2.'.N..|
00000A20: 31 2C A3 54 29 5A 24 00 2D 12 50 D4 8E 00 3B 12 |1,.T)Z$.-.P...;.|
00000A30: 52 D4 8F 20 50 52 49 4E 54 45 52 00 4F 12 54 D4 |R.. PRINTER.O.T.|
00000A40: 8F 20 52 45 4C 20 57 52 49 54 45 20 53 55 42 00 |. REL WRITE SUB.|
00000A50: 59 12 56 D4 8F 20 3A 3A 3A 00 71 12 58 D4 8F 20 |Y.V.. :::.q.X.. |
00000A60: 43 41 4C 43 55 4C 41 54 45 20 4C 4F 20 26 20 48 |CALCULATE LO & H|
00000A70: 49 00 93 12 5A D4 9F 20 31 35 2C 38 2C 31 35 3A |I...Z.. 15,8,15:|
00000A80: 20 8F 20 4F 50 45 4E 20 43 4D 44 20 43 48 41 4E | . OPEN CMD CHAN|
00000A90: 4E 45 4C 00 AE 12 5C D4 9F 36 2C 38 2C 36 2C 22 |NEL...\..6,8,6,"|
00000AA0: 52 45 4C 20 46 49 4C 45 20 54 45 53 54 22 00 CE |REL FILE TEST"..|
00000AB0: 12 5E D4 8F 20 4F 50 45 4E 20 46 49 4C 45 20 43 |.^.. OPEN FILE C|
00000AC0: 48 4E 4C 20 26 20 46 49 4C 45 4E 41 4D 45 00 E6 |HNL & FILENAME..|
00000AD0: 12 60 D4 98 31 35 2C 22 50 22 C7 28 36 29 C7 28 |.`..15,"P".(6).(|
00000AE0: 4C 29 C7 28 48 29 00 FE 12 62 D4 8F 20 50 52 49 |L).(H)...b.. PRI|
00000AF0: 4E 54 20 54 4F 20 43 4D 44 20 43 48 4E 4C 00 13 |NT TO CMD CHNL..|
00000B00: 13 64 D4 8F 20 50 20 46 4F 52 20 50 4F 53 49 54 |.d.. P FOR POSIT|
00000B10: 49 4F 4E 00 2D 13 66 D4 8F 20 43 48 52 24 28 36 |ION.-.f.. CHR$(6|
00000B20: 29 20 46 49 4C 45 20 43 48 4E 4C 20 36 00 41 13 |) FILE CHNL 6.A.|
00000B30: 68 D4 8F 20 52 45 4C 20 46 49 4C 45 20 52 45 41 |h.. REL FILE REA|
00000B40: 44 00 4B 13 6A D4 8F 20 3A 3A 3A 00 6A 13 6C D4 |D.K.j.. :::.j.l.|
00000B50: 9F 31 35 2C 38 2C 31 35 20 3A 20 8F 20 4F 50 45 |.15,8,15 : . OPE|
00000B60: 4E 20 43 4D 44 20 43 48 4E 4C 00 85 13 6E D4 9F |N CMD CHNL...n..|
00000B70: 36 2C 38 2C 36 2C 22 52 45 4C 20 46 49 4C 45 20 |6,8,6,"REL FILE |
00000B80: 54 45 53 54 22 00 A5 13 70 D4 8F 20 4F 50 45 4E |TEST"...p.. OPEN|
00000B90: 20 46 49 4C 45 20 43 48 4E 4C 20 26 20 46 49 4C | FILE CHNL & FIL|
00000BA0: 45 4E 41 4D 45 00 BD 13 72 D4 98 31 35 2C 22 50 |ENAME...r..15,"P|
00000BB0: 22 C7 28 36 29 C7 28 4C 29 C7 28 48 29 00 C6 13 |".(6).(L).(H)...|
00000BC0: 74 D4 8F 3A 3A 3A 00 DE 13 76 D4 8F 20 50 52 49 |t..:::...v.. PRI|
00000BD0: 4E 54 20 54 4F 20 43 4D 44 20 43 48 4E 4C 00 F3 |NT TO CMD CHNL..|
00000BE0: 13 78 D4 8F 20 50 20 46 4F 52 20 50 4F 53 49 54 |.x.. P FOR POSIT|
00000BF0: 49 4F 4E 00 0D 14 7A D4 8F 20 43 48 52 24 28 36 |ION...z.. CHR$(6|
00000C00: 29 20 46 49 4C 45 20 43 48 4E 4C 20 36 00 30 14 |) FILE CHNL 6.0.|
00000C10: 7C D4 8F 20 43 48 52 24 28 4C 29 20 52 45 43 4F ||.. CHR$(L) RECO|
00000C20: 52 44 20 23 20 54 4F 20 57 52 49 54 45 20 54 4F |RD # TO WRITE TO|
00000C30: 00 53 14 7E D4 8F 20 43 48 52 24 28 48 29 20 52 |.S.~.. CHR$(H) R|
00000C40: 45 43 4F 52 44 20 23 20 54 4F 20 57 52 49 54 45 |ECORD # TO WRITE|
00000C50: 20 54 4F 00 5C 14 80 D4 8F 3A 3A 3A 00 62 14 82 | TO.\....:::.b..|
00000C60: D4 8E 00 76 14 84 D4 8F 20 52 45 4C 20 46 49 4C |...v.... REL FIL|
00000C70: 45 20 52 45 41 44 00 96 14 86 D4 8F 20 53 45 51 |E READ...... SEQ|
00000C80: 55 45 4E 54 49 41 4C 20 46 49 4C 45 20 57 52 49 |UENTIAL FILE WRI|
00000C90: 54 45 20 53 55 42 00 A0 14 88 D4 8F 20 3A 3A 3A |TE SUB...... :::|
00000CA0: 00 C3 14 8A D4 9F 20 36 2C 38 2C 36 2C 22 40 30 |...... 6,8,6,"@0|
00000CB0: 3A 53 45 51 20 46 49 4C 45 20 54 45 53 54 2C 53 |:SEQ FILE TEST,S|
00000CC0: 2C 57 22 00 D6 14 8C D4 8F 20 4F 50 45 4E 20 46 |,W"...... OPEN F|
00000CD0: 49 4C 45 20 23 36 00 F6 14 8E D4 8F 20 4E 41 4D |ILE #6...... NAM|
00000CE0: 45 20 49 53 20 27 20 53 45 51 20 46 49 4C 45 20 |E IS ' SEQ FILE |
00000CF0: 54 45 53 54 20 27 00 00 15 90 D4 98 36 2C 41 24 |TEST '......6,A$|
00000D00: 00 1D 15 92 D4 8F 20 41 24 20 48 4F 4C 44 53 20 |...... A$ HOLDS |
00000D10: 49 4E 46 4F 20 56 41 52 49 41 42 4C 45 00 33 15 |INFO VARIABLE.3.|
00000D20: 94 D4 A0 20 36 3A 20 8F 20 43 4C 4F 53 45 20 46 |... 6: . CLOSE F|
00000D30: 49 4C 45 00 39 15 96 D4 8E 00 54 15 98 D4 8F 20 |ILE.9.....T.... |
00000D40: 53 45 51 55 45 4E 54 49 41 4C 20 46 49 4C 45 20 |SEQUENTIAL FILE |
00000D50: 52 45 41 44 00 5E 15 9A D4 8F 20 3A 3A 3A 00 81 |READ.^.... :::..|
00000D60: 15 9C D4 9F 20 36 2C 38 2C 36 2C 22 40 30 3A 53 |.... 6,8,6,"@0:S|
00000D70: 45 51 20 46 49 4C 45 20 54 45 53 54 2C 53 2C 52 |EQ FILE TEST,S,R|
00000D80: 22 00 94 15 9E D4 8F 20 4F 50 45 4E 20 46 49 4C |"...... OPEN FIL|
00000D90: 45 20 23 36 00 B4 15 A0 D4 8F 20 4E 41 4D 45 20 |E #6...... NAME |
00000DA0: 49 53 20 27 20 53 45 51 20 46 49 4C 45 20 54 45 |IS ' SEQ FILE TE|
00000DB0: 53 54 20 27 00 BE 15 A2 D4 84 36 2C 42 24 00 DB |ST '......6,B$..|
00000DC0: 15 A4 D4 8F 20 42 24 20 48 4F 4C 44 53 20 49 4E |.... B$ HOLDS IN|
00000DD0: 46 4F 20 56 41 52 49 41 42 4C 45 00 F1 15 A6 D4 |FO VARIABLE.....|
00000DE0: A0 20 36 3A 20 8F 20 43 4C 4F 53 45 20 46 49 4C |. 6: . CLOSE FIL|
00000DF0: 45 00 F7 15 A8 D4 8E 00 0D 16 AA D4 8F 20 43 52 |E............ CR|
00000E00: 45 41 54 45 20 52 45 4C 20 46 49 4C 45 00 27 16 |EATE REL FILE.'.|
00000E10: AC D4 8F 20 54 4F 20 43 52 45 41 54 20 41 20 52 |... TO CREAT A R|
00000E20: 45 4C 20 46 49 4C 45 00 3E 16 AE D4 8F 20 4F 50 |EL FILE.>.... OP|
00000E30: 45 4E 20 46 49 4C 45 20 4E 55 4D 42 45 52 00 55 |EN FILE NUMBER.U|
00000E40: 16 B0 D4 8F 20 44 45 56 49 43 45 20 20 20 20 4E |.... DEVICE N|
00000E50: 55 4D 42 45 52 00 6C 16 B2 D4 8F 20 43 48 41 4E |UMBER.l.... CHAN|
00000E60: 4E 45 4C 20 20 20 4E 55 4D 42 45 52 00 81 16 B4 |NEL NUMBER....|
00000E70: D4 8F 20 46 49 4C 45 20 20 20 20 20 20 4E 41 4D |.. FILE NAM|
00000E80: 45 00 9F 16 B6 D4 8F 20 2B 20 43 48 52 24 28 20 |E...... + CHR$( |
00000E90: 52 45 43 4F 52 44 20 4C 45 4E 47 54 48 20 29 00 |RECORD LENGTH ).|
00000EA0: AD 16 B8 D4 8F 20 45 58 41 4D 50 4C 45 00 D4 16 |..... EXAMPLE...|
00000EB0: BA D4 8F 20 4F 50 45 4E 36 2C 38 2C 36 2C 22 52 |... OPEN6,8,6,"R|
00000EC0: 45 4C 20 46 49 4C 45 2C 4C 22 2B 43 48 52 24 28 |EL FILE,L"+CHR$(|
00000ED0: 31 39 38 29 00 0B 17 BC D4 8F 20 54 48 49 53 20 |198)...... THIS |
00000EE0: 49 53 20 45 58 45 43 55 54 45 44 20 4F 4E 4C 59 |IS EXECUTED ONLY|
00000EF0: 20 4F 4E 43 45 20 49 4E 20 59 20 20 20 20 20 20 | ONCE IN Y |
00000F00: 20 20 20 4F 55 52 20 50 52 47 2E 00 4F 17 BE D4 | OUR PRG..O...|
00000F10: 8F 20 4C 4F 43 41 54 45 20 49 54 20 49 4E 20 59 |. LOCATE IT IN Y|
00000F20: 4F 55 52 20 43 4F 44 45 20 57 48 45 52 45 20 41 |OUR CODE WHERE A|
00000F30: 20 20 20 20 20 20 20 20 20 20 46 49 4C 45 20 49 | FILE I|
00000F40: 53 20 54 4F 20 42 45 20 43 52 45 41 54 45 44 00 |S TO BE CREATED.|
00000F50: 94 17 C0 D4 8F 20 41 46 54 45 52 20 54 48 45 53 |..... AFTER THES|
00000F60: 45 20 4C 49 4E 45 53 20 48 41 56 45 20 42 45 45 |E LINES HAVE BEE|
00000F70: 4E 20 45 58 45 20 20 20 20 20 20 20 20 20 43 55 |N EXE CU|
00000F80: 54 45 44 2C 20 54 48 45 20 46 49 4C 45 20 45 58 |TED, THE FILE EX|
00000F90: 49 53 54 53 00 C5 17 C2 D4 8F 20 41 4E 44 20 52 |ISTS...... AND R|
00000FA0: 45 43 4F 52 44 53 20 4D 41 59 20 42 45 20 57 52 |ECORDS MAY BE WR|
00000FB0: 49 54 54 45 4E 20 54 4F 20 49 20 20 20 20 20 20 |ITTEN TO I |
00000FC0: 20 20 20 54 2E 00 CF 17 C4 D4 8F 3A 3A 3A 3A 00 | T.......::::.|
00000FD0: EE 17 C6 D4 9F 20 36 2C 38 2C 36 22 52 45 4C 20 |..... 6,8,6"REL |
00000FE0: 46 49 4C 45 2C 4C 22 AA C7 28 31 39 38 29 00 F6 |FILE,L"..(198)..|
00000FF0: 17 C8 D4 A0 20 36 00 10 18 CA D4 20 8F 20 52 45 |.... 6..... . RE|
00001000: 41 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C |AD ERROR CHANNEL|
00001010: 00 19 18 CC D4 8F 3A 3A 3A 00 37 18 CE D4 9F 31 |......:::.7....1|
00001020: 35 2C 38 2C 31 35 20 3A 8F 20 4F 50 45 4E 20 43 |5,8,15 :. OPEN C|
00001030: 4D 44 20 43 48 4E 4C 00 53 18 D0 D4 5A 5A 25 B2 |MD CHNL.S...ZZ%.|
00001040: 30 3A 8F 20 5A 45 52 4F 20 45 52 52 4F 52 20 46 |0:. ZERO ERROR F|
00001050: 4C 41 47 00 63 18 D2 D4 84 31 35 2C 52 31 24 2C |LAG.c....15,R1$,|
00001060: 52 32 24 00 84 18 D4 D4 8B 20 C5 28 52 31 24 29 |R2$...... .(R1$)|
00001070: B2 30 89 35 34 35 30 30 3A 20 8F 20 4E 4F 20 45 |.0.54500: . NO E|
00001080: 52 52 4F 52 00 9C 18 D6 D4 8F 20 3A 3A 45 52 52 |RROR...... ::ERR|
00001090: 4F 52 20 43 4F 4E 44 49 54 49 4F 4E 00 B7 18 D8 |OR CONDITION....|
000010A0: D4 5A 5A 25 B2 31 3A 8F 20 53 45 54 20 45 52 52 |.ZZ%.1:. SET ERR|
000010B0: 4F 52 20 46 4C 41 47 00 D7 18 DA D4 8F 20 3A 3A |OR FLAG...... ::|
000010C0: 44 49 53 50 4C 41 59 20 45 52 52 4F 52 20 43 4F |DISPLAY ERROR CO|
000010D0: 4E 44 49 54 49 4F 4E 00 FF 18 DC D4 8F 20 43 52 |NDITION...... CR|
000010E0: 53 52 20 50 4F 53 49 54 49 4F 4E 20 57 48 49 43 |SR POSITION WHIC|
000010F0: 48 20 52 4F 57 20 47 4F 45 53 20 48 45 52 45 00 |H ROW GOES HERE.|
00001100: 12 19 DE D4 99 22 45 52 52 4F 52 3A 20 22 3B 52 |....."ERROR: ";R|
00001110: 31 24 00 25 19 E0 D4 99 22 54 59 50 45 20 3A 20 |1$.%...."TYPE : |
00001120: 22 3B 52 32 24 00 41 19 E2 D4 8F 20 54 45 4D 50 |";R2$.A.... TEMP|
00001130: 20 50 41 55 53 45 20 20 47 4F 45 53 20 48 45 52 | PAUSE GOES HER|
00001140: 45 00 47 19 E4 D4 8E 00 5D 19 E6 D4 8F 20 56 32 |E.G.....].... V2|
00001150: 20 43 52 53 52 20 43 4F 4E 54 52 4F 4C 00 67 19 | CRSR CONTROL.g.|
00001160: E8 D4 8F 20 3A 3A 3A 00 76 19 EA D4 8F 20 2A 2A |... :::.v.... **|
00001170: 2A 2A 2A 2A 2A 2A 00 96 19 EC D4 8F 20 2A 2A 2A |******...... ***|
00001180: 2A 37 38 31 2C 56 20 3D 20 43 52 53 52 20 56 45 |*781,V = CRSR VE|
00001190: 52 54 49 43 41 4C 00 B8 19 EE D4 8F 20 2A 2A 2A |RTICAL...... ***|
000011A0: 2A 37 38 32 2C 48 20 3D 20 43 52 53 52 20 48 4F |*782,H = CRSR HO|
000011B0: 52 49 5A 4F 4E 54 41 4C 00 D9 19 F0 D4 8F 20 2A |RIZONTAL...... *|
000011C0: 2A 2A 2A 20 53 59 53 20 36 35 35 32 30 20 3D 20 |*** SYS 65520 = |
000011D0: 45 58 45 43 55 54 49 4F 4E 00 E8 19 F2 D4 8F 20 |EXECUTION...... |
000011E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FC 19 F4 D4 97 37 38 |********......78|
000011F0: 33 2C C2 28 37 38 33 29 AF 32 35 34 00 07 1A F6 |3,.(783).254....|
00001200: D4 97 37 38 31 2C 56 00 12 1A F8 D4 97 37 38 32 |..781,V......782|
00001210: 2C 48 00 22 1A FA D4 8F 20 53 48 45 4C 4C 53 4F |,H.".... SHELLSO|
00001220: 52 54 00 46 1A FC D4 85 22 48 4F 57 20 4D 41 4E |RT.F...."HOW MAN|
00001230: 59 20 49 54 45 4D 53 20 49 4E 20 54 48 45 20 4C |Y ITEMS IN THE L|
00001240: 49 53 54 22 3B 4E 00 54 1A FE D4 81 20 58 B2 31 |IST";N.T.... X.1|
00001250: 20 A4 20 4E 00 6A 1A 00 D5 85 22 20 49 54 45 4D | . N.j...." ITEM|
00001260: 20 3A 20 22 3B 4D 24 28 58 29 00 72 1A 02 D5 82 | : ";M$(X).r....|
00001270: 20 58 00 7A 1A 04 D5 53 B2 4E 00 8D 1A 06 D5 53 | X.z...S.N.....S|
00001280: B2 B5 28 53 AD 31 2E 35 29 3A 51 B2 53 00 95 1A |..(S.1.5):Q.S...|
00001290: 08 D5 46 B2 30 00 A4 1A 0A D5 81 20 58 B2 20 31 |..F.0...... X. 1|
000012A0: 20 A4 20 4E 00 AE 1A 0C D5 51 B2 58 AA 53 00 BE | . N.....Q.X.S..|
000012B0: 1A 0E D5 8B 51 B1 4E 20 A7 35 34 35 34 38 00 F1 |....Q.N .54548..|
000012C0: 1A 10 D5 8B 4D 24 28 58 29 B1 4D 24 28 51 29 A7 |....M$(X).M$(Q).|
000012D0: 54 24 B2 4D 24 28 58 29 3A 4D 24 28 58 29 B2 4D |T$.M$(X):M$(X).M|
000012E0: 24 28 51 29 3A 4D 24 28 51 29 B2 54 24 3A 46 B2 |$(Q):M$(Q).T$:F.|
000012F0: 31 00 F9 1A 12 D5 82 20 58 00 09 1B 14 D5 8B 20 |1...... X...... |
00001300: 53 B1 31 A7 35 34 35 33 34 00 19 1B 16 D5 8B 20 |S.1.54534...... |
00001310: 46 B2 31 A7 35 34 35 33 36 00 27 1B 18 D5 81 20 |F.1.54536.'.... |
00001320: 58 B2 31 20 A4 20 4E 00 32 1B 1A D5 99 4D 24 28 |X.1 . N.2....M$(|
00001330: 58 29 00 3A 1B 1C D5 82 20 58 00 40 1B 1E D5 8E |X).:.... X.@....|
00001340: 00 59 1B 20 D5 8F 20 20 20 2A 2A 20 42 4F 4D 42 |.Y. .. ** BOMB|
00001350: 20 20 53 55 42 20 20 2A 2A 00 5F 1B 22 D5 3A 00 | SUB **._.".:.|
00001360: 6B 1B 24 D5 53 B2 35 34 32 37 32 00 78 1B 26 D5 |k.$.S.54272.x.&.|
00001370: 97 20 53 AA 32 34 2C 37 00 8A 1B 28 D5 97 20 53 |. S.24,7...(.. S|
00001380: AA 35 2C 31 32 AC 31 36 AA 30 00 9D 1B 2A D5 97 |.5,12.16.0...*..|
00001390: 20 53 AA 36 2C 31 35 AC 31 36 AA 31 30 00 B4 1B | S.6,15.16.10...|
000013A0: 2C D5 81 20 58 B2 20 32 35 35 20 A4 20 31 30 30 |,.. X. 255 . 100|
000013B0: A9 20 AB 31 00 C0 1B 2E D5 97 20 53 AA 31 2C 58 |. .1...... S.1,X|
000013C0: 00 CD 1B 30 D5 97 20 53 AA 34 2C 31 37 00 E2 1B |...0.. S.4,17...|
000013D0: 32 D5 81 20 44 B2 31 20 A4 20 31 30 20 3A 20 82 |2.. D.1 . 10 : .|
000013E0: 20 44 00 EA 1B 34 D5 82 20 58 00 F8 1B 36 D5 97 | D...4.. X...6..|
000013F0: 20 53 AA 32 34 2C 31 35 00 05 1C 38 D5 97 20 53 | S.24,15...8.. S|
00001400: AA 31 2C 31 35 00 13 1C 3A D5 97 20 53 AA 34 2C |.1,15...:.. S.4,|
00001410: 31 32 38 00 19 1C 3C D5 8E 00 3B 1C 3E D5 8F 20 |128...<...;.>.. |
00001420: 2A 2A 2A 2A 2A 2A 2A 2A 20 42 55 5A 5A 20 53 4F |******** BUZZ SO|
00001430: 55 4E 44 20 2A 2A 2A 2A 2A 2A 2A 00 48 1C 40 D5 |UND *******.H.@.|
00001440: 53 4F B2 35 34 32 37 32 00 5F 1C 42 D5 81 4C B2 |SO.54272._.B..L.|
00001450: 30 A4 32 34 3A 97 53 4F AA 4C 2C 30 3A 82 4C 00 |0.24:.SO.L,0:.L.|
00001460: 93 1C 44 D5 97 53 4F AA 31 34 2C 35 3A 97 53 4F |..D..SO.14,5:.SO|
00001470: AA 31 38 2C 31 36 3A 97 53 4F AA 33 2C 31 3A 97 |.18,16:.SO.3,1:.|
00001480: 53 4F AA 32 34 2C 31 34 33 3A 97 53 4F AA 36 2C |SO.24,143:.SO.6,|
00001490: 32 34 30 00 D0 1C 46 D5 97 53 4F AA 34 2C 36 35 |240...F..SO.4,65|
000014A0: 3A 46 30 B2 35 33 38 39 3A 81 54 30 B2 31 A4 34 |:F0.5389:.T0.1.4|
000014B0: 3A 46 31 B2 46 30 AA C2 28 53 4F AA 32 37 29 AC |:F1.F0..(SO.27).|
000014C0: 33 2E 35 3A 46 33 B2 B5 28 46 31 AD 32 35 36 29 |3.5:F3..(F1.256)|
000014D0: 00 FE 1C 48 D5 46 32 B2 46 31 AB 46 33 AC 32 35 |...H.F2.F1.F3.25|
000014E0: 36 3A 97 53 4F AA 30 2C 46 32 3A 97 53 4F AA 31 |6:.SO.0,F2:.SO.1|
000014F0: 2C 46 33 3A 82 3A 97 53 4F AA 32 34 2C 30 00 04 |,F3:.:.SO.24,0..|
00001500: 1D 4A D5 8E 00 1F 1D 4C D5 8F 2A 2A 2A 2A 4D 55 |.J.....L..****MU|
00001510: 53 49 43 20 46 41 4E 46 41 52 45 20 2A 2A 2A 00 |SIC FANFARE ***.|
00001520: 44 1D 4E D5 8C 3A 42 4E B2 35 34 32 37 32 3A 81 |D.N..:BN.54272:.|
00001530: 43 52 B2 42 4E 20 A4 42 4E AA 32 34 3A 97 43 52 |CR.BN .BN.24:.CR|
00001540: 2C 30 3A 82 00 6E 1D 50 D5 97 42 4E AA 35 2C 38 |,0:..n.P..BN.5,8|
00001550: 35 3A 97 42 4E AA 36 2C 38 35 3A 97 42 4E AA 31 |5:.BN.6,85:.BN.1|
00001560: 32 2C 38 35 3A 97 42 4E AA 31 33 2C 38 35 00 7C |2,85:.BN.13,85.||
00001570: 1D 52 D5 97 42 4E AA 32 34 2C 31 35 00 93 1D 54 |.R..BN.24,15...T|
00001580: D5 97 42 4E AA 34 2C 33 33 3A 97 42 4E AA 31 31 |..BN.4,33:.BN.11|
00001590: 2C 31 37 00 CD 1D 56 D5 81 58 B2 31 A4 36 3A 87 |,17...V..X.1.6:.|
000015A0: 48 31 2C 4C 31 2C 48 32 2C 4C 32 3A 97 42 4E AA |H1,L1,H2,L2:.BN.|
000015B0: 31 2C 48 31 3A 97 42 4E 2C 4C 31 3A 97 42 4E AA |1,H1:.BN,L1:.BN.|
000015C0: 38 2C 48 32 3A 97 42 4E AA 37 2C 4C 32 00 E3 1D |8,H2:.BN.7,L2...|
000015D0: 58 D5 8B 48 31 B2 35 30 A7 81 54 B2 31 A4 32 30 |X..H1.50..T.1.20|
000015E0: 30 3A 82 00 F2 1D 5A D5 81 54 B2 31 A4 31 30 30 |0:....Z..T.1.100|
000015F0: 3A 82 00 3E 1E 5C D5 83 32 35 2C 33 30 2C 31 38 |:..>.\..25,30,18|
00001600: 2C 32 30 39 2C 33 33 2C 31 33 35 2C 32 35 2C 33 |,209,33,135,25,3|
00001610: 30 2C 34 32 2C 36 32 2C 33 31 2C 31 36 35 2C 35 |0,42,62,31,165,5|
00001620: 30 2C 36 30 2C 33 37 2C 31 36 32 2C 34 32 2C 36 |0,60,37,162,42,6|
00001630: 32 2C 33 31 2C 31 36 35 2C 35 30 2C 36 30 00 4A |2,31,165,50,60.J|
00001640: 1E 5E D5 83 33 37 2C 31 36 32 00 51 1E 60 D5 82 |.^..37,162.Q.`..|
00001650: 58 00 74 1E 62 D5 42 4E B2 35 34 32 37 32 3A 81 |X.t.b.BN.54272:.|
00001660: 43 52 B2 42 4E 20 A4 42 4E AA 32 34 3A 97 43 52 |CR.BN .BN.24:.CR|
00001670: 2C 30 3A 82 00 7A 1E 64 D5 8E 00 00 00 99 |,0:..z.d...... |
....^S. ** PAUSE DELAY ****.X.`S. PLACE
CURSOR POSITION SUB - - ROUTIN
ES HERE.{.BS.G(18);: .***REVERSE VISEO
***...DS."[ PRESS SPACE BAR TO CONTINUE
]";...FS. A$...HS. A$.." ".54118.F.JS..L
.LS....NS. ****** END OF SUB *****...PS.
** TIME DELAY ****...RS. **************
*****.7.TS. * TIME DELAY *.Q.VS. *
ZX=AMT OF TIME *.K.XS. ****************
***...ZS. BE SURE TO USE ZX EARLY IN PRO
G...|S. **** ZX SECOND TIME DELAY.B.~S.
Y.1.ZX.920.H..S..N..S.....S. ******END O
F SUB ***....S. ******************....S.
*** CENTR & PRT A$....SL.(39.C(A$)).2.:
..S.G(18);.F..S..L) A$.L..S..E..S. *****
*************.W..S. COLOR A ROW....S. **
* COLOR=WHITE...CHR$(5)....S.G(5);.F..S.
CRSR POSITION (ROW) GOES HERE....S.G(18
)"
":. 40 SPACES....S.... S. COLOR A ROW.
>..S. ************************._..S. NUM
BER TO STRING CONVERTER.R..SZ.1 :. EXAMP
LE.~..SZ$.D(Z)....SL.C(Z$)....S.Z..0.L.L
.1....SZ$.I(Z$,L).A..S.Z$:. PRINT EXAMPL
E.G..S.....S. ************************..
..S. ***************....S. *************
**.(..S. CSSR POSITIONER.A..S.G(19):. MO
VE CSR HM.Z..S. MOVE CSR DN V ROWS.J..S.
V.0.54216.V.BS. A.1.V...DS.G(17);...FS.
...HS. MOVE CSR RIGHT H COLMS...JS. H.0
.54226.C.LS. A.1. H.O.NS.G(29);.U.PS....
RS....TS. ***************...VS.* INPUT N
O ? MARK.!.XS.* INPUT# DATA ENTRY.*.ZS.1
,0.4..S.1,A$.;..S 1.A..S..^..S. * TURN P
RINTER ON ****.D..S..N..S. 1,4.V..S. 1.|
..S.....S. ****************....S. ******
*:USER DEF FUNCTION.J..S. DEFINE FUNCTIO
NS....S. . Z1(Y)..(X.10..5).10:. **** RO
UNDS TO 1 PLACE.5..S. . Z2(Y)..(X.100..5
).100:. ** ROUNDS TO 2 PLACES.K..S. . Z3
(Y)..(X.1000..5).1000:.* ROUNDS TO 3 PLA
CES....S. *******:USER DEF FUNCTION....S
. **********....S. NORMAL GET.F..S. A$:.
A$."". .54270.L..T.....T. **********...
.T. *******************....T. FLASHING G
ET....T../..T. 204,0: . ** FLASH CURSOR.
H..T. A$:. A$."". .54284.I..T. A$: . **
DISPLAY KEYSTROKE.O..T.....T. **********
*********....T. ******* ERROR MESSAGE **
*.M..T. E$=MESSAGE:EXAMPLE..E$="HELP"...
.T. J. 1 . 5....TZX..3:.54316: . .3 SEC
DELAY....T. POSI CRSR GOSUB GOES HERE.O.
.T.G(18)E$:. MESSAGE GOES HERE IN REVERS
E VIDEO.P. TZX..3:.54316: . .3 SEC DELAY
..."T. POSI CRSR GOSUB GOES HERE...$T.G(
146)E$:. TURN OFF REVERSE VIDEO...&T....
(T. CLEAR V,H MESSAGE LINE GOSUB GOES HE
RE...*T....,T.*** ZX SECOND DELAY....T.
K.1 . ZX.920.".0T..(.2T..J.4T. ********
END SUB **********.E.6T. *** PRINTER TAB
****.|.8T. TAB HOW FAR T=5...:T....<TB
$.D(T)...>TL.C(B$)...@T.L.3.B$.I(B$,2)..
.BT.1,G(16)B$;.D.DT....FT. *** PRINTER T
AB ****...HT. PRINTER...JT. CENTER AND P
RINT Z$...LTT.(80.C(Z$)).2.'.NT.1,.T)Z$.
-.PT..;.RT. PRINTER.O.TT. REL WRITE SUB.
Y.VT. :::.Q.XT. CALCULATE LO & HI...ZT.
15,8,15: . OPEN CMD CHANNEL...\T.6,8,6,"
REL FILE TEST".N.^T. OPEN FILE CHNL & FI
LENAME...`T.15,"P"G(6)G(L)G(H)...BT. PRI
NT TO CMD CHNL...DT. P FOR POSITION.-.FT
. CHR$(6) FILE CHNL 6.A.HT. REL FILE REA
D.K.JT. :::.J.LT.15,8,15 : . OPEN CMD CH
NL...NT.6,8,6,"REL FILE TEST"...PT. OPEN
FILE CHNL & FILENAME...RT.15,"P"G(6)G(L
)G(H).F.TT.:::...VT. PRINT TO CMD CHNL..
.XT. P FOR POSITION...ZT. CHR$(6) FILE C
HNL 6.0.|T. CHR$(L) RECORD # TO WRITE TO
.S.~T. CHR$(H) RECORD # TO WRITE TO.\..T
.:::.B..T..V..T. REL FILE READ....T. SEQ
UENTIAL FILE WRITE SUB. ..T. :::.C..T. 6
,8,6,"@0:SEQ FILE TEST,S,W".V..T. OPEN F
ILE #6....T. NAME IS ' SEQ FILE TEST '..
..T.6,A$....T. A$ HOLDS INFO VARIABLE.3.
.T 6: . CLOSE FILE.9..T..T..T. SEQUENTI
AL FILE READ.^..T. :::....T. 6,8,6,"@0:S
EQ FILE TEST,S,R"....T. OPEN FILE #6...
T. NAME IS ' SEQ FILE TEST '....T.6,B$..
..T. B$ HOLDS INFO VARIABLE....T 6: . C
LOSE FILE....T.....T. CREATE REL FILE.'.
.T. TO CREAT A REL FILE.>..T. OPEN FILE
NUMBER.U..T. DEVICE NUMBER.L..T. CHAN
NEL NUMBER....T. FILE NAME....T.
+ CHR$( RECORD LENGTH )....T. EXAMPLE.T.
.T. OPEN6,8,6,"REL FILE,L"+CHR$(198)....
T. THIS IS EXECUTED ONLY ONCE IN Y
OUR PRG..O..T. LOCATE IT IN YOUR CODE
WHERE A FILE IS TO BE CREATED.
...T. AFTER THESE LINES HAVE BEEN EXE
CUTED, THE FILE EXISTS.E.BT. AND R
ECORDS MAY BE WRITTEN TO I T..O.
DT.::::...FT. 6,8,6"REL FILE,L".G(198)..
.HT 6...JT . READ ERROR CHANNEL...LT.::
:.7.NT.15,8,15 :. OPEN CMD CHNL.S.PTZZ%.
0:. ZERO ERROR FLAG.C.RT.15,R1$,R2$...TT
. E(R1$).0.54500: . NO ERROR...VT. ::ERR
OR CONDITION...XTZZ%.1:. SET ERROR FLAG.
W.ZT. ::DISPLAY ERROR CONDITION....T. CR
SR POSITION WHICH ROW GOES HERE....T."ER
ROR: ";R1$.%..T."TYPE : ";R2$.A..T. TEMP
PAUSE GOES HERE.G..T..]..T. V2 CRSR CO
NTROL.G..T. :::.V..T. ********....T. ***
*781,V = CRSR VERTICAL....T. ****782,H =
CRSR HORIZONTAL.Y..T. **** SYS 65520 =
EXECUTION....T. ********....T.783,B(783)
.254....T.781,V....T.782,H."..T. SHELLSO
RT.F..T."HOW MANY ITEMS IN THE LIST";N.T
..T. X.1 . N.J..U." ITEM : ";M$(X).R..U.
X.Z..US.N....US..(S.1.5):Q.S....UF.0...
.U. X. 1 . N....UQ.X.S....U.Q.N .54548..
..U.M$(X).M$(Q).T$.M$(X):M$(X).M$(Q):M$(
Q).T$:F.1....U. X....U. S.1.54534....U.
F.1.54536.'..U. X.1 . N.2..U.M$(X).:..U.
X.@..U..Y. U. ** BOMB SUB **._."U:.
K.$US.54272.X.&U. S.24,7...(U. S.5,12.16
.0...*U. S.6,15.16.10...,U. X. 255 . 100
. .1....U. S.1,X.M.0U. S.4,17...2U. D.1
. 10 : . D...4U. X...6U. S.24,15...8U. S
.1,15...:U. S.4,128...<U..;.>U. ********
BUZZ SOUND *******.H.@USO.54272._.BU.L.
0.24:.SO.L,0:.L...DU.SO.14,5:.SO.18,16:.
SO.3,1:.SO.24,143:.SO.6,240.P.FU.SO.4,65
:F0.5389:.T0.1.4:F1.F0.B(SO.27).3.5:F3..
(F1.256)...HUF2.F1.F3.256:.SO.0,F2:.SO.1
,F3:.:.SO.24,0...JU....LU.****MUSIC FANF
ARE ***.D.NU.:BN.54272:.CR.BN .BN.24:.CR
,0:..N.PU.BN.5,85:.BN.6,85:.BN.12,85:.BN
.13,85.|.RU.BN.24,15...TU.BN.4,33:.BN.11
,17.M.VU.X.1.6:.H1,L1,H2,L2:.BN.1,H1:.BN
,L1:.BN.8,H2:.BN.7,L2...XU.H1.50..T.1.20
0:....ZU.T.1.100:..>.\U.25,30,18,209,33,
135,25,30,42,62,31,165,50,60,37,162,42,6
2,31,165,50,60.J.^U.37,162.Q.`U.X.T.BUBN
.54272:.CR.BN .BN.24:.CR,0:..Z.DU.....
> CLICK IMAGE PREVIEW FOR FULL MODAL