home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 2.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: '100 PRINT CHR'
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 30 20 50 52 49 4e | 54 20 43 48 52 24 28 31 |100 PRIN|T CHR$(1|
|00000010| 34 37 29 20 43 48 52 24 | 28 31 34 32 29 3a 50 4f |47) CHR$|(142):PO|
|00000020| 4b 45 20 35 33 32 38 30 | 2c 31 34 3a 50 4f 4b 45 |KE 53280|,14:POKE|
|00000030| 20 35 33 32 38 31 2c 36 | 0a 31 30 35 20 50 52 49 | 53281,6|.105 PRI|
|00000040| 4e 54 20 22 20 9a 53 49 | 44 50 4c 41 59 45 52 20 |NT " .SI|DPLAYER |
|00000050| 53 49 4e 47 41 4c 4f 4e | 47 22 3a 50 52 49 4e 54 |SINGALON|G":PRINT|
|00000060| 20 22 20 53 50 45 45 44 | 53 43 52 49 50 54 20 54 | " SPEED|SCRIPT T|
|00000070| 4f 20 57 4f 52 44 20 46 | 49 4c 45 20 43 4f 4e 56 |O WORD F|ILE CONV|
|00000080| 45 52 54 45 52 22 0a 31 | 31 30 20 50 52 49 4e 54 |ERTER".1|10 PRINT|
|00000090| 20 22 20 42 59 20 43 52 | 41 49 47 20 43 48 41 4d | " BY CR|AIG CHAM|
|000000a0| 42 45 52 4c 41 49 4e 20 | 33 2f 31 35 2f 38 36 22 |BERLAIN |3/15/86"|
|000000b0| 3a 50 52 49 4e 54 0a 31 | 32 30 20 44 4e 3d 38 3a |:PRINT.1|20 DN=8:|
|000000c0| 53 41 3d 37 38 30 3a 53 | 58 3d 37 38 31 3a 53 59 |SA=780:S|X=781:SY|
|000000d0| 3d 37 38 32 3a 53 50 3d | 37 38 33 3a 4c 4c 3d 33 |=782:SP=|783:LL=3|
|000000e0| 38 0a 31 33 30 20 53 24 | 3d 22 41 42 43 44 45 46 |8.130 S$|="ABCDEF|
|000000f0| 47 48 49 4a 4b 4c 4d 4e | 4f 50 51 52 53 54 55 56 |GHIJKLMN|OPQRSTUV|
|00000100| 57 58 59 5a 1b 1c 1d 1e | 22 2b 43 48 52 24 28 31 |WXYZ....|"+CHR$(1|
|00000110| 33 29 2b 22 20 21 22 2b | 43 48 52 24 28 33 34 29 |3)+" !"+|CHR$(34)|
|00000120| 2b 22 23 24 25 26 27 28 | 29 22 0a 31 33 31 20 53 |+"#$%&'(|)".131 S|
|00000130| 24 3d 53 24 2b 22 2a 2b | 2c 2d 2e 2f 30 31 32 33 |$=S$+"*+|,-./0123|
|00000140| 34 35 36 37 38 39 3a 3b | 3c 3d 3e 3f 40 c1 c2 c3 |456789:;|<=>?@...|
|00000150| c4 c5 c6 c7 c8 c9 ca cb | cc cd ce cf d0 d1 d2 d3 |........|........|
|00000160| d4 d5 d6 d7 d8 d9 da 5b | 5c 5d 5e 5f 22 0a 31 33 |.......[|\]^_".13|
|00000170| 32 20 46 4f 52 20 4b 3d | 39 36 20 54 4f 20 31 32 |2 FOR K=|96 TO 12|
|00000180| 39 3a 58 24 3d 58 24 2b | 43 48 52 24 28 4b 29 3a |9:X$=X$+|CHR$(K):|
|00000190| 4e 45 58 54 3a 46 4f 52 | 20 4b 3d 32 32 34 20 54 |NEXT:FOR| K=224 T|
|000001a0| 4f 20 32 35 35 3a 5a 24 | 3d 5a 24 2b 43 48 52 24 |O 255:Z$|=Z$+CHR$|
|000001b0| 28 4b 29 3a 4e 45 58 54 | 0a 31 33 33 20 59 24 3d |(K):NEXT|.133 Y$=|
|000001c0| 22 85 86 99 88 89 8a 8b | 9b 98 22 2b 43 48 52 24 |".......|.."+CHR$|
|000001d0| 28 31 34 32 29 2b 43 48 | 52 24 28 31 34 33 29 2b |(142)+CH|R$(143)+|
|000001e0| 22 90 91 96 22 2b 22 93 | 94 95 92 97 98 99 9a 9b |"..."+".|........|
|000001f0| 22 0a 31 33 34 20 59 24 | 3d 59 24 2b 43 48 52 24 |".134 Y$|=Y$+CHR$|
|00000200| 28 31 35 36 29 2b 22 9d | 22 2b 43 48 52 24 28 31 |(156)+".|"+CHR$(1|
|00000210| 35 38 29 2b 43 48 52 24 | 28 31 35 39 29 2b 43 48 |58)+CHR$|(159)+CH|
|00000220| 52 24 28 31 36 30 29 2b | 22 a1 a2 a3 a4 a5 a6 a7 |R$(160)+|".......|
|00000230| a8 a9 aa ab ac ad ae af | b0 b1 b2 b3 b4 b5 b6 b7 |........|........|
|00000240| 22 0a 31 33 35 20 59 24 | 3d 59 24 2b 22 b8 b9 ba |".135 Y$|=Y$+"...|
|00000250| bb bc bd be bf c0 c1 1f | 9f c4 c5 c6 1e c8 c9 ca |........|........|
|00000260| 90 cc cd 95 81 9c d1 1c | d3 d4 d5 12 05 d8 9e da |........|........|
|00000270| db dc dd 22 2b 43 48 52 | 24 28 32 32 32 29 2b 22 |..."+CHR|$(222)+"|
|00000280| df 22 0a 31 34 30 20 57 | 24 3d 22 c1 c2 c3 c4 c5 |.".140 W|$=".....|
|00000290| c6 c7 c8 c9 ca cb cc cd | ce cf d0 d1 d2 d3 d4 d5 |........|........|
|000002a0| d6 d7 d8 d9 da 1b 1c 1d | 1e 22 2b 43 48 52 24 28 |........|."+CHR$(|
|000002b0| 31 33 29 2b 22 20 21 22 | 2b 43 48 52 24 28 33 34 |13)+" !"|+CHR$(34|
|000002c0| 29 2b 22 23 24 25 26 27 | 28 29 22 0a 31 34 31 20 |)+"#$%&'|()".141 |
|000002d0| 58 24 3d 58 24 2b 22 9a | 22 2b 43 48 52 24 28 31 |X$=X$+".|"+CHR$(1|
|000002e0| 33 31 29 2b 22 97 22 3a | 53 24 3d 53 24 2b 58 24 |31)+".":|S$=S$+X$|
|000002f0| 2b 59 24 2b 5a 24 0a 31 | 34 32 20 57 24 3d 57 24 |+Y$+Z$.1|42 W$=W$|
|00000300| 2b 22 2a 2b 2c 2d 2e 2f | 30 31 32 33 34 35 36 37 |+"*+,-./|01234567|
|00000310| 38 39 3a 3b 3c 3d 3e 3f | 40 41 42 43 44 45 46 47 |89:;<=>?|@ABCDEFG|
|00000320| 48 49 4a 4b 4c 4d 4e 4f | 50 51 52 53 54 55 56 57 |HIJKLMNO|PQRSTUVW|
|00000330| 58 59 5a 5b 5c 5d 5e 5f | 22 2b 58 24 2b 59 24 2b |XYZ[\]^_|"+X$+Y$+|
|00000340| 5a 24 0a 31 35 30 20 4c | 41 3d 50 45 45 4b 28 34 |Z$.150 L|A=PEEK(4|
|00000350| 39 29 2b 32 35 36 2a 50 | 45 45 4b 28 35 30 29 2b |9)+256*P|EEK(50)+|
|00000360| 35 30 30 3a 58 24 3d 22 | 22 3a 59 24 3d 22 22 3a |500:X$="|":Y$="":|
|00000370| 5a 24 3d 22 22 3a 4b 3d | 46 52 45 28 30 29 3a 49 |Z$="":K=|FRE(0):I|
|00000380| 3d 31 0a 33 30 30 20 50 | 52 49 4e 54 20 22 20 50 |=1.300 P|RINT " P|
|00000390| 4c 45 41 53 45 20 45 4e | 54 45 52 20 54 48 45 20 |LEASE EN|TER THE |
|000003a0| 4e 41 4d 45 20 4f 46 20 | 54 48 45 22 0a 33 30 31 |NAME OF |THE".301|
|000003b0| 20 50 52 49 4e 54 20 22 | 20 53 50 45 45 44 53 43 | PRINT "| SPEEDSC|
|000003c0| 52 49 50 54 20 46 49 4c | 45 20 54 48 41 54 20 59 |RIPT FIL|E THAT Y|
|000003d0| 4f 55 20 57 41 4e 54 22 | 3a 50 52 49 4e 54 20 22 |OU WANT"|:PRINT "|
|000003e0| 20 54 4f 20 43 4f 4e 56 | 45 52 54 20 54 4f 20 41 | TO CONV|ERT TO A|
|000003f0| 20 2e 57 44 53 20 46 49 | 4c 45 22 0a 33 30 32 20 | .WDS FI|LE".302 |
|00000400| 50 52 49 4e 54 0a 33 30 | 35 20 46 24 3d 22 22 3a |PRINT.30|5 F$="":|
|00000410| 49 4e 50 55 54 20 22 20 | 4e 41 4d 45 20 4f 46 20 |INPUT " |NAME OF |
|00000420| 53 50 45 45 44 53 43 52 | 49 50 54 20 46 49 4c 45 |SPEEDSCR|IPT FILE|
|00000430| 22 3b 46 24 3a 49 46 20 | 46 24 3d 22 22 20 4f 52 |";F$:IF |F$="" OR|
|00000440| 20 4c 45 4e 28 46 24 29 | 3e 31 36 20 47 4f 54 4f | LEN(F$)|>16 GOTO|
|00000450| 20 33 30 35 0a 33 31 30 | 20 50 52 49 4e 54 3a 50 | 305.310| PRINT:P|
|00000460| 4f 4b 45 20 53 41 2c 31 | 3a 50 4f 4b 45 20 53 58 |OKE SA,1|:POKE SX|
|00000470| 2c 44 4e 3a 50 4f 4b 45 | 20 53 59 2c 30 3a 53 59 |,DN:POKE| SY,0:SY|
|00000480| 53 20 36 35 34 36 36 0a | 33 32 30 20 46 4f 52 20 |S 65466.|320 FOR |
|00000490| 4b 3d 31 20 54 4f 20 4c | 45 4e 28 46 24 29 3a 50 |K=1 TO L|EN(F$):P|
|000004a0| 4f 4b 45 20 35 38 34 2b | 4b 2c 41 53 43 28 4d 49 |OKE 584+|K,ASC(MI|
|000004b0| 44 24 28 46 24 2c 4b 29 | 29 3a 4e 45 58 54 0a 33 |D$(F$,K)|):NEXT.3|
|000004c0| 33 30 20 50 4f 4b 45 20 | 53 41 2c 4c 45 4e 28 46 |30 POKE |SA,LEN(F|
|000004d0| 24 29 3a 50 4f 4b 45 20 | 53 58 2c 37 33 3a 50 4f |$):POKE |SX,73:PO|
|000004e0| 4b 45 20 53 59 2c 32 3a | 53 59 53 20 36 35 34 36 |KE SY,2:|SYS 6546|
|000004f0| 39 0a 33 34 30 20 50 4f | 4b 45 20 53 41 2c 30 3a |9.340 PO|KE SA,0:|
|00000500| 50 4f 4b 45 20 53 58 2c | 4c 41 2d 32 35 36 2a 49 |POKE SX,|LA-256*I|
|00000510| 4e 54 28 4c 41 2f 32 35 | 36 09 0a 33 34 35 20 49 |NT(LA/25|6..345 I|
|00000520| 46 20 28 50 45 45 4b 28 | 53 50 29 41 4e 44 31 29 |F (PEEK(|SP)AND1)|
|00000530| 3d 30 20 47 4f 54 4f 20 | 33 36 30 0a 33 35 30 20 |=0 GOTO |360.350 |
|00000540| 49 46 20 50 45 45 4b 28 | 53 41 29 3d 34 20 54 48 |IF PEEK(|SA)=4 TH|
|00000550| 45 4e 20 50 52 49 4e 54 | 20 22 20 45 52 52 4f 52 |EN PRINT| " ERROR|
|00000560| 20 2d 20 46 49 4c 45 20 | 4e 4f 54 20 46 4f 55 4e | - FILE |NOT FOUN|
|00000570| 44 22 3a 50 52 49 4e 54 | 3a 47 4f 54 4f 20 33 30 |D":PRINT|:GOTO 30|
|00000580| 30 0a 33 35 35 20 50 52 | 49 4e 54 20 22 20 45 52 |0.355 PR|INT " ER|
|00000590| 52 4f 52 20 4c 4f 41 44 | 49 4e 47 20 22 20 46 24 |ROR LOAD|ING " F$|
|000005a0| 3a 45 4e 44 0a 33 36 30 | 20 45 41 3d 50 45 45 4b |:END.360| EA=PEEK|
|000005b0| 28 53 58 29 2b 32 35 36 | 2a 50 45 45 4b 28 53 59 |(SX)+256|*PEEK(SY|
|000005c0| 29 2d 31 3a 49 46 20 50 | 45 45 4b 28 45 41 29 3c |)-1:IF P|EEK(EA)<|
|000005d0| 3e 33 31 20 54 48 45 4e | 20 45 41 3d 45 41 2b 31 |>31 THEN| EA=EA+1|
|000005e0| 3a 50 4f 4b 45 20 45 41 | 2c 33 31 0a 34 30 30 20 |:POKE EA|,31.400 |
|000005f0| 50 52 49 4e 54 20 22 20 | 57 48 41 54 20 49 53 20 |PRINT " |WHAT IS |
|00000600| 54 48 45 20 54 49 54 4c | 45 20 4f 46 20 54 48 45 |THE TITL|E OF THE|
|00000610| 20 53 4f 4e 47 3f 22 3a | 50 52 49 4e 54 20 22 20 | SONG?":|PRINT " |
|00000620| 12 20 92 9d 22 3b 3a 54 | 24 3d 22 22 3a 4c 3d 30 |. ..";:T|$="":L=0|
|00000630| 0a 34 31 30 20 57 41 49 | 54 20 31 39 38 2c 31 35 |.410 WAI|T 198,15|
|00000640| 3a 47 45 54 20 47 24 3a | 49 46 20 47 24 3d 43 48 |:GET G$:|IF G$=CH|
|00000650| 52 24 28 31 33 29 20 41 | 4e 44 20 4c 20 54 48 45 |R$(13) A|ND L THE|
|00000660| 4e 20 50 52 49 4e 54 20 | 22 20 22 3a 50 52 49 4e |N PRINT |" ":PRIN|
|00000670| 54 3a 47 4f 54 4f 20 35 | 30 30 0a 34 32 30 20 49 |T:GOTO 5|00.420 I|
|00000680| 46 20 47 24 3d 43 48 52 | 24 28 32 30 29 20 41 4e |F G$=CHR|$(20) AN|
|00000690| 44 20 4c 20 54 48 45 4e | 20 50 52 49 4e 54 20 47 |D L THEN| PRINT G|
|000006a0| 24 3b 3a 4c 3d 4c 2d 31 | 3a 54 24 3d 4c 45 46 54 |$;:L=L-1|:T$=LEFT|
|000006b0| 24 28 54 24 2c 4c 29 3a | 4b 3d 46 52 45 28 30 29 |$(T$,L):|K=FRE(0)|
|000006c0| 3a 47 4f 54 4f 20 34 31 | 30 0a 34 33 30 20 49 46 |:GOTO 41|0.430 IF|
|000006d0| 20 4c 3d 33 36 20 4f 52 | 20 47 24 3c 22 20 22 20 | L=36 OR| G$<" " |
|000006e0| 4f 52 20 47 24 3e 22 5f | 22 20 4f 52 20 47 24 3d |OR G$>"_|" OR G$=|
|000006f0| 43 48 52 24 28 33 34 29 | 20 47 4f 54 4f 20 34 31 |CHR$(34)| GOTO 41|
|00000700| 30 0a 34 34 30 20 50 52 | 49 4e 54 20 47 24 20 22 |0.440 PR|INT G$ "|
|00000710| 12 20 9d 92 22 3b 3a 54 | 24 3d 54 24 2b 47 24 3a |. ..";:T|$=T$+G$:|
|00000720| 4c 3d 4c 2b 31 3a 47 4f | 54 4f 20 34 31 30 0a 35 |L=L+1:GO|TO 410.5|
|00000730| 30 30 20 50 52 49 4e 54 | 20 22 20 4e 4f 57 20 45 |00 PRINT| " NOW E|
|00000740| 4e 54 45 52 20 54 48 45 | 20 4e 41 4d 45 20 46 4f |NTER THE| NAME FO|
|00000750| 52 20 54 48 45 20 2e 57 | 44 53 20 46 49 4c 45 22 |R THE .W|DS FILE"|
|00000760| 0a 35 30 31 20 50 52 49 | 4e 54 20 22 20 28 45 58 |.501 PRI|NT " (EX|
|00000770| 43 4c 55 44 49 4e 47 20 | 54 48 45 20 2e 57 44 53 |CLUDING |THE .WDS|
|00000780| 20 45 58 54 45 4e 09 00 | 4f 4e 29 22 0a 35 30 32 | EXTEN..|ON)".502|
|00000790| 20 49 46 20 4c 45 4e 28 | 46 24 29 3c 3d 31 32 20 | IF LEN(|F$)<=12 |
|000007a0| 54 48 45 4e 20 50 52 49 | 4e 54 20 22 20 4f 52 20 |THEN PRI|NT " OR |
|000007b0| 4a 55 53 54 20 50 52 45 | 53 53 20 52 45 54 55 52 |JUST PRE|SS RETUR|
|000007c0| 4e 20 46 4f 52 20 22 20 | 46 24 0a 35 30 33 20 50 |N FOR " |F$.503 P|
|000007d0| 52 49 4e 54 0a 35 30 35 | 20 49 4e 50 55 54 20 22 |RINT.505| INPUT "|
|000007e0| 20 4e 41 4d 45 20 4f 46 | 20 57 4f 52 44 20 46 49 | NAME OF| WORD FI|
|000007f0| 4c 45 22 3b 46 24 3a 49 | 46 20 46 24 3d 22 22 20 |LE";F$:I|F F$="" |
|00000800| 4f 52 20 4c 45 4e 28 46 | 24 29 3e 31 32 20 47 4f |OR LEN(F|$)>12 GO|
|00000810| 54 4f 20 35 30 35 0a 35 | 31 30 20 46 24 3d 46 24 |TO 505.5|10 F$=F$|
|00000820| 2b 22 2e 57 44 53 22 3a | 4f 50 45 4e 20 31 2c 38 |+".WDS":|OPEN 1,8|
|00000830| 2c 31 35 3a 50 52 49 4e | 54 23 31 2c 22 53 30 3a |,15:PRIN|T#1,"S0:|
|00000840| 22 20 46 24 3a 43 4c 4f | 53 45 20 31 0a 35 32 30 |" F$:CLO|SE 1.520|
|00000850| 20 4f 50 45 4e 20 31 2c | 38 2c 32 2c 46 24 2b 22 | OPEN 1,|8,2,F$+"|
|00000860| 2c 57 2c 50 22 3a 50 52 | 49 4e 54 23 31 2c 43 48 |,W,P":PR|INT#1,CH|
|00000870| 52 24 28 33 34 29 20 54 | 24 20 43 48 52 24 28 33 |R$(34) T|$ CHR$(3|
|00000880| 34 29 0a 35 34 30 20 50 | 52 49 4e 54 20 22 93 0e |4).540 P|RINT "..|
|00000890| 11 1d 9a 22 3b 3a 50 4f | 4b 45 20 35 33 32 38 30 |...";:PO|KE 53280|
|000008a0| 2c 31 32 3a 50 4f 4b 45 | 20 35 33 32 38 31 2c 30 |,12:POKE| 53281,0|
|000008b0| 3a 52 3d 4c 41 2d 31 3a | 4d 4c 3d 4c 4c 2b 31 0a |:R=LA-1:|ML=LL+1.|
|000008c0| 35 35 30 20 46 4f 52 20 | 4b 3d 4c 41 20 54 4f 20 |550 FOR |K=LA TO |
|000008d0| 45 41 3a 50 3d 50 45 45 | 4b 28 4b 29 3a 50 52 49 |EA:P=PEE|K(K):PRI|
|000008e0| 4e 54 20 4d 49 44 24 28 | 53 24 2c 50 2c 49 29 3b |NT MID$(|S$,P,I);|
|000008f0| 3a 50 52 49 4e 54 23 31 | 2c 4d 49 44 24 28 57 24 |:PRINT#1|,MID$(W$|
|00000900| 2c 50 2c 49 29 3b 0a 35 | 35 35 20 49 46 20 50 3d |,P,I);.5|55 IF P=|
|00000910| 33 31 20 54 48 45 4e 20 | 50 52 49 4e 54 20 22 20 |31 THEN |PRINT " |
|00000920| 9a 22 3b 3a 4c 3d 4b 2d | 52 3a 52 3d 4b 3a 49 46 |.";:L=K-|R:R=K:IF|
|00000930| 20 4c 3e 4d 4c 20 47 4f | 54 4f 20 35 37 30 0a 35 | L>ML GO|TO 570.5|
|00000940| 36 30 20 4e 45 58 54 3a | 50 52 49 4e 54 23 31 2c |60 NEXT:|PRINT#1,|
|00000950| 43 48 52 24 28 30 29 3b | 3a 43 4c 4f 53 45 20 31 |CHR$(0);|:CLOSE 1|
|00000960| 3a 45 4e 44 0a 35 37 30 | 20 50 52 49 4e 54 3a 50 |:END.570| PRINT:P|
|00000970| 52 49 4e 54 20 22 20 c5 | d2 d2 cf d2 3a 20 cc c9 |RINT " .|....: ..|
|00000980| ce c5 20 cc cf ce c7 c5 | d2 20 d4 c8 c1 ce 22 20 |.. .....|. ...." |
|00000990| 4c 4c 20 22 c3 c8 c1 d2 | c1 c3 d4 c5 d2 d3 22 3a |LL "....|......":|
|000009a0| 43 4c 4f 53 45 20 31 0a | 35 38 30 20 4f 50 45 4e |CLOSE 1.|580 OPEN|
|000009b0| 20 31 2c 38 2c 31 35 3a | 50 52 49 4e 54 23 31 2c | 1,8,15:|PRINT#1,|
|000009c0| 22 53 30 3a 22 2b 46 24 | 3a 43 4c 4f 53 45 20 31 |"S0:"+F$|:CLOSE 1|
|000009d0| 3a 45 4e 44 0a | |:END. | |
+--------+-------------------------+-------------------------+--------+--------+
