BASIC SCANNER 12
FILE INFORMATION
FILENAME(S): BASIC SCANNER 12
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 18:12:57
APPEARS ON: 1 disk(s)
FILE HASH
818b596f3ce3feb648d692f4e8073e6ca0a29a174e66f320db275ba6ae290f32
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JIM S 128 PRO | BASIC SCANNER 12 | PRG | Sailor, Ganheden | 12 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 21 40 BE 00 99 22 93 22 3B A6 31 32 29 3B |.@!@...".";.12);|
00000010: 22 42 41 53 49 43 20 53 43 41 4E 4E 45 52 11 11 |"BASIC SCANNER..|
00000020: 22 00 48 40 C8 00 99 22 54 48 49 53 20 50 52 4F |".H@..."THIS PRO|
00000030: 47 52 41 4D 20 43 48 45 43 4B 53 20 4F 4C 44 45 |GRAM CHECKS OLDE|
00000040: 52 20 42 41 53 49 43 22 00 76 40 D2 00 99 22 50 |R BASIC".v@..."P|
00000050: 52 4F 47 52 41 4D 53 20 46 4F 52 20 50 4F 53 53 |ROGRAMS FOR POSS|
00000060: 49 42 4C 45 20 50 52 4F 42 4C 45 4D 20 41 52 45 |IBLE PROBLEM ARE|
00000070: 41 53 20 49 46 22 00 A4 40 DC 00 99 22 54 48 45 |AS IF"..@..."THE|
00000080: 59 20 41 52 45 20 54 4F 20 42 45 20 4C 4F 41 44 |Y ARE TO BE LOAD|
00000090: 45 44 20 49 4E 54 4F 20 41 20 43 2D 31 32 38 20 |ED INTO A C-128 |
000000A0: 41 4E 44 22 00 CB 40 E6 00 99 22 52 55 4E 20 49 |AND"..@..."RUN I|
000000B0: 4E 20 31 32 38 20 4D 4F 44 45 20 55 4E 44 45 52 |N 128 MODE UNDER|
000000C0: 20 42 41 53 49 43 20 37 2E 30 22 00 02 41 F0 00 | BASIC 7.0"..A..|
000000D0: 99 22 11 57 48 49 4C 45 20 52 55 4E 4E 49 4E 47 |.".WHILE RUNNING|
000000E0: 2C 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |, PRESS ANY KEY |
000000F0: 54 4F 20 53 55 53 50 45 4E 44 22 3A 20 8D 20 39 |TO SUSPEND": . 9|
00000100: 39 30 00 2B 41 FA 00 4E 54 B2 37 3A 20 4E 56 B2 |90.+A..NT.7: NV.|
00000110: 34 3A 20 86 20 50 54 28 4E 54 29 2C 50 54 24 28 |4: . PT(NT),PT$(|
00000120: 4E 54 29 2C 50 56 24 28 4E 56 29 00 48 41 04 01 |NT),PV$(NV).HA..|
00000130: 50 54 28 31 29 B2 31 39 34 3A 20 50 54 24 28 31 |PT(1).194: PT$(1|
00000140: 29 B2 22 50 45 45 4B 22 00 65 41 0E 01 50 54 28 |)."PEEK".eA..PT(|
00000150: 32 29 B2 31 35 31 3A 20 50 54 24 28 32 29 B2 22 |2).151: PT$(2)."|
00000160: 50 4F 4B 45 22 00 82 41 18 01 50 54 28 33 29 B2 |POKE"..A..PT(3).|
00000170: 31 34 36 3A 20 50 54 24 28 33 29 B2 22 57 41 49 |146: PT$(3)."WAI|
00000180: 54 22 00 9F 41 22 01 50 54 28 34 29 B2 31 35 38 |T"..A".PT(4).158|
00000190: 3A 20 50 54 24 28 34 29 B2 22 53 59 53 20 22 00 |: PT$(4)."SYS ".|
000001A0: BC 41 2C 01 50 54 28 35 29 B2 31 38 33 3A 20 50 |.A,.PT(5).183: P|
000001B0: 54 24 28 35 29 B2 22 55 53 52 20 22 00 D9 41 36 |T$(5)."USR "..A6|
000001C0: 01 50 54 28 36 29 B2 31 38 34 3A 20 50 54 24 28 |.PT(6).184: PT$(|
000001D0: 36 29 B2 22 46 52 45 20 22 00 F6 41 40 01 50 54 |6)."FRE "..A@.PT|
000001E0: 28 37 29 B2 31 35 35 3A 20 50 54 24 28 37 29 B2 |(7).155: PT$(7).|
000001F0: 22 4C 49 53 54 22 00 2E 42 4A 01 50 56 24 28 31 |"LIST"..BJ.PV$(1|
00000200: 29 B2 22 44 53 22 3A 20 50 56 24 28 32 29 B2 22 |)."DS": PV$(2)."|
00000210: 44 53 24 22 3A 20 50 56 24 28 33 29 B2 22 45 4C |DS$": PV$(3)."EL|
00000220: 22 3A 20 50 56 24 28 34 29 B2 22 45 52 22 00 47 |": PV$(4)."ER".G|
00000230: 42 4F 01 99 22 11 45 4E 54 45 52 20 51 20 54 4F |BO..".ENTER Q TO|
00000240: 20 51 55 49 54 11 22 00 8C 42 54 01 99 22 46 49 | QUIT."..BT.."FI|
00000250: 4C 45 4E 41 4D 45 20 4F 46 20 42 41 53 49 43 20 |LENAME OF BASIC |
00000260: 50 52 4F 47 52 41 4D 20 54 4F 20 42 45 20 43 48 |PROGRAM TO BE CH|
00000270: 45 43 4B 45 44 22 3A 20 85 20 46 24 3A 8B 46 24 |ECKED": . F$:.F$|
00000280: B2 22 51 22 A7 93 22 48 49 22 2C 38 00 A0 42 5E |."Q".."HI",8..B^|
00000290: 01 A0 20 31 35 3A 20 9F 20 31 35 2C 38 2C 31 35 |.. 15: . 15,8,15|
000002A0: 00 C3 42 68 01 9F 20 35 2C 38 2C 35 2C 22 30 3A |..Bh.. 5,8,5,"0:|
000002B0: 22 AA 46 24 AA 22 2C 50 2C 52 22 3A 20 8D 20 31 |".F$.",P,R": . 1|
000002C0: 30 30 30 00 EE 42 72 01 50 44 B2 34 3A 20 99 22 |000..Br.PD.4: ."|
000002D0: 11 57 41 4E 54 20 50 52 49 4E 54 45 44 20 4F 55 |.WANT PRINTED OU|
000002E0: 54 50 55 54 20 28 59 2F 4E 29 3A 20 22 3B 00 0F |TPUT (Y/N): ";..|
000002F0: 43 7C 01 A1 20 43 24 3A 20 8B 20 43 24 B2 22 4E |C|.. C$: . C$."N|
00000300: 22 20 A7 20 50 44 B2 33 3A 20 89 20 34 30 30 00 |" . PD.3: . 400.|
00000310: 23 43 86 01 8B 20 43 24 B3 B1 22 59 22 20 A7 20 |#C... C$.."Y" . |
00000320: 33 38 30 00 34 43 90 01 99 20 43 24 3A 20 9F 20 |380.4C... C$: . |
00000330: 34 2C 50 44 00 64 43 9A 01 8D 20 39 39 30 3A 20 |4,PD.dC... 990: |
00000340: 98 34 2C 22 53 43 41 4E 4E 49 4E 47 20 42 41 53 |.4,"SCANNING BAS|
00000350: 49 43 20 50 52 4F 47 52 41 4D 3A 20 22 3B 46 24 |IC PROGRAM: ";F$|
00000360: 3A 20 98 34 00 93 43 A4 01 8B 20 50 44 B2 34 20 |: .4..C... PD.4 |
00000370: A7 20 99 22 53 43 41 4E 4E 49 4E 47 20 42 41 53 |. ."SCANNING BAS|
00000380: 49 43 20 50 52 4F 47 52 41 4D 3A 20 22 3B 46 24 |IC PROGRAM: ";F$|
00000390: 3A 20 99 00 B0 43 AE 01 8D 20 39 36 30 3A 20 8F |: ...C... 960: .|
000003A0: 20 49 47 4E 4F 52 45 20 4C 4F 41 44 20 41 44 52 | IGNORE LOAD ADR|
000003B0: 00 E3 43 B8 01 8D 20 39 36 30 3A 20 8B 20 56 AA |..C... 960: . V.|
000003C0: 56 31 B2 30 20 A7 20 99 3A 20 99 20 A3 31 30 29 |V1.0 . .: . .10)|
000003D0: 3B 22 3C 20 44 4F 4E 45 20 3E 22 3A 20 89 20 31 |;"< DONE >": . 1|
000003E0: 30 32 30 00 FB 43 C2 01 A1 20 43 24 3A 20 8B 20 |020..C... C$: . |
000003F0: 43 24 B2 22 22 20 A7 20 35 31 30 00 20 44 CC 01 |C$."" . 510. D..|
00000400: 99 3A 99 20 22 22 3B A3 31 30 29 3B 22 53 43 41 |.:. "";.10);"SCA|
00000410: 4E 4E 49 4E 47 20 53 55 53 50 45 4E 44 45 44 22 |NNING SUSPENDED"|
00000420: 00 4E 44 D6 01 99 22 50 52 45 53 53 20 41 4E 59 |.ND..."PRESS ANY|
00000430: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000440: 2C 20 27 51 27 20 54 4F 20 51 55 49 54 22 00 7F |, 'Q' TO QUIT"..|
00000450: 44 E0 01 A1 20 43 24 3A 20 8B 20 43 24 B2 22 51 |D... C$: . C$."Q|
00000460: 22 20 A7 20 99 22 53 43 41 4E 4E 49 4E 47 20 41 |" . ."SCANNING A|
00000470: 42 4F 52 54 45 44 22 3A 20 89 20 31 30 32 30 00 |BORTED": . 1020.|
00000480: 91 44 EA 01 8B 20 43 24 B2 22 22 20 A7 20 34 38 |.D... C$."" . 48|
00000490: 30 00 AD 44 F4 01 99 22 53 43 41 4E 4E 49 4E 47 |0..D..."SCANNING|
000004A0: 20 52 45 53 55 4D 45 44 2E 2E 2E 11 22 00 CC 44 | RESUMED...."..D|
000004B0: FE 01 8D 20 39 36 30 3A 20 4C 4E B2 56 31 AA 28 |... 960: LN.V1.(|
000004C0: 32 35 36 AC 56 29 3A 20 50 52 B2 30 00 FB 44 08 |256.V): PR.0..D.|
000004D0: 02 99 20 C9 28 22 20 20 20 20 20 20 20 20 20 22 |.. .(" "|
000004E0: AA C4 28 4C 4E 29 2C 38 29 3B 22 20 20 20 20 20 |..(LN),8);" |
000004F0: 20 20 20 22 3A 20 99 22 91 22 3B 00 05 45 12 02 | ": .".";..E..|
00000500: 8D 20 39 37 30 00 15 45 1C 02 8B 20 56 B2 30 20 |. 970..E... V.0 |
00000510: A7 20 34 34 30 00 27 45 26 02 8B 20 56 B3 B1 33 |. 440.'E&.. V..3|
00000520: 34 20 A7 20 36 30 30 00 61 45 30 02 8F 20 2D 20 |4 . 600.aE0.. - |
00000530: 51 55 4F 54 45 20 46 4F 55 4E 44 2C 20 53 4B 49 |QUOTE FOUND, SKI|
00000540: 50 20 43 48 41 52 53 20 54 4F 20 4E 45 58 54 20 |P CHARS TO NEXT |
00000550: 51 55 4F 54 45 20 4F 52 20 4C 49 4E 45 20 45 4E |QUOTE OR LINE EN|
00000560: 44 00 79 45 3A 02 8D 20 39 37 30 3A 20 8B 20 56 |D.yE:.. 970: . V|
00000570: B2 33 34 20 A7 20 35 33 30 00 89 45 44 02 8B 20 |.34 . 530..ED.. |
00000580: 56 B1 30 20 A7 20 35 37 30 00 93 45 4E 02 89 20 |V.0 . 570..EN.. |
00000590: 34 34 30 00 A6 45 58 02 8B 20 56 B3 B1 31 33 31 |440..EX.. V..131|
000005A0: 20 A7 20 36 38 30 00 E0 45 62 02 8F 20 2D 20 44 | . 680..Eb.. - D|
000005B0: 41 54 41 20 54 4F 4B 45 4E 20 46 4F 55 4E 44 2C |ATA TOKEN FOUND,|
000005C0: 20 53 4B 49 50 20 43 48 41 52 53 20 54 4F 20 43 | SKIP CHARS TO C|
000005D0: 4F 4C 4F 4E 20 4F 52 20 4C 49 4E 45 20 45 4E 44 |OLON OR LINE END|
000005E0: 00 F8 45 6C 02 8D 20 39 37 30 3A 20 8B 20 56 B2 |..El.. 970: . V.|
000005F0: 35 38 20 A7 20 35 33 30 00 08 46 76 02 8B 20 56 |58 . 530..Fv.. V|
00000600: B2 30 20 A7 20 34 34 30 00 1A 46 80 02 8B 20 56 |.0 . 440..F... V|
00000610: B3 B1 33 34 20 A7 20 36 32 30 00 32 46 8A 02 8D |..34 . 620.2F...|
00000620: 20 39 37 30 3A 20 8B 20 56 B2 33 34 20 A7 20 36 | 970: . V.34 . 6|
00000630: 32 30 00 42 46 94 02 8B 20 56 B1 30 20 A7 20 36 |20.BF... V.0 . 6|
00000640: 35 30 00 4C 46 9E 02 89 20 34 34 30 00 5F 46 A8 |50.LF... 440._F.|
00000650: 02 8B 20 56 B3 B1 31 34 33 20 A7 20 37 32 30 00 |.. V..143 . 720.|
00000660: 86 46 B2 02 8F 20 2D 20 52 45 4D 41 52 4B 20 46 |.F... - REMARK F|
00000670: 4F 55 4E 44 2C 20 53 4B 49 50 20 54 4F 20 4C 49 |OUND, SKIP TO LI|
00000680: 4E 45 20 45 4E 44 00 9D 46 BC 02 8D 20 39 37 30 |NE END..F... 970|
00000690: 3A 20 8B 20 56 B1 30 20 A7 20 37 30 30 00 A7 46 |: . V.0 . 700..F|
000006A0: C6 02 89 20 34 34 30 00 C3 46 D0 02 8B 20 56 B3 |... 440..F... V.|
000006B0: B1 32 30 36 20 AF 20 56 B3 B1 32 35 34 20 A7 20 |.206 . V..254 . |
000006C0: 37 36 30 00 FA 46 DA 02 8F 20 2D 20 49 47 4E 4F |760..F... - IGNO|
000006D0: 52 45 20 42 41 53 49 43 20 37 2E 30 20 54 57 4F |RE BASIC 7.0 TWO|
000006E0: 20 42 59 54 45 20 54 4F 4B 45 4E 53 20 28 4A 55 | BYTE TOKENS (JU|
000006F0: 53 54 20 49 4E 43 41 53 45 29 00 11 47 E4 02 8D |ST INCASE)..G...|
00000700: 20 39 37 30 3A 20 8B 20 56 B2 30 20 A7 20 34 34 | 970: . V.0 . 44|
00000710: 30 00 1B 47 EE 02 89 20 35 33 30 00 3C 47 F8 02 |0..G... 530.<G..|
00000720: 8F 20 2D 20 43 48 45 43 4B 20 46 4F 52 20 50 52 |. - CHECK FOR PR|
00000730: 4F 42 4C 45 4D 20 54 4F 4B 45 4E 53 00 67 47 02 |OBLEM TOKENS.gG.|
00000740: 03 59 B2 30 3A 20 81 20 58 B2 31 20 A4 20 4E 54 |.Y.0: . X.1 . NT|
00000750: 3A 20 8B 20 56 B2 50 54 28 58 29 20 A7 20 59 B2 |: . V.PT(X) . Y.|
00000760: 58 3A 20 58 B2 4E 54 00 7C 47 0C 03 82 20 58 3A |X: X.NT.|G... X:|
00000770: 20 8B 20 59 B2 30 20 A7 20 38 32 30 00 A1 47 16 | . Y.0 . 820..G.|
00000780: 03 8B 20 50 52 B2 31 20 A7 20 98 34 2C 22 20 20 |.. PR.1 . .4," |
00000790: 20 20 20 20 20 20 20 20 22 3B 3A 20 89 20 38 31 | ";: . 81|
000007A0: 30 00 CA 47 20 03 98 34 2C C9 28 22 20 20 20 20 |0..G ..4,.(" |
000007B0: 20 20 20 20 22 AA C4 28 4C 4E 29 2C 38 29 3B 22 | "..(LN),8);"|
000007C0: 3A 20 22 3B 3A 20 50 52 B2 31 00 F0 47 2A 03 98 |: ";: PR.1..G*..|
000007D0: 34 2C C9 28 22 20 20 20 20 20 22 AA 50 54 24 28 |4,.(" ".PT$(|
000007E0: 59 29 2C 34 29 3B 22 20 2D 20 54 4F 4B 45 4E 22 |Y),4);" - TOKEN"|
000007F0: 00 14 48 34 03 8F 20 2D 20 43 48 45 43 4B 20 46 |..H4.. - CHECK F|
00000800: 4F 52 20 50 52 4F 42 4C 45 4D 20 56 41 52 49 41 |OR PROBLEM VARIA|
00000810: 42 4C 45 53 00 2C 48 3E 03 8B 20 56 B3 36 35 20 |BLES.,H>.. V.65 |
00000820: B0 20 56 B1 39 30 20 A7 20 35 33 30 00 52 48 48 |. V.90 . 530.RHH|
00000830: 03 53 24 B2 43 24 3A 20 8D 20 39 37 30 3A 20 8B |.S$.C$: . 970: .|
00000840: 20 56 B3 34 38 20 B0 20 56 B1 39 30 20 A7 20 38 | V.48 . V.90 . 8|
00000850: 39 30 00 6A 48 52 03 8B 20 56 B1 35 37 20 AF 20 |90.jHR.. V.57 . |
00000860: 56 B3 36 35 20 A7 20 38 39 30 00 77 48 5C 03 53 |V.65 . 890.wH\.S|
00000870: 24 B2 53 24 AA 43 24 00 96 48 66 03 8D 20 39 37 |$.S$.C$..Hf.. 97|
00000880: 30 3A 20 8B 20 56 B3 34 38 20 B0 20 56 B1 39 30 |0: . V.48 . V.90|
00000890: 20 A7 20 38 39 30 00 AE 48 70 03 8B 20 56 B3 35 | . 890..Hp.. V.5|
000008A0: 38 20 B0 20 56 B1 36 34 20 A7 20 38 37 30 00 D9 |8 . V.64 . 870..|
000008B0: 48 7A 03 8B 20 56 B2 33 36 20 B0 20 56 B2 33 37 |Hz.. V.36 . V.37|
000008C0: 20 B0 20 56 B2 34 30 20 A7 20 53 24 B2 53 24 AA | . V.40 . S$.S$.|
000008D0: 43 24 3A 20 8D 20 39 37 30 00 06 49 84 03 59 B2 |C$: . 970..I..Y.|
000008E0: 30 3A 20 81 20 58 B2 31 20 A4 20 4E 56 3A 20 8B |0: . X.1 . NV: .|
000008F0: 20 53 24 B2 50 56 24 28 58 29 20 A7 20 59 B2 58 | S$.PV$(X) . Y.X|
00000900: 3A 20 58 B2 4E 56 00 1B 49 8E 03 82 20 58 3A 20 |: X.NV..I... X: |
00000910: 8B 20 59 B2 30 20 A7 20 35 34 30 00 40 49 98 03 |. Y.0 . 540.@I..|
00000920: 8B 20 50 52 B2 31 20 A7 20 98 34 2C 22 20 20 20 |. PR.1 . .4," |
00000930: 20 20 20 20 20 20 20 22 3B 3A 20 89 20 39 34 30 | ";: . 940|
00000940: 00 69 49 A2 03 98 34 2C C9 28 22 20 20 20 20 20 |.iI...4,.(" |
00000950: 20 20 20 22 AA C4 28 4C 4E 29 2C 38 29 3B 22 3A | "..(LN),8);":|
00000960: 20 22 3B 3A 20 50 52 B2 31 00 92 49 AC 03 98 34 | ";: PR.1..I...4|
00000970: 2C C9 28 22 20 20 20 20 20 22 AA 50 56 24 28 59 |,.(" ".PV$(Y|
00000980: 29 2C 34 29 3B 22 20 2D 20 56 41 52 49 41 42 4C |),4);" - VARIABL|
00000990: 45 22 00 9C 49 B6 03 89 20 35 34 30 00 AC 49 C0 |E"..I... 540..I.|
000009A0: 03 8D 20 39 37 30 3A 20 56 31 B2 56 00 D8 49 CA |.. 970: V1.V..I.|
000009B0: 03 A1 23 35 2C 43 24 3A 20 8D 20 31 30 30 30 3A |..#5,C$: . 1000:|
000009C0: 20 56 B2 30 3A 20 8B 20 43 24 B3 B1 22 22 20 A7 | V.0: . C$.."" .|
000009D0: 20 56 B2 C6 28 43 24 29 00 DE 49 D4 03 8E 00 05 | V..(C$)..I.....|
000009E0: 4A DE 03 99 3A 20 81 20 58 B2 31 20 A4 20 33 39 |J...: . X.1 . 39|
000009F0: 3A 20 99 22 2D 22 3B 3A 20 82 20 58 3A 20 99 3A |: ."-";: . X: .:|
00000A00: 20 99 3A 20 8E 00 26 4A E8 03 84 31 35 2C 45 4E | .: ..&J...15,EN|
00000A10: 2C 45 4D 24 2C 45 54 2C 45 53 3A 20 8B 20 45 4E |,EM$,ET,ES: . EN|
00000A20: B2 30 20 A7 20 8E 00 4A 4A F2 03 99 22 11 44 49 |.0 . ..JJ...".DI|
00000A30: 53 4B 20 45 52 52 4F 52 11 22 3A 20 99 20 45 4E |SK ERROR.": . EN|
00000A40: 3B 45 4D 24 3B 45 54 3B 45 53 00 62 4A FC 03 A0 |;EM$;ET;ES.bJ...|
00000A50: 20 35 3A 20 A0 20 36 3A 20 A0 20 31 35 3A 20 A0 | 5: . 6: . 15: .|
00000A60: 20 34 00 00 00 | 4... |
.@!@...".";.12);"BASIC SCANNER..".H@H.."
THIS PROGRAM CHECKS OLDER BASIC".V@R.."P
ROGRAMS FOR POSSIBLE PROBLEM AREAS IF"..
@..."THEY ARE TO BE LOADED INTO A C-128
AND".K@..."RUN IN 128 MODE UNDER BASIC 7
.0"..A...".WHILE RUNNING, PRESS ANY KEY
TO SUSPEND": . 990.+A..NT.7: NV.4: . PT(
NT),PT$(NT),PV$(NV).HA..PT(1).194: PT$(1
)."PEEK".EA..PT(2).151: PT$(2)."POKE"..A
..PT(3).146: PT$(3)."WAIT"..A".PT(4).158
: PT$(4)."SYS "..A,.PT(5).183: PT$(5)."U
SR ".YA6.PT(6).184: PT$(6)."FRE "..A@.PT
(7).155: PT$(7)."LIST"..BJ.PV$(1)."DS":
PV$(2)."DS$": PV$(3)."EL": PV$(4)."ER".G
BO..".ENTER Q TO QUIT."..BT.."FILENAME O
F BASIC PROGRAM TO BE CHECKED": . F$:.F$
."Q".."HI",8. B^. 15: . 15,8,15.CBH.. 5
,8,5,"0:".F$.",P,R": . 1000..BR.PD.4: ."
.WANT PRINTED OUTPUT (Y/N): ";..C|.. C$:
. C$."N" . PD.3: . 400.#C... C$.."Y" .
380.4C... C$: . 4,PD.DC... 990: .4,"SCAN
NING BASIC PROGRAM: ";F$: .4..C... PD.4
. ."SCANNING BASIC PROGRAM: ";F$: ...C..
. 960: . IGNORE LOAD ADR..C... 960: . V.
V1.0 . .: . .10);"< DONE >": . 1020..CB.
. C$: . C$."" . 510. DL..:. "";.10);"SCA
NNING SUSPENDED".NDV.."PRESS ANY KEY TO
CONTINUE, 'Q' TO QUIT".D... C$: . C$."Q
" . ."SCANNING ABORTED": . 1020..D... C$
."" . 480..D..."SCANNING RESUMED....".LD
... 960: LN.V1.(256.V): PR.0..D... I("
".D(LN),8);" ": .".";..E..
. 970..E... V.0 . 440.'E&.. V..34 . 600.
AE0.. - QUOTE FOUND, SKIP CHARS TO NEXT
QUOTE OR LINE END.YE:.. 970: . V.34 . 53
0..ED.. V.0 . 570..EN.. 440..EX.. V..131
. 680..EB.. - DATA TOKEN FOUND, SKIP CH
ARS TO COLON OR LINE END..EL.. 970: . V.
58 . 530..FV.. V.0 . 440..F... V..34 . 6
20.2F... 970: . V.34 . 620.BF... V.0 . 6
50.LF... 440._F... V..143 . 720..F... -
REMARK FOUND, SKIP TO LINE END..F... 970
: . V.0 . 700..FF.. 440.CFP.. V..206 . V
..254 . 760..FZ.. - IGNORE BASIC 7.0 TWO
BYTE TOKENS (JUST INCASE)..G... 970: .
V.0 . 440..G... 530.<G... - CHECK FOR PR
OBLEM TOKENS.GG..Y.0: . X.1 . NT: . V.PT
(X) . Y.X: X.NT.|G... X: . Y.0 . 820..G.
.. PR.1 . .4," ";: . 810.JG ..4
,I(" ".D(LN),8);": ";: PR.1..G*..
4,I(" ".PT$(Y),4);" - TOKEN"..H4.. -
CHECK FOR PROBLEM VARIABLES.,H>.. V.65
. V.90 . 530.RHH.S$.C$: . 970: . V.48 .
V.90 . 890.JHR.. V.57 . V.65 . 890.WH\.S
$.S$.C$..HF.. 970: . V.48 . V.90 . 890..
HP.. V.58 . V.64 . 870.YHZ.. V.36 . V.37
. V.40 . S$.S$.C$: . 970..I..Y.0: . X.1
. NV: . S$.PV$(X) . Y.X: X.NV..I... X:
. Y.0 . 540.@I... PR.1 . .4," "
;: . 940.II...4,I(" ".D(LN),8);":
";: PR.1..I...4,I(" ".PV$(Y),4);" -
VARIABLE"..I... 540..I... 970: V1.V.XIJ
..#5,C$: . 1000: V.0: . C$.."" . V.F(C$)
..IT....J...: . X.1 . 39: ."-";: . X: .:
.: ..&J...15,EN,EM$,ET,ES: . EN.0 . ..J
J...".DISK ERROR.": . EN;EM$;ET;ES.BJ..
5: 6: 15: 4...
> CLICK IMAGE PREVIEW FOR FULL MODAL