home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: BASIC Source File
(text/bas).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| BASIC Source File (text/bas)
| magic
| Supported |
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Memotech MTX BASIC source (document/memotechMTXBASICSource)
| ext
| Unsupported |
| 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 |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 20 52 45 4d 20 | 2a 2a 2a 2a 2a 2a 2a 2a |10 REM |********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 32 |********|******.2|
|00000020| 30 20 20 52 45 4d 20 2a | 20 20 20 20 42 52 49 44 |0 REM *| BRID|
|00000030| 47 45 2e 48 41 4e 44 53 | 20 20 20 20 2a 0a 33 30 |GE.HANDS| *.30|
|00000040| 20 20 52 45 4d 20 2a 20 | 20 42 59 20 4c 4f 52 45 | REM * | BY LORE|
|00000050| 4e 20 57 52 49 47 48 54 | 20 20 20 2a 0a 34 30 20 |N WRIGHT| *.40 |
|00000060| 20 52 45 4d 20 2a 20 43 | 4f 50 59 52 49 47 48 54 | REM * C|OPYRIGHT|
|00000070| 20 28 43 29 20 31 39 38 | 36 20 2a 0a 35 30 20 20 | (C) 198|6 *.50 |
|00000080| 52 45 4d 20 2a 20 42 59 | 20 4d 49 43 52 4f 53 50 |REM * BY| MICROSP|
|00000090| 41 52 43 2c 20 49 4e 43 | 20 2a 0a 36 30 20 20 52 |ARC, INC| *.60 R|
|000000a0| 45 4d 20 2a 20 43 4f 4e | 43 4f 52 44 2c 20 4d 41 |EM * CON|CORD, MA|
|000000b0| 20 20 30 31 37 34 32 20 | 2a 0a 37 30 20 20 52 45 | 01742 |*.70 RE|
|000000c0| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |M ******|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 38 30 20 20 50 52 49 |********|.80 PRI|
|000000e0| 4e 54 20 20 43 48 52 24 | 28 34 29 22 42 52 55 4e |NT CHR$|(4)"BRUN|
|000000f0| 20 53 55 50 45 52 2e 53 | 4f 52 54 22 0a 39 30 20 | SUPER.S|ORT".90 |
|00000100| 43 24 20 3d 20 22 41 4b | 51 4a 54 39 38 37 36 35 |C$ = "AK|QJT98765|
|00000110| 34 33 32 22 3a 53 24 20 | 3d 20 22 53 48 44 43 22 |432":S$ |= "SHDC"|
|00000120| 0a 31 30 30 20 20 44 49 | 4d 20 44 4c 28 35 32 29 |.100 DI|M DL(52)|
|00000130| 2c 44 25 28 35 32 29 2c | 56 50 28 33 29 2c 48 50 |,D%(52),|VP(3),HP|
|00000140| 28 33 29 0a 31 31 30 20 | 20 46 4f 52 20 49 20 3d |(3).110 | FOR I =|
|00000150| 20 30 20 54 4f 20 33 3a | 20 52 45 41 44 20 56 50 | 0 TO 3:| READ VP|
|00000160| 28 49 29 2c 48 50 28 49 | 29 3a 20 4e 45 58 54 20 |(I),HP(I|): NEXT |
|00000170| 0a 31 32 30 20 20 52 45 | 4d 20 20 43 52 45 41 54 |.120 RE|M CREAT|
|00000180| 45 20 52 41 4e 44 4f 4d | 20 44 45 43 4b 0a 31 33 |E RANDOM| DECK.13|
|00000190| 30 20 20 46 4f 52 20 49 | 20 3d 20 31 20 54 4f 20 |0 FOR I| = 1 TO |
|000001a0| 35 32 3a 44 4c 28 49 29 | 20 3d 20 20 52 4e 44 28 |52:DL(I)| = RND(|
|000001b0| 31 29 3a 44 25 28 49 29 | 20 3d 20 49 3a 20 4e 45 |1):D%(I)| = I: NE|
|000001c0| 58 54 20 0a 31 34 30 20 | 20 52 45 4d 20 20 53 4f |XT .140 | REM SO|
|000001d0| 52 54 20 46 50 20 41 52 | 52 41 59 20 57 49 54 48 |RT FP AR|RAY WITH|
|000001e0| 20 49 4e 54 20 54 41 47 | 41 4c 4f 4e 47 53 0a 31 | INT TAG|ALONGS.1|
|000001f0| 35 30 20 20 26 20 44 4c | 2c 31 2c 35 32 2c 44 25 |50 & DL|,1,52,D%|
|00000200| 0a 31 36 30 20 20 52 45 | 4d 20 20 53 4f 52 54 20 |.160 RE|M SORT |
|00000210| 45 41 43 48 20 48 41 4e | 44 0a 31 37 30 20 20 46 |EACH HAN|D.170 F|
|00000220| 4f 52 20 48 20 3d 20 30 | 20 54 4f 20 33 3a 46 20 |OR H = 0| TO 3:F |
|00000230| 3d 20 31 33 20 2a 48 20 | 2b 31 3a 4c 20 3d 20 46 |= 13 *H |+1:L = F|
|00000240| 20 2b 31 32 3a 20 26 20 | 44 25 2c 46 2c 4c 3a 20 | +12: & |D%,F,L: |
|00000250| 4e 45 58 54 20 0a 31 38 | 30 20 20 52 45 4d 20 20 |NEXT .18|0 REM |
|00000260| 44 49 53 50 4c 41 59 20 | 46 4f 55 52 20 48 41 4e |DISPLAY |FOUR HAN|
|00000270| 44 53 0a 31 39 30 20 20 | 47 4f 53 55 42 20 33 31 |DS.190 |GOSUB 31|
|00000280| 30 0a 32 30 30 20 20 46 | 4f 52 20 48 20 3d 20 30 |0.200 F|OR H = 0|
|00000290| 20 54 4f 20 33 0a 32 31 | 30 20 53 4c 20 3d 20 30 | TO 3.21|0 SL = 0|
|000002a0| 0a 32 32 30 20 20 56 54 | 41 42 20 56 50 28 48 29 |.220 VT|AB VP(H)|
|000002b0| 3a 20 48 54 41 42 20 48 | 50 28 48 29 0a 32 33 30 |: HTAB H|P(H).230|
|000002c0| 20 20 46 4f 52 20 43 20 | 3d 20 31 20 54 4f 20 31 | FOR C |= 1 TO 1|
|000002d0| 33 0a 32 34 30 20 58 20 | 3d 20 44 25 28 31 33 20 |3.240 X |= D%(13 |
|000002e0| 2a 48 20 2b 43 29 0a 32 | 35 30 20 53 20 3d 20 20 |*H +C).2|50 S = |
|000002f0| 49 4e 54 28 28 58 20 2d | 31 29 2f 31 33 29 3a 20 |INT((X -|1)/13): |
|00000300| 49 46 20 53 20 3c 20 3e | 53 4c 20 20 54 48 45 4e |IF S < >|SL THEN|
|00000310| 20 20 56 54 41 42 20 56 | 50 28 48 29 20 2b 53 3a | VTAB V|P(H) +S:|
|00000320| 20 48 54 41 42 20 48 50 | 28 48 29 3a 53 4c 20 3d | HTAB HP|(H):SL =|
|00000330| 20 53 0a 32 36 30 20 20 | 50 52 49 4e 54 20 20 4d | S.260 |PRINT M|
|00000340| 49 44 24 20 28 43 24 2c | 58 20 2d 31 33 20 2a 53 |ID$ (C$,|X -13 *S|
|00000350| 2c 31 29 3b 0a 32 37 30 | 20 20 4e 45 58 54 20 43 |,1);.270| NEXT C|
|00000360| 3a 20 50 52 49 4e 54 20 | 3a 20 4e 45 58 54 20 48 |: PRINT |: NEXT H|
|00000370| 0a 32 38 30 20 20 49 4e | 50 55 54 20 22 41 4e 4f |.280 IN|PUT "ANO|
|00000380| 54 48 45 52 3f 20 22 3b | 59 4e 24 3a 20 49 46 20 |THER? ";|YN$: IF |
|00000390| 59 4e 24 20 3d 20 22 59 | 22 20 20 54 48 45 4e 20 |YN$ = "Y|" THEN |
|000003a0| 31 33 30 0a 32 39 30 20 | 20 45 4e 44 20 0a 33 30 |130.290 | END .30|
|000003b0| 30 20 20 52 45 4d 20 20 | 50 52 49 4e 54 20 53 55 |0 REM |PRINT SU|
|000003c0| 49 54 20 4c 45 54 54 45 | 52 53 0a 33 31 30 20 20 |IT LETTE|RS.310 |
|000003d0| 48 4f 4d 45 20 3a 20 46 | 4f 52 20 48 20 3d 20 30 |HOME : F|OR H = 0|
|000003e0| 20 54 4f 20 33 3a 20 56 | 54 41 42 20 56 50 28 48 | TO 3: V|TAB VP(H|
|000003f0| 29 3a 20 46 4f 52 20 53 | 20 3d 20 31 20 54 4f 20 |): FOR S| = 1 TO |
|00000400| 34 3a 20 48 54 41 42 20 | 48 50 28 48 29 20 2d 32 |4: HTAB |HP(H) -2|
|00000410| 3a 20 50 52 49 4e 54 20 | 20 4d 49 44 24 20 28 53 |: PRINT | MID$ (S|
|00000420| 24 2c 53 2c 31 29 3a 20 | 4e 45 58 54 20 53 2c 48 |$,S,1): |NEXT S,H|
|00000430| 3a 20 52 45 54 55 52 4e | 20 0a 33 32 30 20 20 44 |: RETURN| .320 D|
|00000440| 41 54 41 20 31 2c 31 35 | 2c 39 2c 33 2c 39 2c 32 |ATA 1,15|,9,3,9,2|
|00000450| 38 2c 31 38 2c 31 35 | |8,18,15 | |
+--------+-------------------------+-------------------------+--------+--------+
