home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / PARTS.BAS < prev    next >
Unknown  |  1984-04-29  |  776 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 | 38 30 20 52 45 4d 20 20 |........|80 REM |
|00000030| 20 22 50 41 52 54 53 20 | 4c 49 53 54 20 47 45 4e | "PARTS |LIST GEN|
|00000040| 45 52 41 54 4f 52 22 0a | 0d 00 45 4e 54 45 52 20 |ERATOR".|..ENTER |
|00000050| 53 45 50 41 52 41 54 45 | 20 44 41 54 41 20 46 49 |SEPARATE| DATA FI|
|00000060| 4c 45 53 20 57 49 54 48 | 20 54 48 49 53 20 50 52 |LES WITH| THIS PR|
|00000070| 4f 47 52 41 4d 20 55 53 | 49 4e 47 20 22 4d 45 52 |OGRAM US|ING "MER|
|00000080| 47 45 22 2e 0a 0d 00 54 | 48 45 20 46 49 52 53 54 |GE"....T|HE FIRST|
|00000090| 20 44 41 54 41 20 49 54 | 45 4d 20 49 53 20 54 48 | DATA IT|EM IS TH|
|000000a0| 45 20 54 49 54 4c 45 2e | 0a 0d 00 46 4f 52 4d 41 |E TITLE.|...FORMA|
|000000b0| 54 20 46 4f 52 20 44 41 | 54 41 20 49 53 3a 20 51 |T FOR DA|TA IS: Q|
|000000c0| 55 41 4e 54 49 54 59 2c | 20 22 52 45 46 45 52 45 |UANTITY,| "REFERE|
|000000d0| 4e 43 45 22 2c 20 22 4d | 41 4e 55 46 41 43 54 55 |NCE", "M|ANUFACTU|
|000000e0| 52 45 52 22 2c 0a 0d 00 | 22 44 45 53 43 52 49 50 |RER",...|"DESCRIP|
|000000f0| 54 49 4f 4e 22 2c 20 41 | 4e 44 20 22 53 4f 55 52 |TION", A|ND "SOUR|
|00000100| 43 45 22 2e 20 51 55 41 | 4e 20 22 31 30 30 22 20 |CE". QUA|N "100" |
|00000110| 45 4e 44 53 20 50 52 49 | 4e 54 4f 55 54 2e 0d 0a |ENDS PRI|NTOUT...|
|00000120| 39 30 20 57 49 44 54 48 | 20 31 33 32 0d 0a 31 30 |90 WIDTH| 132..10|
|00000130| 30 20 49 4e 50 55 54 20 | 22 48 4f 57 20 4d 41 4e |0 INPUT |"HOW MAN|
|00000140| 59 20 55 4e 49 54 53 22 | 3b 4e 0d 0a 31 31 30 20 |Y UNITS"|;N..110 |
|00000150| 52 45 41 44 20 54 24 3a | 58 3d 30 0d 0a 31 32 30 |READ T$:|X=0..120|
|00000160| 20 4c 50 52 49 4e 54 20 | 22 50 41 52 54 53 20 4c | LPRINT |"PARTS L|
|00000170| 49 53 54 20 46 4f 52 20 | 22 3b 54 24 3b 22 20 51 |IST FOR |";T$;" Q|
|00000180| 55 41 4e 54 49 54 49 45 | 53 20 4c 49 53 54 45 44 |UANTITIE|S LISTED|
|00000190| 20 46 4f 52 20 22 3b 4e | 3b 22 20 55 4e 49 54 53 | FOR ";N|;" UNITS|
|000001a0| 22 3a 4c 50 52 49 4e 54 | 0d 0a 31 33 30 20 4c 50 |":LPRINT|..130 LP|
|000001b0| 52 49 4e 54 20 22 51 55 | 41 4e 20 20 52 45 46 20 |RINT "QU|AN REF |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 41 4e 55 | | MANU|
|000001d0| 46 41 43 54 55 52 45 52 | 20 20 20 20 50 41 52 54 |FACTURER| PART|
|000001e0| 20 23 2f 44 45 53 43 52 | 49 50 54 49 4f 4e 20 20 | #/DESCR|IPTION |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000200| 20 20 20 20 20 20 20 53 | 4f 55 52 43 45 22 0d 0a | S|OURCE"..|
|00000210| 31 34 30 20 4c 50 52 49 | 4e 54 0d 0a 31 35 30 20 |140 LPRI|NT..150 |
|00000220| 52 45 41 44 20 51 3a 49 | 46 20 51 3d 31 30 30 20 |READ Q:I|F Q=100 |
|00000230| 54 48 45 4e 20 4c 50 52 | 49 4e 54 20 43 48 52 24 |THEN LPR|INT CHR$|
|00000240| 28 31 32 29 3a 57 49 44 | 54 48 20 38 30 3a 45 4e |(12):WID|TH 80:EN|
|00000250| 44 0d 0a 31 36 30 20 52 | 45 41 44 20 52 24 2c 4d |D..160 R|EAD R$,M|
|00000260| 24 2c 44 24 2c 53 24 0d | 0a 31 36 35 20 49 46 20 |$,D$,S$.|.165 IF |
|00000270| 51 3d 30 20 54 48 45 4e | 20 4c 50 52 49 4e 54 3b |Q=0 THEN| LPRINT;|
|00000280| 47 4f 54 4f 20 31 38 30 | 0d 0a 31 37 30 20 4c 50 |GOTO 180|..170 LP|
|00000290| 52 49 4e 54 20 51 2a 4e | 3b 54 41 42 28 36 29 3b |RINT Q*N|;TAB(6);|
|000002a0| 52 24 3b 54 41 42 28 32 | 32 29 3b 4d 24 3b 54 41 |R$;TAB(2|2);M$;TA|
|000002b0| 42 28 33 38 29 3b 44 24 | 3b 54 41 42 28 38 31 29 |B(38);D$|;TAB(81)|
|000002c0| 3b 53 24 0d 0a 31 38 30 | 20 58 3d 58 2b 31 3a 49 |;S$..180| X=X+1:I|
|000002d0| 46 20 58 3d 35 35 20 54 | 48 45 4e 20 4c 50 52 49 |F X=55 T|HEN LPRI|
|000002e0| 4e 54 20 43 48 52 24 28 | 31 32 29 3a 58 3d 30 3a |NT CHR$(|12):X=0:|
|000002f0| 47 4f 54 4f 20 31 32 30 | 0d 0a 31 39 30 20 47 4f |GOTO 120|..190 GO|
|00000300| 54 4f 20 31 35 30 0d 0a | |TO 150..| |
+--------+-------------------------+-------------------------+--------+--------+