WEIGHT WATCHER.C
FILE INFORMATION
FILENAME(S): WEIGHT WATCHER.C
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 01:08:41
APPEARS ON: 2 disk(s)
FILE HASH
0b3a7c2e575fbf1b801573d2bffba1b1783422565c8e017d7d68fb4a631e1aa9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A NWENDER | WEIGHT WATCHER.C | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | WEIGHT WATCHER.C | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 01 00 9C 3A 97 35 33 32 37 32 2C 32 |..A....:.53272,2|
00000010: 31 3A 97 35 33 32 38 30 2C 31 3A 97 35 33 32 38 |1:.53280,1:.5328|
00000020: 31 2C 31 3A 43 52 24 B2 C7 28 31 33 29 3A 99 22 |1,1:CR$..(13):."|
00000030: 90 22 3A 8F 43 36 34 20 4D 4F 44 53 20 31 39 38 |.":.C64 MODS 198|
00000040: 33 00 73 08 02 00 8F 20 57 45 49 47 48 54 20 57 |3.s.... WEIGHT W|
00000050: 41 54 43 48 45 52 20 42 59 20 4D 2E 20 43 52 49 |ATCHER BY M. CRI|
00000060: 54 43 48 46 49 45 4C 44 20 26 20 54 2E 20 44 57 |TCHFIELD & T. DW|
00000070: 59 45 52 00 99 08 03 00 8F 20 46 52 4F 4D 20 54 |YER...... FROM T|
00000080: 48 45 20 4E 4F 56 45 4D 42 45 52 20 31 39 37 39 |HE NOVEMBER 1979|
00000090: 20 49 53 53 55 45 20 4F 46 00 C1 08 04 00 8F 20 | ISSUE OF...... |
000000A0: 27 4B 49 4C 4F 42 41 55 44 27 20 4D 41 47 41 5A |'KILOBAUD' MAGAZ|
000000B0: 49 4E 45 20 20 50 41 47 45 20 31 35 36 2D 31 35 |INE PAGE 156-15|
000000C0: 37 00 DF 08 05 00 8F 20 4D 4F 44 49 46 49 45 44 |7...... MODIFIED|
000000D0: 20 46 4F 52 20 54 48 45 20 50 45 54 20 42 59 00 | FOR THE PET BY.|
000000E0: F5 08 06 00 8F 20 52 2E 20 45 2E 20 48 55 54 43 |..... R. E. HUTC|
000000F0: 48 49 4E 47 53 00 44 09 09 00 8F 20 49 4E 50 55 |HINGS.D.... INPU|
00000100: 54 20 52 4F 55 54 49 4E 45 20 55 53 45 44 20 57 |T ROUTINE USED W|
00000110: 49 54 48 20 50 45 52 4D 49 53 53 49 4F 4E 20 46 |ITH PERMISSION F|
00000120: 52 4F 4D 20 43 55 52 53 4F 52 2C 20 42 4F 58 35 |ROM CURSOR, BOX5|
00000130: 35 30 2C 20 47 4F 4C 45 54 41 2C 20 43 41 20 39 |50, GOLETA, CA 9|
00000140: 33 30 31 37 00 4E 09 0F 00 8D 33 30 30 30 00 75 |3017.N....3000.u|
00000150: 09 12 00 99 22 93 20 20 20 20 20 20 12 57 45 49 |....". .WEI|
00000160: 47 48 54 20 57 41 54 43 48 45 52 27 53 20 52 45 |GHT WATCHER'S RE|
00000170: 43 4F 52 44 22 00 97 09 14 00 99 3A 99 22 57 45 |CORD"......:."WE|
00000180: 45 4B 22 2C 22 57 45 49 47 48 54 22 2C 22 57 54 |EK","WEIGHT","WT|
00000190: 2E 20 4C 4F 53 53 22 00 A3 09 1E 00 53 B2 30 3A |. LOSS".....S.0:|
000001A0: 44 B2 30 00 C6 09 23 00 8F 2D 2D 2D 2D 2D 43 41 |D.0...#..-----CA|
000001B0: 4C 43 2E 20 26 20 50 52 49 4E 54 20 54 41 42 4C |LC. & PRINT TABL|
000001C0: 45 2D 2D 2D 2D 2D 00 CD 09 28 00 87 47 00 D5 09 |E-----...(..G...|
000001D0: 2D 00 49 B2 30 00 DF 09 32 00 49 B2 49 AA 31 00 |-.I.0...2.I.I.1.|
000001E0: E7 09 3C 00 87 20 57 00 F4 09 46 00 8B 49 B2 31 |..<.. W...F..I.1|
000001F0: A7 31 31 30 00 01 0A 50 00 8B 57 B3 30 A7 31 34 |.110...P..W.0.14|
00000200: 30 00 0C 0A 5A 00 44 B2 57 31 AB 57 00 16 0A 64 |0...Z.D.W1.W...d|
00000210: 00 53 B2 53 AA 44 00 21 0A 6E 00 99 49 2C 57 2C |.S.S.D.!.n..I,W,|
00000220: 44 00 2A 0A 78 00 57 31 B2 57 00 3A 0A 7D 00 8B |D.*.x.W1.W.:.}..|
00000230: 49 B2 31 36 A7 89 38 30 30 30 00 4A 0A 7E 00 8B |I.16..8000.J.~..|
00000240: 49 B2 33 32 A7 89 38 30 30 30 00 5A 0A 7F 00 8B |I.32..8000.Z....|
00000250: 49 B2 34 38 A7 89 38 30 30 30 00 6A 0A 80 00 8B |I.48..8000.j....|
00000260: 49 B2 36 34 A7 89 38 30 30 30 00 7A 0A 81 00 8B |I.64..8000.z....|
00000270: 49 B2 38 30 A7 89 38 30 30 30 00 82 0A 82 00 89 |I.80..8000......|
00000280: 35 30 00 99 0A 87 00 4C B2 B5 28 31 30 30 AC 28 |50.....L..(100.(|
00000290: 53 AD 28 49 AB 31 29 29 29 00 B0 0A 8C 00 4C B2 |S.(I.1))).....L.|
000002A0: B5 28 31 30 30 AC 28 53 AD 28 49 AB 31 29 29 29 |.(100.(S.(I.1)))|
000002B0: 00 D9 0A 91 00 99 3A 99 22 41 56 47 2E 20 57 45 |......:."AVG. WE|
000002C0: 45 4B 4C 59 20 4C 4F 53 53 20 20 22 3B 4C AD 31 |EKLY LOSS ";L.1|
000002D0: 30 30 3B 22 4C 42 53 2E 22 00 03 0B 96 00 99 22 |00;"LBS."......"|
000002E0: 4C 42 53 2E 20 54 4F 20 47 4F 41 4C 20 20 22 3B |LBS. TO GOAL ";|
000002F0: 57 31 AB 47 3B 22 20 20 20 12 47 4F 41 4C 20 3D |W1.G;" .GOAL =|
00000300: 22 3B 47 00 27 0B A0 00 99 22 54 4F 54 41 4C 20 |";G.'...."TOTAL |
00000310: 50 4F 55 4E 44 53 20 4C 4F 53 54 20 53 4F 20 46 |POUNDS LOST SO F|
00000320: 41 52 20 20 22 3B 53 00 64 0B A5 00 99 22 13 20 |AR ";S.d....". |
00000330: 20 20 20 11 11 11 11 11 11 11 11 11 11 11 11 11 | .............|
00000340: 11 11 11 11 11 11 11 11 11 11 50 52 45 53 53 20 |..........PRESS |
00000350: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
00000360: 4E 55 45 22 00 78 0B A7 00 A1 41 24 3A 8B 41 24 |NUE".x....A$:.A$|
00000370: B2 22 22 A7 89 31 36 37 00 A4 0B AA 00 99 22 93 |.""..167......".|
00000380: 20 20 20 20 20 20 20 20 20 20 12 57 45 49 47 48 | .WEIGH|
00000390: 54 20 57 41 54 43 48 45 52 27 53 20 47 52 41 50 |T WATCHER'S GRAP|
000003A0: 48 22 3A 99 00 CB 0B AF 00 8F 2D 2D 2D 2D 2D 53 |H":.......-----S|
000003B0: 54 41 4E 44 41 52 44 20 53 43 41 4C 45 20 28 31 |TANDARD SCALE (1|
000003C0: 31 30 2D 31 37 30 29 2D 2D 2D 2D 00 DB 0B B4 00 |10-170)----.....|
000003D0: 41 B2 31 31 30 3A 42 B2 31 37 30 00 E4 0B BE 00 |A.110:B.170.....|
000003E0: 8D 33 31 35 00 09 0C FA 00 8F 2D 2D 2D 2D 2D 43 |.315......-----C|
000003F0: 55 53 54 4F 4D 49 5A 45 44 20 53 43 41 4C 45 2D |USTOMIZED SCALE-|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4C 0C 04 01 99 22 |---------.L...."|
00000410: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000420: 11 11 11 11 20 20 20 20 20 57 41 4E 54 20 41 20 |.... WANT A |
00000430: 43 55 53 54 4F 4D 49 5A 45 44 20 47 52 41 50 48 |CUSTOMIZED GRAPH|
00000440: 20 3F 20 22 3B 3A 8D 36 30 30 30 30 00 64 0C 0E | ? ";:.60000.d..|
00000450: 01 8B C8 28 49 4E 24 2C 31 29 B3 B1 22 59 22 A7 |...(IN$,1).."Y".|
00000460: 32 30 30 30 00 8C 0C 18 01 99 22 93 57 48 41 54 |2000......".WHAT|
00000470: 20 49 53 20 54 48 45 20 53 4D 41 4C 4C 45 53 54 | IS THE SMALLEST|
00000480: 20 4E 55 4D 42 45 52 20 3F 20 22 3B 00 A0 0C 22 | NUMBER ? ";..."|
00000490: 01 8D 36 30 30 30 30 3A 41 B2 C5 28 49 4E 24 29 |..60000:A..(IN$)|
000004A0: 00 C7 0C 2C 01 99 22 57 48 41 54 20 49 53 20 54 |...,.."WHAT IS T|
000004B0: 48 45 20 4C 41 52 47 45 53 54 20 4E 55 4D 42 45 |HE LARGEST NUMBE|
000004C0: 52 20 3F 20 20 22 3B 00 DB 0C 2D 01 8D 36 30 30 |R ? ";...-..600|
000004D0: 30 30 3A 42 B2 C5 28 49 4E 24 29 00 F4 0C 2E 01 |00:B..(IN$).....|
000004E0: 99 22 93 22 3A 8B 28 42 AB 41 29 B1 36 30 A7 89 |.".":.(B.A).60..|
000004F0: 37 30 30 30 00 04 0D 2F 01 8B 42 B3 B2 41 A7 89 |7000.../..B..A..|
00000500: 37 35 30 30 00 0F 0D 30 01 99 3A 8D 33 31 35 00 |7500...0..:.315.|
00000510: 55 0D 31 01 99 22 13 11 11 11 11 11 11 11 11 11 |U.1.."..........|
00000520: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... |
00000530: 20 20 20 20 20 20 20 57 41 4E 54 20 41 4E 4F 54 | WANT ANOT|
00000540: 48 45 52 20 47 52 41 50 48 20 3F 20 22 3B 3A 8D |HER GRAPH ? ";:.|
00000550: 36 30 30 30 30 00 68 0D 33 01 8B 49 4E 24 B2 22 |60000.h.3..IN$."|
00000560: 59 45 53 22 A7 32 38 30 00 79 0D 34 01 8B 49 4E |YES".280.y.4..IN|
00000570: 24 B2 22 59 22 A7 32 38 30 00 83 0D 35 01 89 32 |$."Y".280...5..2|
00000580: 30 30 30 00 A3 0D 3B 01 8F 2D 2D 2D 2D 2D 47 52 |000...;..-----GR|
00000590: 41 50 48 20 53 55 42 52 4F 55 54 49 4E 45 2D 2D |APH SUBROUTINE--|
000005A0: 2D 2D 2D 00 AB 0D 3C 01 58 B2 30 00 CB 0D 3D 01 |---...<.X.0...=.|
000005B0: 8F 2D 2D 2D 2D 2D 48 45 41 44 49 4E 47 20 28 4C |.-----HEADING (L|
000005C0: 49 4E 45 20 31 29 2D 2D 2D 2D 2D 00 DD 0D 40 01 |INE 1)-----...@.|
000005D0: 8B 42 B2 30 A7 42 B2 2E 30 30 30 30 31 00 EB 0D |.B.0.B..00001...|
000005E0: 4A 01 81 49 B2 41 A4 42 A9 31 30 00 07 0E 54 01 |J..I.A.B.10...T.|
000005F0: 99 A3 58 AC 31 30 AC 28 33 30 AD 28 42 AB 41 29 |..X.10.(30.(B.A)|
00000600: 29 AA 35 29 3B 49 3B 00 11 0E 5E 01 58 B2 58 AA |).5);I;...^.X.X.|
00000610: 31 00 18 0E 68 01 82 49 00 1E 0E 72 01 99 00 3E |1...h..I...r...>|
00000620: 0E 77 01 8F 2D 2D 2D 2D 2D 48 45 41 44 49 4E 47 |.w..-----HEADING|
00000630: 20 28 4C 49 4E 45 20 32 29 2D 2D 2D 2D 2D 00 6D | (LINE 2)-----.m|
00000640: 0E 78 01 99 22 20 20 20 20 20 C0 C0 C0 C0 C0 C0 |.x.." ......|
00000650: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000660: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 91 22 00 7B 0E |............".{.|
00000670: 7C 01 99 22 20 20 20 20 B0 22 3B 00 8A 0E 86 01 ||.." .";.....|
00000680: 81 49 B2 30 A4 28 58 AB 31 29 00 A8 0E 90 01 99 |.I.0.(X.1)......|
00000690: A3 49 AC 33 30 AC 28 31 30 AD 28 42 AB 41 29 29 |.I.30.(10.(B.A))|
000006A0: AA 37 29 3B 22 B2 22 3B 00 AF 0E 9A 01 82 49 00 |.7);".";......I.|
000006B0: B5 0E A4 01 99 00 BB 0E A9 01 8C 00 C2 0E AA 01 |................|
000006C0: 87 47 00 DD 0E AC 01 8F 2D 2D 2D 2D 2D 50 52 49 |.G......-----PRI|
000006D0: 4E 54 20 47 52 41 50 48 2D 2D 2D 2D 2D 00 E5 0E |NT GRAPH-----...|
000006E0: AD 01 49 B2 30 00 EF 0E AE 01 49 B2 49 AA 31 00 |..I.0.....I.I.1.|
000006F0: F6 0E B8 01 87 57 00 03 0F C2 01 8B 57 B3 30 A7 |.....W......W.0.|
00000700: 34 38 30 00 30 0F C6 01 8B 57 B3 41 A7 99 49 3B |480.0....W.A..I;|
00000710: A3 34 29 3B 22 AB 22 3B A3 31 35 29 22 12 4F 55 |.4);".";.15)".OU|
00000720: 54 20 4F 46 20 52 41 4E 47 45 22 3A 89 34 36 35 |T OF RANGE":.465|
00000730: 00 5D 0F C7 01 8B 57 B1 42 A7 99 49 3B A3 34 29 |.]....W.B..I;.4)|
00000740: 3B 22 AB 22 3B A3 31 35 29 22 12 4F 55 54 20 4F |;".";.15)".OUT O|
00000750: 46 20 52 41 4E 47 45 22 3A 89 34 36 35 00 85 0F |F RANGE":.465...|
00000760: CC 01 99 49 3B A3 34 29 3B 22 AB 22 3B A3 28 57 |...I;.4);".";.(W|
00000770: AB 41 29 AC 28 33 30 AD 28 42 AB 41 29 29 AA 36 |.A).(30.(B.A)).6|
00000780: 29 3B 22 2A 22 00 94 0F D1 01 8B 49 B2 31 36 89 |);"*"......I.16.|
00000790: 38 35 30 30 00 A3 0F D2 01 8B 49 B2 33 32 89 38 |8500......I.32.8|
000007A0: 35 30 30 00 B2 0F D3 01 8B 49 B2 34 38 89 38 35 |500......I.48.85|
000007B0: 30 30 00 C1 0F D4 01 8B 49 B2 36 34 89 38 35 30 |00......I.64.850|
000007C0: 30 00 D0 0F D5 01 8B 49 B2 38 30 89 38 35 30 30 |0......I.80.8500|
000007D0: 00 D9 0F D6 01 89 34 33 30 00 DF 0F E0 01 8E 00 |......430.......|
000007E0: 05 10 E4 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********|
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000800: 2A 2A 2A 2A 2A 00 20 10 E5 03 8F 20 20 20 20 20 |*****. .... |
00000810: 49 4E 53 45 52 54 20 44 41 54 41 20 48 45 52 45 |INSERT DATA HERE|
00000820: 00 26 10 E6 03 8F 00 4C 10 E7 03 8F 2A 2A 2A 2A |.&.....L....****|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 86 10 E8 |************....|
00000850: 03 83 31 32 32 2C 31 35 33 2C 31 34 39 2E 35 2C |..122,153,149.5,|
00000860: 31 34 37 2E 35 2C 31 34 37 2E 35 2C 31 34 35 2C |147.5,147.5,145,|
00000870: 31 34 34 2E 35 2C 31 34 31 2C 31 34 31 2E 35 2C |144.5,141,141.5,|
00000880: 31 33 39 2E 32 35 00 CF 10 F2 03 83 31 33 39 2E |139.25......139.|
00000890: 35 2C 31 33 37 2E 35 2C 31 33 38 2E 35 2C 31 33 |5,137.5,138.5,13|
000008A0: 37 2C 31 33 36 2E 35 2C 31 33 36 2C 31 33 35 2C |7,136.5,136,135,|
000008B0: 31 33 35 2C 31 33 33 2C 31 33 34 2C 31 33 33 2C |135,133,134,133,|
000008C0: 31 33 32 2C 31 33 30 2C 31 32 39 2C 31 33 34 00 |132,130,129,134.|
000008D0: D8 10 FC 03 83 20 2D 31 00 FD 10 CD 07 8F 2A 2A |..... -1......**|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 11 |*************...|
00000900: CE 07 8F 00 2F 11 D0 07 99 22 93 11 11 11 11 11 |..../...."......|
00000910: 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000920: 20 12 4B 45 45 50 20 44 49 45 54 49 4E 47 22 00 | .KEEP DIETING".|
00000930: 38 11 DA 07 54 B2 54 49 00 4B 11 E4 07 8B 54 49 |8...T.TI.K....TI|
00000940: AB 54 B3 31 38 30 A7 32 30 32 30 00 56 11 EE 07 |.T.180.2020.V...|
00000950: 99 22 93 22 3A 80 00 87 11 B8 0B 99 22 93 11 11 |.".":......."...|
00000960: 11 11 11 11 11 11 11 20 20 20 20 20 57 41 4E 54 |....... WANT|
00000970: 20 44 49 52 45 43 54 49 4F 4E 53 20 3F 20 22 3B | DIRECTIONS ? ";|
00000980: 3A 8D 36 30 30 30 30 00 9D 11 C2 0B 8B C8 28 49 |:.60000.......(I|
00000990: 4E 24 2C 31 29 B3 B1 22 59 22 A7 31 38 00 CB 11 |N$,1).."Y".18...|
000009A0: CC 0B 99 22 93 57 45 49 47 48 54 20 57 41 54 43 |...".WEIGHT WATC|
000009B0: 48 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 |HER |
000009C0: 20 20 20 20 20 50 41 47 45 20 31 00 F9 11 D6 0B | PAGE 1.....|
000009D0: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
000009E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000009F0: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 28 12 E0 0B 99 22 |--------".(...."|
00000A00: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 45 4E 41 |THIS PROGRAM ENA|
00000A10: 42 4C 45 53 20 59 4F 55 20 54 4F 20 4B 45 45 50 |BLES YOU TO KEEP|
00000A20: 20 54 52 41 43 4B 11 22 00 54 12 EA 0B 99 22 4F | TRACK.".T...."O|
00000A30: 46 20 59 4F 55 52 20 44 49 45 54 49 4E 47 20 45 |F YOUR DIETING E|
00000A40: 46 46 4F 52 54 53 20 41 4E 44 20 4D 41 4B 45 20 |FFORTS AND MAKE |
00000A50: 41 20 11 22 00 7F 12 F4 0B 99 22 43 48 41 52 54 |A ."......"CHART|
00000A60: 20 4F 46 20 59 4F 55 52 20 50 52 4F 47 52 45 53 | OF YOUR PROGRES|
00000A70: 53 20 28 4F 52 20 4C 41 43 4B 20 4F 46 11 22 00 |S (OR LACK OF.".|
00000A80: AB 12 FE 0B 99 22 50 52 4F 47 52 45 53 53 29 2E |....."PROGRESS).|
00000A90: 20 20 41 20 53 41 4D 50 4C 45 20 44 49 53 50 4C | A SAMPLE DISPL|
00000AA0: 41 59 20 49 53 20 49 4E 2D 11 22 00 D8 12 08 0C |AY IS IN-.".....|
00000AB0: 99 22 43 4C 55 44 45 44 2E 20 20 59 4F 55 20 43 |."CLUDED. YOU C|
00000AC0: 41 4E 20 43 55 53 54 4F 4D 49 5A 45 20 54 48 45 |AN CUSTOMIZE THE|
00000AD0: 20 43 48 41 52 54 11 22 00 07 13 12 0C 99 22 53 | CHART."......"S|
00000AE0: 43 41 4C 45 20 54 4F 20 45 58 50 41 4E 44 20 4F |CALE TO EXPAND O|
00000AF0: 52 20 43 4F 4E 54 52 41 43 54 20 49 54 2E 20 20 |R CONTRACT IT. |
00000B00: 4A 55 53 54 20 11 22 00 36 13 1C 0C 99 22 46 4F |JUST .".6...."FO|
00000B10: 4C 4C 4F 57 20 54 48 45 20 44 49 52 45 43 54 49 |LLOW THE DIRECTI|
00000B20: 4F 4E 53 20 49 4E 20 54 48 45 20 20 50 52 4F 47 |ONS IN THE PROG|
00000B30: 52 41 4D 2E 11 22 00 64 13 26 0C 99 22 50 55 54 |RAM..".d.&.."PUT|
00000B40: 20 54 48 45 20 52 45 53 55 4C 54 53 20 4F 46 20 | THE RESULTS OF |
00000B50: 59 4F 55 52 20 57 45 45 4B 4C 59 20 57 45 49 47 |YOUR WEEKLY WEIG|
00000B60: 48 2D 11 22 00 8E 13 30 0C 99 22 49 4E 20 41 53 |H-."...0.."IN AS|
00000B70: 20 50 41 52 54 20 4F 46 20 54 48 45 20 44 41 54 | PART OF THE DAT|
00000B80: 41 20 53 54 41 54 45 4D 45 4E 54 53 11 22 00 AC |A STATEMENTS."..|
00000B90: 13 3A 0C 99 22 53 54 41 52 54 49 4E 47 20 41 54 |.:.."STARTING AT|
00000BA0: 20 4C 49 4E 45 20 31 30 30 30 2E 22 00 B6 13 3F | LINE 1000."...?|
00000BB0: 0C 8D 34 30 30 30 00 E6 13 44 0C 99 22 59 4F 55 |..4000...D.."YOU|
00000BC0: 52 20 47 4F 41 4C 20 4D 55 53 54 20 42 45 20 54 |R GOAL MUST BE T|
00000BD0: 48 45 20 46 49 52 53 54 20 44 41 54 41 20 45 4E |HE FIRST DATA EN|
00000BE0: 54 52 59 20 11 22 00 11 14 4E 0C 99 22 57 49 54 |TRY ."...N.."WIT|
00000BF0: 48 20 2D 31 20 41 53 20 54 48 45 20 46 49 4E 41 |H -1 AS THE FINA|
00000C00: 4C 20 44 41 54 41 20 45 4E 54 52 59 2E 11 11 11 |L DATA ENTRY....|
00000C10: 22 00 3A 14 58 0C 99 22 47 4F 4F 44 20 4C 55 43 |".:.X.."GOOD LUC|
00000C20: 4B 20 49 4E 20 52 45 41 43 48 49 4E 47 20 59 4F |K IN REACHING YO|
00000C30: 55 52 20 47 4F 41 4C 2E 11 22 00 5C 14 5D 0C 99 |UR GOAL..".\.]..|
00000C40: 22 59 4F 55 20 4C 4F 4F 4B 20 54 48 49 4E 4E 45 |"YOU LOOK THINNE|
00000C50: 52 20 41 4C 52 45 41 44 59 2E 11 22 00 66 14 62 |R ALREADY..".f.b|
00000C60: 0C 8D 35 30 30 30 00 6C 14 6C 0C 8E 00 B2 14 A0 |..5000.l.l......|
00000C70: 0F 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00000C80: 11 11 11 11 11 11 11 11 11 11 2D 2D 2D 2D 2D 2D |..........------|
00000C90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000CB0: 2D 22 00 D9 14 AA 0F 99 22 20 20 20 20 20 20 50 |-"......" P|
00000CC0: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
00000CD0: 43 4F 4E 54 49 4E 55 45 22 00 ED 14 B4 0F A1 41 |CONTINUE"......A|
00000CE0: 24 3A 8B 41 24 B2 22 22 A7 34 30 32 30 00 1B 15 |$:.A$."".4020...|
00000CF0: BE 0F 99 22 93 57 45 49 47 48 54 20 57 41 54 43 |...".WEIGHT WATC|
00000D00: 48 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 |HER |
00000D10: 20 20 20 20 20 50 41 47 45 20 32 00 49 15 C8 0F | PAGE 2.I...|
00000D20: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00000D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D40: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 4F 15 D2 0F 8E 00 |--------".O.....|
00000D50: 95 15 88 13 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
00000D60: 11 11 11 11 11 11 11 11 11 11 11 11 11 2D 2D 2D |.............---|
00000D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D90: 2D 2D 2D 2D 22 00 B9 15 92 13 99 22 20 20 20 20 |----"......" |
00000DA0: 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 | PRESS ANY KEY |
00000DB0: 54 4F 20 42 45 47 49 4E 22 00 CD 15 9C 13 A1 41 |TO BEGIN"......A|
00000DC0: 24 3A 8B 41 24 B2 22 22 A7 35 30 32 30 00 D3 15 |$:.A$."".5020...|
00000DD0: A6 13 8E 00 09 16 58 1B 99 22 11 11 11 11 11 11 |......X.."......|
00000DE0: 11 11 11 11 20 20 20 20 20 12 54 48 45 20 4D 41 |.... .THE MA|
00000DF0: 58 49 4D 55 4D 20 52 41 4E 47 45 20 49 53 20 36 |XIMUM RANGE IS 6|
00000E00: 30 20 50 4F 55 4E 44 53 22 00 1B 16 62 1B 81 20 |0 POUNDS"...b.. |
00000E10: 49 B2 30 A4 31 30 30 30 3A 82 49 00 24 16 6C 1B |I.0.1000:.I.$.l.|
00000E20: 89 32 36 30 00 53 16 4C 1D 99 22 11 11 11 11 11 |.260.S.L..".....|
00000E30: 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 12 |..... .|
00000E40: 48 4F 57 27 53 20 54 48 41 54 20 41 47 41 49 4E |HOW'S THAT AGAIN|
00000E50: 20 3F 22 00 64 16 56 1D 81 49 B2 31 A4 31 30 30 | ?".d.V..I.1.100|
00000E60: 30 3A 82 49 00 6D 16 60 1D 89 32 36 30 00 AC 16 |0:.I.m.`..260...|
00000E70: 40 1F 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |@.."............|
00000E80: 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 |............ |
00000E90: 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 | PRESS ANY KEY |
00000EA0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 C0 16 4A |TO CONTINUE"...J|
00000EB0: 1F A1 41 24 3A 8B 41 24 B2 22 22 A7 38 30 31 30 |..A$:.A$."".8010|
00000EC0: 00 F3 16 4C 1F 99 22 13 11 11 11 20 20 20 20 20 |...L..".... |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EF0: 20 20 22 00 FF 16 4E 1F 81 4A B2 31 A4 32 30 00 | "...N..J.1.20.|
00000F00: 2D 17 4F 1F 99 22 20 20 20 20 20 20 20 20 20 20 |-.O.." |
00000F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F20: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 34 17 | ".4.|
00000F30: 50 1F 82 4A 00 3F 17 51 1F 99 22 13 11 11 22 00 |P..J.?.Q.."...".|
00000F40: 47 17 54 1F 89 35 30 00 86 17 34 21 99 22 13 11 |G.T..50...4!."..|
00000F50: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000F60: 11 11 11 11 11 11 20 20 20 20 20 20 50 52 45 53 |...... PRES|
00000F70: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
00000F80: 54 49 4E 55 45 22 00 9A 17 3E 21 A1 41 24 3A 8B |TINUE"...>!.A$:.|
00000F90: 41 24 B2 22 22 A7 38 35 31 30 00 CF 17 40 21 99 |A$."".8510...@!.|
00000FA0: 22 13 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |"...... |
00000FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000FD0: DB 17 42 21 81 4A B2 31 A4 31 38 00 09 18 43 21 |..B!.J.1.18...C!|
00000FE0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001000: 20 20 20 20 20 20 20 20 22 00 10 18 44 21 82 4A | "...D!.J|
00001010: 00 1D 18 45 21 99 22 13 11 11 11 11 22 00 26 18 |...E!.".....".&.|
00001020: 48 21 89 34 33 30 00 47 18 60 EA 49 4E 24 B2 22 |H!.430.G.`.IN$."|
00001030: 20 22 3A 5A 54 B2 54 49 3A 5A 43 B2 32 3A 5A 44 | ":ZT.TI:ZC.2:ZD|
00001040: 24 B2 C7 28 32 30 29 00 5E 18 6A EA A1 5A 24 3A |$..(20).^.j..Z$:|
00001050: 8B 20 5A 24 B3 B1 22 22 A7 36 30 30 37 30 00 8E |. Z$.."".60070..|
00001060: 18 74 EA 8B 5A 54 B3 B2 54 49 A7 99 CA 28 22 20 |.t..ZT..TI...(" |
00001070: A6 22 2C 5A 43 2C 31 29 3B 22 9D 22 3B 3A 5A 43 |.",ZC,1);".";:ZC|
00001080: B2 33 AB 5A 43 3A 5A 54 B2 54 49 AA 31 35 00 99 |.3.ZC:ZT.TI.15..|
00001090: 18 7E EA 89 36 30 30 31 30 00 C9 18 A6 EA 5A B2 |.~..60010.....Z.|
000010A0: C6 28 5A 24 29 3A 5A 4C B2 C3 28 49 4E 24 29 3A |.(Z$):ZL..(IN$):|
000010B0: 8B 28 5A AF 31 32 37 29 B3 33 32 A7 99 22 20 9D |.(Z.127).32.." .|
000010C0: 22 3B 3A 89 36 30 31 31 30 00 F9 18 B0 EA 8B 46 |";:.60110......F|
000010D0: 4C AF 28 5A AF 31 32 37 29 B1 36 34 AF 28 5A AF |L.(Z.127).64.(Z.|
000010E0: 31 32 37 29 B3 39 31 A7 5A 24 B2 C7 28 28 5A AA |127).91.Z$..((Z.|
000010F0: 31 32 38 29 AF 32 35 35 29 00 0B 19 BA EA 8B 5A |128).255)......Z|
00001100: 4C B1 32 35 34 A7 36 30 30 31 30 00 26 19 C4 EA |L.254.60010.&...|
00001110: 49 4E 24 B2 49 4E 24 AA 5A 24 3A 99 5A 24 3B 5A |IN$.IN$.Z$:.Z$;Z|
00001120: 44 24 3B 5A 24 3B 00 45 19 CE EA 8B 5A B2 31 33 |D$;Z$;.E....Z.13|
00001130: A7 49 4E 24 B2 CA 28 49 4E 24 2C 32 29 3A 99 43 |.IN$..(IN$,2):.C|
00001140: 52 24 3B 3A 8E 00 71 19 D8 EA 8B 5A B2 32 30 AF |R$;:..q....Z.20.|
00001150: 5A 4C B1 31 A7 49 4E 24 B2 C8 28 49 4E 24 2C 5A |ZL.1.IN$..(IN$,Z|
00001160: 4C AB 31 29 3A 99 22 9D 22 3B 3A 89 36 30 30 31 |L.1):.".";:.6001|
00001170: 30 00 A4 19 E2 EA 8B 5A B2 31 34 31 A7 5A 24 B2 |0......Z.141.Z$.|
00001180: C7 28 AB 32 30 AC 28 5A 4C B1 31 29 29 3A 81 5A |.(.20.(ZL.1)):.Z|
00001190: B2 32 A4 5A 4C 3A 99 5A 24 3B 3A 82 5A 3A 89 36 |.2.ZL:.Z$;:.Z:.6|
000011A0: 30 30 30 30 00 AF 19 EC EA 89 36 30 30 31 30 00 |0000......60010.|
000011B0: 00 00 00 |... |
..A....:.53272,21:.53280,1:.53281,1:CR$.
G(13):.".":.C64 MODS 1983.S.... WEIGHT W
ATCHER BY M. CRITCHFIELD & T. DWYER.....
. FROM THE NOVEMBER 1979 ISSUE OF.A....
'KILOBAUD' MAGAZINE PAGE 156-157......
MODIFIED FOR THE PET BY...... R. E. HUTC
HINGS.D.... INPUT ROUTINE USED WITH PERM
ISSION FROM CURSOR, BOX550, GOLETA, CA 9
3017.N....3000.U....". .WEIGHT WATC
HER'S RECORD"......:."WEEK","WEIGHT","WT
. LOSS".....S.0:D.0.F.#..-----CALC. & PR
INT TABLE-----.M.(..G.U.-.I.0...2.I.I.1.
..<.. W...F..I.1.110...P..W.0.140...Z.D.
W1.W...D.S.S.D.!.N..I,W,D.*.X.W1.W.:.}..
I.16..8000.J.~..I.32..8000.Z...I.48..80
00.J....I.64..8000.Z....I.80..8000......
50.....L..(100.(S.(I.1))).....L..(100.(S
.(I.1))).Y....:."AVG. WEEKLY LOSS ";L.1
00;"LBS."......"LBS. TO GOAL ";W1.G;"
.GOAL =";G.'. .."TOTAL POUNDS LOST SO F
AR ";S.D....". .....................
..PRESS ANY KEY TO CONTINUE".X....A$:.A$
.""..167......". .WEIGHT WATCHE
R'S GRAPH":..K....-----STANDARD SCALE (1
10-170)----.....A.110:B.170......315....
..-----CUSTOMIZED SCALE----------.L...."
.................... WANT A CUSTOMIZ
ED GRAPH ? ";:.60000.D....H(IN$,1).."Y".
2000......".WHAT IS THE SMALLEST NUMBER
? ";. ."..60000:A.E(IN$).G.,.."WHAT IS T
HE LARGEST NUMBER ? ";...-..60000:B.E(I
N$)......".":.(B.A).60..7000.../..B..A..
7500...0..:.315.U.1.."..................
....... WANT ANOTHER GRAPH ? ";:.
60000.H.3..IN$."YES".280.Y.4..IN$."Y".28
0...5..2000...;..-----GRAPH SUBROUTINE--
---...<.X.0.K.=..-----HEADING (LINE 1)--
---...@..B.0.B..00001...J..I.A.B.10...T.
..X.10.(30.(B.A)).5);I;...^.X.X.1...H..I
...R...>.W..-----HEADING (LINE 2)-----.M
.X.." ..............................
....".{.|.." .";......I.0.(X.1)......
.I.30.(10.(B.A)).7);".";......I.........
....B....G......-----PRINT GRAPH-----...
..I.0.....I.I.1......W...B..W.0.480.0.F.
.W.A..I;.4);".";.15)".OUT OF RANGE":.465
.].G..W.B..I;.4);".";.15)".OUT OF RANGE"
:.465...L..I;.4);".";.(W.A).(30.(B.A)).6
);"*"...Q..I.16.8500...R..I.32.8500...S.
.I.48.8500.A.T..I.64.8500.P.U..I.80.8500
.Y.V..430............*******************
*************. .... INSERT DATA HERE
.&.....L....****************************
****......122,153,149.5,147.5,147.5,145,
144.5,141,141.5,139.25.O....139.5,137.5,
138.5,137,136.5,136,135,135,133,134,133,
132,130,129,134.X.... -1...M..**********
*********************...N.../.P.."......
..... .KEEP DIETING".8.Z.T.TI
.K....TI.T.180.2020.V....".":......."...
....... WANT DIRECTIONS ? ";:.60000.
..B..H(IN$,1).."Y".18.K.L..".WEIGHT WATC
HER PAGE 1...V.."------
--------------------------------".(...."
THIS PROGRAM ENABLES YOU TO KEEP TRACK."
.T...."OF YOUR DIETING EFFORTS AND MAKE
A ."....."CHART OF YOUR PROGRESS (OR LA
CK OF."......"PROGRESS). A SAMPLE DISPL
AY IS IN-.".X...."CLUDED. YOU CAN CUSTO
MIZE THE CHART."......"SCALE TO EXPAND O
R CONTRACT IT. JUST .".6...."FOLLOW THE
DIRECTIONS IN THE PROGRAM..".D.&.."PUT
THE RESULTS OF YOUR WEEKLY WEIGH-."...0
.."IN AS PART OF THE DATA STATEMENTS."..
.:.."STARTING AT LINE 1000."...?..4000..
.D.."YOUR GOAL MUST BE THE FIRST DATA EN
TRY ."...N.."WITH -1 AS THE FINAL DATA E
NTRY....".:.X.."GOOD LUCK IN REACHING YO
UR GOAL..".\.].."YOU LOOK THINNER ALREAD
Y..".F.B..5000.L.L..... ..".............
..........------------------------------
---------".Y...." PRESS ANY KEY TO
CONTINUE"......A$:.A$."".4020......".WEI
GHT WATCHER PAGE 2.I.H.
."--------------------------------------
".O.R........".......................---
------------------------------------"...
..." PRESS ANY KEY TO BEGIN".M....A
$:.A$."".5020.S.......X.."..........
.THE MAXIMUM RANGE IS 60 POUNDS"...B..
I.0.1000:.I.$.L..260.S.L.."..........
.HOW'S THAT AGAIN ?".D.V..I.1.100
0:.I.M.`..260...@.."....................
.... PRESS ANY KEY TO CONTINUE"...J
..A$:.A$."".8010...L.."....
"...N..J.1.20.
-.O.."
".4.P..J.?.Q.."...".G.T..50...4!."..
...................... PRESS ANY KE
Y TO CONTINUE"...>!.A$:.A$."".8510.O.@!.
"......
"...B!.J.1.18...C!."
"...D!.J...E!.".
....".&.H!.430.G.`.IN$." ":ZT.TI:ZC.2:ZD
$.G(20).^.J..Z$:. Z$.."".60070...T..ZT..
TI..J(" .",ZC,1);".";:ZC.3.ZC:ZT.TI.15..
.~..60010.I...Z.F(Z$):ZL.C(IN$):.(Z.127)
.32.." .";:.60110......FL.(Z.127).64.(Z.
127).91.Z$.G((Z.128).255)......ZL.254.60
010.&.D.IN$.IN$.Z$:.Z$;ZD$;Z$;.E.N..Z.13
.IN$.J(IN$,2):.CR$;:..Q.X..Z.20.ZL.1.IN$
.H(IN$,ZL.1):.".";:.60010......Z.141.Z$.
G(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:.60000....
..60010....
> CLICK IMAGE PREVIEW FOR FULL MODAL