home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / MANPARTS.BAS < prev    next >
Unknown  |  1984-04-29  |  661 b 

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.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
64% 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
98% TrID Adobe PhotoShop Brush default (weak)
1% TrID Sybase iAnywhere database files default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 38 30 20 52 45 4d 20 |........|.80 REM |
|00000030| 20 20 22 50 41 52 54 53 | 20 4c 49 53 54 20 47 45 | "PARTS| LIST GE|
|00000040| 4e 45 52 41 54 4f 52 22 | 0a 0d 00 45 4e 54 45 52 |NERATOR"|...ENTER|
|00000050| 20 53 45 50 41 52 41 54 | 45 20 44 41 54 41 20 46 | SEPARAT|E DATA F|
|00000060| 49 4c 45 53 20 57 49 54 | 48 20 54 48 49 53 20 50 |ILES WIT|H THIS P|
|00000070| 52 4f 47 52 41 4d 20 55 | 53 49 4e 47 20 22 4d 45 |ROGRAM U|SING "ME|
|00000080| 52 47 45 22 2e 0a 0d 00 | 54 48 45 20 46 49 52 53 |RGE"....|THE FIRS|
|00000090| 54 20 44 41 54 41 20 49 | 54 45 4d 20 49 53 20 54 |T DATA I|TEM IS T|
|000000a0| 48 45 20 54 49 54 4c 45 | 2e 0a 0d 00 46 4f 52 4d |HE TITLE|....FORM|
|000000b0| 41 54 20 46 4f 52 20 44 | 41 54 41 20 49 53 3a 20 |AT FOR D|ATA IS: |
|000000c0| 51 55 41 4e 54 49 54 59 | 2c 20 22 52 45 46 45 52 |QUANTITY|, "REFER|
|000000d0| 45 4e 43 45 22 2c 20 22 | 4d 41 4e 55 46 41 43 54 |ENCE", "|MANUFACT|
|000000e0| 55 52 45 52 22 2c 0a 0d | 00 22 44 45 53 43 52 49 |URER",..|."DESCRI|
|000000f0| 50 54 49 4f 4e 22 2c 20 | 41 4e 44 20 22 53 4f 55 |PTION", |AND "SOU|
|00000100| 52 43 45 22 2e 20 51 55 | 41 4e 20 22 31 30 30 22 |RCE". QU|AN "100"|
|00000110| 20 45 4e 44 53 20 50 52 | 49 4e 54 4f 55 54 2e 0d | ENDS PR|INTOUT..|
|00000120| 0a 39 30 20 57 49 44 54 | 48 20 31 33 32 0d 0a 31 |.90 WIDT|H 132..1|
|00000130| 31 30 20 52 45 41 44 20 | 54 24 3a 58 3d 30 0d 0a |10 READ |T$:X=0..|
|00000140| 31 32 30 20 4c 50 52 49 | 4e 54 20 22 50 41 52 54 |120 LPRI|NT "PART|
|00000150| 53 20 4c 49 53 54 20 46 | 4f 52 20 22 3b 54 24 0d |S LIST F|OR ";T$.|
|00000160| 0a 31 33 30 20 4c 50 52 | 49 4e 54 20 22 51 55 41 |.130 LPR|INT "QUA|
|00000170| 4e 20 20 52 45 46 20 20 | 20 20 20 20 20 20 20 20 |N REF | |
|00000180| 20 20 20 4d 41 4e 55 46 | 41 43 54 55 52 45 52 20 | MANUF|ACTURER |
|00000190| 20 20 20 50 41 52 54 20 | 23 2f 44 45 53 43 52 49 | PART |#/DESCRI|
|000001a0| 50 54 49 4f 4e 20 0d 0a | 31 34 30 20 4c 50 52 49 |PTION ..|140 LPRI|
|000001b0| 4e 54 0d 0a 31 35 30 20 | 52 45 41 44 20 51 3a 49 |NT..150 |READ Q:I|
|000001c0| 46 20 51 3d 31 30 30 20 | 54 48 45 4e 20 4c 50 52 |F Q=100 |THEN LPR|
|000001d0| 49 4e 54 20 43 48 52 24 | 28 31 32 29 3a 57 49 44 |INT CHR$|(12):WID|
|000001e0| 54 48 20 38 30 3a 45 4e | 44 0d 0a 31 36 30 20 52 |TH 80:EN|D..160 R|
|000001f0| 45 41 44 20 52 24 2c 4d | 24 2c 44 24 2c 53 24 0d |EAD R$,M|$,D$,S$.|
|00000200| 0a 31 36 35 20 49 46 20 | 51 3d 30 20 54 48 45 4e |.165 IF |Q=0 THEN|
|00000210| 20 4c 50 52 49 4e 54 3a | 47 4f 54 4f 20 31 38 30 | LPRINT:|GOTO 180|
|00000220| 0d 0a 31 37 30 20 4c 50 | 52 49 4e 54 20 51 2a 31 |..170 LP|RINT Q*1|
|00000230| 3b 54 41 42 28 36 29 3b | 52 24 3b 54 41 42 28 32 |;TAB(6);|R$;TAB(2|
|00000240| 32 29 3b 4d 24 3b 54 41 | 42 28 33 38 29 3b 44 24 |2);M$;TA|B(38);D$|
|00000250| 0d 0a 31 38 30 20 58 3d | 58 2b 31 3a 49 46 20 58 |..180 X=|X+1:IF X|
|00000260| 3d 35 35 20 54 48 45 4e | 20 4c 50 52 49 4e 54 20 |=55 THEN| LPRINT |
|00000270| 43 48 52 24 28 31 32 29 | 3a 58 3d 30 3a 47 4f 54 |CHR$(12)|:X=0:GOT|
|00000280| 4f 20 31 32 30 0d 0a 31 | 39 30 20 47 4f 54 4f 20 |O 120..1|90 GOTO |
|00000290| 31 35 30 0d 0a | |150.. | |
+--------+-------------------------+-------------------------+--------+--------+