SIZE.PROG
FILE INFORMATION
FILENAME(S): SIZE.PROG
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-12-01 01:09:58
APPEARS ON: 1 disk(s)
FILE HASH
aed13e518a9c81e7a3d686a8eda21dea17007fdc0644f8e68104429c6c0fba5e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CADPAK V2 10 2 5 | SIZE.PROG | PRG | hedning, Martin L0fgren | 17 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 00 00 8B C2 28 36 36 39 29 B3 B1 33 |........(669)..3|
00000010: A7 36 33 30 30 30 00 2B 08 01 00 8F 20 53 54 41 |.63000.+.... STA|
00000020: 52 54 20 4F 46 20 42 41 53 49 43 00 5A 08 0A 00 |RT OF BASIC.Z...|
00000030: 99 22 93 11 11 1D 1D 12 43 41 44 50 41 4B 2D 36 |."......CADPAK-6|
00000040: 34 20 50 52 49 4E 54 4F 55 54 20 53 49 5A 49 4E |4 PRINTOUT SIZIN|
00000050: 47 20 50 52 4F 47 52 41 4D 22 00 86 08 14 00 99 |G PROGRAM"......|
00000060: 22 11 1D 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |"..THIS PROGRAM |
00000070: 57 49 4C 4C 20 50 52 49 4E 54 20 4F 55 54 20 41 |WILL PRINT OUT A|
00000080: 20 53 4D 41 4C 4C 00 B2 08 1E 00 99 22 1D 41 4E | SMALL......".AN|
00000090: 44 20 41 20 4C 41 52 47 45 20 42 4F 58 20 4F 4E |D A LARGE BOX ON|
000000A0: 20 59 4F 55 52 20 50 52 49 4E 54 45 52 2E 20 59 | YOUR PRINTER. Y|
000000B0: 4F 55 00 DE 08 28 00 99 22 20 57 49 4C 4C 20 48 |OU...(.." WILL H|
000000C0: 41 56 45 20 54 4F 20 4D 45 41 53 55 52 45 20 54 |AVE TO MEASURE T|
000000D0: 48 45 20 53 49 5A 45 20 4F 46 20 54 48 45 00 08 |HE SIZE OF THE..|
000000E0: 09 32 00 99 22 20 42 4F 58 45 53 20 41 4E 44 20 |.2.." BOXES AND |
000000F0: 4B 45 59 20 54 48 45 20 53 49 5A 45 20 49 4E 46 |KEY THE SIZE INF|
00000100: 4F 52 4D 41 54 49 4F 4E 00 30 09 3C 00 99 22 20 |ORMATION.0.<.." |
00000110: 49 4E 54 4F 20 54 48 45 20 43 4F 4D 50 55 54 45 |INTO THE COMPUTE|
00000120: 52 20 53 4F 20 41 20 50 45 52 4D 41 4E 45 4E 54 |R SO A PERMANENT|
00000130: 00 5A 09 46 00 99 22 20 52 45 43 4F 52 44 20 4F |.Z.F.." RECORD O|
00000140: 46 20 54 48 45 20 53 49 5A 45 53 20 43 41 4E 20 |F THE SIZES CAN |
00000150: 42 45 20 57 52 49 54 54 45 4E 00 79 09 50 00 99 |BE WRITTEN.y.P..|
00000160: 22 20 4F 4E 20 54 48 45 20 43 41 44 50 41 4B 20 |" ON THE CADPAK |
00000170: 44 49 53 4B 45 54 54 45 2E 00 9B 09 64 00 99 22 |DISKETTE....d.."|
00000180: 11 11 1D 12 50 52 45 53 53 20 41 4E 59 20 4B 45 |....PRESS ANY KE|
00000190: 59 20 54 4F 20 53 54 41 52 54 22 00 AE 09 65 00 |Y TO START"...e.|
000001A0: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 31 00 D8 |.A$:.A$."".101..|
000001B0: 09 66 00 85 22 11 11 44 45 56 49 43 45 20 4E 55 |.f.."..DEVICE NU|
000001C0: 4D 42 45 52 20 4F 46 20 59 4F 55 52 20 50 52 49 |MBER OF YOUR PRI|
000001D0: 4E 54 45 52 22 3B 50 44 00 03 0A 67 00 99 22 11 |NTER";PD...g..".|
000001E0: 49 46 20 59 4F 55 52 20 50 52 49 4E 54 45 52 20 |IF YOUR PRINTER |
000001F0: 49 53 20 41 20 43 42 4D 20 31 35 32 35 2C 20 31 |IS A CBM 1525, 1|
00000200: 35 32 36 00 25 0A 68 00 99 22 20 4D 50 53 20 38 |526.%.h.." MPS 8|
00000210: 30 31 20 4F 52 20 4F 4B 49 4D 41 54 45 20 31 30 |01 OR OKIMATE 10|
00000220: 2C 20 54 48 45 00 4D 0A 69 00 99 22 20 56 41 4C |, THE.M.i.." VAL|
00000230: 55 45 53 20 46 4F 52 20 53 45 43 4F 4E 44 41 52 |UES FOR SECONDAR|
00000240: 59 20 41 44 44 52 45 53 53 20 41 4E 44 00 6C 0A |Y ADDRESS AND.l.|
00000250: 6A 00 99 22 20 54 52 41 4E 53 4C 41 54 45 20 44 |j.." TRANSLATE D|
00000260: 4F 4E 27 54 20 4D 41 54 54 45 52 2E 00 99 0A 71 |ON'T MATTER....q|
00000270: 00 85 22 53 45 43 4F 4E 44 41 52 59 20 41 44 44 |.."SECONDARY ADD|
00000280: 52 45 53 53 20 46 4F 52 20 59 4F 55 52 20 50 52 |RESS FOR YOUR PR|
00000290: 49 4E 54 45 52 22 3B 53 43 00 C4 0A 72 00 85 22 |INTER";SC...r.."|
000002A0: 41 53 43 49 49 20 54 52 41 4E 53 4C 41 54 45 20 |ASCII TRANSLATE |
000002B0: 46 4F 52 20 59 4F 55 52 20 50 52 49 4E 54 45 52 |FOR YOUR PRINTER|
000002C0: 22 3B 41 54 00 CD 0A 78 00 DB 31 2C 37 00 E1 0A |";AT...x..1,7...|
000002D0: 82 00 CE 20 30 2C 30 2C 33 31 39 2C 31 39 39 2C |... 0,0,319,199,|
000002E0: 32 00 00 0B 8C 00 D8 32 2C 30 2C 34 30 2C 32 2C |2......2,0,40,2,|
000002F0: 22 5F 20 4D 45 41 53 55 52 45 4D 45 4E 54 20 41 |"_ MEASUREMENT A|
00000300: 00 23 0B 96 00 D8 32 2C 35 30 2C 31 39 35 2C 32 |.#....2,50,195,2|
00000310: 2C 22 5E 20 4D 45 41 53 55 52 45 4D 45 4E 54 20 |,"^ MEASUREMENT |
00000320: 42 20 5E 00 40 0B A0 00 D4 3A 99 22 20 50 52 49 |B ^.@....:." PRI|
00000330: 4E 54 49 4E 47 20 53 4D 41 4C 4C 20 53 49 5A 45 |NTING SMALL SIZE|
00000340: 00 4F 0B AA 00 FD 34 2C 30 2C 53 43 2C 41 54 00 |.O....4,0,SC,AT.|
00000350: 6C 0B B4 00 D4 3A 99 22 20 50 52 49 4E 54 49 4E |l....:." PRINTIN|
00000360: 47 20 4C 41 52 47 45 20 53 49 5A 45 00 7B 0B BE |G LARGE SIZE.{..|
00000370: 00 FD 34 2C 31 2C 53 43 2C 41 54 00 A8 0B C8 00 |..4,1,SC,AT.....|
00000380: D4 3A 99 22 93 20 11 11 4E 4F 57 20 53 45 4C 45 |.:.". ..NOW SELE|
00000390: 43 54 20 43 45 4E 54 49 4D 45 54 45 52 53 20 4F |CT CENTIMETERS O|
000003A0: 52 20 49 4E 43 48 45 53 00 C6 0B D2 00 99 22 41 |R INCHES......"A|
000003B0: 53 20 59 4F 55 52 20 4D 45 41 53 55 52 49 4E 47 |S YOUR MEASURING|
000003C0: 20 55 4E 49 54 22 00 DA 0B DC 00 99 22 50 52 45 | UNIT"......"PRE|
000003D0: 53 53 20 43 20 4F 52 20 49 22 00 F9 0B E6 00 A1 |SS C OR I"......|
000003E0: 41 24 3A 8B 20 41 24 B3 B1 22 43 22 AF 20 41 24 |A$:. A$.."C". A$|
000003F0: B3 B1 22 49 22 A7 32 33 30 00 17 0C F0 00 44 4D |.."I".230.....DM|
00000400: 24 B2 22 49 4E 22 3A 8B 41 24 B2 22 43 22 A7 44 |$."IN":.A$."C".D|
00000410: 4D 24 B2 22 43 4D 22 00 3E 0C FA 00 99 22 11 4E |M$."CM".>....".N|
00000420: 4F 57 20 4D 45 41 53 55 52 45 20 54 48 45 20 4C |OW MEASURE THE L|
00000430: 45 4E 47 54 48 53 20 20 4F 46 20 54 48 45 00 60 |ENGTHS OF THE.`|
00000440: 0C 04 01 99 22 42 4F 58 20 4F 4E 20 54 48 45 20 |...."BOX ON THE |
00000450: 12 53 4D 41 4C 4C 92 20 50 52 49 4E 54 4F 55 54 |.SMALL. PRINTOUT|
00000460: 00 89 0C 0E 01 99 22 12 53 4D 41 4C 4C 92 20 4D |......".SMALL. M|
00000470: 45 41 53 55 52 45 4D 45 4E 54 20 41 22 3A 8D 32 |EASUREMENT A":.2|
00000480: 30 30 30 3A 53 31 B2 56 49 00 B2 0C 18 01 99 22 |000:S1.VI......"|
00000490: 12 53 4D 41 4C 4C 92 20 4D 45 41 53 55 52 45 4D |.SMALL. MEASUREM|
000004A0: 45 4E 54 20 42 22 3A 8D 32 30 30 30 3A 53 32 B2 |ENT B":.2000:S2.|
000004B0: 56 49 00 C2 0C 22 01 99 22 41 3D 22 53 31 3B 44 |VI...".."A="S1;D|
000004C0: 4D 24 00 D2 0C 2C 01 99 22 42 3D 22 53 32 3B 44 |M$...,.."B="S2;D|
000004D0: 4D 24 00 EF 0C 36 01 99 22 49 53 20 54 48 49 53 |M$...6.."IS THIS|
000004E0: 20 43 4F 52 52 45 43 54 3F 20 28 59 2F 4E 29 00 | CORRECT? (Y/N).|
000004F0: 0C 0D 40 01 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 |..@..A$:.A$.."Y"|
00000500: AF 41 24 B3 B1 22 4E 22 A7 33 32 30 00 1C 0D 4A |.A$.."N".320...J|
00000510: 01 8B 41 24 B2 22 4E 22 A7 32 37 30 00 43 0D C2 |..A$."N".270.C..|
00000520: 01 99 22 11 4E 4F 57 20 4D 45 41 53 55 52 45 20 |..".NOW MEASURE |
00000530: 54 48 45 20 4C 45 4E 47 54 48 53 20 20 4F 46 20 |THE LENGTHS OF |
00000540: 54 48 45 00 65 0D CC 01 99 22 42 4F 58 20 4F 4E |THE.e...."BOX ON|
00000550: 20 54 48 45 20 12 4C 41 52 47 45 92 20 50 52 49 | THE .LARGE. PRI|
00000560: 4E 54 4F 55 54 00 8E 0D D6 01 99 22 12 4C 41 52 |NTOUT......".LAR|
00000570: 47 45 92 20 4D 45 41 53 55 52 45 4D 45 4E 54 20 |GE. MEASUREMENT |
00000580: 41 22 3A 8D 32 30 30 30 3A 4C 31 B2 56 49 00 B7 |A":.2000:L1.VI..|
00000590: 0D E0 01 99 22 12 4C 41 52 47 45 92 20 4D 45 41 |....".LARGE. MEA|
000005A0: 53 55 52 45 4D 45 4E 54 20 42 22 3A 8D 32 30 30 |SUREMENT B":.200|
000005B0: 30 3A 4C 32 B2 56 49 00 C7 0D EA 01 99 22 41 3D |0:L2.VI......"A=|
000005C0: 22 4C 31 3B 44 4D 24 00 D7 0D F4 01 99 22 42 3D |"L1;DM$......"B=|
000005D0: 22 4C 32 3B 44 4D 24 00 F4 0D FE 01 99 22 49 53 |"L2;DM$......"IS|
000005E0: 20 54 48 49 53 20 43 4F 52 52 45 43 54 3F 20 28 | THIS CORRECT? (|
000005F0: 59 2F 4E 29 00 11 0E 08 02 A1 41 24 3A 8B 41 24 |Y/N)......A$:.A$|
00000600: B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 35 32 |.."Y".A$.."N".52|
00000610: 30 00 21 0E 12 02 8B 41 24 B2 22 4E 22 A7 34 37 |0.!....A$."N".47|
00000620: 30 00 4A 0E 58 02 99 22 93 4E 4F 57 20 59 4F 55 |0.J.X..".NOW YOU|
00000630: 20 4D 55 53 54 20 43 41 52 45 46 55 4C 4C 59 20 | MUST CAREFULLY |
00000640: 52 45 4D 4F 56 45 20 54 48 45 00 71 0E 62 02 99 |REMOVE THE.q.b..|
00000650: 22 53 4D 41 4C 4C 20 50 49 45 43 45 20 4F 46 20 |"SMALL PIECE OF |
00000660: 54 41 50 45 20 43 4F 56 45 52 49 4E 47 20 54 48 |TAPE COVERING TH|
00000670: 45 00 9F 0E 6C 02 99 22 57 52 49 54 45 2D 50 52 |E...l.."WRITE-PR|
00000680: 4F 54 45 43 54 49 4F 4E 20 4E 4F 54 43 48 20 4F |OTECTION NOTCH O|
00000690: 4E 20 54 48 45 20 43 41 44 50 41 4B 2D 36 34 00 |N THE CADPAK-64.|
000006A0: CC 0E 7F 02 99 22 44 49 53 4B 45 54 54 45 20 41 |....."DISKETTE A|
000006B0: 4E 44 20 50 55 54 20 54 48 45 20 44 49 53 4B 45 |ND PUT THE DISKE|
000006C0: 54 54 45 20 49 4E 54 4F 20 54 48 45 00 EC 0E 8A |TTE INTO THE....|
000006D0: 02 99 22 54 48 45 20 44 49 53 4B 20 44 52 49 56 |.."THE DISK DRIV|
000006E0: 45 20 44 45 56 49 43 45 20 23 38 2E 00 16 0F 94 |E DEVICE #8.....|
000006F0: 02 99 22 54 48 45 20 4D 45 41 53 55 52 45 4D 45 |.."THE MEASUREME|
00000700: 4E 54 53 20 57 49 4C 4C 20 42 45 20 57 52 49 54 |NTS WILL BE WRIT|
00000710: 54 45 4E 20 54 4F 00 2A 0F 9E 02 99 22 54 48 45 |TEN TO.*...."THE|
00000720: 20 44 49 53 4B 45 54 54 45 2E 00 42 0F BC 02 99 | DISKETTE..B....|
00000730: 22 50 52 45 53 53 20 59 20 54 4F 20 53 54 41 52 |"PRESS Y TO STAR|
00000740: 54 22 00 57 0F C6 02 A1 41 24 3A 8B 41 24 B3 B1 |T".W....A$:.A$..|
00000750: 22 59 22 A7 37 31 30 00 64 0F CB 02 9F 31 35 2C |"Y".710.d....15,|
00000760: 38 2C 31 35 00 80 0F D0 02 9F 20 38 2C 38 2C 32 |8,15...... 8,8,2|
00000770: 2C 22 40 30 3A 53 2E 53 49 5A 45 2C 53 2C 57 22 |,"@0:S.SIZE,S,W"|
00000780: 00 96 0F DA 02 8D 39 30 30 3A 8B 45 41 B1 31 39 |......900:.EA.19|
00000790: A7 89 31 30 30 30 00 AC 0F DF 02 98 38 2C 50 44 |..1000......8,PD|
000007A0: 3A 98 38 2C 53 43 3A 98 38 2C 41 54 00 B7 0F E4 |:.8,SC:.8,AT....|
000007B0: 02 98 38 2C 44 4D 24 00 E3 0F F7 02 98 38 2C 53 |..8,DM$......8,S|
000007C0: 32 AD 33 32 30 3A 98 38 2C 53 31 AD 32 30 30 3A |2.320:.8,S1.200:|
000007D0: 98 38 2C 4C 32 AD 33 32 30 3A 98 38 2C 4C 31 AD |.8,L2.320:.8,L1.|
000007E0: 32 30 30 00 EC 0F 02 03 8D 39 30 30 00 02 10 07 |200......900....|
000007F0: 03 8D 39 30 30 3A 8B 45 41 B1 31 39 A7 89 31 30 |..900:.EA.19..10|
00000800: 30 30 00 09 10 08 03 A0 38 00 32 10 09 03 D4 3A |00......8.2....:|
00000810: 99 22 20 4E 4F 57 20 43 4F 4C 4C 45 43 54 49 4E |." NOW COLLECTIN|
00000820: 47 20 54 48 45 20 44 49 53 4B 20 28 4D 49 4E 55 |G THE DISK (MINU|
00000830: 54 45 00 43 10 0A 03 99 22 20 20 4F 52 20 54 57 |TE.C...." OR TW|
00000840: 4F 29 2E 00 54 10 0B 03 98 31 35 2C 22 56 30 22 |O)..T....15,"V0"|
00000850: 3A A0 31 35 00 67 10 16 03 99 22 93 11 11 1D 46 |:.15.g...."....F|
00000860: 49 4E 49 53 48 45 44 00 90 10 20 03 99 22 11 4E |INISHED... ..".N|
00000870: 4F 57 20 52 45 4D 4F 56 45 20 54 48 45 20 43 41 |OW REMOVE THE CA|
00000880: 44 50 41 4B 2D 36 34 20 44 49 53 4B 45 54 54 45 |DPAK-64 DISKETTE|
00000890: 00 B5 10 2A 03 99 22 46 52 4F 4D 20 54 48 45 20 |...*.."FROM THE |
000008A0: 44 52 49 56 45 20 41 4E 44 20 52 45 50 4C 41 43 |DRIVE AND REPLAC|
000008B0: 45 20 54 48 45 00 E2 10 34 03 99 22 54 41 50 45 |E THE...4.."TAPE|
000008C0: 20 4F 56 45 52 20 54 48 45 20 57 52 49 54 45 2D | OVER THE WRITE-|
000008D0: 50 52 4F 54 45 43 54 49 4F 4E 20 4E 4F 54 43 48 |PROTECTION NOTCH|
000008E0: 2E 22 00 0A 11 35 03 99 22 11 50 52 45 53 53 20 |."...5..".PRESS |
000008F0: 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 53 45 54 |ANY KEY TO RESET|
00000900: 20 43 4F 4D 50 55 54 45 52 2E 00 37 11 36 03 99 | COMPUTER..7.6..|
00000910: 22 11 53 45 45 20 49 4E 53 54 52 55 43 54 49 4F |".SEE INSTRUCTIO|
00000920: 4E 53 20 46 4F 52 20 4C 4F 41 44 49 4E 47 20 43 |NS FOR LOADING C|
00000930: 41 44 50 41 4B 2E 22 00 4A 11 37 03 A1 41 24 3A |ADPAK.".J.7..A$:|
00000940: 8B 41 24 B2 22 22 A7 38 32 33 00 55 11 38 03 9E |.A$."".823.U.8..|
00000950: 36 34 37 33 38 00 5B 11 3E 03 80 00 73 11 84 03 |64738.[.>...s...|
00000960: 84 31 35 2C 45 41 24 2C 45 42 24 2C 45 43 24 2C |.15,EA$,EB$,EC$,|
00000970: 45 44 24 00 83 11 8E 03 45 41 B2 C5 28 45 41 24 |ED$.....EA..(EA$|
00000980: 29 3A 8E 00 96 11 E8 03 99 22 44 49 53 4B 20 50 |):......."DISK P|
00000990: 52 4F 42 4C 45 4D 00 AB 11 F2 03 99 45 41 24 3B |ROBLEM......EA$;|
000009A0: 45 42 24 3B 45 43 24 3B 45 44 24 00 D0 11 FC 03 |EB$;EC$;ED$.....|
000009B0: 99 22 43 4F 52 52 45 43 54 20 50 52 4F 42 4C 45 |."CORRECT PROBLE|
000009C0: 4D 20 41 4E 44 20 50 52 45 53 53 20 59 20 54 4F |M AND PRESS Y TO|
000009D0: 00 E2 11 06 04 99 22 52 45 54 52 59 20 44 49 53 |......"RETRY DIS|
000009E0: 4B 22 00 F9 11 10 04 A1 20 41 24 3A 8B 41 24 B3 |K"...... A$:.A$.|
000009F0: B1 22 59 22 A7 31 30 34 30 00 06 12 1A 04 A0 31 |."Y".1040......1|
00000A00: 35 3A 89 37 31 35 00 23 12 D0 07 8F 20 49 4E 50 |5:.715.#.... INP|
00000A10: 55 54 20 46 4F 52 20 49 4E 43 48 45 53 20 4F 52 |UT FOR INCHES OR|
00000A20: 20 43 4D 00 36 12 DA 07 8B 44 4D 24 B2 22 49 4E | CM.6....DM$."IN|
00000A30: 22 A7 33 30 30 30 00 5E 12 E4 07 56 49 B2 30 3A |".3000.^...VI.0:|
00000A40: 85 22 43 45 4E 54 49 4D 45 54 45 52 53 20 49 4E |."CENTIMETERS IN|
00000A50: 20 44 45 43 49 4D 41 4C 22 3B 56 49 3A 8E 00 7A | DECIMAL";VI:..z|
00000A60: 12 B8 0B 57 49 B2 30 3A 85 22 57 48 4F 4C 45 20 |...WI.0:."WHOLE |
00000A70: 49 4E 43 48 45 53 22 3B 57 49 00 9B 12 C2 0B 46 |INCHES";WI.....F|
00000A80: 52 B2 30 3A 85 22 46 52 41 43 54 49 4F 4E 20 49 |R.0:."FRACTION I|
00000A90: 4E 20 33 32 4E 44 53 22 3B 46 52 00 CA 12 CC 0B |N 32NDS";FR.....|
00000AA0: 99 22 11 59 4F 55 20 45 4E 54 45 52 45 44 22 57 |.".YOU ENTERED"W|
00000AB0: 49 3B 46 52 22 9D 2F 33 32 22 3A 56 49 B2 57 49 |I;FR"./32":VI.WI|
00000AC0: AA 46 52 AD 33 32 3A 99 3A 8E 00 DB 12 17 F6 90 |.FR.32:.:.......|
00000AD0: 3A 80 20 4F 46 20 42 41 53 49 43 00 ED 12 18 F6 |:. OF BASIC.....|
00000AE0: 97 36 36 39 2C C2 28 36 36 39 29 AA 31 00 0B 13 |.669,.(669).1...|
00000AF0: 1A F6 91 C2 28 36 36 39 29 89 36 33 30 30 35 2C |....(669).63005,|
00000B00: 36 33 30 31 35 2C 36 33 30 32 30 00 26 13 1D F6 |63015,63020.&...|
00000B10: 99 22 93 11 11 22 2C 22 20 20 05 12 43 41 44 50 |."..."," ..CADP|
00000B20: 41 4B 2D 36 34 22 00 5D 13 1E F6 99 2C 22 11 53 |AK-64".]....,".S|
00000B30: 45 4C 45 43 54 20 50 52 49 4E 54 45 52 3A 22 3A |ELECT PRINTER:":|
00000B40: 99 2C 22 11 20 31 3D 20 45 50 53 4F 4E 22 3A 99 |.,". 1= EPSON":.|
00000B50: 2C 22 20 32 3D 20 4F 4B 49 44 41 54 41 00 8B 13 |," 2= OKIDATA...|
00000B60: 1F F6 99 2C 22 20 33 3D 20 43 42 4D 20 31 35 32 |...," 3= CBM 152|
00000B70: 35 2F 4D 50 53 38 30 31 22 3A 99 2C 22 20 34 3D |5/MPS801":.," 4=|
00000B80: 20 50 52 4F 57 52 49 54 45 52 22 00 B5 13 20 F6 | PROWRITER"... .|
00000B90: 99 2C 22 20 35 3D 20 43 42 4D 20 31 35 32 36 22 |.," 5= CBM 1526"|
00000BA0: 3A 99 2C 22 20 36 3D 20 53 49 45 4D 45 4E 53 20 |:.," 6= SIEMENS |
00000BB0: 50 54 38 38 22 00 E8 13 21 F6 99 2C 22 20 37 3D |PT88"...!..," 7=|
00000BC0: 20 4F 4B 49 4D 41 54 45 20 31 30 20 42 2F 57 22 | OKIMATE 10 B/W"|
00000BD0: 3A 99 2C 22 20 38 3D 20 4F 4B 49 4D 41 54 45 20 |:.," 8= OKIMATE |
00000BE0: 31 30 20 43 4F 4C 4F 52 00 26 14 22 F6 99 2C 22 |10 COLOR.&."..,"|
00000BF0: 20 39 3D 20 50 52 4F 57 52 49 54 45 52 20 43 4F | 9= PROWRITER CO|
00000C00: 4C 4F 52 22 3A 99 2C 22 31 30 3D 20 45 50 53 4F |LOR":.,"10= EPSO|
00000C10: 4E 20 55 53 45 52 20 50 4F 52 54 22 3A 99 2C 22 |N USER PORT":.,"|
00000C20: 11 22 3B 3A 85 41 00 45 14 23 F6 8B 41 B3 31 31 |.";:.A.E.#..A.11|
00000C30: AF 41 B1 30 A7 93 22 56 42 50 52 22 AA C4 28 41 |.A.0.."VBPR"..(A|
00000C40: 29 2C 38 2C 31 00 50 14 24 F6 89 36 33 30 30 35 |),8,1.P.$..63005|
00000C50: 00 62 14 27 F6 93 22 56 42 58 58 58 58 22 2C 38 |.b.'.."VBXXXX",8|
00000C60: 2C 31 00 80 14 2C F6 97 33 30 35 38 31 2C 32 20 |,1...,..30581,2 |
00000C70: 20 3A 8F 20 42 41 53 49 43 20 42 4F 52 44 45 52 | :. BASIC BORDER|
00000C80: 00 9E 14 2E F6 97 33 30 35 38 32 2C 30 20 20 3A |......30582,0 :|
00000C90: 8F 20 42 41 53 49 43 20 53 43 52 45 45 4E 00 BC |. BASIC SCREEN..|
00000CA0: 14 2F F6 97 33 30 35 34 38 2C 37 20 20 3A 8F 20 |./..30548,7 :. |
00000CB0: 42 41 53 49 43 20 43 55 52 53 4F 52 00 DD 14 30 |BASIC CURSOR...0|
00000CC0: F6 97 33 30 35 37 33 2C 32 31 20 3A 8F 20 32 31 |..30573,21 :. 21|
00000CD0: 3D 55 50 20 43 41 53 45 3A 32 33 3D 4C 00 FA 14 |=UP CASE:23=L...|
00000CE0: 31 F6 9E 33 30 34 36 37 3A 9C 3A 89 31 3A 8F 20 |1..30467:.:.1:. |
00000CF0: 49 4E 49 54 20 56 42 2D 36 34 00 00 00 |INIT VB-64... |
.......B(669)..3.63000.+.... START OF BA
SIC.Z...."......CADPAK-64 PRINTOUT SIZIN
G PROGRAM"......"..THIS PROGRAM WILL PRI
NT OUT A SMALL......".AND A LARGE BOX ON
YOUR PRINTER. YOU...(.." WILL HAVE TO M
EASURE THE SIZE OF THE...2.." BOXES AND
KEY THE SIZE INFORMATION.0.<.." INTO THE
COMPUTER SO A PERMANENT.Z.F.." RECORD O
F THE SIZES CAN BE WRITTEN.Y.P.." ON THE
CADPAK DISKETTE....D.."....PRESS ANY KE
Y TO START"...E..A$:.A$."".101.X.F.."..D
EVICE NUMBER OF YOUR PRINTER";PD...G..".
IF YOUR PRINTER IS A CBM 1525, 1526.%.H.
." MPS 801 OR OKIMATE 10, THE.M.I.." VAL
UES FOR SECONDARY ADDRESS AND.L.J.." TRA
NSLATE DON'T MATTER....Q.."SECONDARY ADD
RESS FOR YOUR PRINTER";SC.D.R.."ASCII TR
ANSLATE FOR YOUR PRINTER";AT.M.X..1,7...
..N 0,0,319,199,2.....X2,0,40,2,"_ MEASU
REMENT A.#...X2,50,195,2,"^ MEASUREMENT
B ^.@. .T:." PRINTING SMALL SIZE.O....4,
0,SC,AT.L...T:." PRINTING LARGE SIZE.{..
..4,1,SC,AT...H.T:.". ..NOW SELECT CENTI
METERS OR INCHES.F.R.."AS YOUR MEASURING
UNIT".Z...."PRESS C OR I"......A$:. A$.
."C". A$.."I".230.....DM$."IN":.A$."C".D
M$."CM".>....".NOW MEASURE THE LENGTHS
OF THE.`...."BOX ON THE .SMALL. PRINTOUT
......".SMALL. MEASUREMENT A":.2000:S1.V
I......".SMALL. MEASUREMENT B":.2000:S2.
VI.B.".."A="S1;DM$.R.,.."B="S2;DM$...6..
"IS THIS CORRECT? (Y/N)...@..A$:.A$.."Y"
.A$.."N".320...J..A$."N".270.C.B..".NOW
MEASURE THE LENGTHS OF THE.E.L.."BOX ON
THE .LARGE. PRINTOUT...V..".LARGE. MEAS
UREMENT A":.2000:L1.VI......".LARGE. MEA
SUREMENT B":.2000:L2.VI.G...."A="L1;DM$.
W...."B="L2;DM$......"IS THIS CORRECT? (
Y/N)......A$:.A$.."Y".A$.."N".520.!....A
$."N".470.J.X..".NOW YOU MUST CAREFULLY
REMOVE THE.Q.B.."SMALL PIECE OF TAPE COV
ERING THE...L.."WRITE-PROTECTION NOTCH O
N THE CADPAK-64.L..."DISKETTE AND PUT T
HE DISKETTE INTO THE......"THE DISK DRIV
E DEVICE #8......."THE MEASUREMENTS WILL
BE WRITTEN TO.*...."THE DISKETTE..B....
"PRESS Y TO START".W.F..A$:.A$.."Y".710.
D.K..15,8,15...P.. 8,8,2,"@0:S.SIZE,S,W"
...Z..900:.EA.19..1000......8,PD:.8,SC:.
8,AT......8,DM$......8,S2.320:.8,S1.200:
.8,L2.320:.8,L1.200......900......900:.E
A.19..1000..... 8.2...T:." NOW COLLECTIN
G THE DISK (MINUTE.C...." OR TWO)..T...
.15,"V0": 15.G...."....FINISHED... ..".N
OW REMOVE THE CADPAK-64 DISKETTE...*.."F
ROM THE DRIVE AND REPLACE THE...4.."TAPE
OVER THE WRITE-PROTECTION NOTCH."...5..
".PRESS ANY KEY TO RESET COMPUTER..7.6..
".SEE INSTRUCTIONS FOR LOADING CADPAK.".
J.7..A$:.A$."".823.U.8..64738.[.>...S...
.15,EA$,EB$,EC$,ED$.....EA.E(EA$):......
."DISK PROBLEM......EA$;EB$;EC$;ED$.P...
."CORRECT PROBLEM AND PRESS Y TO......"R
ETRY DISK"...... A$:.A$.."Y".1040..... 1
5:.715.#.P.. INPUT FOR INCHES OR CM.6.Z.
.DM$."IN".3000.^...VI.0:."CENTIMETERS IN
DECIMAL";VI:..Z...WI.0:."WHOLE INCHES";
WI...B.FR.0:."FRACTION IN 32NDS";FR.J.L.
.".YOU ENTERED"WI;FR"./32":VI.WI.FR.32:.
:.......:. OF BASIC......669,B(669).1...
...B(669).63005,63015,63020.&...."...","
..CADPAK-64".]....,".SELECT PRINTER:":
.,". 1= EPSON":.," 2= OKIDATA......," 3=
CBM 1525/MPS801":.," 4= PROWRITER"... .
.," 5= CBM 1526":.," 6= SIEMENS PT88"...
!..," 7= OKIMATE 10 B/W":.," 8= OKIMATE
10 COLOR.&."..," 9= PROWRITER COLOR":.,"
10= EPSON USER PORT":.,".";:.A.E.#..A.11
.A.0.."VBPR".D(A),8,1.P.$..63005.B.'.."V
BXXXX",8,1...,..30581,2 :. BASIC BORDER
......30582,0 :. BASIC SCREEN.../..3054
8,7 :. BASIC CURSOR...0..30573,21 :. 21
=UP CASE:23=L...1..30467:.:.1:. INIT VB-
64...
> CLICK IMAGE PREVIEW FOR FULL MODAL