> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 63 00 9B 00 23 08 64 00 8F 20 54 50 |....c...#.d.. TP|
00000010: 55 47 20 4D 41 49 4C 49 4E 47 20 41 44 44 52 45 |UG MAILING ADDRE|
00000020: 53 53 3A 00 29 08 67 00 8F 00 4C 08 6A 00 8F 20 |SS:.).g...L.j.. |
00000030: 54 4F 52 4F 4E 54 4F 20 50 45 54 20 55 53 45 52 |TORONTO PET USER|
00000040: 53 20 47 52 4F 55 50 20 49 4E 43 2E 00 6F 08 6D |S GROUP INC..o.m|
00000050: 00 8F 20 31 39 31 32 41 20 41 56 45 4E 55 45 20 |.. 1912A AVENUE |
00000060: 52 4F 41 44 2C 20 53 55 49 54 45 20 23 31 2E 00 |ROAD, SUITE #1..|
00000070: 92 08 70 00 8F 20 54 4F 52 4F 4E 54 4F 2C 20 20 |..p.. TORONTO, |
00000080: 20 4F 4E 54 41 52 49 4F 2C 20 20 20 43 41 4E 41 | ONTARIO, CANA|
00000090: 44 41 00 AB 08 73 00 8F 20 20 20 20 20 20 20 20 |DA...s.. |
000000A0: 20 20 20 20 4D 35 4D 20 34 41 31 00 B1 08 76 00 | M5M 4A1...v.|
000000B0: 8F 00 CF 08 79 00 8F 20 54 50 55 47 20 54 45 4C |....y.. TPUG TEL|
000000C0: 45 50 48 4F 4E 45 20 4E 55 4D 42 45 52 53 3A 00 |EPHONE NUMBERS:.|
000000D0: D5 08 7C 00 8F 00 F1 08 7F 00 8F 20 20 20 20 20 |..|........ |
000000E0: 20 20 20 28 34 31 36 29 2D 37 38 32 2D 39 32 35 | (416)-782-925|
000000F0: 32 00 0D 09 82 00 8F 20 20 20 20 20 20 20 20 28 |2...... (|
00000100: 34 31 36 29 2D 37 38 32 2D 38 39 30 30 00 13 09 |416)-782-8900...|
00000110: 85 00 8F 00 60 09 86 00 8F 20 2A 2A 2A 2A 2A 2A |....`.... ******|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 00 AD 09 87 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 43 |...... ******* C|
00000170: 4F 50 59 52 49 47 48 54 20 28 43 29 20 31 39 38 |OPYRIGHT (C) 198|
00000180: 33 20 42 59 20 54 48 45 20 54 4F 52 4F 4E 54 4F |3 BY THE TORONTO|
00000190: 20 50 45 54 20 55 53 45 52 53 20 47 52 4F 55 50 | PET USERS GROUP|
000001A0: 20 49 4E 43 2E 20 2A 2A 2A 2A 2A 2A 2A 00 FA 09 | INC. *******...|
000001B0: 88 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 47 0A 89 00 8F |**********.G....|
00000200: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000210: 2A 2A 2A 2A 2A 2A 20 57 52 49 54 54 45 4E 20 42 |****** WRITTEN B|
00000220: 59 20 44 41 56 49 44 20 42 52 41 44 4C 45 59 20 |Y DAVID BRADLEY |
00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000240: 2A 2A 2A 2A 2A 2A 2A 00 94 0A 8A 00 8F 20 2A 2A |*******...... **|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 2A 2A 2A 2A 00 E1 0A 8B 00 8F 20 2A 2A 2A 2A 2A |****...... *****|
000002A0: 2A 20 4F 4B 20 54 4F 20 43 4F 50 59 20 42 55 54 |* OK TO COPY BUT|
000002B0: 20 49 53 20 4E 4F 54 20 54 4F 20 42 45 20 53 4F | IS NOT TO BE SO|
000002C0: 4C 44 20 4F 52 20 52 45 50 55 42 4C 49 53 48 45 |LD OR REPUBLISHE|
000002D0: 44 20 46 4F 52 20 50 52 4F 46 49 54 20 2A 2A 2A |D FOR PROFIT ***|
000002E0: 2A 00 2E 0B 8C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 34 |**************.4|
00000330: 0B 8D 00 8F 00 3A 0B 95 00 8F 00 83 0B 96 00 8F |.....:..........|
00000340: 20 4C 49 53 54 2D 4D 45 20 28 43 29 54 35 2E 4C | LIST-ME (C)T5.L|
00000350: 20 20 4C 4F 41 44 20 41 4E 44 20 4C 49 53 54 20 | LOAD AND LIST |
00000360: 54 48 49 53 20 46 49 4C 45 20 46 4F 52 20 31 20 |THIS FILE FOR 1 |
00000370: 4C 49 4E 45 20 44 4F 43 55 4D 45 4E 54 41 54 49 |LINE DOCUMENTATI|
00000380: 4F 4E 2E 00 CF 0B A0 00 8F 20 4C 49 53 54 20 46 |ON....... LIST F|
00000390: 52 45 45 5A 45 52 2E 43 20 20 20 50 41 55 53 45 |REEZER.C PAUSE|
000003A0: 20 4F 52 20 53 54 4F 50 20 41 20 50 52 4F 47 52 | OR STOP A PROGR|
000003B0: 41 4D 20 4C 49 53 54 49 4E 47 20 55 53 49 4E 47 |AM LISTING USING|
000003C0: 20 54 48 45 20 53 48 49 46 54 20 4B 45 59 2E 00 | THE SHIFT KEY..|
000003D0: 15 0C A2 00 8F 20 52 41 53 54 45 52 20 49 4E 54 |..... RASTER INT|
000003E0: 45 52 50 54 2E 43 20 44 45 4D 4F 4E 53 54 52 41 |ERPT.C DEMONSTRA|
000003F0: 54 45 53 20 48 4F 57 20 52 41 53 54 45 52 20 49 |TES HOW RASTER I|
00000400: 4E 54 45 52 55 50 54 53 20 43 41 4E 20 42 45 20 |NTERUPTS CAN BE |
00000410: 55 53 45 44 2E 00 56 0C A4 00 8F 20 53 49 4E 20 |USED..V.... SIN |
00000420: 44 49 53 4B 20 43 4F 50 59 2E 43 20 2A 43 4F 50 |DISK COPY.C *COP|
00000430: 59 20 50 52 4F 47 52 41 4D 53 20 46 52 4F 4D 20 |Y PROGRAMS FROM |
00000440: 31 20 44 49 53 4B 45 54 54 45 20 54 4F 20 41 4E |1 DISKETTE TO AN|
00000450: 4F 54 48 45 52 2E 00 96 0C A6 00 8F 20 4A 53 54 |OTHER....... JST|
00000460: 49 43 4B 20 44 4F 4F 44 4C 45 2E 43 20 20 55 53 |ICK DOODLE.C US|
00000470: 45 20 59 4F 55 52 20 4A 4F 59 53 54 49 43 4B 20 |E YOUR JOYSTICK |
00000480: 54 4F 20 44 52 41 57 4E 20 48 49 2D 52 45 53 20 |TO DRAWN HI-RES |
00000490: 4C 49 4E 45 53 2E 00 E1 0C A8 00 8F 20 4D 49 4C |LINES....... MIL|
000004A0: 45 41 47 45 2E 5A 20 20 20 20 20 20 20 20 46 49 |EAGE.Z FI|
000004B0: 4E 44 20 4F 55 54 20 48 4F 57 20 4D 41 4E 59 20 |ND OUT HOW MANY |
000004C0: 4D 49 4C 45 53 2F 47 41 4C 4C 4F 4E 20 59 4F 55 |MILES/GALLON YOU|
000004D0: 52 20 43 41 52 20 49 53 20 47 45 54 54 49 4E 47 |R CAR IS GETTING|
000004E0: 2E 00 2E 0D AA 00 8F 20 4C 49 46 45 53 43 4F 52 |....... LIFESCOR|
000004F0: 45 2E 5A 20 20 20 20 20 20 53 45 45 20 48 4F 57 |E.Z SEE HOW|
00000500: 20 4C 4F 4E 47 20 59 4F 55 20 53 48 4F 55 4C 44 | LONG YOU SHOULD|
00000510: 20 4C 49 56 45 20 42 41 53 45 44 20 4F 4E 20 59 | LIVE BASED ON Y|
00000520: 4F 55 52 20 4C 49 46 45 53 54 59 4C 45 2E 00 73 |OUR LIFESTYLE..s|
00000530: 0D AC 00 8F 20 52 41 4E 44 4F 4D 20 4C 4F 54 54 |.... RANDOM LOTT|
00000540: 4F 2E 43 20 20 20 50 49 43 4B 20 59 4F 55 20 4E |O.C PICK YOU N|
00000550: 55 4D 42 45 52 53 20 46 4F 52 20 4C 4F 54 54 4F |UMBERS FOR LOTTO|
00000560: 20 36 2F 34 39 20 41 4E 44 20 4C 4F 54 54 41 52 | 6/49 AND LOTTAR|
00000570: 49 4F 2E 00 BC 0D B0 00 8F 20 57 4F 52 44 20 57 |IO....... WORD W|
00000580: 4F 52 4B 45 52 2E 43 20 20 20 20 57 48 59 20 55 |ORKER.C WHY U|
00000590: 53 45 20 41 20 50 45 4E 20 57 48 45 4E 20 57 4F |SE A PEN WHEN WO|
000005A0: 52 44 20 57 4F 52 4B 45 52 20 43 41 4E 20 44 4F |RD WORKER CAN DO|
000005B0: 20 49 54 20 46 4F 52 20 59 4F 55 3F 00 FE 0D B2 | IT FOR YOU?....|
000005C0: 00 8F 20 36 34 20 46 41 53 54 20 50 4F 4B 45 53 |.. 64 FAST POKES|
000005D0: 2E 43 20 20 53 45 45 20 52 45 4D 53 20 57 49 54 |.C SEE REMS WIT|
000005E0: 48 49 4E 20 50 52 4F 47 52 41 4D 20 46 4F 52 20 |HIN PROGRAM FOR |
000005F0: 44 4F 43 55 4D 45 4E 54 41 54 49 4F 4E 2E 00 4C |DOCUMENTATION..L|
00000600: 0E B4 00 8F 20 34 30 34 30 20 43 4F 4D 4D 41 4E |.... 4040 COMMAN|
00000610: 44 53 2E 43 20 2A 44 4F 20 44 49 53 4B 20 4F 50 |DS.C *DO DISK OP|
00000620: 45 52 41 54 49 4F 4E 53 20 55 53 49 4E 47 20 59 |ERATIONS USING Y|
00000630: 4F 55 52 20 34 30 34 30 20 41 4E 44 20 49 45 45 |OUR 4040 AND IEE|
00000640: 45 20 49 4E 54 45 52 46 41 43 45 2E 00 9A 0E B8 |E INTERFACE.....|
00000650: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 00 |**********... |
....C...#.D.. TPUG MAILING ADDRESS:.).G.
..L.J.. TORONTO PET USERS GROUP INC..O.M
.. 1912A AVENUE ROAD, SUITE #1....P.. TO
RONTO, ONTARIO, CANADA...S..
M5M 4A1...V...O.Y.. TPUG TELEPHONE N
UMBERS:.U.|....... (416)-782-925
2...... (416)-782-8900.......`...
. **************************************
********************************...... *
****** COPYRIGHT (C) 1983 BY THE TORONTO
PET USERS GROUP INC. *******...... ****
****************************************
**************************.G.... *******
************** WRITTEN BY DAVID BRADLEY
***********************...... **********
****************************************
********************...... ****** OK TO
COPY BUT IS NOT TO BE SOLD OR REPUBLISHE
D FOR PROFIT ****...... ****************
****************************************
**************.4.....:.......... LIST-ME
(C)T5.L LOAD AND LIST THIS FILE FOR 1
LINE DOCUMENTATION..O. .. LIST FREEZER.C
PAUSE OR STOP A PROGRAM LISTING USING
THE SHIFT KEY....... RASTER INTERPT.C D
EMONSTRATES HOW RASTER INTERUPTS CAN BE
USED..V.... SIN DISK COPY.C *COPY PROGRA
MS FROM 1 DISKETTE TO ANOTHER....... JST
ICK DOODLE.C USE YOUR JOYSTICK TO DRAWN
HI-RES LINES....... MILEAGE.Z FI
ND OUT HOW MANY MILES/GALLON YOUR CAR IS
GETTING....... LIFESCORE.Z SEE HOW
LONG YOU SHOULD LIVE BASED ON YOUR LIFE
STYLE..S.... RANDOM LOTTO.C PICK YOU N
UMBERS FOR LOTTO 6/49 AND LOTTARIO......
. WORD WORKER.C WHY USE A PEN WHEN WO
RD WORKER CAN DO IT FOR YOU?...... 64 FA
ST POKES.C SEE REMS WITHIN PROGRAM FOR
DOCUMENTATION..L.... 4040 COMMANDS.C *DO
DISK OPERATIONS USING YOUR 4040 AND IEE
E INTERFACE....... *********************
****************************************
**********...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL