home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 3.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '0 REM - WRITTEN BY'
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 52 45 4d 20 2d 20 | 57 52 49 54 54 45 4e 20 |0 REM - |WRITTEN |
|00000010| 42 59 3a 20 4a 4f 4e 20 | 50 55 52 4b 45 59 2f 53 |BY: JON |PURKEY/S|
|00000020| 51 55 49 52 52 45 4c 20 | 20 20 20 20 20 20 20 20 |QUIRREL | |
|00000030| 30 31 2f 30 33 2f 39 32 | 20 2d 20 4d 59 20 5a 49 |01/03/92| - MY ZI|
|00000040| 50 2b 34 3a 20 32 32 33 | 31 32 2d 34 39 34 39 0a |P+4: 223|12-4949.|
|00000050| 31 20 3a 0a 32 20 52 45 | 4d 20 2d 20 49 20 44 4f |1 :.2 RE|M - I DO|
|00000060| 20 4e 4f 54 20 48 41 56 | 45 20 41 4e 59 20 44 4f | NOT HAV|E ANY DO|
|00000070| 43 55 4d 45 4e 54 41 54 | 49 4f 4e 20 20 20 20 20 |CUMENTAT|ION |
|00000080| 20 20 20 20 4f 4e 20 48 | 4f 57 20 54 48 45 20 5a | ON H|OW THE Z|
|00000090| 49 50 2b 34 20 42 41 52 | 43 4f 44 45 53 20 57 4f |IP+4 BAR|CODES WO|
|000000a0| 52 4b 2e 0a 33 20 52 45 | 4d 20 2d 20 49 20 57 52 |RK..3 RE|M - I WR|
|000000b0| 4f 54 45 20 54 48 49 53 | 20 50 52 4f 47 52 41 4d |OTE THIS| PROGRAM|
|000000c0| 20 41 46 54 45 52 20 20 | 20 20 20 20 20 20 20 20 | AFTER | |
|000000d0| 20 20 20 20 43 4f 4d 50 | 41 52 49 4e 47 20 41 4e | COMP|ARING AN|
|000000e0| 44 20 44 45 43 4f 44 49 | 4e 47 20 54 48 45 20 42 |D DECODI|NG THE B|
|000000f0| 41 52 2d 0a 34 20 52 45 | 4d 20 2d 20 43 4f 44 45 |AR-.4 RE|M - CODE|
|00000100| 53 20 4f 4e 20 53 45 56 | 45 52 41 4c 20 4d 41 47 |S ON SEV|ERAL MAG|
|00000110| 41 5a 49 4e 45 20 4d 41 | 49 4c 20 20 20 20 20 20 |AZINE MA|IL |
|00000120| 20 20 20 20 49 4e 20 43 | 41 52 44 53 20 41 4e 44 | IN C|ARDS AND|
|00000130| 20 4f 4e 20 4f 54 48 45 | 52 20 45 4e 56 45 4c 4f | ON OTHE|R ENVELO|
|00000140| 50 45 53 0a 35 20 52 45 | 4d 20 2d 20 57 49 54 48 |PES.5 RE|M - WITH|
|00000150| 20 54 48 45 20 43 4f 44 | 45 53 2e 20 49 27 4d 20 | THE COD|ES. I'M |
|00000160| 39 39 25 20 43 45 52 54 | 41 49 4e 20 20 20 20 20 |99% CERT|AIN |
|00000170| 20 20 20 20 49 20 48 41 | 56 45 20 49 54 20 43 4f | I HA|VE IT CO|
|00000180| 52 52 45 43 54 2c 20 42 | 55 54 20 49 27 4d 20 4e |RRECT, B|UT I'M N|
|00000190| 4f 54 0a 36 20 52 45 4d | 20 2d 20 4d 41 4b 49 4e |OT.6 REM| - MAKIN|
|000001a0| 47 20 41 4e 59 20 50 52 | 4f 4d 49 53 45 53 2e 20 |G ANY PR|OMISES. |
|000001b0| 3a 29 0a 37 20 3a 0a 38 | 20 3a 0a 39 20 3a 0a 31 |:).7 :.8| :.9 :.1|
|000001c0| 30 20 50 4f 4b 45 35 33 | 32 38 30 2c 31 34 3a 50 |0 POKE53|280,14:P|
|000001d0| 4f 4b 45 35 33 32 38 31 | 2c 36 3a 50 52 49 4e 54 |OKE53281|,6:PRINT|
|000001e0| 22 99 93 08 11 5a 49 50 | 2b 34 20 42 41 52 43 4f |"....ZIP|+4 BARCO|
|000001f0| 44 45 20 43 52 45 41 54 | 4f 52 20 2d 20 42 59 3a |DE CREAT|OR - BY:|
|00000200| 20 53 51 55 49 52 52 45 | 4c 22 0a 31 35 20 50 52 | SQUIRRE|L".15 PR|
|00000210| 49 4e 54 43 48 52 24 28 | 31 34 32 29 0a 32 30 20 |INTCHR$(|142).20 |
|00000220| 50 52 49 4e 54 22 20 31 | 3a 20 5a 49 50 2b 34 20 |PRINT" 1|: ZIP+4 |
|00000230| 54 4f 20 42 41 52 43 4f | 44 45 22 0a 32 35 20 50 |TO BARCO|DE".25 P|
|00000240| 52 49 4e 54 22 20 32 3a | 20 42 41 52 43 4f 44 45 |RINT" 2:| BARCODE|
|00000250| 20 54 4f 20 5a 49 50 2b | 34 22 0a 33 30 20 50 52 | TO ZIP+|4".30 PR|
|00000260| 49 4e 54 22 11 2d 3e 22 | 3b 0a 33 35 20 47 4f 53 |INT".->"|;.35 GOS|
|00000270| 55 42 39 39 30 3a 47 45 | 54 41 24 3a 49 46 41 24 |UB990:GE|TA$:IFA$|
|00000280| 3c 3e 22 31 22 41 4e 44 | 41 24 3c 3e 22 32 22 54 |<>"1"AND|A$<>"2"T|
|00000290| 48 45 4e 33 35 0a 34 30 | 20 49 46 41 24 3d 22 32 |HEN35.40| IFA$="2|
|000002a0| 22 54 48 45 4e 35 30 30 | 0a 34 35 20 3a 0a 31 30 |"THEN500|.45 :.10|
|000002b0| 30 20 50 52 49 4e 54 0a | 31 30 31 20 50 52 49 4e |0 PRINT.|101 PRIN|
|000002c0| 54 43 48 52 24 28 31 34 | 32 29 3a 42 24 3d 22 4c |TCHR$(14|2):B$="L|
|000002d0| 22 0a 31 30 32 20 50 52 | 49 4e 54 22 45 4e 54 45 |".102 PR|INT"ENTE|
|000002e0| 52 20 35 20 44 49 47 49 | 54 20 5a 49 50 20 43 4f |R 5 DIGI|T ZIP CO|
|000002f0| 44 45 3a 22 3b 0a 31 30 | 33 20 4d 58 3d 35 3a 47 |DE:";.10|3 MX=5:G|
|00000300| 4f 53 55 42 39 30 30 0a | 31 30 35 20 54 24 3d 58 |OSUB900.|105 T$=X|
|00000310| 24 3a 5a 24 3d 58 24 0a | 31 30 37 20 50 52 49 4e |$:Z$=X$.|107 PRIN|
|00000320| 54 3a 50 52 49 4e 54 22 | 11 45 4e 54 45 52 20 5a |T:PRINT"|.ENTER Z|
|00000330| 49 50 2b 34 20 43 4f 44 | 45 3a 22 3b 0a 31 30 38 |IP+4 COD|E:";.108|
|00000340| 20 4d 58 3d 34 3a 47 4f | 53 55 42 39 30 30 0a 31 | MX=4:GO|SUB900.1|
|00000350| 30 39 20 54 24 3d 54 24 | 2b 58 24 3a 50 24 3d 58 |09 T$=T$|+X$:P$=X|
|00000360| 24 0a 31 31 30 20 50 52 | 49 4e 54 22 93 11 5a 49 |$.110 PR|INT"..ZI|
|00000370| 50 2b 34 3a 20 22 5a 24 | 22 2b 22 50 24 3a 50 52 |P+4: "Z$|"+"P$:PR|
|00000380| 49 4e 54 0a 31 31 35 20 | 54 3d 30 3a 46 4f 52 58 |INT.115 |T=0:FORX|
|00000390| 3d 31 54 4f 39 0a 31 32 | 30 20 58 24 3d 4d 49 44 |=1TO9.12|0 X$=MID|
|000003a0| 24 28 54 24 2c 58 2c 31 | 29 0a 31 32 31 20 4f 4e |$(T$,X,1|).121 ON|
|000003b0| 56 41 4c 28 58 24 29 2b | 31 47 4f 53 55 42 32 31 |VAL(X$)+|1GOSUB21|
|000003c0| 30 2c 32 32 30 2c 32 33 | 30 2c 32 34 30 2c 32 35 |0,220,23|0,240,25|
|000003d0| 30 2c 32 36 30 2c 32 37 | 30 2c 32 38 30 2c 32 39 |0,260,27|0,280,29|
|000003e0| 30 2c 33 30 30 0a 31 33 | 35 20 4e 45 58 54 58 0a |0,300.13|5 NEXTX.|
|000003f0| 31 33 39 20 3a 0a 31 34 | 30 20 54 3d 54 2d 49 4e |139 :.14|0 T=T-IN|
|00000400| 54 28 54 2f 31 30 29 2a | 31 30 0a 31 34 32 20 4f |T(T/10)*|10.142 O|
|00000410| 4e 54 2b 31 47 4f 53 55 | 42 33 31 30 2c 33 32 30 |NT+1GOSU|B310,320|
|00000420| 2c 33 33 30 2c 33 34 30 | 2c 33 35 30 2c 33 36 30 |,330,340|,350,360|
|00000430| 2c 33 37 30 2c 33 38 30 | 2c 33 39 30 2c 34 30 30 |,370,380|,390,400|
|00000440| 0a 31 35 35 20 42 24 3d | 42 24 2b 22 4c 22 0a 31 |.155 B$=|B$+"L".1|
|00000450| 35 39 20 3a 0a 31 36 30 | 20 50 52 49 4e 54 22 4c |59 :.160| PRINT"L|
|00000460| 3a 20 4c 4f 4e 47 20 2f | 20 53 3a 20 53 48 4f 52 |: LONG /| S: SHOR|
|00000470| 54 11 22 0a 31 36 32 20 | 50 52 49 4e 54 22 42 41 |T.".162 |PRINT"BA|
|00000480| 52 43 4f 44 45 3a 20 22 | 42 24 0a 31 37 39 20 3a |RCODE: "|B$.179 :|
|00000490| 0a 31 39 38 20 47 4f 54 | 4f 38 30 30 0a 31 39 39 |.198 GOT|O800.199|
|000004a0| 20 3a 0a 32 31 30 20 54 | 3d 54 2b 30 3a 42 24 3d | :.210 T|=T+0:B$=|
|000004b0| 42 24 2b 22 4c 4c 53 53 | 53 22 3a 52 45 54 55 52 |B$+"LLSS|S":RETUR|
|000004c0| 4e 0a 32 32 30 20 54 3d | 54 2b 31 3a 42 24 3d 42 |N.220 T=|T+1:B$=B|
|000004d0| 24 2b 22 53 53 53 4c 4c | 22 3a 52 45 54 55 52 4e |$+"SSSLL|":RETURN|
|000004e0| 0a 32 35 33 34 20 0a 32 | 34 30 20 54 3d 54 2b 33 |.2534 .2|40 T=T+3|
|000004f0| 3a 42 24 3d 42 24 2b 22 | 53 53 4c 4c 53 22 3a 52 |:B$=B$+"|SSLLS":R|
|00000500| 45 54 55 52 4e 0a 32 35 | 30 20 54 3d 54 2b 34 3a |ETURN.25|0 T=T+4:|
|00000510| 42 24 3d 42 24 2b 22 53 | 4c 53 53 4c 22 3a 52 45 |B$=B$+"S|LSSL":RE|
|00000520| 54 55 52 4e 0a 32 36 30 | 20 54 3d 54 2b 35 3a 42 |TURN.260| T=T+5:B|
|00000530| 24 3d 42 24 2b 22 53 4c | 53 4c 53 22 3a 52 45 54 |$=B$+"SL|SLS":RET|
|00000540| 55 52 4e 0a 32 37 30 20 | 54 3d 54 2b 36 3a 42 24 |URN.270 |T=T+6:B$|
|00000550| 3d 42 24 2b 22 53 4c 4c | 53 53 22 3a 52 45 54 55 |=B$+"SLL|SS":RETU|
|00000560| 52 4e 0a 32 38 30 20 54 | 3d 54 2b 37 3a 42 24 3d |RN.280 T|=T+7:B$=|
|00000570| 42 24 2b 22 4c 53 53 53 | 4c 22 3a 52 45 54 55 52 |B$+"LSSS|L":RETUR|
|00000580| 4e 0a 32 39 30 20 54 3d | 54 2b 38 3a 42 24 3d 42 |N.290 T=|T+8:B$=B|
|00000590| 24 2b 22 4c 53 53 4c 53 | 22 3a 52 45 54 55 52 4e |$+"LSSLS|":RETURN|
|000005a0| 0a 33 30 30 20 54 3d 54 | 2b 39 3a 42 24 3d 42 24 |.300 T=T|+9:B$=B$|
|000005b0| 2b 22 4c 53 4c 53 53 22 | 3a 52 45 54 55 52 4e 0a |+"LSLSS"|:RETURN.|
|000005c0| 33 30 39 20 3a 0a 33 31 | 30 20 42 24 3d 42 24 2b |309 :.31|0 B$=B$+|
|000005d0| 22 4c 4c 53 53 53 22 3a | 52 45 54 55 52 4e 0a 33 |"LLSSS":|RETURN.3|
|000005e0| 32 30 20 42 24 3d 42 24 | 2b 22 4c 53 4c 53 53 22 |20 B$=B$|+"LSLSS"|
|000005f0| 3a 52 45 54 55 52 4e 0a | 33 33 30 20 42 24 3d 42 |:RETURN.|330 B$=B|
|00000600| 24 2b 22 4c 53 53 4c 53 | 22 3a 52 45 54 55 52 4e |$+"LSSLS|":RETURN|
|00000610| 0a 33 34 30 20 42 24 3d | 42 24 2b 22 4c 53 53 53 |.340 B$=|B$+"LSSS|
|00000620| 4c 22 3a 52 45 54 55 52 | 4e 0a 33 35 30 20 42 24 |L":RETUR|N.350 B$|
|00000630| 3d 42 24 2b 22 53 4c 4c | 53 53 22 3a 52 45 54 55 |=B$+"SLL|SS":RETU|
|00000640| 52 4e 0a 33 36 30 20 42 | 24 3d 42 24 2b 22 53 4c |RN.360 B|$=B$+"SL|
|00000650| 53 4c 53 22 3a 52 45 54 | 55 52 4e 0a 33 37 30 20 |SLS":RET|URN.370 |
|00000660| 42 24 3d 42 24 2b 22 53 | 4c 53 53 4c 22 3a 52 45 |B$=B$+"S|LSSL":RE|
|00000670| 54 55 52 4e 0a 33 38 30 | 20 42 24 3d 42 24 2b 22 |TURN.380| B$=B$+"|
|00000680| 53 53 4c 4c 53 22 3a 52 | 45 54 55 52 4e 0a 33 39 |SSLLS":R|ETURN.39|
|00000690| 30 20 42 24 3d 42 24 2b | 22 53 53 4c 53 4c 22 3a |0 B$=B$+|"SSLSL":|
|000006a0| 52 45 54 55 52 4e 0a 34 | 30 30 20 42 24 3d 42 24 |RETURN.4|00 B$=B$|
|000006b0| 2b 22 53 53 53 4c 4c 22 | 3a 52 45 54 55 52 4e 0a |+"SSSLL"|:RETURN.|
|000006c0| 34 30 39 20 3a 0a 35 30 | 30 20 50 52 49 4e 54 3a |409 :.50|0 PRINT:|
|000006d0| 50 52 49 4e 54 22 11 45 | 4e 54 45 52 20 42 41 52 |PRINT".E|NTER BAR|
|000006e0| 43 4f 44 45 20 55 53 49 | 4e 47 20 53 20 46 4f 52 |CODE USI|NG S FOR|
|000006f0| 20 54 48 45 20 53 48 4f | 52 54 22 0a 35 30 35 20 | THE SHO|RT".505 |
|00000700| 50 52 49 4e 54 22 4c 49 | 4e 45 53 20 41 4e 44 20 |PRINT"LI|NES AND |
|00000710| 4c 20 46 4f 52 20 54 48 | 45 20 4c 4f 4e 47 20 4c |L FOR TH|E LONG L|
|00000720| 49 4e 45 53 2e 22 0a 35 | 31 30 20 50 52 49 4e 54 |INES.".5|10 PRINT|
|00000730| 22 11 45 58 41 09 00 4c | 45 3a 20 4c 53 53 4c 53 |".EXA..L|E: LSSLS|
|00000740| 53 4c 20 2e 2e 2e 20 45 | 54 43 2e 22 0a 35 31 32 |SL ... E|TC.".512|
|00000750| 20 50 52 49 4e 54 22 11 | 59 4f 55 20 43 41 4e 20 | PRINT".|YOU CAN |
|00000760| 41 4c 53 4f 20 55 53 45 | 3a 20 2b 20 46 4f 52 20 |ALSO USE|: + FOR |
|00000770| 4c 20 20 41 4e 44 20 2d | 20 46 4f 52 20 53 2e 11 |L AND -| FOR S..|
|00000780| 22 0a 35 31 35 20 50 52 | 49 4e 54 22 2d 3e 22 3b |".515 PR|INT"->";|
|00000790| 3a 4c 3d 30 3a 42 24 3d | 22 22 0a 35 32 30 20 47 |:L=0:B$=|"".520 G|
|000007a0| 4f 53 55 42 39 39 30 0a | 35 32 35 20 47 45 54 41 |OSUB990.|525 GETA|
|000007b0| 24 3a 49 46 41 24 3d 22 | 22 54 48 45 4e 35 32 30 |$:IFA$="|"THEN520|
|000007c0| 0a 35 32 36 20 49 46 41 | 24 3d 22 2b 22 54 48 45 |.526 IFA|$="+"THE|
|000007d0| 4e 41 24 3d 22 4c 22 0a | 35 32 37 20 49 46 41 24 |NA$="L".|527 IFA$|
|000007e0| 3d 22 2d 22 54 48 45 4e | 41 24 3d 22 53 22 0a 35 |="-"THEN|A$="S".5|
|000007f0| 33 30 20 49 46 41 24 3d | 43 48 52 24 28 31 33 29 |30 IFA$=|CHR$(13)|
|00000800| 41 4e 44 4c 3d 35 32 54 | 48 45 4e 35 35 30 0a 35 |ANDL=52T|HEN550.5|
|00000810| 33 35 20 49 46 28 41 24 | 3d 22 4c 22 4f 52 41 24 |35 IF(A$|="L"ORA$|
|00000820| 3d 22 53 22 29 41 4e 44 | 4c 3c 35 32 54 48 45 4e |="S")AND|L<52THEN|
|00000830| 42 24 3d 42 24 2b 41 24 | 3a 4c 3d 4c 2b 31 3a 50 |B$=B$+A$|:L=L+1:P|
|00000840| 52 49 4e 54 41 24 3b 3a | 47 4f 54 4f 35 32 30 0a |RINTA$;:|GOTO520.|
|00000850| 35 34 30 20 49 46 41 24 | 3d 43 48 52 24 28 32 30 |540 IFA$|=CHR$(20|
|00000860| 29 41 4e 44 4c 3e 30 54 | 48 45 4e 58 24 3d 4c 45 |)ANDL>0T|HENX$=LE|
|00000870| 46 54 24 28 58 24 2c 4c | 2d 31 29 3a 4c 3d 4c 2d |FT$(X$,L|-1):L=L-|
|00000880| 31 3a 50 52 49 4e 54 41 | 24 3b 3a 47 4f 54 4f 35 |1:PRINTA|$;:GOTO5|
|00000890| 32 30 0a 35 34 35 20 47 | 4f 54 4f 35 32 30 0a 35 |20.545 G|OTO520.5|
|000008a0| 35 30 20 50 52 49 4e 54 | 22 93 11 42 41 52 43 4f |50 PRINT|"..BARCO|
|000008b0| 44 45 3a 20 22 42 24 0a | 35 35 32 20 50 52 49 4e |DE: "B$.|552 PRIN|
|000008c0| 54 22 11 5a 49 50 2b 34 | 3a 20 22 3b 0a 35 35 35 |T".ZIP+4|: ";.555|
|000008d0| 20 46 4f 52 58 3d 32 54 | 4f 32 32 53 54 45 50 35 | FORX=2T|O22STEP5|
|000008e0| 0a 35 36 30 20 53 24 3d | 4d 49 44 24 28 42 24 2c |.560 S$=|MID$(B$,|
|000008f0| 58 2c 35 29 0a 35 36 35 | 20 47 4f 53 55 42 36 30 |X,5).565| GOSUB60|
|00000900| 30 3a 4e 45 58 54 0a 35 | 37 30 20 50 52 49 4e 54 |0:NEXT.5|70 PRINT|
|00000910| 22 2b 22 3b 3a 46 4f 52 | 58 3d 32 37 54 4f 34 32 |"+";:FOR|X=27TO42|
|00000920| 53 54 45 50 35 0a 35 37 | 35 20 53 24 3d 4d 49 44 |STEP5.57|5 S$=MID|
|00000930| 24 28 42 24 2c 58 2c 35 | 29 0a 35 38 30 20 47 4f |$(B$,X,5|).580 GO|
|00000940| 53 55 42 36 30 30 3a 4e | 45 58 54 0a 35 38 35 20 |SUB600:N|EXT.585 |
|00000950| 50 52 49 4e 54 3a 50 52 | 49 4e 54 0a 35 38 36 20 |PRINT:PR|INT.586 |
|00000960| 54 3d 54 2d 49 4e 54 28 | 54 2f 31 30 29 2a 31 30 |T=T-INT(|T/10)*10|
|00000970| 0a 35 38 37 20 4f 4e 54 | 2b 31 47 4f 53 55 42 33 |.587 ONT|+1GOSUB3|
|00000980| 31 30 2c 33 32 30 2c 33 | 33 30 2c 33 34 30 2c 33 |10,320,3|30,340,3|
|00000990| 35 30 2c 33 36 30 2c 33 | 37 30 2c 33 38 30 2c 33 |50,360,3|70,380,3|
|000009a0| 39 30 2c 34 30 30 0a 35 | 39 30 20 49 46 4d 49 44 |90,400.5|90 IFMID|
|000009b0| 24 28 42 24 2c 34 37 2c | 35 29 3d 52 49 47 48 54 |$(B$,47,|5)=RIGHT|
|000009c0| 24 09 0a 35 39 31 20 50 | 52 49 4e 54 22 2a 2a 20 |$..591 P|RINT"** |
|000009d0| 45 52 52 4f 52 20 49 4e | 20 56 41 4c 49 44 41 54 |ERROR IN| VALIDAT|
|000009e0| 49 4f 4e 21 20 2a 2a 22 | 0a 35 39 32 20 50 52 49 |ION! **"|.592 PRI|
|000009f0| 4e 54 22 44 49 47 49 54 | 53 20 44 4f 20 4e 4f 54 |NT"DIGIT|S DO NOT|
|00000a00| 20 54 4f 54 41 4c 20 56 | 41 4c 49 44 41 54 49 4f | TOTAL V|ALIDATIO|
|00000a10| 4e 20 43 4f 44 45 2e 22 | 3a 53 54 4f 50 0a 35 39 |N CODE."|:STOP.59|
|00000a20| 35 20 47 4f 54 4f 38 30 | 30 0a 35 39 39 20 3a 0a |5 GOTO80|0.599 :.|
|00000a30| 36 30 30 20 49 46 53 24 | 3d 22 4c 4c 53 53 53 22 |600 IFS$|="LLSSS"|
|00000a40| 54 48 45 4e 50 52 49 4e | 54 22 30 22 3b 3a 54 3d |THENPRIN|T"0";:T=|
|00000a50| 54 2b 30 3a 47 4f 54 4f | 36 31 35 0a 36 30 31 20 |T+0:GOTO|615.601 |
|00000a60| 49 46 53 24 3d 22 53 53 | 53 4c 4c 22 54 48 45 4e |IFS$="SS|SLL"THEN|
|00000a70| 50 52 49 4e 54 22 31 22 | 3b 3a 54 3d 54 2b 31 3a |PRINT"1"|;:T=T+1:|
|00000a80| 47 4f 54 4f 36 31 35 0a | 36 30 32 20 49 46 53 24 |GOTO615.|602 IFS$|
|00000a90| 3d 22 53 53 4c 53 4c 22 | 54 48 45 4e 50 52 49 4e |="SSLSL"|THENPRIN|
|00000aa0| 54 22 32 22 3b 3a 54 3d | 54 2b 32 3a 47 4f 54 4f |T"2";:T=|T+2:GOTO|
|00000ab0| 36 31 35 0a 36 30 33 20 | 49 46 53 24 3d 22 53 53 |615.603 |IFS$="SS|
|00000ac0| 4c 4c 53 22 54 48 45 4e | 50 52 49 4e 54 22 33 22 |LLS"THEN|PRINT"3"|
|00000ad0| 3b 3a 54 3d 54 2b 33 3a | 47 4f 54 4f 36 31 35 0a |;:T=T+3:|GOTO615.|
|00000ae0| 36 30 34 20 49 46 53 24 | 3d 22 53 4c 53 53 4c 22 |604 IFS$|="SLSSL"|
|00000af0| 54 48 45 4e 50 52 49 4e | 54 22 34 22 3b 3a 54 3d |THENPRIN|T"4";:T=|
|00000b00| 54 2b 34 3a 47 4f 54 4f | 36 31 35 0a 36 30 35 20 |T+4:GOTO|615.605 |
|00000b10| 49 46 53 24 3d 22 53 4c | 53 4c 53 22 54 48 45 4e |IFS$="SL|SLS"THEN|
|00000b20| 50 52 49 4e 54 22 35 22 | 3b 3a 54 3d 54 2b 35 3a |PRINT"5"|;:T=T+5:|
|00000b30| 47 4f 54 4f 36 31 35 0a | 36 30 36 20 49 46 53 24 |GOTO615.|606 IFS$|
|00000b40| 3d 22 53 4c 4c 53 53 22 | 54 48 45 4e 50 52 49 4e |="SLLSS"|THENPRIN|
|00000b50| 54 22 36 22 3b 3a 54 3d | 54 2b 36 3a 47 4f 54 4f |T"6";:T=|T+6:GOTO|
|00000b60| 36 31 35 0a 36 30 37 20 | 49 46 53 24 3d 22 4c 53 |615.607 |IFS$="LS|
|00000b70| 53 53 4c 22 54 48 45 4e | 50 52 49 4e 54 22 37 22 |SSL"THEN|PRINT"7"|
|00000b80| 3b 3a 54 3d 54 2b 37 3a | 47 4f 54 4f 36 31 35 0a |;:T=T+7:|GOTO615.|
|00000b90| 36 30 38 20 49 46 53 24 | 3d 22 4c 53 53 4c 53 22 |608 IFS$|="LSSLS"|
|00000ba0| 54 48 45 4e 50 52 49 4e | 54 22 38 22 3b 3a 54 3d |THENPRIN|T"8";:T=|
|00000bb0| 54 2b 38 3a 47 4f 54 4f | 36 31 35 0a 36 30 39 20 |T+8:GOTO|615.609 |
|00000bc0| 49 46 53 24 3d 22 4c 53 | 4c 53 53 22 54 48 45 4e |IFS$="LS|LSS"THEN|
|00000bd0| 50 52 49 4e 54 22 39 22 | 3b 3a 54 3d 54 2b 39 3a |PRINT"9"|;:T=T+9:|
|00000be0| 47 4f 54 4f 36 31 35 0a | 36 31 30 20 50 52 49 4e |GOTO615.|610 PRIN|
|00000bf0| 54 3a 50 52 49 4e 54 22 | 11 2a 2a 20 45 52 52 4f |T:PRINT"|.** ERRO|
|00000c00| 52 20 49 4e 20 45 4e 54 | 52 59 21 20 2a 2a 22 3a |R IN ENT|RY! **":|
|00000c10| 50 52 49 4e 54 53 24 3b | 22 20 2a 2a 2a 20 50 4f |PRINTS$;|" *** PO|
|00000c20| 53 49 54 49 4f 4e 3a 22 | 58 3a 53 54 4f 50 0a 36 |SITION:"|X:STOP.6|
|00000c30| 31 35 20 52 45 54 55 52 | 4e 0a 36 39 39 20 3a 0a |15 RETUR|N.699 :.|
|00000c40| 38 30 30 20 50 52 49 4e | 54 22 11 41 09 00 49 4e |800 PRIN|T".A..IN|
|00000c50| 3f 20 28 59 2f 4e 29 20 | 22 3b 0a 38 30 35 20 47 |? (Y/N) |";.805 G|
|00000c60| 4f 53 55 42 39 39 30 0a | 38 31 30 20 47 45 54 41 |OSUB990.|810 GETA|
|00000c70| 24 3a 49 46 41 24 3d 22 | 22 54 48 45 4e 38 30 35 |$:IFA$="|"THEN805|
|00000c80| 0a 38 31 35 20 49 46 41 | 24 3c 3e 22 59 22 41 4e |.815 IFA|$<>"Y"AN|
|00000c90| 44 41 24 3c 3e 22 4e 22 | 54 48 45 4e 38 30 35 0a |DA$<>"N"|THEN805.|
|00000ca0| 38 32 30 20 49 46 41 24 | 3d 22 59 22 54 48 45 4e |820 IFA$|="Y"THEN|
|00000cb0| 52 55 4e 0a 38 32 35 20 | 50 52 49 4e 54 22 12 20 |RUN.825 |PRINT". |
|00000cc0| 4e 4f 20 22 0a 38 33 30 | 20 45 4e 44 0a 39 30 30 |NO ".830| END.900|
|00000cd0| 20 4c 3d 30 3a 58 24 3d | 22 22 0a 39 30 32 20 47 | L=0:X$=|"".902 G|
|00000ce0| 4f 53 55 42 39 39 30 0a | 39 30 35 20 47 45 54 41 |OSUB990.|905 GETA|
|00000cf0| 24 3a 49 46 41 24 3d 22 | 22 54 48 45 4e 39 30 32 |$:IFA$="|"THEN902|
|00000d00| 0a 39 31 30 20 49 46 41 | 24 3d 43 48 52 24 28 31 |.910 IFA|$=CHR$(1|
|00000d10| 33 29 41 4e 44 4c 3d 4d | 58 54 48 45 4e 52 45 54 |3)ANDL=M|XTHENRET|
|00000d20| 55 52 4e 0a 39 31 35 20 | 49 46 41 24 3e 3d 22 30 |URN.915 |IFA$>="0|
|00000d30| 22 41 4e 44 41 24 3c 3d | 22 39 22 41 4e 44 4c 3c |"ANDA$<=|"9"ANDL<|
|00000d40| 4d 58 54 48 45 4e 58 24 | 3d 58 24 2b 41 24 3a 4c |MXTHENX$|=X$+A$:L|
|00000d50| 3d 4c 2b 31 3a 50 52 49 | 4e 54 41 24 3b 3a 47 4f |=L+1:PRI|NTA$;:GO|
|00000d60| 54 4f 39 30 35 0a 39 32 | 30 20 49 46 41 24 3d 43 |TO905.92|0 IFA$=C|
|00000d70| 48 52 24 28 32 30 29 41 | 4e 44 4c 3e 30 54 48 45 |HR$(20)A|NDL>0THE|
|00000d80| 4e 58 24 3d 4c 45 46 54 | 24 28 58 24 2c 4c 2d 31 |NX$=LEFT|$(X$,L-1|
|00000d90| 29 3a 4c 3d 4c 2d 31 3a | 50 52 49 4e 54 41 24 3b |):L=L-1:|PRINTA$;|
|00000da0| 3a 47 4f 54 4f 39 30 32 | 0a 39 32 35 20 47 4f 54 |:GOTO902|.925 GOT|
|00000db0| 4f 39 30 32 0a 39 38 39 | 20 3a 0a 39 39 30 20 50 |O902.989| :.990 P|
|00000dc0| 52 49 4e 54 22 12 20 9d | 22 3b 3a 46 4f 52 58 3d |RINT". .|";:FORX=|
|00000dd0| 31 54 4f 32 35 3a 4e 45 | 58 54 3a 50 52 49 4e 54 |1TO25:NE|XT:PRINT|
|00000de0| 22 92 20 9d 22 3b 3a 46 | 4f 52 58 3d 31 54 4f 32 |". .";:F|ORX=1TO2|
|00000df0| 35 3a 4e 45 58 54 3a 52 | 45 54 55 52 4e 0a |5:NEXT:R|ETURN. |
+--------+-------------------------+-------------------------+--------+--------+
