home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 2.1 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%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 47 4f 54 4f 36 32 | 0a 32 20 47 45 54 23 38 |1 GOTO62|.2 GET#8|
|00000010| 2c 41 24 2c 42 24 3a 49 | 46 4c 45 4e 28 42 24 29 |,A$,B$:I|FLEN(B$)|
|00000020| 3d 30 54 48 45 4e 37 32 | 0a 33 20 4c 4e 3d 31 3a |=0THEN72|.3 LN=1:|
|00000030| 47 45 54 23 38 2c 41 24 | 2c 42 24 3a 49 46 41 24 |GET#8,A$|,B$:IFA$|
|00000040| 3d 22 22 54 48 45 4e 41 | 24 3d 43 48 52 24 28 30 |=""THENA|$=CHR$(0|
|00000050| 29 0a 34 20 49 46 42 24 | 3d 22 22 54 48 45 4e 42 |).4 IFB$|=""THENB|
|00000060| 24 3d 43 48 52 24 28 30 | 29 0a 35 20 4c 3d 41 53 |$=CHR$(0|).5 L=AS|
|00000070| 43 28 41 24 29 2b 41 53 | 43 28 42 24 29 2a 32 35 |C(A$)+AS|C(B$)*25|
|00000080| 36 3a 50 52 49 4e 54 4c | 22 91 22 0a 36 20 46 4f |6:PRINTL|".".6 FO|
|00000090| 52 4a 3d 30 54 4f 4e 3a | 49 46 4c 3d 58 28 4a 29 |RJ=0TON:|IFL=X(J)|
|000000a0| 54 48 45 4e 4a 3d 4e 3a | 53 57 3d 31 0a 37 20 4e |THENJ=N:|SW=1.7 N|
|000000b0| 45 58 54 0a 38 20 49 46 | 53 57 3d 30 4f 52 53 57 |EXT.8 IF|SW=0ORSW|
|000000c0| 3d 32 54 48 45 4e 31 31 | 0a 39 20 46 3d 31 3a 43 |=2THEN11|.9 F=1:C|
|000000d0| 4f 3d 31 0a 31 30 20 53 | 57 3d 30 3a 4c 4e 3d 31 |O=1.10 S|W=0:LN=1|
|000000e0| 3a 55 45 3d 30 3a 47 4f | 54 4f 31 39 0a 31 31 20 |:UE=0:GO|TO19.11 |
|000000f0| 49 46 55 45 3d 30 54 48 | 45 4e 31 36 0a 31 32 20 |IFUE=0TH|EN16.12 |
|00000100| 46 4f 52 4a 3d 31 54 4f | 32 35 35 3a 47 45 54 23 |FORJ=1TO|255:GET#|
|00000110| 38 2c 41 24 3a 49 46 41 | 24 3d 22 22 54 48 45 4e |8,A$:IFA|$=""THEN|
|00000120| 4a 3d 32 35 35 3a 47 4f | 54 4f 31 35 0a 31 33 20 |J=255:GO|TO15.13 |
|00000130| 49 46 55 46 3d 31 54 48 | 45 4e 31 35 0a 31 34 20 |IFUF=1TH|EN15.14 |
|00000140| 49 46 41 53 43 28 41 24 | 29 3e 31 32 37 41 4e 44 |IFASC(A$|)>127AND|
|00000150| 28 41 53 43 28 41 24 29 | 3c 3e 31 34 33 29 54 48 |(ASC(A$)|<>143)TH|
|00000160| 45 4e 50 52 49 4e 54 22 | 1d 1d 1d 1d 1d 1d 1d 20 |ENPRINT"|....... |
|00000170| 5f 20 55 4e 45 58 45 43 | 55 54 41 42 4c 45 22 3a |_ UNEXEC|UTABLE":|
|00000180| 55 46 3d 31 0a 31 35 20 | 4e 45 58 54 3a 55 46 3d |UF=1.15 |NEXT:UF=|
|00000190| 30 3a 47 4f 54 4f 32 0a | 31 36 20 47 45 54 23 38 |0:GOTO2.|16 GET#8|
|000001a0| 2c 41 24 0a 31 37 20 49 | 46 41 24 3d 43 48 52 24 |,A$.17 I|FA$=CHR$|
|000001b0| 28 31 34 33 29 54 48 45 | 4e 31 32 0a 31 38 20 47 |(143)THE|N12.18 G|
|000001c0| 4f 54 4f 32 30 0a 31 39 | 20 47 45 54 23 38 2c 41 |OTO20.19| GET#8,A|
|000001d0| 24 3a 49 46 4c 4e 3d 31 | 54 48 45 4e 51 3d 30 3a |$:IFLN=1|THENQ=0:|
|000001e0| 4c 4e 3d 30 3a 55 4c 3d | 30 0a 32 30 20 49 46 41 |LN=0:UL=|0.20 IFA|
|000001f0| 24 3d 22 22 54 48 45 4e | 41 24 3d 43 48 52 24 28 |$=""THEN|A$=CHR$(|
|00000200| 30 29 0a 32 31 20 41 3d | 41 53 43 28 41 24 29 3a |0).21 A=|ASC(A$):|
|00000210| 49 46 41 3d 30 54 48 45 | 4e 32 0a 32 32 20 49 46 |IFA=0THE|N2.22 IF|
|00000220| 41 3d 33 34 41 4e 44 51 | 3d 31 54 48 45 4e 51 3d |A=34ANDQ|=1THENQ=|
|00000230| 30 3a 47 4f 54 4f 33 35 | 0a 32 33 20 49 46 51 3d |0:GOTO35|.23 IFQ=|
|00000240| 31 54 48 45 4e 31 39 0a | 32 34 20 49 46 41 3d 33 |1THEN19.|24 IFA=3|
|00000250| 32 54 48 45 4e 31 39 0a | 32 35 20 49 46 41 3d 33 |2THEN19.|25 IFA=3|
|00000260| 34 54 48 45 4e 51 3d 31 | 3a 47 4f 54 4f 33 35 0a |4THENQ=1|:GOTO35.|
|00000270| 32 36 20 49 46 55 45 3d | 31 41 4e 44 41 3d 35 38 |26 IFUE=|1ANDA=58|
|00000280| 54 48 45 4e 31 32 3a 53 | 4b 49 50 53 54 55 46 46 |THEN12:S|KIPSTUFF|
|00000290| 41 46 54 45 52 52 45 54 | 55 52 4e 2c 47 4f 54 4f |AFTERRET|URN,GOTO|
|000002a0| 45 54 43 0a 32 37 20 49 | 46 41 3d 31 34 33 54 48 |ETC.27 I|FA=143TH|
|000002b0| 45 4e 31 32 3a 44 52 4f | 50 0a 32 38 20 49 46 41 |EN12:DRO|P.28 IFA|
|000002c0| 3d 31 33 39 54 48 45 4e | 53 57 3d 31 3a 47 4f 54 |=139THEN|SW=1:GOT|
|000002d0| 4f 33 35 3a 27 49 46 27 | 0a 32 39 20 49 46 41 3d |O35:'IF'|.29 IFA=|
|000002e0| 31 34 35 41 4e 44 53 57 | 3d 30 54 48 45 4e 53 57 |145ANDSW|=0THENSW|
|000002f0| 3d 32 3a 47 4f 54 4f 33 | 35 3a 27 4f 4e 27 0a 33 |=2:GOTO3|5:'ON'.3|
|00000300| 30 20 49 46 41 3d 31 34 | 35 41 4e 44 53 57 3d 31 |0 IFA=14|5ANDSW=1|
|00000310| 54 48 45 4e 53 57 3d 33 | 3a 47 4f 54 4f 33 35 3a |THENSW=3|:GOTO35:|
|00000320| 27 4f 4e 27 0a 33 31 20 | 49 46 53 57 3d 30 41 4e |'ON'.31 |IFSW=0AN|
|00000330| 44 28 41 3d 31 33 37 4f | 52 41 3d 31 34 32 4f 52 |D(A=137O|RA=142OR|
|00000340| 41 3d 31 32 38 4f 52 41 | 3d 31 34 34 4f 52 41 3d |A=128ORA|=144ORA=|
|00000350| 31 34 37 29 54 48 45 4e | 55 45 3d 31 0a 33 32 20 |147)THEN|UE=1.32 |
|00000360| 49 46 53 57 3d 31 41 4e | 44 28 41 3d 31 33 37 4f |IFSW=1AN|D(A=137O|
|00000370| 52 41 3d 31 34 32 4f 52 | 41 3d 31 32 38 4f 52 41 |RA=142OR|A=128ORA|
|00000380| 3d 31 34 34 4f 52 41 3d | 31 34 37 29 54 48 45 4e |=144ORA=|147)THEN|
|00000390| 55 4c 3d 31 0a 33 33 20 | 49 46 53 57 3d 32 41 4e |UL=1.33 |IFSW=2AN|
|000003a0| 44 41 3d 35 38 54 48 45 | 4e 53 57 3d 30 0a 33 34 |DA=58THE|NSW=0.34|
|000003b0| 20 49 46 53 57 3d 33 41 | 4e 44 28 41 3d 31 34 32 | IFSW=3A|ND(A=142|
|000003c0| 4f 52 41 3d 31 32 38 4f | 52 41 3d 31 34 34 4f 52 |ORA=128O|RA=144OR|
|000003d0| 41 3d 31 34 37 29 54 48 | 45 4e 55 4c 3d 31 0a 33 |A=147)TH|ENUL=1.3|
|000003e0| 35 20 49 46 41 3d 35 38 | 41 4e 44 43 4f 3d 31 54 |5 IFA=58|ANDCO=1T|
|000003f0| 48 45 4e 31 39 0a 33 36 | 20 43 4f 3d 30 3a 49 46 |HEN19.36| CO=0:IF|
|00000400| 41 3d 35 38 54 48 45 4e | 43 4f 3d 31 0a 33 37 20 |A=58THEN|CO=1.37 |
|00000410| 47 4f 54 4f 31 39 0a 33 | 38 20 47 45 54 23 38 2c |GOTO19.3|8 GET#8,|
|00000420| 41 24 2c 42 24 3a 49 46 | 4c 45 4e 28 42 24 29 3d |A$,B$:IF|LEN(B$)=|
|00000430| 30 54 48 45 4e 37 30 0a | 33 39 20 47 45 54 23 38 |0THEN70.|39 GET#8|
|00000440| 2c 41 24 2c 42 24 3a 49 | 46 41 24 3d 22 22 54 48 |,A$,B$:I|FA$=""TH|
|00000450| 45 4e 41 24 3d 43 48 52 | 24 28 30 29 0a 34 30 20 |ENA$=CHR|$(0).40 |
|00000460| 49 46 42 24 3d 22 22 54 | 48 45 4e 42 24 3d 43 48 |IFB$=""T|HENB$=CH|
|00000470| 52 24 28 30 29 0a 34 31 | 20 50 52 49 4e 54 41 53 |R$(0).41| PRINTAS|
|00000480| 43 28 41 24 29 2b 41 53 | 43 28 42 24 29 2a 32 35 |C(A$)+AS|C(B$)*25|
|00000490| 36 22 91 22 3a 53 57 3d | 30 3a 51 3d 30 0a 34 32 |6".":SW=|0:Q=0.42|
|000004a0| 20 47 45 54 23 38 2c 41 | 24 3a 49 46 41 24 3d 22 | GET#8,A|$:IFA$="|
|000004b0| 22 54 48 45 4e 41 24 3d | 43 48 52 24 28 30 29 0a |"THENA$=|CHR$(0).|
|000004c0| 34 33 20 41 3d 41 53 43 | 28 41 24 29 3a 49 46 41 |43 A=ASC|(A$):IFA|
|000004d0| 3d 30 54 48 45 4e 35 31 | 0a 34 34 20 49 46 41 3d |=0THEN51|.44 IFA=|
|000004e0| 33 32 54 48 45 4e 34 32 | 0a 34 35 20 49 46 51 3d |32THEN42|.45 IFQ=|
|000004f0| 31 41 4e 44 41 3d 33 34 | 54 48 45 4e 51 3d 30 3a |1ANDA=34|THENQ=0:|
|00000500| 47 4f 54 4f 34 32 0a 34 | 36 20 49 46 51 3d 31 54 |GOTO42.4|6 IFQ=1T|
|00000510| 48 45 4e 34 32 0a 34 37 | 20 49 46 51 3d 32 41 4e |HEN42.47| IFQ=2AN|
|00000520| 44 41 3d 35 38 54 48 45 | 4e 51 3d 30 3a 47 4f 54 |DA=58THE|NQ=0:GOT|
|00000530| 4f 34 32 0a 34 38 20 49 | 46 51 3d 32 54 48 45 4e |O42.48 I|FQ=2THEN|
|00000540| 34 32 0a 34 39 20 49 46 | 51 3d 33 54 48 45 4e 34 |42.49 IF|Q=3THEN4|
|00000550| 32 0a 35 30 20 49 46 53 | 57 3d 31 41 4e 44 41 3e |2.50 IFS|W=1ANDA>|
|00000560| 34 37 41 4e 44 41 3c 35 | 38 54 48 45 4e 4d 3d 4d |47ANDA<5|8THENM=M|
|00000570| 2a 31 30 2b 09 0a 35 31 | 20 49 46 53 57 3d 30 54 |*10+..51| IFSW=0T|
|00000580| 48 45 4e 35 35 0a 35 32 | 20 4b 3d 2d 31 3a 46 4f |HEN55.52| K=-1:FO|
|00000590| 52 4a 3d 30 54 4f 4e 2d | 31 3a 49 46 4d 3d 58 28 |RJ=0TON-|1:IFM=X(|
|000005a0| 4a 29 54 48 45 4e 4b 3d | 4a 3a 4a 3d 4e 0a 35 33 |J)THENK=|J:J=N.53|
|000005b0| 20 4e 45 58 54 3a 53 57 | 3d 30 3a 49 46 4b 3d 2d | NEXT:SW|=0:IFK=-|
|000005c0| 31 54 48 45 4e 58 28 4e | 29 3d 4d 3a 4e 3d 4e 2b |1THENX(N|)=M:N=N+|
|000005d0| 31 0a 35 34 20 4d 3d 30 | 3a 49 46 41 3d 34 34 54 |1.54 M=0|:IFA=44T|
|000005e0| 48 45 4e 53 57 3d 31 0a | 35 35 20 49 46 41 3d 30 |HENSW=1.|55 IFA=0|
|000005f0| 54 48 45 4e 33 38 0a 35 | 36 20 49 46 55 4c 3d 31 |THEN38.5|6 IFUL=1|
|00000600| 41 4e 44 41 3d 35 38 54 | 48 45 4e 31 32 3a 53 4b |ANDA=58T|HEN12:SK|
|00000610| 49 50 53 54 55 46 46 41 | 46 54 45 52 52 45 54 55 |IPSTUFFA|FTERRETU|
|00000620| 52 4e 2c 47 4f 54 4f 45 | 54 43 0a 35 37 20 49 46 |RN,GOTOE|TC.57 IF|
|00000630| 41 3d 33 34 54 48 45 4e | 51 3d 31 3a 47 4f 54 4f |A=34THEN|Q=1:GOTO|
|00000640| 34 32 0a 35 38 20 49 46 | 41 3d 31 33 31 54 48 45 |42.58 IF|A=131THE|
|00000650| 4e 51 3d 32 3a 47 4f 54 | 4f 34 32 0a 35 39 20 49 |NQ=2:GOT|O42.59 I|
|00000660| 46 41 3d 31 34 33 54 48 | 45 4e 51 3d 33 3a 47 4f |FA=143TH|ENQ=3:GO|
|00000670| 54 4f 34 32 0a 36 30 20 | 49 46 28 41 3d 31 33 37 |TO42.60 |IF(A=137|
|00000680| 29 4f 52 28 41 3d 31 33 | 38 29 4f 52 28 41 3d 31 |)OR(A=13|8)OR(A=1|
|00000690| 34 31 29 4f 52 28 41 3d | 31 36 37 29 54 48 45 4e |41)OR(A=|167)THEN|
|000006a0| 53 57 3d 31 0a 36 31 20 | 47 4f 54 4f 34 32 0a 36 |SW=1.61 |GOTO42.6|
|000006b0| 32 20 50 52 49 4e 54 22 | 93 4e 4f 4e 2d 45 58 45 |2 PRINT"|.NON-EXE|
|000006c0| 43 20 41 4e 41 4c 59 5a | 45 52 22 3a 50 52 49 4e |C ANALYZ|ER":PRIN|
|000006d0| 54 22 11 50 55 54 20 54 | 48 45 20 50 52 4f 47 52 |T".PUT T|HE PROGR|
|000006e0| 41 4d 20 49 4e 20 44 52 | 49 56 45 20 30 2e 22 0a |AM IN DR|IVE 0.".|
|000006f0| 36 33 20 49 4e 50 55 54 | 22 11 4e 41 4d 45 20 20 |63 INPUT|".NAME |
|00000700| 20 bf 9d 9d 9d 22 3b 4f | 24 0a 36 34 20 50 52 49 | ....";O|$.64 PRI|
|00000710| 4e 54 22 11 46 49 52 53 | 54 20 49 20 57 49 4c 4c |NT".FIRS|T I WILL|
|00000720| 20 41 4e 41 4c 59 5a 45 | 20 54 48 45 20 50 52 4f | ANALYZE| THE PRO|
|00000730| 47 52 41 4d 2c 00 0a 36 | 35 20 50 52 49 4e 54 22 |GRAM,..6|5 PRINT"|
|00000740| 54 48 45 4e 20 43 48 45 | 43 4b 20 49 54 2e 22 0a |THEN CHE|CK IT.".|
|00000750| 36 36 20 50 52 49 4e 54 | 22 11 41 4e 41 4c 59 5a |66 PRINT|".ANALYZ|
|00000760| 49 4e 47 20 4c 49 4e 45 | 22 3a 4f 50 45 4e 38 2c |ING LINE|":OPEN8,|
|00000770| 38 2c 33 2c 22 30 3a 22 | 2b 4f 24 2b 22 2c 50 2c |8,3,"0:"|+O$+",P,|
|00000780| 52 22 0a 36 37 20 44 49 | 4d 58 28 35 30 30 29 3a |R".67 DI|MX(500):|
|00000790| 51 24 3d 43 48 52 24 28 | 33 34 29 3a 47 45 54 23 |Q$=CHR$(|34):GET#|
|000007a0| 38 2c 41 24 2c 42 24 0a | 36 38 20 49 46 41 53 43 |8,A$,B$.|68 IFASC|
|000007b0| 28 42 24 29 3d 38 41 4e | 44 41 53 43 28 09 0a 36 |(B$)=8AN|DASC(..6|
|000007c0| 39 20 50 52 49 4e 54 22 | 11 53 4f 52 52 59 2c 20 |9 PRINT"|.SORRY, |
|000007d0| 49 20 4f 4e 4c 59 20 48 | 41 4e 44 4c 45 20 50 55 |I ONLY H|ANDLE PU|
|000007e0| 52 45 20 42 41 53 49 43 | 20 50 52 4f 47 52 41 4d |RE BASIC| PROGRAM|
|000007f0| 53 22 3a 43 4c 4f 53 45 | 38 3a 45 4e 44 0a 37 30 |S":CLOSE|8:END.70|
|00000800| 20 43 4c 4f 53 45 38 3a | 4f 50 45 4e 38 2c 38 2c | CLOSE8:|OPEN8,8,|
|00000810| 33 2c 22 30 3a 22 2b 4f | 24 2b 22 2c 50 2c 52 22 |3,"0:"+O|$+",P,R"|
|00000820| 3a 4e 3d 4e 2d 31 0a 37 | 31 20 50 52 49 4e 54 22 |:N=N-1.7|1 PRINT"|
|00000830| 11 43 48 45 43 4b 49 4e | 47 20 4c 49 4e 45 22 3a |.CHECKIN|G LINE":|
|00000840| 47 45 54 23 38 2c 41 24 | 2c 42 24 3a 53 57 3d 31 |GET#8,A$|,B$:SW=1|
|00000850| 3a 47 4f 54 4f 32 0a 37 | 32 20 43 4c 4f 53 45 38 |:GOTO2.7|2 CLOSE8|
|00000860| 3a 45 4e 44 0a | |:END. | |
+--------+-------------------------+-------------------------+--------+--------+
