_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

BSC INSTR

FILE INFORMATION

FILENAME(S): BSC INSTR

FILE TYPE(S): PRG

FILE SIZE: 27.8K

FIRST SEEN: 2025-10-19 22:49:37

APPEARS ON: 1 disk(s)

FILE HASH

209581b6da596c6c05ca8160de6efc2dacd325e48d348b49f883b9a3068e3763

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
GOLD DISK 6 BSC INSTR PRG Radd Maxx 8 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: BF 30 5E 20 67 6F 6C 64  20 62 61 73 69 63 20 0D  |.0^ gold basic .|
00000010: 0D 0D 67 6F 6C 64 20 62  61 73 69 63 20 49 53 20  |..gold basic IS |
00000020: 41 4E 20 45 58 54 45 4E  53 49 56 45 20 45 4E 48  |AN EXTENSIVE ENH|
00000030: 41 4E 43 45 4D 45 4E 54  20 20 54 4F 20 54 48 45  |ANCEMENT  TO THE|
00000040: 20 4E 4F 52 4D 41 4C 20  63 4F 4D 4D 4F 44 4F 52  | NORMAL cOMMODOR|
00000050: 45 20 62 61 73 69 63 2E  20 20 69 54 20 41 44 44  |E basic.  iT ADD|
00000060: 53 0D 4D 41 4E 59 20 4E  45 57 20 43 4F 4D 4D 41  |S.MANY NEW COMMA|
00000070: 4E 44 53 20 41 4E 44 20  46 55 4E 43 54 49 4F 4E  |NDS AND FUNCTION|
00000080: 53 2E 0D 0D 0D 0D 3C 66  31 3E 20 67 45 4E 45 52  |S.....<f1> gENER|
00000090: 41 4C 20 69 4E 46 4F 52  4D 41 54 49 4F 4E 0D 0D  |AL iNFORMATION..|
000000A0: 3C 66 33 3E 20 67 52 41  50 48 49 43 53 0D 0D 3C  |<f3> gRAPHICS..<|
000000B0: 66 35 3E 20 73 4F 55 4E  44 0D 0D 3C 66 37 3E 20  |f5> sOUND..<f7> |
000000C0: 70 52 4F 47 52 41 4D 20  26 20 64 45 56 45 4C 4F  |pROGRAM & dEVELO|
000000D0: 50 4D 45 4E 54 0D 0D 0D  73 45 4C 45 43 54 20 74  |PMENT...sELECT t|
000000E0: 4F 50 49 43 20 42 59 20  41 50 50 52 4F 50 52 49  |OPIC BY APPROPRI|
000000F0: 41 54 45 20 66 55 4E 43  54 49 4F 4E 20 6B 45 59  |ATE fUNCTION kEY|
00000100: 0D 20 20 20 20 6E 4F 54  45 3A 20 3C 5C 3E 20 46  |.    nOTE: <\> F|
00000110: 4F 52 20 67 6F 6C 64 20  64 69 73 6B 20 4D 45 4E  |OR gold disk MEN|
00000120: 55 2E 0D 5E 20 67 45 4E  45 52 41 4C 20 69 4E 46  |U..^ gENERAL iNF|
00000130: 4F 52 4D 41 54 49 4F 4E  20 0D 0D 74 48 45 20 67  |ORMATION ..tHE g|
00000140: 6F 6C 64 20 62 41 53 49  43 20 53 59 53 54 45 4D  |old bASIC SYSTEM|
00000150: 20 6D 75 73 74 20 42 45  20 49 4E 56 4F 4B 45 44  | must BE INVOKED|
00000160: 20 0D 42 45 46 4F 52 45  20 59 4F 55 20 43 41 4E  | .BEFORE YOU CAN|
00000170: 20 57 4F 52 4B 20 4F 4E  20 50 52 4F 47 52 41 4D  | WORK ON PROGRAM|
00000180: 53 20 57 52 49 54 54 45  4E 0D 57 49 54 48 20 54  |S WRITTEN.WITH T|
00000190: 48 45 53 45 20 45 58 54  45 4E 53 49 4F 4E 53 2E  |HESE EXTENSIONS.|
000001A0: 20 20 74 4F 20 49 4E 56  4F 4B 45 20 54 48 45 0D  |  tO INVOKE THE.|
000001B0: 67 6F 6C 64 20 62 41 53  49 43 20 53 59 53 54 45  |gold bASIC SYSTE|
000001C0: 4D 3A 0D 0D 20 20 20 31  29 20 6C 6F 61 64 20 22  |M:..   1) load "|
000001D0: 67 6F 6C 64 20 62 61 73  69 63 22 2C 38 2C 31 0D  |gold basic",8,1.|
000001E0: 20 20 20 32 29 20 73 79  73 20 33 35 30 30 30 0D  |   2) sys 35000.|
000001F0: 20 20 20 33 29 20 6E 65  77 0D 0D 0D 6D 4F 52 45  |   3) new...mORE|
00000200: 20 47 45 4E 45 52 41 4C  20 49 4E 46 4F 52 4D 41  | GENERAL INFORMA|
00000210: 54 49 4F 4E 20 41 56 41  49 4C 41 42 4C 45 20 4F  |TION AVAILABLE O|
00000220: 4E 0D 54 48 45 20 46 4F  4C 4C 4F 57 49 4E 47 3A  |N.THE FOLLOWING:|
00000230: 0D 0D 20 20 20 66 69 78  20 20 20 20 20 68 65 6C  |..   fix     hel|
00000240: 70 20 20 20 20 20 6F 66  66 0D 5E 20 66 69 78 20  |p     off.^ fix |
00000250: 0D 0D 0D 70 55 52 50 4F  53 45 3A 20 63 4F 52 52  |...pURPOSE: cORR|
00000260: 45 43 54 53 20 41 4E 59  20 56 45 43 54 4F 52 53  |ECTS ANY VECTORS|
00000270: 20 52 45 51 55 49 52 45  44 0D 20 20 20 20 20 20  | REQUIRED.      |
00000280: 20 20 20 42 59 20 54 48  45 20 67 6F 6C 64 20 62  |   BY THE gold b|
00000290: 61 73 69 63 20 53 59 53  54 45 4D 0D 20 20 20 20  |asic SYSTEM.    |
000002A0: 20 20 20 20 20 41 46 54  45 52 20 41 20 3C 72 75  |     AFTER A <ru|
000002B0: 6E 2F 73 74 6F 70 3E 3C  72 65 73 74 6F 72 65 3E  |n/stop><restore>|
000002C0: 0D 0D 66 4F 52 4D 41 54  3A 20 20 66 69 78 0D 0D  |..fORMAT:  fix..|
000002D0: 64 45 53 43 52 49 50 54  49 4F 4E 3A 20 66 69 78  |dESCRIPTION: fix|
000002E0: 20 43 41 4E 20 42 45 20  55 53 45 44 20 49 4E 20  | CAN BE USED IN |
000002F0: 44 49 52 45 43 54 0D 20  20 20 41 4E 44 20 50 52  |DIRECT.   AND PR|
00000300: 4F 47 52 41 4D 20 4D 4F  44 45 2E 20 20 69 54 20  |OGRAM MODE.  iT |
00000310: 57 49 4C 4C 20 52 45 53  45 54 0D 20 20 20 56 45  |WILL RESET.   VE|
00000320: 43 54 4F 52 53 20 41 4E  44 20 52 45 54 55 52 4E  |CTORS AND RETURN|
00000330: 20 47 52 41 50 48 49 43  53 20 54 4F 20 54 45 58  | GRAPHICS TO TEX|
00000340: 54 0D 20 20 20 4D 4F 44  45 20 49 4E 20 54 48 45  |T.   MODE IN THE|
00000350: 20 44 45 46 41 55 4C 54  20 42 41 4E 4B 20 41 4E  | DEFAULT BANK AN|
00000360: 44 20 53 43 52 45 45 4E  2E 0D 20 20 20 73 50 52  |D SCREEN..   sPR|
00000370: 49 54 45 20 4D 4F 56 45  4D 45 4E 54 20 41 4E 44  |ITE MOVEMENT AND|
00000380: 20 6D 75 73 69 63 20 49  53 20 54 55 52 4E 45 44  | music IS TURNED|
00000390: 0D 20 20 20 4F 46 46 2E  0D 0D 65 58 41 4D 50 4C  |.   OFF...eXAMPL|
000003A0: 45 3A 20 66 69 78 0D 5E  20 68 65 6C 70 20 0D 0D  |E: fix.^ help ..|
000003B0: 0D 70 55 52 50 4F 53 45  3A 20 70 52 4F 56 49 44  |.pURPOSE: pROVID|
000003C0: 45 53 20 41 20 51 55 49  43 4B 20 52 45 46 45 52  |ES A QUICK REFER|
000003D0: 45 4E 43 45 20 54 4F 0D  20 20 20 20 20 20 20 20  |ENCE TO.        |
000003E0: 20 41 4C 4C 20 67 6F 6C  64 20 62 61 73 69 63 20  | ALL gold basic |
000003F0: 43 4F 4D 4D 41 4E 44 53  20 41 54 0D 20 20 20 20  |COMMANDS AT.    |
00000400: 20 20 20 20 20 41 4E 59  20 54 49 4D 45 2E 0D 0D  |     ANY TIME...|
00000410: 66 4F 52 4D 41 54 3A 20  20 68 65 6C 70 0D 0D 64  |fORMAT:  help..d|
00000420: 45 53 43 52 49 50 54 49  4F 4E 3A 20 64 49 53 50  |ESCRIPTION: dISP|
00000430: 4C 41 59 53 20 41 20 4C  49 53 54 20 4F 46 20 41  |LAYS A LIST OF A|
00000440: 4C 4C 0D 20 20 20 65 4E  48 41 4E 43 45 44 20 43  |LL.   eNHANCED C|
00000450: 4F 4D 4D 41 4E 44 53 20  54 4F 20 54 48 45 20 43  |OMMANDS TO THE C|
00000460: 55 52 52 45 4E 54 0D 20  20 20 44 49 53 50 4C 41  |URRENT.   DISPLA|
00000470: 59 20 44 45 56 49 43 45  2E 0D 0D 65 58 41 4D 50  |Y DEVICE...eXAMP|
00000480: 4C 45 3A 20 74 48 45 20  46 4F 4C 4C 4F 57 49 4E  |LE: tHE FOLLOWIN|
00000490: 47 20 57 49 4C 4C 20 44  49 53 50 4C 41 59 20 41  |G WILL DISPLAY A|
000004A0: 0D 20 20 20 4C 49 53 54  20 4F 46 20 67 6F 6C 64  |.   LIST OF gold|
000004B0: 20 62 61 73 69 63 20 43  4F 4D 4D 41 4E 44 53 20  | basic COMMANDS |
000004C0: 54 4F 0D 20 20 20 50 52  49 4E 54 45 52 3A 0D 0D  |TO.   PRINTER:..|
000004D0: 20 20 20 6F 70 65 6E 20  34 2C 34 2C 37 3A 20 63  |   open 4,4,7: c|
000004E0: 6D 64 20 34 3A 20 68 65  6C 70 0D 5E 20 6F 66 66  |md 4: help.^ off|
000004F0: 20 0D 0D 0D 70 55 52 50  4F 53 45 3A 20 74 55 52  | ...pURPOSE: tUR|
00000500: 4E 53 20 4F 46 46 20 67  6F 6C 64 20 62 61 73 69  |NS OFF gold basi|
00000510: 63 0D 0D 66 4F 52 4D 41  54 3A 20 20 6F 66 66 0D  |c..fORMAT:  off.|
00000520: 0D 64 45 53 43 52 49 50  54 49 4F 4E 3A 20 64 45  |.dESCRIPTION: dE|
00000530: 41 43 54 49 56 41 54 45  53 20 54 48 45 20 67 6F  |ACTIVATES THE go|
00000540: 6C 64 0D 20 20 20 62 61  73 69 63 20 53 59 53 54  |ld.   basic SYST|
00000550: 45 4D 2E 20 20 65 58 45  43 55 54 41 42 4C 45 20  |EM.  eXECUTABLE |
00000560: 46 52 4F 4D 20 42 4F 54  48 0D 20 20 20 44 49 52  |FROM BOTH.   DIR|
00000570: 45 43 54 20 41 4E 44 20  50 52 4F 47 52 41 4D 20  |ECT AND PROGRAM |
00000580: 4D 4F 44 45 2E 0D 0D 72  45 53 54 52 49 43 54 49  |MODE...rESTRICTI|
00000590: 4F 4E 53 3A 20 70 52 4F  47 52 41 4D 53 20 55 53  |ONS: pROGRAMS US|
000005A0: 49 4E 47 20 67 6F 6C 64  20 62 61 73 69 63 0D 20  |ING gold basic. |
000005B0: 20 20 57 49 4C 4C 20 4E  4F 54 20 42 45 20 44 49  |  WILL NOT BE DI|
000005C0: 53 50 4C 41 59 45 44 20  43 4F 52 52 45 43 54 4C  |SPLAYED CORRECTL|
000005D0: 59 20 41 46 54 45 52 20  20 20 54 48 45 20 53 59  |Y AFTER   THE SY|
000005E0: 53 54 45 4D 20 49 53 20  54 55 52 4E 45 44 20 4F  |STEM IS TURNED O|
000005F0: 46 46 2E 20 20 64 4F 20  4E 4F 54 0D 20 20 20 41  |FF.  dO NOT.   A|
00000600: 54 54 45 4D 50 54 20 54  4F 20 45 4E 54 45 52 20  |TTEMPT TO ENTER |
00000610: 4F 52 20 43 4F 52 52 45  43 54 20 67 6F 6C 64 0D  |OR CORRECT gold.|
00000620: 20 20 20 62 61 73 69 63  20 4C 49 4E 45 53 20 55  |   basic LINES U|
00000630: 4E 54 49 4C 20 54 48 45  20 53 59 53 54 45 4D 20  |NTIL THE SYSTEM |
00000640: 49 53 0D 20 20 20 52 45  2D 49 4E 56 4F 4B 45 44  |IS.   RE-INVOKED|
00000650: 2E 0D 0D 65 58 41 4D 50  4C 45 3A 20 6F 66 66 0D  |...eXAMPLE: off.|
00000660: 5E 20 67 52 41 50 48 49  43 53 20 0D 0D 0D 74 48  |^ gRAPHICS ...tH|
00000670: 45 20 46 4F 4C 4C 4F 57  49 4E 47 20 43 4F 4D 4D  |E FOLLOWING COMM|
00000680: 41 4E 44 53 20 41 52 45  20 43 4C 41 53 53 49 46  |ANDS ARE CLASSIF|
00000690: 49 45 44 0D 41 53 20 47  52 41 50 48 49 43 53 20  |IED.AS GRAPHICS |
000006A0: 45 58 54 45 4E 53 49 4F  4E 53 3A 0D 0D 20 3C 66  |EXTENSIONS:.. <f|
000006B0: 31 3E 67 45 4E 45 52 41  4C 20 20 3C 66 33 3E 62  |1>gENERAL  <f3>b|
000006C0: 49 54 2D 6D 41 50 20 20  3C 66 35 3E 73 50 52 49  |IT-mAP  <f5>sPRI|
000006D0: 54 45 53 0D 20 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |TES. ===========|
000006E0: 20 20 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 20 20 3D  |  ===========  =|
000006F0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 0D 20 63 6F 6C 20  |==========. col |
00000700: 20 20 20 20 20 20 20 20  20 63 6F 6C 20 20 20 20  |         col    |
00000710: 20 20 20 20 20 20 73 70  72 62 6B 67 0D 20 65 6F  |      sprbkg. eo|
00000720: 62 20 20 20 20 20 20 20  20 20 20 63 6C 73 63 72  |b          clscr|
00000730: 20 20 20 20 20 20 20 20  73 70 72 64 73 0D 20 74  |        sprds. t|
00000740: 65 78 74 20 20 20 20 20  20 20 20 20 67 72 61 70  |ext         grap|
00000750: 68 69 63 20 20 20 20 20  20 73 70 72 65 6E 0D 20  |hic      spren. |
00000760: 76 69 63 20 20 20 20 20  20 20 20 20 20 6C 69 6E  |vic          lin|
00000770: 65 20 20 20 20 20 20 20  20 20 73 70 72 69 74 65  |e         sprite|
00000780: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 6D  |.              m|
00000790: 6F 76 65 20 20 20 20 20  20 20 20 20 73 70 72 6D  |ove         sprm|
000007A0: 63 72 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |cr.             |
000007B0: 20 70 65 6E 20 20 20 20  20 20 20 20 20 20 73 70  | pen          sp|
000007C0: 72 6D 76 0D 20 20 20 20  20 20 20 20 20 20 20 20  |rmv.            |
000007D0: 20 20 70 69 78 65 6C 20  20 20 20 20 20 20 20 73  |  pixel        s|
000007E0: 70 72 70 73 0D 20 20 20  20 20 20 20 20 20 20 20  |prps.           |
000007F0: 20 20 20 70 6C 6F 74 20  20 20 20 20 20 20 20 20  |   plot         |
00000800: 73 70 72 73 70 0D 20 20  20 20 20 20 20 20 20 20  |sprsp.          |
00000810: 20 20 20 20 77 72 69 74  65 20 20 20 20 20 20 20  |    write       |
00000820: 20 73 70 72 78 0D 20 20  20 20 20 20 20 20 20 20  | sprx.          |
00000830: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000840: 20 73 70 72 79 0D 5E 20  63 6F 6C 20 0D 0D 0D 70  | spry.^ col ...p|
00000850: 55 52 50 4F 53 45 3A 20  75 53 45 44 20 49 4E 20  |URPOSE: uSED IN |
00000860: 54 45 58 54 20 4D 4F 44  45 2C 20 63 6F 6C 20 44  |TEXT MODE, col D|
00000870: 45 46 49 4E 45 53 0D 20  20 20 20 20 20 20 20 20  |EFINES.         |
00000880: 54 48 45 20 42 4F 52 44  45 52 2C 20 53 43 52 45  |THE BORDER, SCRE|
00000890: 45 4E 20 41 4E 44 20 43  55 52 52 45 4E 54 0D 20  |EN AND CURRENT. |
000008A0: 20 20 20 20 20 20 20 20  54 45 58 54 20 43 4F 4C  |        TEXT COL|
000008B0: 4F 55 52 53 0D 0D 66 4F  52 4D 41 54 3A 20 20 63  |OURS..fORMAT:  c|
000008C0: 6F 6C 20 42 4F 52 44 45  52 2C 20 53 43 52 45 45  |ol BORDER, SCREE|
000008D0: 4E 2C 20 54 45 58 54 0D  0D 70 41 52 41 4D 45 54  |N, TEXT..pARAMET|
000008E0: 45 52 20 64 45 53 43 52  49 50 54 49 4F 4E 3A 0D  |ER dESCRIPTION:.|
000008F0: 0D 20 20 20 42 4F 52 44  45 52 3A 20 43 4F 4C 4F  |.   BORDER: COLO|
00000900: 55 52 20 54 4F 20 42 45  20 53 45 4C 45 43 54 45  |UR TO BE SELECTE|
00000910: 44 20 46 52 4F 4D 0D 20  20 20 20 20 20 20 20 20  |D FROM.         |
00000920: 20 20 63 4F 4D 4D 4F 44  4F 52 45 20 43 4F 4C 4F  |  cOMMODORE COLO|
00000930: 55 52 20 52 41 4E 47 45  20 28 30 2D 31 35 29 0D  |UR RANGE (0-15).|
00000940: 20 20 20 53 43 52 45 45  4E 3A 20 53 43 52 45 45  |   SCREEN: SCREE|
00000950: 4E 20 42 41 43 4B 47 52  4F 55 4E 44 20 43 4F 4C  |N BACKGROUND COL|
00000960: 4F 55 52 20 54 4F 0D 20  20 20 20 20 20 20 20 20  |OUR TO.         |
00000970: 20 20 53 45 4C 45 43 54  45 44 20 46 52 4F 4D 20  |  SELECTED FROM |
00000980: 43 4F 4C 4F 55 52 53 20  28 30 2D 31 35 29 0D 0D  |COLOURS (0-15)..|
00000990: 20 20 20 54 45 58 54 3A  20 43 55 52 52 45 4E 54  |   TEXT: CURRENT|
000009A0: 20 54 45 58 54 20 43 4F  4C 4F 55 52 20 28 30 2D  | TEXT COLOUR (0-|
000009B0: 31 35 29 0D 0D 65 58 41  4D 50 4C 45 3A 20 61 20  |15)..eXAMPLE: a |
000009C0: 42 4C 41 43 4B 20 42 4F  52 44 45 52 20 26 20 42  |BLACK BORDER & B|
000009D0: 41 43 4B 47 52 4F 55 4E  44 0D 20 20 20 57 49 54  |ACKGROUND.   WIT|
000009E0: 48 20 57 48 49 54 45 20  54 45 58 54 20 49 53 20  |H WHITE TEXT IS |
000009F0: 53 45 54 20 42 59 3A 0D  0D 20 20 20 20 20 20 20  |SET BY:..       |
00000A00: 20 20 63 6F 6C 20 30 2C  30 2C 31 0D 5E 20 65 6F  |  col 0,0,1.^ eo|
00000A10: 62 20 0D 0D 70 55 52 50  4F 53 45 3A 20 64 45 46  |b ..pURPOSE: dEF|
00000A20: 49 4E 45 53 20 41 20 4E  45 57 20 65 4E 44 20 6F  |INES A NEW eND o|
00000A30: 46 20 62 61 73 69 63 0D  20 20 20 20 20 20 20 20  |F basic.        |
00000A40: 20 4C 49 4D 49 54 20 54  4F 20 50 52 4F 54 45 43  | LIMIT TO PROTEC|
00000A50: 54 20 53 55 43 48 20 54  48 49 4E 47 53 20 41 53  |T SUCH THINGS AS|
00000A60: 20 20 20 20 20 20 20 20  20 53 50 52 49 54 45 53  |         SPRITES|
00000A70: 2C 20 46 4F 4E 54 20 44  41 54 41 20 4F 52 20 42  |, FONT DATA OR B|
00000A80: 49 54 4D 41 50 53 2E 0D  0D 66 4F 52 4D 41 54 3A  |ITMAPS...fORMAT:|
00000A90: 20 20 65 6F 62 20 4E 0D  0D 70 41 52 41 4D 45 54  |  eob N..pARAMET|
00000AA0: 45 52 20 64 45 53 43 52  49 50 54 49 4F 4E 3A 0D  |ER dESCRIPTION:.|
00000AB0: 0D 20 20 20 4E 3A 20 44  45 46 49 4E 45 53 20 4E  |.   N: DEFINES N|
00000AC0: 45 57 20 65 4E 44 20 4F  46 20 62 61 73 69 63 20  |EW eND OF basic |
00000AD0: 54 4F 20 42 45 0D 20 20  20 20 20 20 4D 45 4D 4F  |TO BE.      MEMO|
00000AE0: 52 59 20 4C 4F 43 41 54  49 4F 4E 20 27 4E 27 0D  |RY LOCATION 'N'.|
00000AF0: 0D 72 45 53 54 52 49 43  54 49 4F 4E 53 3A 20 74  |.rESTRICTIONS: t|
00000B00: 48 45 20 65 6F 62 20 43  4F 4D 4D 41 4E 44 20 41  |HE eob COMMAND A|
00000B10: 4C 53 4F 0D 20 20 20 50  45 52 46 4F 52 4D 53 20  |LSO.   PERFORMS |
00000B20: 41 20 63 6C 72 20 43 4F  4D 4D 41 4E 44 2E 20 20  |A clr COMMAND.  |
00000B30: 74 48 55 53 20 54 48 49  53 0D 20 20 20 53 54 41  |tHUS THIS.   STA|
00000B40: 54 45 4D 45 4E 54 20 53  48 4F 55 4C 44 20 42 45  |TEMENT SHOULD BE|
00000B50: 20 45 58 45 43 55 54 45  44 20 42 45 46 4F 52 45  | EXECUTED BEFORE|
00000B60: 0D 20 20 20 44 45 46 49  4E 49 4E 47 20 56 41 52  |.   DEFINING VAR|
00000B70: 49 41 42 4C 45 53 2E 20  20 67 45 4E 45 52 41 4C  |IABLES.  gENERAL|
00000B80: 4C 59 2C 20 54 48 45 0D  20 20 20 65 6F 62 20 43  |LY, THE.   eob C|
00000B90: 4F 4D 4D 41 4E 44 20 49  53 20 4E 45 45 44 45 44  |OMMAND IS NEEDED|
00000BA0: 20 41 46 54 45 52 20 76  69 63 2E 0D 0D 65 58 41  | AFTER vic...eXA|
00000BB0: 4D 50 4C 45 3A 20 74 48  45 20 46 4F 4C 4C 4F 57  |MPLE: tHE FOLLOW|
00000BC0: 49 4E 47 20 43 4F 4D 4D  41 4E 44 20 57 49 4C 4C  |ING COMMAND WILL|
00000BD0: 0D 20 20 20 53 45 54 20  54 48 45 20 6C 41 53 54  |.   SET THE lAST|
00000BE0: 20 41 44 44 52 45 53 53  20 55 53 45 44 20 42 59  | ADDRESS USED BY|
00000BF0: 20 62 61 73 69 63 0D 20  20 20 54 4F 20 24 34 30  | basic.   TO $40|
00000C00: 30 30 20 68 45 58 20 28  31 36 33 38 34 20 64 45  |00 hEX (16384 dE|
00000C10: 43 49 4D 41 4C 29 0D 0D  20 20 20 65 6F 62 20 31  |CIMAL)..   eob 1|
00000C20: 36 33 38 34 0D 5E 20 74  65 78 74 20 0D 0D 0D 70  |6384.^ text ...p|
00000C30: 55 52 50 4F 53 45 3A 20  73 45 54 20 54 48 45 20  |URPOSE: sET THE |
00000C40: 43 55 52 52 45 4E 54 20  47 52 41 50 48 49 43 53  |CURRENT GRAPHICS|
00000C50: 20 4D 4F 44 45 0D 20 20  20 20 20 20 20 20 20 54  | MODE.         T|
00000C60: 4F 20 74 65 78 74 20 4D  4F 44 45 0D 0D 66 4F 52  |O text MODE..fOR|
00000C70: 4D 41 54 3A 20 20 74 65  78 74 0D 0D 65 58 41 4D  |MAT:  text..eXAM|
00000C80: 50 4C 45 3A 20 74 65 78  74 0D 5E 20 76 69 63 20  |PLE: text.^ vic |
00000C90: 0D 0D 0D 70 55 52 50 4F  53 45 3A 20 73 45 54 53  |...pURPOSE: sETS|
00000CA0: 20 54 4F 20 76 69 63 20  43 48 49 50 20 54 4F 20  | TO vic CHIP TO |
00000CB0: 49 4E 44 49 43 41 54 45  0D 20 20 20 20 20 20 20  |INDICATE.       |
00000CC0: 20 20 42 41 4E 4B 2C 20  54 45 58 54 20 53 43 52  |  BANK, TEXT SCR|
00000CD0: 45 45 4E 20 26 20 43 48  41 52 41 43 54 45 52 0D  |EEN & CHARACTER.|
00000CE0: 20 20 20 20 20 20 20 20  20 4C 4F 43 41 54 49 4F  |         LOCATIO|
00000CF0: 4E 53 2E 20 20 69 54 20  41 4C 53 4F 20 50 52 4F  |NS.  iT ALSO PRO|
00000D00: 56 49 44 45 53 0D 20 20  20 20 20 20 20 20 20 41  |VIDES.         A|
00000D10: 4E 20 4F 50 54 49 4F 4E  20 54 4F 20 43 4F 50 59  |N OPTION TO COPY|
00000D20: 20 54 48 45 20 43 48 41  52 41 43 54 45 52 20 20  | THE CHARACTER  |
00000D30: 20 20 20 20 20 20 20 44  41 54 41 20 46 52 4F 4D  |       DATA FROM|
00000D40: 20 72 6F 6D 2E 0D 0D 66  4F 52 4D 41 54 3A 20 20  | rom...fORMAT:  |
00000D50: 76 69 63 20 42 41 4E 4B  23 2C 20 53 43 52 45 45  |vic BANK#, SCREE|
00000D60: 4E 23 2C 20 43 48 41 52  23 2C 20 43 4F 50 59 0D  |N#, CHAR#, COPY.|
00000D70: 70 41 52 41 4D 45 54 45  52 20 64 45 53 43 52 49  |pARAMETER dESCRI|
00000D80: 50 54 49 4F 4E 3A 0D 0D  20 20 20 42 41 4E 4B 23  |PTION:..   BANK#|
00000D90: 3A 20 31 36 4B 20 76 49  44 45 4F 20 42 41 4E 4B  |: 16K vIDEO BANK|
00000DA0: 20 30 20 54 4F 20 33 20  4D 41 59 20 42 45 0D 20  | 0 TO 3 MAY BE. |
00000DB0: 20 20 20 20 20 20 20 20  20 53 45 4C 45 43 54 45  |         SELECTE|
00000DC0: 44 0D 0D 20 20 20 53 43  52 45 45 4E 23 3A 20 54  |D..   SCREEN#: T|
00000DD0: 45 58 54 20 53 43 52 45  45 4E 53 20 30 2D 31 35  |EXT SCREENS 0-15|
00000DE0: 20 28 31 20 4F 46 20 31  36 0D 20 20 20 20 20 20  | (1 OF 16.      |
00000DF0: 20 20 20 20 20 20 31 6B  20 42 4C 4F 43 4B 53 29  |      1k BLOCKS)|
00000E00: 20 4D 41 59 20 42 45 20  53 45 4C 45 43 54 45 44  | MAY BE SELECTED|
00000E10: 0D 0D 20 20 20 43 48 41  52 23 3A 20 43 48 41 52  |..   CHAR#: CHAR|
00000E20: 41 43 54 45 52 20 53 45  54 20 4C 4F 43 41 54 49  |ACTER SET LOCATI|
00000E30: 4F 4E 53 20 30 2D 37 0D  20 20 20 20 20 20 20 20  |ONS 0-7.        |
00000E40: 20 20 28 31 20 4F 46 20  38 2D 32 6B 20 42 4C 4F  |  (1 OF 8-2k BLO|
00000E50: 43 4B 53 29 20 4D 41 59  20 42 45 0D 20 20 20 20  |CKS) MAY BE.    |
00000E60: 20 20 20 20 20 20 53 45  4C 45 43 54 45 44 0D 0D  |      SELECTED..|
00000E70: 6D 4F 52 45 20 69 4E 46  4F 52 4D 41 54 49 4F 4E  |mORE iNFORMATION|
00000E80: 20 41 56 41 49 4C 41 42  4C 45 2E 2E 2E 0D 5E 20  | AVAILABLE....^ |
00000E90: 76 69 63 20 0D 20 20 20  43 4F 50 59 20 4F 50 54  |vic .   COPY OPT|
00000EA0: 49 4F 4E 3A 20 63 4F 50  59 20 4D 41 44 45 20 54  |ION: cOPY MADE T|
00000EB0: 4F 20 43 48 41 52 20 4C  4F 43 3A 0D 20 20 20 20  |O CHAR LOC:.    |
00000EC0: 20 20 20 3D 20 30 20 64  4F 20 4E 4F 54 20 43 4F  |   = 0 dO NOT CO|
00000ED0: 50 59 20 43 48 41 52 20  53 45 54 20 46 52 4F 4D  |PY CHAR SET FROM|
00000EE0: 20 72 6F 6D 20 20 20 20  20 20 20 3D 20 31 20 63  | rom       = 1 c|
00000EF0: 4F 50 59 20 55 50 50 45  52 20 43 41 53 45 20 53  |OPY UPPER CASE S|
00000F00: 45 54 20 46 52 4F 4D 20  72 6F 6D 0D 20 20 20 20  |ET FROM rom.    |
00000F10: 20 20 20 3D 20 32 20 63  4F 50 59 20 4C 4F 57 45  |   = 2 cOPY LOWE|
00000F20: 52 20 43 41 53 45 20 53  45 54 20 46 52 4F 4D 20  |R CASE SET FROM |
00000F30: 72 6F 6D 0D 20 20 20 20  20 20 20 3D 20 33 20 43  |rom.       = 3 C|
00000F40: 4F 50 59 20 42 4F 54 48  20 53 45 54 53 20 46 52  |OPY BOTH SETS FR|
00000F50: 4F 4D 20 72 6F 6D 0D 0D  72 45 53 54 52 49 43 54  |OM rom..rESTRICT|
00000F60: 49 4F 4E 53 3A 20 74 48  45 20 76 69 63 20 43 4F  |IONS: tHE vic CO|
00000F70: 4D 4D 41 4E 44 20 6D 75  73 74 20 42 45 0D 20 20  |MMAND must BE.  |
00000F80: 20 55 53 45 44 20 62 65  66 6F 72 65 20 55 53 49  | USED before USI|
00000F90: 4E 47 20 53 50 52 49 54  45 53 20 41 4E 44 20 42  |NG SPRITES AND B|
00000FA0: 49 54 2D 0D 20 20 20 4D  41 50 20 47 52 41 50 48  |IT-.   MAP GRAPH|
00000FB0: 49 43 53 20 43 4F 4D 4D  41 4E 44 53 2E 20 20 67  |ICS COMMANDS.  g|
00000FC0: 45 4E 45 52 41 4C 4C 59  2C 0D 20 20 20 54 48 45  |ENERALLY,.   THE|
00000FD0: 20 65 6F 62 20 43 4F 4D  4D 41 4E 44 20 49 53 20  | eob COMMAND IS |
00000FE0: 4E 45 45 44 45 44 20 54  4F 20 50 52 4F 54 45 43  |NEEDED TO PROTEC|
00000FF0: 54 0D 20 20 20 54 48 45  20 44 45 46 49 4E 45 44  |T.   THE DEFINED|
00001000: 20 41 52 45 41 53 20 46  52 4F 4D 20 62 61 73 69  | AREAS FROM basi|
00001010: 63 2E 0D 0D 65 58 41 4D  50 4C 45 3A 20 74 4F 20  |c...eXAMPLE: tO |
00001020: 53 45 54 55 50 20 54 48  45 20 76 69 63 20 43 48  |SETUP THE vic CH|
00001030: 49 50 20 54 4F 20 55 53  45 0D 20 20 20 42 41 4E  |IP TO USE.   BAN|
00001040: 4B 20 31 20 28 53 54 41  52 54 49 4E 47 20 41 54  |K 1 (STARTING AT|
00001050: 20 24 34 30 30 30 29 20  57 49 54 48 0D 20 20 20  | $4000) WITH.   |
00001060: 54 45 58 54 20 53 43 52  45 45 4E 20 41 54 20 42  |TEXT SCREEN AT B|
00001070: 4C 4F 43 4B 20 31 20 28  24 34 34 30 30 29 2C 0D  |LOCK 1 ($4400),.|
00001080: 20 20 20 43 48 41 52 41  43 54 45 52 20 44 41 54  |   CHARACTER DAT|
00001090: 41 20 49 4E 20 42 4C 4F  43 4B 20 31 20 28 53 54  |A IN BLOCK 1 (ST|
000010A0: 41 52 54 49 4E 47 0D 20  20 20 41 54 20 24 34 38  |ARTING.   AT $48|
000010B0: 30 30 29 20 41 4E 44 20  41 4C 53 4F 20 43 4F 50  |00) AND ALSO COP|
000010C0: 59 20 54 48 45 20 55 50  50 45 52 43 41 53 45 20  |Y THE UPPERCASE |
000010D0: 20 20 43 48 41 52 41 43  54 45 52 20 44 41 54 41  |  CHARACTER DATA|
000010E0: 20 46 52 4F 4D 20 72 6F  6D 20 54 4F 20 54 48 45  | FROM rom TO THE|
000010F0: 20 42 4C 4F 43 4B 0D 20  20 20 31 20 43 48 41 52  | BLOCK.   1 CHAR|
00001100: 41 43 54 45 52 20 44 41  54 41 20 41 52 45 41 2C  |ACTER DATA AREA,|
00001110: 20 54 48 45 20 46 4F 4C  4C 4F 57 49 4E 47 0D 20  | THE FOLLOWING. |
00001120: 20 20 43 4F 4D 4D 41 4E  44 20 49 53 20 55 53 45  |  COMMAND IS USE|
00001130: 44 3A 0D 0D 20 20 20 76  69 63 20 32 2C 31 2C 31  |D:..   vic 2,1,1|
00001140: 2C 31 0D 5E 20 63 6F 6C  20 0D 0D 0D 70 55 52 50  |,1.^ col ...pURP|
00001150: 4F 53 45 3A 20 69 4E 20  62 49 54 2D 4D 41 50 20  |OSE: iN bIT-MAP |
00001160: 4D 4F 44 45 2C 20 63 6F  6C 20 49 53 20 55 53 45  |MODE, col IS USE|
00001170: 44 0D 20 20 20 20 20 20  20 20 20 54 4F 20 53 45  |D.         TO SE|
00001180: 54 20 54 48 45 20 42 41  43 4B 47 52 4F 55 4E 44  |T THE BACKGROUND|
00001190: 20 41 4E 44 20 46 4F 52  45 2D 20 20 20 20 20 20  | AND FORE-      |
000011A0: 20 20 20 47 52 4F 55 4E  44 20 43 4F 4C 4F 55 52  |   GROUND COLOUR|
000011B0: 53 2C 20 41 53 20 57 45  4C 4C 20 41 53 0D 20 20  |S, AS WELL AS.  |
000011C0: 20 20 20 20 20 20 20 4F  50 54 49 4F 4E 41 4C 4C  |       OPTIONALL|
000011D0: 59 20 54 48 45 20 4D 55  4C 54 49 2D 43 4F 4C 4F  |Y THE MULTI-COLO|
000011E0: 55 52 0D 20 20 20 20 20  20 20 20 20 31 20 41 4E  |UR.         1 AN|
000011F0: 44 20 32 20 52 45 47 49  53 54 45 52 53 0D 0D 66  |D 2 REGISTERS..f|
00001200: 4F 52 4D 41 54 3A 20 20  63 6F 6C 20 42 41 43 4B  |ORMAT:  col BACK|
00001210: 47 2C 20 46 4F 52 45 20  5B 2C 20 6D 63 31 2C 20  |G, FORE [, mc1, |
00001220: 6D 63 32 20 5D 0D 0D 70  41 52 41 4D 45 54 45 52  |mc2 ]..pARAMETER|
00001230: 20 64 45 53 43 52 49 50  54 49 4F 4E 3A 20 63 4F  | dESCRIPTION: cO|
00001240: 4C 4F 55 52 20 52 41 4E  47 45 20 46 4F 52 0D 20  |LOUR RANGE FOR. |
00001250: 20 20 54 48 45 20 46 4F  4C 4C 4F 57 49 4E 47 20  |  THE FOLLOWING |
00001260: 50 41 52 41 4D 45 54 45  52 53 20 49 53 20 30 2D  |PARAMETERS IS 0-|
00001270: 31 35 0D 0D 20 20 20 46  4F 52 45 3A 20 74 48 45  |15..   FORE: tHE|
00001280: 20 43 4F 4C 4F 55 52 20  57 48 49 43 48 20 54 48  | COLOUR WHICH TH|
00001290: 45 20 46 4F 52 45 47 52  4F 55 4E 44 20 20 20 20  |E FOREGROUND    |
000012A0: 20 20 20 20 20 49 53 20  44 52 41 57 4E 20 28 57  |     IS DRAWN (W|
000012B0: 49 54 48 20 6C 69 6E 65  2C 20 70 6C 6F 74 2C 20  |ITH line, plot, |
000012C0: 45 54 43 29 20 20 20 20  20 20 20 20 20 49 4E 20  |ETC)         IN |
000012D0: 48 49 2D 52 45 53 20 4D  4F 44 45 2E 20 20 69 4E  |HI-RES MODE.  iN|
000012E0: 20 4D 55 4C 54 49 43 4F  4C 4F 55 52 20 20 20 20  | MULTICOLOUR    |
000012F0: 20 20 20 20 20 4D 4F 44  45 2C 20 4F 4E 45 20 4F  |     MODE, ONE O|
00001300: 46 20 33 20 50 4F 53 53  49 42 4C 45 20 43 4F 4C  |F 3 POSSIBLE COL|
00001310: 4F 55 52 0D 20 20 20 20  20 20 20 20 20 53 45 4C  |OUR.         SEL|
00001320: 45 43 54 49 4F 4E 20 41  56 41 49 4C 41 42 4C 45  |ECTION AVAILABLE|
00001330: 2E 0D 0D 20 20 20 42 41  43 4B 47 3A 20 74 48 45  |...   BACKG: tHE|
00001340: 20 43 4F 4C 4F 55 52 20  4F 46 20 54 48 45 20 42  | COLOUR OF THE B|
00001350: 41 43 4B 47 52 4F 55 4E  44 2E 0D 0D 6D 4F 52 45  |ACKGROUND...mORE|
00001360: 20 69 4E 46 4F 52 4D 41  54 49 4F 4E 20 41 56 41  | iNFORMATION AVA|
00001370: 49 4C 41 42 4C 45 2E 2E  2E 0D 5E 20 63 6F 6C 20  |ILABLE....^ col |
00001380: 0D 0D 0D 0D 20 20 20 6D  63 31 3A 20 6F 50 54 49  |....   mc1: oPTI|
00001390: 4F 4E 41 4C 20 4D 55 4C  54 49 2D 43 4F 4C 4F 55  |ONAL MULTI-COLOU|
000013A0: 52 20 23 31 20 46 4F 52  20 55 53 45 20 20 20 20  |R #1 FOR USE    |
000013B0: 20 20 20 20 49 4E 20 4D  55 4C 54 49 43 4F 4C 4F  |    IN MULTICOLO|
000013C0: 55 52 20 4D 4F 44 45 2E  0D 0D 20 20 20 6D 63 32  |UR MODE...   mc2|
000013D0: 3A 20 6F 50 54 49 4F 4E  41 4C 20 4D 55 4C 54 49  |: oPTIONAL MULTI|
000013E0: 2D 43 4F 4C 4F 55 52 20  23 32 20 46 4F 52 20 55  |-COLOUR #2 FOR U|
000013F0: 53 45 20 20 20 20 20 20  20 20 49 4E 20 4D 55 4C  |SE        IN MUL|
00001400: 54 49 43 4F 4C 4F 55 52  20 4D 4F 44 45 2E 0D 0D  |TICOLOUR MODE...|
00001410: 65 58 41 4D 50 4C 45 3A  20 74 4F 20 53 45 54 55  |eXAMPLE: tO SETU|
00001420: 50 20 41 20 57 48 49 54  45 20 42 49 54 2D 4D 41  |P A WHITE BIT-MA|
00001430: 50 20 53 43 52 45 45 4E  20 20 20 41 4E 44 20 48  |P SCREEN   AND H|
00001440: 41 56 45 20 54 48 45 20  6C 69 6E 65 20 41 4E 44  |AVE THE line AND|
00001450: 20 70 6C 6F 74 20 43 4F  4D 4D 41 4E 44 53 0D 20  | plot COMMANDS. |
00001460: 20 20 44 52 41 57 20 49  4E 20 42 4C 41 43 4B 20  |  DRAW IN BLACK |
00001470: 28 49 4E 20 48 49 2D 52  45 53 20 4D 4F 44 45 29  |(IN HI-RES MODE)|
00001480: 2C 20 55 53 45 3A 0D 0D  20 20 20 63 6F 6C 20 31  |, USE:..   col 1|
00001490: 2C 30 0D 0D 74 4F 20 53  45 54 55 50 20 54 48 45  |,0..tO SETUP THE|
000014A0: 20 53 41 4D 45 20 49 4E  20 4D 55 4C 54 49 2D 43  | SAME IN MULTI-C|
000014B0: 4F 4C 4F 55 52 20 4D 4F  44 45 2C 0D 20 20 20 57  |OLOUR MODE,.   W|
000014C0: 49 54 48 20 6D 63 31 20  42 45 49 4E 47 20 43 59  |ITH mc1 BEING CY|
000014D0: 41 4E 20 41 4E 44 20 6D  63 32 20 47 52 45 45 4E  |AN AND mc2 GREEN|
000014E0: 3A 0D 0D 20 20 20 63 6F  6C 20 31 2C 30 2C 33 2C  |:..   col 1,0,3,|
000014F0: 35 0D 5E 20 63 6C 73 63  72 20 0D 0D 0D 70 55 52  |5.^ clscr ...pUR|
00001500: 50 4F 53 45 3A 20 63 4C  45 41 52 53 20 54 48 45  |POSE: cLEARS THE|
00001510: 20 43 55 52 52 45 4E 54  20 42 49 54 2D 4D 41 50  | CURRENT BIT-MAP|
00001520: 0D 20 20 20 20 20 20 20  20 20 53 43 52 45 45 4E  |.         SCREEN|
00001530: 0D 0D 66 4F 52 4D 41 54  3A 20 20 63 6C 73 63 72  |..fORMAT:  clscr|
00001540: 0D 0D 0D 65 58 41 4D 50  4C 45 3A 20 74 4F 20 43  |...eXAMPLE: tO C|
00001550: 4C 45 41 52 20 54 48 45  20 43 55 52 52 45 4E 54  |LEAR THE CURRENT|
00001560: 20 42 49 54 2D 4D 41 50  0D 20 20 20 20 20 20 20  | BIT-MAP.       |
00001570: 20 20 28 48 49 2D 52 45  53 20 4F 52 20 4D 55 4C  |  (HI-RES OR MUL|
00001580: 54 49 43 4F 4C 4F 52 29  2C 20 55 53 45 20 54 48  |TICOLOR), USE TH|
00001590: 45 20 20 20 20 20 20 20  20 20 46 4F 4C 4C 4F 57  |E         FOLLOW|
000015A0: 49 4E 47 3A 0D 0D 20 20  20 20 20 20 20 20 20 20  |ING:..          |
000015B0: 20 20 20 20 63 6C 73 63  72 0D 5E 20 67 72 61 70  |    clscr.^ grap|
000015C0: 68 69 63 20 0D 0D 0D 70  55 52 50 4F 53 45 3A 20  |hic ...pURPOSE: |
000015D0: 73 45 54 20 54 48 45 20  43 55 52 52 45 4E 54 20  |sET THE CURRENT |
000015E0: 47 52 41 50 48 49 43 53  20 4D 4F 44 45 0D 20 20  |GRAPHICS MODE.  |
000015F0: 20 20 20 20 20 20 20 54  4F 20 42 49 54 4D 41 50  |       TO BITMAP|
00001600: 20 4D 4F 44 45 2E 20 20  6F 4E 45 20 4F 46 20 48  | MODE.  oNE OF H|
00001610: 49 2D 52 45 53 0D 20 20  20 20 20 20 20 20 20 41  |I-RES.         A|
00001620: 4E 44 20 4D 55 4C 54 49  2D 43 4F 4C 4F 55 52 20  |ND MULTI-COLOUR |
00001630: 4D 4F 44 45 53 20 43 41  4E 20 42 45 0D 20 20 20  |MODES CAN BE.   |
00001640: 20 20 20 20 20 20 53 45  4C 45 43 54 45 44 0D 0D  |      SELECTED..|
00001650: 66 4F 52 4D 41 54 3A 20  20 67 72 61 70 68 69 63  |fORMAT:  graphic|
00001660: 20 4E 0D 0D 70 41 52 41  4D 45 54 45 52 20 64 45  | N..pARAMETER dE|
00001670: 53 43 52 49 50 54 49 4F  4E 3A 0D 0D 20 20 20 4E  |SCRIPTION:..   N|
00001680: 3A 20 53 45 4C 45 43 54  20 54 59 50 45 20 4F 46  |: SELECT TYPE OF|
00001690: 20 42 49 54 2D 4D 41 50  20 4D 4F 44 45 0D 20 20  | BIT-MAP MODE.  |
000016A0: 20 20 20 20 3D 20 30 20  20 53 45 54 53 20 42 49  |    = 0  SETS BI|
000016B0: 54 2D 4D 41 50 20 4D 4F  44 45 20 54 4F 20 48 49  |T-MAP MODE TO HI|
000016C0: 2D 52 45 53 0D 20 20 20  20 20 20 3C 3E 30 20 20  |-RES.      <>0  |
000016D0: 53 45 54 53 20 42 49 54  2D 4D 41 50 20 4D 4F 44  |SETS BIT-MAP MOD|
000016E0: 45 20 54 4F 20 4D 55 4C  54 49 2D 0D 20 20 20 20  |E TO MULTI-.    |
000016F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001700: 20 20 20 20 20 20 20 20  20 20 20 20 43 4F 4C 4F  |            COLO|
00001710: 55 52 0D 72 45 53 54 52  49 43 54 49 4F 4E 53 3A  |UR.rESTRICTIONS:|
00001720: 20 67 72 61 70 68 69 63  20 43 4F 4D 4D 41 4E 44  | graphic COMMAND|
00001730: 20 4D 55 53 54 0D 20 20  20 50 52 45 43 45 44 45  | MUST.   PRECEDE|
00001740: 20 41 4E 59 20 42 49 54  2D 4D 41 50 20 47 52 41  | ANY BIT-MAP GRA|
00001750: 50 48 49 43 20 43 4F 4D  4D 41 4E 44 53 0D 20 20  |PHIC COMMANDS.  |
00001760: 20 41 4E 44 20 4D 55 53  54 20 43 4F 4D 45 20 41  | AND MUST COME A|
00001770: 46 54 45 52 20 41 20 76  69 63 20 43 4F 4D 4D 41  |FTER A vic COMMA|
00001780: 4E 44 2E 0D 0D 45 58 41  4D 50 4C 45 3A 20 74 4F  |ND...EXAMPLE: tO|
00001790: 20 50 55 54 20 54 48 45  20 43 55 52 52 45 4E 54  | PUT THE CURRENT|
000017A0: 20 47 52 41 50 48 49 43  53 0D 20 20 20 4D 4F 44  | GRAPHICS.   MOD|
000017B0: 45 20 49 4E 54 4F 20 48  49 2D 52 45 53 20 42 49  |E INTO HI-RES BI|
000017C0: 54 2D 4D 41 50 2C 20 55  53 45 0D 0D 20 20 20 67  |T-MAP, USE..   g|
000017D0: 72 61 70 68 69 63 20 30  0D 5E 20 6C 69 6E 65 20  |raphic 0.^ line |
000017E0: 0D 0D 70 55 52 50 4F 53  45 3A 20 64 52 41 57 53  |..pURPOSE: dRAWS|
000017F0: 20 41 20 4C 49 4E 45 20  46 52 4F 4D 20 54 48 45  | A LINE FROM THE|
00001800: 20 43 55 52 52 45 4E 54  0D 20 20 20 20 20 20 20  | CURRENT.       |
00001810: 20 20 42 49 54 2D 4D 41  50 20 43 55 52 53 4F 52  |  BIT-MAP CURSOR|
00001820: 20 50 4F 53 49 54 49 4F  4E 20 54 4F 20 54 48 45  | POSITION TO THE|
00001830: 0D 20 20 20 20 20 20 20  20 20 50 4F 53 49 54 49  |.         POSITI|
00001840: 4F 4E 20 44 45 46 49 4E  45 44 20 49 4E 20 54 48  |ON DEFINED IN TH|
00001850: 45 20 6C 69 6E 65 0D 20  20 20 20 20 20 20 20 20  |E line.         |
00001860: 43 4F 4D 4D 41 4E 44 20  55 53 49 4E 47 20 54 48  |COMMAND USING TH|
00001870: 45 20 44 52 41 57 20 4F  50 54 49 4F 4E 53 0D 20  |E DRAW OPTIONS. |
00001880: 20 20 20 20 20 20 20 20  44 45 46 49 4E 45 44 20  |        DEFINED |
00001890: 42 59 20 54 48 45 20 70  65 6E 20 43 4F 4D 4D 41  |BY THE pen COMMA|
000018A0: 4E 44 0D 0D 66 4F 52 4D  41 54 3A 20 20 6C 69 6E  |ND..fORMAT:  lin|
000018B0: 65 20 58 2C 59 0D 0D 70  41 52 41 4D 45 54 45 52  |e X,Y..pARAMETER|
000018C0: 20 64 45 53 43 52 49 50  54 49 4F 4E 3A 0D 0D 20  | dESCRIPTION:.. |
000018D0: 20 20 58 3A 20 72 4F 57  20 50 49 58 45 4C 20 46  |  X: rOW PIXEL F|
000018E0: 52 4F 4D 20 54 4F 50 2D  4C 45 46 54 20 4F 46 20  |ROM TOP-LEFT OF |
000018F0: 53 43 52 45 45 4E 2E 20  20 20 20 20 20 72 41 4E  |SCREEN.      rAN|
00001900: 47 45 20 49 53 20 30 20  54 4F 20 31 39 39 0D 0D  |GE IS 0 TO 199..|
00001910: 20 20 20 59 3A 20 63 4F  4C 55 4D 4E 20 50 49 58  |   Y: cOLUMN PIX|
00001920: 45 4C 20 46 52 4F 4D 20  54 4F 50 2D 4C 45 46 54  |EL FROM TOP-LEFT|
00001930: 20 4F 46 0D 20 20 20 20  20 20 53 43 52 45 45 4E  | OF.      SCREEN|
00001940: 2E 20 20 72 41 4E 47 45  20 49 53 20 30 20 54 4F  |.  rANGE IS 0 TO|
00001950: 20 33 31 39 20 46 4F 52  20 0D 20 20 20 20 20 20  | 319 FOR .      |
00001960: 48 49 2D 52 45 53 20 41  4E 44 20 30 2D 31 35 39  |HI-RES AND 0-159|
00001970: 20 46 4F 52 20 4D 55 4C  54 49 2D 43 4F 4C 4F 52  | FOR MULTI-COLOR|
00001980: 2E 0D 0D 72 45 53 54 52  49 43 54 49 4F 4E 53 3A  |...rESTRICTIONS:|
00001990: 20 75 53 45 44 20 49 4E  20 42 49 54 2D 4D 41 50  | uSED IN BIT-MAP|
000019A0: 20 4D 4F 44 45 20 4F 4E  4C 59 0D 0D 65 58 41 4D  | MODE ONLY..eXAM|
000019B0: 50 4C 45 3A 20 74 4F 20  44 52 41 57 20 41 20 4C  |PLE: tO DRAW A L|
000019C0: 49 4E 45 20 46 52 4F 4D  20 28 31 30 2C 31 30 29  |INE FROM (10,10)|
000019D0: 20 54 4F 20 20 20 20 20  20 20 20 20 20 28 32 30  | TO          (20|
000019E0: 2C 32 30 29 20 55 53 45  3A 0D 20 20 20 20 20 20  |,20) USE:.      |
000019F0: 20 20 20 20 20 20 20 6D  6F 76 65 20 31 30 2C 31  |       move 10,1|
00001A00: 30 3A 20 6C 69 6E 65 20  32 30 2C 32 30 0D 5E 20  |0: line 20,20.^ |
00001A10: 6D 6F 76 65 20 0D 0D 0D  70 55 52 50 4F 53 45 3A  |move ...pURPOSE:|
00001A20: 20 73 45 54 20 54 48 45  20 43 55 52 52 45 4E 54  | sET THE CURRENT|
00001A30: 20 42 49 54 2D 4D 41 50  20 43 55 52 53 4F 52 0D  | BIT-MAP CURSOR.|
00001A40: 20 20 20 20 20 20 20 20  20 4C 4F 43 41 54 49 4F  |         LOCATIO|
00001A50: 4E 20 57 49 54 48 4F 55  54 20 41 46 46 45 43 54  |N WITHOUT AFFECT|
00001A60: 49 4E 47 20 54 48 45 0D  20 20 20 20 20 20 20 20  |ING THE.        |
00001A70: 20 42 49 54 2D 4D 41 50  20 49 4E 20 41 4E 59 20  | BIT-MAP IN ANY |
00001A80: 57 41 59 0D 0D 66 4F 52  4D 41 54 3A 20 20 6D 6F  |WAY..fORMAT:  mo|
00001A90: 76 65 20 58 2C 59 0D 0D  70 41 52 41 4D 45 54 45  |ve X,Y..pARAMETE|
00001AA0: 52 20 64 45 53 43 52 49  50 54 49 4F 4E 3A 0D 0D  |R dESCRIPTION:..|
00001AB0: 20 20 58 3A 20 72 4F 57  20 50 49 58 45 4C 20 46  |  X: rOW PIXEL F|
00001AC0: 52 4F 4D 20 54 4F 50 2D  4C 45 46 54 20 4F 46 20  |ROM TOP-LEFT OF |
00001AD0: 53 43 52 45 45 4E 2E 20  20 20 20 20 20 72 41 4E  |SCREEN.      rAN|
00001AE0: 47 45 20 49 53 20 30 20  54 4F 20 31 39 39 0D 0D  |GE IS 0 TO 199..|
00001AF0: 20 20 59 3A 20 63 4F 4C  2E 20 50 49 58 45 4C 20  |  Y: cOL. PIXEL |
00001B00: 46 52 4F 4D 20 54 4F 50  2D 4C 45 46 54 20 4F 46  |FROM TOP-LEFT OF|
00001B10: 20 53 43 52 45 45 4E 2E  20 20 20 20 20 20 72 41  | SCREEN.      rA|
00001B20: 4E 47 45 3A 20 30 20 54  4F 20 33 31 39 20 46 4F  |NGE: 0 TO 319 FO|
00001B30: 52 20 48 49 52 45 53 2E  0D 20 20 20 20 20 20 20  |R HIRES..       |
00001B40: 20 20 20 20 20 20 30 20  54 4F 20 31 35 39 20 46  |      0 TO 159 F|
00001B50: 4F 52 20 4D 55 4C 54 49  43 4F 4C 4F 52 2E 0D 0D  |OR MULTICOLOR...|
00001B60: 72 45 53 54 52 49 43 54  49 4F 4E 53 3A 20 75 53  |rESTRICTIONS: uS|
00001B70: 45 44 20 49 4E 20 42 49  54 2D 4D 41 50 20 4D 4F  |ED IN BIT-MAP MO|
00001B80: 44 45 20 4F 4E 4C 59 0D  0D 65 58 41 4D 50 4C 45  |DE ONLY..eXAMPLE|
00001B90: 3A 20 74 4F 20 53 54 41  52 54 20 44 52 41 57 49  |: tO START DRAWI|
00001BA0: 4E 47 20 41 20 4C 49 4E  45 20 46 52 4F 4D 0D 20  |NG A LINE FROM. |
00001BB0: 20 20 43 4F 2D 4F 52 44  49 4E 41 54 45 53 3A 20  |  CO-ORDINATES: |
00001BC0: 28 31 30 2C 31 30 29 2C  20 55 53 45 3A 0D 0D 20  |(10,10), USE:.. |
00001BD0: 20 20 6D 6F 76 65 20 31  30 2C 31 30 0D 5E 20 70  |  move 10,10.^ p|
00001BE0: 65 6E 20 0D 0D 0D 70 55  52 50 4F 53 45 3A 20 64  |en ...pURPOSE: d|
00001BF0: 45 46 49 4E 45 53 20 43  55 52 52 45 4E 54 20 44  |EFINES CURRENT D|
00001C00: 52 41 57 49 4E 47 20 4F  50 54 49 4F 4E 53 20 20  |RAWING OPTIONS  |
00001C10: 20 20 20 20 20 20 20 46  4F 52 20 42 49 54 2D 4D  |       FOR BIT-M|
00001C20: 41 50 20 43 4F 4D 4D 41  4E 44 53 2E 20 20 74 48  |AP COMMANDS.  tH|
00001C30: 45 0D 20 20 20 20 20 20  20 20 20 44 52 41 57 49  |E.         DRAWI|
00001C40: 4E 47 20 4D 4F 44 45 20  41 4E 44 20 49 46 20 41  |NG MODE AND IF A|
00001C50: 50 50 4C 49 43 41 42 4C  45 2C 20 20 20 20 20 20  |PPLICABLE,      |
00001C60: 20 20 20 54 48 45 20 4D  55 4C 54 49 43 4F 4C 4F  |   THE MULTICOLO|
00001C70: 55 52 20 53 45 4C 45 43  54 49 4F 4E 2C 20 49 53  |UR SELECTION, IS|
00001C80: 0D 20 20 20 20 20 20 20  20 20 53 50 45 43 49 46  |.         SPECIF|
00001C90: 49 45 44 0D 0D 66 4F 52  4D 41 54 3A 20 20 70 65  |IED..fORMAT:  pe|
00001CA0: 6E 20 44 52 41 57 4D 4F  44 45 20 5B 2C 20 43 4F  |n DRAWMODE [, CO|
00001CB0: 4C 53 45 4C 5D 0D 0D 70  41 52 41 4D 45 54 45 52  |LSEL]..pARAMETER|
00001CC0: 20 64 45 53 43 52 49 50  54 49 4F 4E 3A 0D 0D 20  | dESCRIPTION:.. |
00001CD0: 20 20 44 52 41 57 4D 4F  44 45 3A 20 53 50 45 43  |  DRAWMODE: SPEC|
00001CE0: 49 46 59 20 70 65 6E 20  41 43 54 49 4F 4E 20 46  |IFY pen ACTION F|
00001CF0: 4F 52 20 42 49 54 2D 20  20 20 20 20 20 20 20 20  |OR BIT-         |
00001D00: 20 20 20 20 4D 41 50 20  52 45 4C 41 54 45 44 20  |    MAP RELATED |
00001D10: 43 4F 4D 4D 41 4E 44 53  3A 0D 0D 20 20 20 20 20  |COMMANDS:..     |
00001D20: 20 20 20 20 20 20 20 3D  20 30 20 75 4E 44 52 41  |       = 0 uNDRA|
00001D30: 57 53 0D 20 20 20 20 20  20 20 20 20 20 20 20 3D  |WS.            =|
00001D40: 20 31 20 64 52 41 57 53  0D 20 20 20 20 20 20 20  | 1 dRAWS.       |
00001D50: 20 20 20 20 20 3D 20 32  20 63 4F 4D 50 4C 45 4D  |     = 2 cOMPLEM|
00001D60: 45 4E 54 53 0D 0D 0D 6D  4F 52 45 20 49 4E 46 4F  |ENTS...mORE INFO|
00001D70: 52 4D 41 54 49 4F 4E 20  41 56 41 49 4C 41 42 4C  |RMATION AVAILABL|
00001D80: 45 2E 2E 2E 0D 5E 20 70  65 6E 20 0D 0D 20 20 20  |E....^ pen ..   |
00001D90: 43 4F 4C 53 45 4C 3A 20  6F 50 54 49 4F 4E 41 4C  |COLSEL: oPTIONAL|
00001DA0: 20 50 41 52 41 4D 45 54  45 52 20 55 53 45 44 20  | PARAMETER USED |
00001DB0: 49 4E 0D 20 20 20 20 20  20 20 20 20 20 20 4D 55  |IN.           MU|
00001DC0: 4C 54 49 43 4F 4C 4F 55  52 20 4D 4F 44 45 20 4F  |LTICOLOUR MODE O|
00001DD0: 4E 4C 59 2E 0D 20 20 20  20 20 20 20 20 20 20 20  |NLY..           |
00001DE0: 73 45 4C 45 43 54 53 20  54 48 45 20 43 4F 4C 4F  |sELECTS THE COLO|
00001DF0: 55 52 20 54 4F 20 42 45  20 55 53 45 44 20 20 20  |UR TO BE USED   |
00001E00: 20 20 20 20 20 20 20 20  42 59 20 54 48 45 20 42  |        BY THE B|
00001E10: 49 54 2D 4D 41 50 20 43  4F 4D 4D 41 4E 44 53 3A  |IT-MAP COMMANDS:|
00001E20: 0D 0D 20 20 20 20 20 20  20 20 20 20 3D 20 30 20  |..          = 0 |
00001E30: 55 53 45 53 20 54 48 45  20 46 4F 52 45 47 52 4F  |USES THE FOREGRO|
00001E40: 55 4E 44 20 43 4F 4C 4F  55 52 20 20 20 20 20 20  |UND COLOUR      |
00001E50: 20 20 20 20 3D 20 31 20  55 53 45 53 20 54 48 45  |    = 1 USES THE|
00001E60: 20 43 4F 4C 4F 55 52 20  4F 46 20 6D 63 31 0D 20  | COLOUR OF mc1. |
00001E70: 20 20 20 20 20 20 20 20  20 3D 20 32 20 55 53 45  |         = 2 USE|
00001E80: 53 20 54 48 45 20 43 4F  4C 4F 55 52 20 4F 46 20  |S THE COLOUR OF |
00001E90: 6D 63 32 0D 0D 72 45 53  54 52 49 43 54 49 4F 4E  |mc2..rESTRICTION|
00001EA0: 53 3A 20 75 53 45 44 20  49 4E 20 42 49 54 2D 4D  |S: uSED IN BIT-M|
00001EB0: 41 50 20 4D 4F 44 45 20  4F 4E 4C 59 0D 20 20 20  |AP MODE ONLY.   |
00001EC0: 20 20 20 20 20 20 20 20  20 20 20 27 43 4F 4C 53  |           'COLS|
00001ED0: 45 4C 27 20 49 53 20 49  47 4E 4F 52 45 44 20 49  |EL' IS IGNORED I|
00001EE0: 4E 20 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |N .             |
00001EF0: 20 48 49 2D 52 45 53 20  4D 4F 44 45 2E 0D 0D 65  | HI-RES MODE...e|
00001F00: 58 41 4D 50 4C 45 3A 20  74 4F 20 53 45 54 20 54  |XAMPLE: tO SET T|
00001F10: 48 45 20 43 55 52 52 45  4E 54 20 44 52 41 57 49  |HE CURRENT DRAWI|
00001F20: 4E 47 0D 20 20 20 4F 50  54 49 4F 4E 53 20 46 4F  |NG.   OPTIONS FO|
00001F30: 52 20 6C 69 6E 65 20 26  20 70 6C 6F 74 20 43 4F  |R line & plot CO|
00001F40: 4D 4D 41 4E 44 53 20 54  4F 0D 20 20 20 43 4F 4D  |MMANDS TO.   COM|
00001F50: 50 4C 45 4D 45 4E 54 20  55 53 45 3A 0D 0D 20 20  |PLEMENT USE:..  |
00001F60: 20 20 20 20 20 20 20 20  20 20 70 65 6E 20 32 0D  |          pen 2.|
00001F70: 20 20 20 69 46 20 59 4F  55 20 57 49 53 48 20 54  |   iF YOU WISH T|
00001F80: 4F 20 44 52 41 57 20 57  49 54 48 20 6D 63 32 20  |O DRAW WITH mc2 |
00001F90: 49 4E 20 0D 20 20 20 4D  55 4C 54 49 2D 43 4F 4C  |IN .   MULTI-COL|
00001FA0: 4F 55 52 20 4D 4F 44 45  2C 20 55 53 45 3A 0D 0D  |OUR MODE, USE:..|
00001FB0: 20 20 20 20 20 20 20 20  20 20 20 20 70 65 6E 20  |            pen |
00001FC0: 31 2C 32 0D 5E 20 70 69  78 65 6C 20 0D 0D 70 55  |1,2.^ pixel ..pU|
00001FD0: 52 50 4F 53 45 3A 20 61  20 46 55 4E 43 54 49 4F  |RPOSE: a FUNCTIO|
00001FE0: 4E 20 52 45 54 55 52 4E  49 4E 47 20 54 48 45 0D  |N RETURNING THE.|
00001FF0: 20 20 20 20 20 20 20 20  20 43 55 52 52 45 4E 54  |         CURRENT|
00002000: 20 53 54 41 54 45 20 4F  46 20 41 20 53 50 45 43  | STATE OF A SPEC|
00002010: 49 46 49 45 44 0D 20 20  20 20 20 20 20 20 20 4C  |IFIED.         L|
00002020: 4F 43 41 54 49 4F 4E 20  49 4E 20 41 20 42 49 54  |OCATION IN A BIT|
00002030: 2D 4D 41 50 2E 20 20 69  4E 0D 20 20 20 20 20 20  |-MAP.  iN.      |
00002040: 20 20 20 48 49 2D 52 45  53 20 4D 4F 44 45 3A 20  |   HI-RES MODE: |
00002050: 30 3D 4E 4F 54 20 53 45  54 2C 20 31 3D 53 45 54  |0=NOT SET, 1=SET|
00002060: 2E 0D 20 20 20 20 20 20  20 20 20 69 4E 20 4D 55  |..         iN MU|
00002070: 4C 54 49 2D 43 4F 4C 4F  55 52 20 4D 4F 44 45 2C  |LTI-COLOUR MODE,|
00002080: 20 54 48 45 20 32 2D 42  49 54 20 20 20 20 20 20  | THE 2-BIT      |
00002090: 20 20 20 4D 55 4C 54 49  2D 43 4F 4C 4F 55 52 20  |   MULTI-COLOUR |
000020A0: 53 45 4C 45 43 54 49 4F  4E 20 43 4F 44 45 20 49  |SELECTION CODE I|
000020B0: 53 0D 20 20 20 20 20 20  20 20 20 52 45 54 55 52  |S.         RETUR|
000020C0: 4E 45 44 0D 0D 66 4F 52  4D 41 54 3A 20 20 70 69  |NED..fORMAT:  pi|
000020D0: 78 65 6C 20 28 58 2C 59  29 0D 0D 70 41 52 41 4D  |xel (X,Y)..pARAM|
000020E0: 45 54 45 52 20 64 45 53  43 52 49 50 54 49 4F 4E  |ETER dESCRIPTION|
000020F0: 3A 0D 20 20 20 58 3A 20  72 4F 57 20 50 49 58 45  |:.   X: rOW PIXE|
00002100: 4C 20 46 52 4F 4D 20 54  4F 50 2D 4C 45 46 54 20  |L FROM TOP-LEFT |
00002110: 4F 46 20 53 43 52 45 45  4E 2E 20 20 20 20 20 20  |OF SCREEN.      |
00002120: 72 41 4E 47 45 20 49 53  20 30 20 54 4F 20 31 39  |rANGE IS 0 TO 19|
00002130: 39 0D 0D 20 20 20 59 3A  20 63 4F 4C 55 4D 4E 20  |9..   Y: cOLUMN |
00002140: 50 49 58 45 4C 20 46 52  4F 4D 20 54 4F 50 2D 4C  |PIXEL FROM TOP-L|
00002150: 45 46 54 20 4F 46 0D 20  20 20 20 20 20 53 43 52  |EFT OF.      SCR|
00002160: 45 45 4E 2E 20 72 41 4E  47 45 3A 20 30 20 54 4F  |EEN. rANGE: 0 TO|
00002170: 20 33 31 39 20 28 48 49  52 45 53 29 2E 0D 20 20  | 319 (HIRES)..  |
00002180: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002190: 20 20 20 30 20 54 4F 20  31 35 39 20 28 4D 55 4C  |   0 TO 159 (MUL|
000021A0: 54 49 29 2E 0D 72 45 53  54 52 49 43 54 49 4F 4E  |TI)..rESTRICTION|
000021B0: 53 3A 20 75 53 45 44 20  49 4E 20 42 49 54 2D 4D  |S: uSED IN BIT-M|
000021C0: 41 50 20 4D 4F 44 45 20  4F 4E 4C 59 0D 0D 65 58  |AP MODE ONLY..eX|
000021D0: 41 4D 50 4C 45 3A 20 74  4F 20 53 45 45 20 49 46  |AMPLE: tO SEE IF|
000021E0: 20 50 49 58 45 4C 20 28  31 30 30 2C 31 30 30 29  | PIXEL (100,100)|
000021F0: 20 49 53 0D 20 20 20 53  45 54 20 28 20 31 20 49  | IS.   SET ( 1 I|
00002200: 46 20 53 45 54 2C 20 30  20 49 46 20 4E 4F 54 20  |F SET, 0 IF NOT |
00002210: 53 45 54 29 3A 0D 20 20  20 70 72 69 6E 74 20 70  |SET):.   print p|
00002220: 69 78 65 6C 28 31 30 30  2C 31 30 30 29 0D 5E 20  |ixel(100,100).^ |
00002230: 70 6C 6F 74 20 0D 0D 0D  70 55 52 50 4F 53 45 3A  |plot ...pURPOSE:|
00002240: 20 70 6C 6F 74 20 41 46  46 45 43 54 53 20 4F 4E  | plot AFFECTS ON|
00002250: 45 20 50 49 58 45 4C 20  49 4E 20 54 48 45 0D 20  |E PIXEL IN THE. |
00002260: 20 20 20 20 20 20 20 20  42 49 54 2D 4D 41 50 20  |        BIT-MAP |
00002270: 55 53 49 4E 47 20 54 48  45 20 43 55 52 52 45 4E  |USING THE CURREN|
00002280: 54 0D 20 20 20 20 20 20  20 20 20 44 52 41 57 49  |T.         DRAWI|
00002290: 4E 47 20 4F 50 54 49 4F  4E 53 20 44 45 46 49 4E  |NG OPTIONS DEFIN|
000022A0: 45 44 20 42 59 20 70 65  6E 0D 0D 66 4F 52 4D 41  |ED BY pen..fORMA|
000022B0: 54 3A 20 20 70 6C 6F 74  20 58 2C 59 0D 0D 70 41  |T:  plot X,Y..pA|
000022C0: 52 41 4D 45 54 45 52 20  64 45 53 43 52 49 50 54  |RAMETER dESCRIPT|
000022D0: 49 4F 4E 3A 0D 0D 20 20  20 58 3A 20 72 4F 57 20  |ION:..   X: rOW |
000022E0: 50 49 58 45 4C 20 46 52  4F 4D 20 54 4F 50 2D 4C  |PIXEL FROM TOP-L|
000022F0: 45 46 54 20 4F 46 20 53  43 52 45 45 4E 2E 20 20  |EFT OF SCREEN.  |
00002300: 20 20 20 20 72 41 4E 47  45 20 49 53 20 30 20 54  |    rANGE IS 0 T|
00002310: 4F 20 31 39 39 0D 0D 20  20 20 59 3A 20 63 4F 4C  |O 199..   Y: cOL|
00002320: 55 4D 4E 20 50 49 58 45  4C 20 46 52 4F 4D 20 54  |UMN PIXEL FROM T|
00002330: 4F 50 2D 4C 45 46 54 20  4F 46 0D 20 20 20 20 20  |OP-LEFT OF.     |
00002340: 20 53 43 52 45 45 4E 2E  20 72 41 4E 47 45 3A 20  | SCREEN. rANGE: |
00002350: 30 20 54 4F 20 33 31 39  20 28 48 49 52 45 53 29  |0 TO 319 (HIRES)|
00002360: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00002370: 20 20 20 20 20 20 20 30  20 54 4F 20 31 35 39 20  |       0 TO 159 |
00002380: 28 4D 55 4C 54 49 29 2E  0D 0D 72 45 53 54 52 49  |(MULTI)...rESTRI|
00002390: 43 54 49 4F 4E 53 3A 20  75 53 45 44 20 49 4E 20  |CTIONS: uSED IN |
000023A0: 42 49 54 2D 4D 41 50 20  4D 4F 44 45 20 4F 4E 4C  |BIT-MAP MODE ONL|
000023B0: 59 0D 0D 65 58 41 4D 50  4C 45 3A 20 74 4F 20 55  |Y..eXAMPLE: tO U|
000023C0: 4E 44 52 41 57 20 41 20  50 49 58 45 4C 20 41 54  |NDRAW A PIXEL AT|
000023D0: 20 28 31 30 30 2C 31 30  30 29 0D 20 20 20 49 4E  | (100,100).   IN|
000023E0: 20 48 49 2D 52 45 53 20  4D 4F 44 45 3A 0D 0D 20  | HI-RES MODE:.. |
000023F0: 20 20 70 65 6E 20 30 3A  20 70 6C 6F 74 20 31 30  |  pen 0: plot 10|
00002400: 30 2C 31 30 30 0D 5E 20  77 72 69 74 65 20 0D 0D  |0,100.^ write ..|
00002410: 0D 70 55 52 50 4F 53 45  3A 20 74 45 58 54 20 49  |.pURPOSE: tEXT I|
00002420: 53 20 57 52 49 54 54 45  4E 20 49 4E 20 41 20 42  |S WRITTEN IN A B|
00002430: 49 54 2D 4D 41 50 0D 20  20 20 20 20 20 20 20 20  |IT-MAP.         |
00002440: 41 54 20 54 45 58 54 20  4C 4F 43 41 54 49 4F 4E  |AT TEXT LOCATION|
00002450: 20 58 2C 59 2E 20 20 61  20 43 41 53 45 0D 20 20  | X,Y.  a CASE.  |
00002460: 20 20 20 20 20 20 20 53  45 4C 45 43 54 49 4F 4E  |       SELECTION|
00002470: 20 28 53 4F 20 59 4F 55  20 43 41 4E 20 50 52 49  | (SO YOU CAN PRI|
00002480: 4E 54 0D 20 20 20 20 20  20 20 20 20 54 45 58 54  |NT.         TEXT|
00002490: 20 47 52 41 50 48 49 43  53 29 20 49 53 20 41 4C  | GRAPHICS) IS AL|
000024A0: 53 4F 20 50 52 4F 56 49  44 45 44 0D 66 4F 52 4D  |SO PROVIDED.fORM|
000024B0: 41 54 3A 20 20 77 72 69  74 65 20 52 2C 20 43 2C  |AT:  write R, C,|
000024C0: 20 43 41 53 45 53 45 4C  2C 20 54 45 58 54 53 54  | CASESEL, TEXTST|
000024D0: 52 0D 0D 70 41 52 41 4D  45 54 45 52 20 64 45 53  |R..pARAMETER dES|
000024E0: 43 52 49 50 54 49 4F 4E  3A 0D 0D 20 20 20 52 3A  |CRIPTION:..   R:|
000024F0: 20 72 4F 57 20 50 4F 53  49 54 49 4F 4E 20 46 52  | rOW POSITION FR|
00002500: 4F 4D 20 54 4F 50 2D 4C  45 46 54 20 4F 46 0D 20  |OM TOP-LEFT OF. |
00002510: 20 20 20 20 20 53 43 52  45 45 4E 2E 20 72 41 4E  |     SCREEN. rAN|
00002520: 47 45 20 49 53 20 30 20  54 4F 20 32 34 0D 0D 20  |GE IS 0 TO 24.. |
00002530: 20 20 43 3A 20 63 4F 4C  55 4D 4E 20 50 4F 53 49  |  C: cOLUMN POSI|
00002540: 54 49 4F 4E 20 46 52 4F  4D 20 54 4F 50 2D 4C 45  |TION FROM TOP-LE|
00002550: 46 54 20 4F 46 0D 20 20  20 20 20 20 53 43 52 45  |FT OF.      SCRE|
00002560: 45 4E 2E 20 20 72 41 4E  47 45 20 49 53 20 30 20  |EN.  rANGE IS 0 |
00002570: 54 4F 20 33 39 2E 0D 0D  20 20 20 43 41 53 45 53  |TO 39...   CASES|
00002580: 45 4C 3A 20 3D 30 20 74  4F 20 55 53 45 20 75 50  |EL: =0 tO USE uP|
00002590: 50 45 52 20 43 41 53 45  20 43 48 41 52 0D 20 20  |PER CASE CHAR.  |
000025A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 53 45 54  |             SET|
000025B0: 20 41 4E 44 20 47 52 41  50 48 49 43 53 0D 20 20  | AND GRAPHICS.  |
000025C0: 20 20 20 20 20 20 20 20  20 20 3D 31 20 74 4F 20  |          =1 tO |
000025D0: 55 53 45 20 6C 4F 57 45  52 20 43 41 53 45 20 43  |USE lOWER CASE C|
000025E0: 48 41 52 0D 20 20 20 20  20 20 20 20 20 20 20 20  |HAR.            |
000025F0: 20 20 20 53 45 54 20 41  4E 44 20 47 52 41 50 48  |   SET AND GRAPH|
00002600: 49 43 53 0D 0D 6D 4F 52  45 20 49 4E 46 4F 52 4D  |ICS..mORE INFORM|
00002610: 41 54 49 4F 4E 20 41 56  41 49 4C 41 42 4C 45 2E  |ATION AVAILABLE.|
00002620: 2E 2E 0D 5E 20 77 72 69  74 65 20 0D 0D 0D 0D 0D  |...^ write .....|
00002630: 20 20 20 54 45 58 54 53  54 52 3A 20 41 20 43 48  |   TEXTSTR: A CH|
00002640: 41 52 43 54 45 52 20 53  54 52 49 4E 47 20 4F 52  |ARCTER STRING OR|
00002650: 20 53 54 52 49 4E 47 20  20 20 20 20 20 20 20 20  | STRING         |
00002660: 20 20 20 20 45 58 50 52  45 53 53 49 4F 4E 2E 0D  |    EXPRESSION..|
00002670: 0D 72 45 53 54 52 49 43  54 49 4F 4E 53 3A 20 75  |.rESTRICTIONS: u|
00002680: 53 45 44 20 49 4E 20 42  49 54 2D 4D 41 50 20 4D  |SED IN BIT-MAP M|
00002690: 4F 44 45 20 4F 4E 4C 59  0D 0D 65 58 41 4D 50 4C  |ODE ONLY..eXAMPL|
000026A0: 45 3A 20 74 4F 20 27 50  52 49 4E 54 27 20 4F 55  |E: tO 'PRINT' OU|
000026B0: 54 20 41 20 27 68 45 4C  4C 4F 20 74 48 45 52 45  |T A 'hELLO tHERE|
000026C0: 27 0D 20 20 20 41 54 20  43 48 41 52 41 43 54 45  |'.   AT CHARACTE|
000026D0: 52 20 4C 4F 43 41 54 49  4F 4E 20 31 30 2C 31 30  |R LOCATION 10,10|
000026E0: 20 49 4E 20 41 0D 20 20  20 48 49 2D 52 45 53 20  | IN A.   HI-RES |
000026F0: 42 49 54 2D 4D 41 50 20  53 43 52 45 45 4E 3A 0D  |BIT-MAP SCREEN:.|
00002700: 0D 20 20 20 50 45 4E 20  31 3A 20 57 52 49 54 45  |.   PEN 1: WRITE|
00002710: 20 31 30 2C 31 30 2C 30  2C 22 68 45 4C 4C 4F 20  | 10,10,0,"hELLO |
00002720: 74 48 45 52 45 22 0D 5E  20 73 70 72 62 6B 67 20  |tHERE".^ sprbkg |
00002730: 0D 0D 0D 70 55 52 50 4F  53 45 3A 20 61 20 46 55  |...pURPOSE: a FU|
00002740: 4E 43 54 49 4F 4E 20 52  45 54 55 52 4E 49 4E 47  |NCTION RETURNING|
00002750: 20 54 48 45 0D 20 20 20  20 20 20 20 20 20 41 43  | THE.         AC|
00002760: 43 55 4D 4D 55 4C 41 54  45 44 20 53 50 52 49 54  |CUMMULATED SPRIT|
00002770: 45 2F 42 41 43 4B 47 52  4F 55 4E 44 0D 20 20 20  |E/BACKGROUND.   |
00002780: 20 20 20 20 20 20 43 4F  4C 4C 49 53 49 4F 4E 53  |      COLLISIONS|
00002790: 20 53 49 4E 43 45 20 54  48 45 20 4C 41 53 54 20  | SINCE THE LAST |
000027A0: 43 41 4C 4C 2E 20 20 20  20 20 20 20 20 20 69 54  |CALL.         iT|
000027B0: 20 49 53 20 57 49 53 45  20 54 4F 20 53 54 4F 52  | IS WISE TO STOR|
000027C0: 45 20 54 48 45 20 52 45  53 55 4C 54 53 20 20 20  |E THE RESULTS   |
000027D0: 20 20 20 20 20 20 54 4F  20 41 20 56 41 52 49 41  |      TO A VARIA|
000027E0: 42 4C 45 20 53 49 4E 43  45 20 54 48 45 20 56 41  |BLE SINCE THE VA|
000027F0: 4C 55 45 0D 20 20 20 20  20 20 20 20 20 49 53 20  |LUE.         IS |
00002800: 41 55 54 4F 4D 41 54 49  43 41 4C 4C 59 20 7A 65  |AUTOMATICALLY ze|
00002810: 72 6F 45 44 20 41 46 54  45 52 0D 20 20 20 20 20  |roED AFTER.     |
00002820: 20 20 20 20 45 41 43 48  20 46 55 4E 43 54 49 4F  |    EACH FUNCTIO|
00002830: 4E 20 43 41 4C 4C 2E 0D  0D 66 4F 52 4D 41 54 3A  |N CALL...fORMAT:|
00002840: 20 20 73 70 72 62 6B 67  20 28 44 55 4D 4D 59 29  |  sprbkg (DUMMY)|
00002850: 0D 0D 61 52 47 55 4D 45  4E 54 20 64 45 53 43 52  |..aRGUMENT dESCR|
00002860: 49 50 54 49 4F 4E 3A 0D  0D 20 20 20 44 55 4D 4D  |IPTION:..   DUMM|
00002870: 59 3A 20 61 4E 59 20 44  55 4D 4D 59 20 41 52 47  |Y: aNY DUMMY ARG|
00002880: 55 4D 45 4E 54 0D 0D 65  58 41 4D 50 4C 45 3A 20  |UMENT..eXAMPLE: |
00002890: 61 62 63 20 3D 20 73 70  72 62 6B 67 28 30 29 0D  |abc = sprbkg(0).|
000028A0: 0D 20 20 20 6F 4E 43 45  20 54 48 45 20 73 50 52  |.   oNCE THE sPR|
000028B0: 49 54 45 2D 62 41 43 4B  47 52 4F 55 4E 44 20 52  |ITE-bACKGROUND R|
000028C0: 45 47 49 53 54 45 52 0D  20 20 20 56 41 4C 55 45  |EGISTER.   VALUE|
000028D0: 20 49 53 20 41 53 53 49  47 4E 45 44 20 54 4F 20  | IS ASSIGNED TO |
000028E0: 61 62 63 2C 20 61 62 63  20 43 41 4E 20 42 45 0D  |abc, abc CAN BE.|
000028F0: 20 20 20 4C 4F 47 49 43  41 4C 4C 59 20 4F 50 45  |   LOGICALLY OPE|
00002900: 52 41 54 45 44 20 4F 4E  20 54 4F 20 44 45 54 45  |RATED ON TO DETE|
00002910: 52 4D 49 4E 45 20 49 46  20 20 20 41 20 43 4F 4C  |RMINE IF   A COL|
00002920: 4C 49 53 49 4F 4E 20 48  41 53 20 4F 43 43 55 52  |LISION HAS OCCUR|
00002930: 45 44 2E 0D 5E 20 73 70  72 64 73 20 0D 0D 0D 70  |ED..^ sprds ...p|
00002940: 55 52 50 4F 53 45 3A 20  64 49 53 41 42 4C 45 53  |URPOSE: dISABLES|
00002950: 20 41 20 53 50 45 43 49  46 49 43 20 73 50 52 49  | A SPECIFIC sPRI|
00002960: 54 45 20 42 59 0D 20 20  20 20 20 20 20 20 20 52  |TE BY.         R|
00002970: 45 4D 4F 56 49 4E 47 20  54 48 41 54 20 53 50 52  |EMOVING THAT SPR|
00002980: 49 54 45 20 4E 55 4D 42  45 52 0D 20 20 20 20 20  |ITE NUMBER.     |
00002990: 20 20 20 20 46 52 4F 4D  20 54 48 45 20 53 50 52  |    FROM THE SPR|
000029A0: 49 54 45 20 45 4E 41 42  4C 45 20 52 45 47 49 53  |ITE ENABLE REGIS|
000029B0: 54 45 52 0D 66 4F 52 4D  41 54 3A 20 20 73 70 72  |TER.fORMAT:  spr|
000029C0: 64 73 20 4E 0D 0D 70 41  52 41 4D 45 54 45 52 20  |ds N..pARAMETER |
000029D0: 64 45 53 43 52 49 50 54  49 4F 4E 3A 0D 0D 20 20  |dESCRIPTION:..  |
000029E0: 20 4E 3A 20 53 50 52 49  54 45 20 54 4F 20 44 49  | N: SPRITE TO DI|
000029F0: 53 41 42 4C 45 20 28 30  2D 37 29 0D 0D 0D 65 58  |SABLE (0-7)...eX|
00002A00: 41 4D 50 4C 45 3A 20 74  4F 20 44 49 53 41 42 4C  |AMPLE: tO DISABL|
00002A10: 45 20 53 50 52 49 54 45  20 23 35 2C 20 4A 55 53  |E SPRITE #5, JUS|
00002A20: 54 20 55 53 45 3A 0D 20  20 20 20 20 20 20 20 20  |T USE:.         |
00002A30: 20 20 20 20 20 73 70 72  64 73 20 35 0D 5E 20 73  |     sprds 5.^ s|
00002A40: 70 72 65 6E 20 0D 0D 0D  70 55 52 50 4F 53 45 3A  |pren ...pURPOSE:|
00002A50: 20 65 4E 41 42 4C 45 53  20 41 20 53 50 45 43 49  | eNABLES A SPECI|
00002A60: 46 49 43 20 73 50 52 49  54 45 20 42 59 0D 20 20  |FIC sPRITE BY.  |
00002A70: 20 20 20 20 20 20 20 41  44 44 49 4E 47 20 54 48  |       ADDING TH|
00002A80: 41 54 20 53 50 52 49 54  45 20 4E 55 4D 42 45 52  |AT SPRITE NUMBER|
00002A90: 0D 20 20 20 20 20 20 20  20 20 54 4F 20 54 48 45  |.         TO THE|
00002AA0: 20 53 50 52 49 54 45 20  45 4E 41 42 4C 45 20 52  | SPRITE ENABLE R|
00002AB0: 45 47 49 53 54 45 52 2E  0D 20 20 20 20 20 20 20  |EGISTER..       |
00002AC0: 20 20 73 50 52 49 54 45  53 20 53 48 4F 55 4C 44  |  sPRITES SHOULD|
00002AD0: 20 42 45 20 44 45 46 49  4E 45 44 20 42 59 0D 20  | BE DEFINED BY. |
00002AE0: 20 20 20 20 20 20 20 20  55 53 49 4E 47 20 54 48  |        USING TH|
00002AF0: 45 20 73 70 72 69 74 65  20 43 4F 4D 4D 41 4E 44  |E sprite COMMAND|
00002B00: 20 42 45 46 4F 52 45 20  20 20 20 20 20 20 20 20  | BEFORE         |
00002B10: 45 4E 41 42 4C 49 4E 47  2E 0D 0D 66 4F 52 4D 41  |ENABLING...fORMA|
00002B20: 54 3A 20 20 73 70 72 65  6E 20 4E 0D 0D 70 41 52  |T:  spren N..pAR|
00002B30: 41 4D 45 54 45 52 20 64  45 53 43 52 49 50 54 49  |AMETER dESCRIPTI|
00002B40: 4F 4E 3A 0D 0D 20 20 20  4E 3A 20 53 50 52 49 54  |ON:..   N: SPRIT|
00002B50: 45 20 54 4F 20 45 4E 41  42 4C 45 20 28 30 2D 37  |E TO ENABLE (0-7|
00002B60: 29 0D 0D 0D 65 58 41 4D  50 4C 45 3A 20 74 4F 20  |)...eXAMPLE: tO |
00002B70: 45 4E 41 42 4C 45 20 53  50 52 49 54 45 20 23 35  |ENABLE SPRITE #5|
00002B80: 2C 20 4A 55 53 54 20 55  53 45 3A 0D 0D 20 20 20  |, JUST USE:..   |
00002B90: 20 20 20 20 20 20 20 20  73 70 72 65 6E 20 35 0D  |        spren 5.|
00002BA0: 5E 20 73 70 72 69 74 65  20 0D 0D 70 55 52 50 4F  |^ sprite ..pURPO|
00002BB0: 53 45 3A 20 64 45 46 49  4E 45 53 20 41 20 53 50  |SE: dEFINES A SP|
00002BC0: 45 43 49 46 49 43 20 53  50 52 49 54 45 2E 0D 0D  |ECIFIC SPRITE...|
00002BD0: 66 4F 52 4D 41 54 3A 20  20 73 70 72 69 74 65 20  |fORMAT:  sprite |
00002BE0: 53 50 52 23 2C 50 41 47  45 23 2C 43 4F 4C 2C 4D  |SPR#,PAGE#,COL,M|
00002BF0: 43 4D 2C 0D 20 20 20 20  20 20 20 20 20 20 20 20  |CM,.            |
00002C00: 20 20 20 20 20 20 20 20  20 48 58 2C 56 58 2C 50  |         HX,VX,P|
00002C10: 52 49 4F 52 0D 0D 70 41  52 41 4D 45 54 45 52 20  |RIOR..pARAMETER |
00002C20: 64 45 53 43 52 49 50 54  49 4F 4E 3A 0D 0D 20 20  |dESCRIPTION:..  |
00002C30: 20 53 50 52 23 3A 20 73  50 52 49 54 45 20 4E 55  | SPR#: sPRITE NU|
00002C40: 4D 42 45 52 20 28 30 2D  37 29 0D 0D 20 20 20 50  |MBER (0-7)..   P|
00002C50: 41 47 45 23 3A 20 54 48  45 20 50 41 47 45 20 4E  |AGE#: THE PAGE N|
00002C60: 55 4D 42 45 52 20 28 30  2D 32 35 35 29 20 4F 52  |UMBER (0-255) OR|
00002C70: 0D 20 20 20 20 20 20 20  20 20 20 57 48 49 43 48  |.          WHICH|
00002C80: 20 36 34 20 42 59 54 45  20 42 4C 4F 43 4B 20 57  | 64 BYTE BLOCK W|
00002C90: 49 54 48 49 4E 0D 20 20  20 20 20 20 20 20 20 20  |ITHIN.          |
00002CA0: 54 48 49 53 20 42 41 4E  4B 20 54 48 41 54 20 43  |THIS BANK THAT C|
00002CB0: 4F 4E 54 41 49 4E 53 20  54 48 45 0D 20 20 20 20  |ONTAINS THE.    |
00002CC0: 20 20 20 20 20 20 53 50  52 49 54 45 20 44 41 54  |      SPRITE DAT|
00002CD0: 41 20 46 4F 52 20 54 48  49 53 20 53 50 52 49 54  |A FOR THIS SPRIT|
00002CE0: 45 2E 0D 0D 20 20 20 43  4F 4C 3A 20 20 74 48 45  |E...   COL:  tHE|
00002CF0: 20 43 4F 4C 4F 55 52 20  4F 46 20 54 48 49 53 20  | COLOUR OF THIS |
00002D00: 53 50 52 49 54 45 2C 0D  20 20 20 20 20 20 20 20  |SPRITE,.        |
00002D10: 20 43 4F 4C 4F 55 52 20  52 41 4E 47 45 53 20 46  | COLOUR RANGES F|
00002D20: 52 4F 4D 20 30 20 54 4F  20 31 35 0D 0D 20 20 20  |ROM 0 TO 15..   |
00002D30: 4D 43 4D 3A 20 6D 55 4C  54 49 43 4F 4C 4F 55 52  |MCM: mULTICOLOUR|
00002D40: 20 4D 4F 44 45 20 46 4C  41 47 20 28 3D 30 20 4D  | MODE FLAG (=0 M|
00002D50: 45 41 4E 53 20 20 20 20  20 20 20 20 20 6E 6F 74  |EANS         not|
00002D60: 20 4D 55 4C 54 49 43 4F  4C 4F 55 52 20 4D 4F 44  | MULTICOLOUR MOD|
00002D70: 45 2C 20 3C 3E 30 20 4D  45 41 4E 53 0D 20 20 20  |E, <>0 MEANS.   |
00002D80: 20 20 20 20 20 4D 55 4C  54 49 43 4F 4C 4F 55 52  |     MULTICOLOUR|
00002D90: 20 4D 4F 44 45 29 0D 0D  6D 4F 52 45 20 49 4E 46  | MODE)..mORE INF|
00002DA0: 4F 52 4D 41 54 49 4F 4E  20 41 56 41 49 4C 41 42  |ORMATION AVAILAB|
00002DB0: 4C 45 2E 2E 2E 0D 5E 20  73 70 72 69 74 65 20 0D  |LE....^ sprite .|
00002DC0: 0D 0D 20 20 20 48 58 3A  20 68 4F 52 49 5A 4F 4E  |..   HX: hORIZON|
00002DD0: 54 41 4C 20 65 58 50 41  4E 44 20 46 4C 41 47 20  |TAL eXPAND FLAG |
00002DE0: 28 3D 30 20 4D 45 41 4E  53 0D 20 20 20 20 20 20  |(=0 MEANS.      |
00002DF0: 20 6E 6F 74 20 45 58 50  41 4E 44 2C 20 3C 3E 30  | not EXPAND, <>0|
00002E00: 20 4D 45 41 4E 53 20 65  58 50 41 4E 44 29 0D 0D  | MEANS eXPAND)..|
00002E10: 20 20 20 56 58 3A 20 76  45 52 54 49 43 41 4C 20  |   VX: vERTICAL |
00002E20: 65 58 50 41 4E 44 20 46  4C 41 47 20 28 20 3D 20  |eXPAND FLAG ( = |
00002E30: 30 20 4D 45 41 4E 53 0D  20 20 20 20 20 20 20 6E  |0 MEANS.       n|
00002E40: 6F 74 20 45 58 50 41 4E  44 2C 20 3C 3E 30 20 4D  |ot EXPAND, <>0 M|
00002E50: 45 41 4E 53 20 65 58 50  41 4E 44 29 0D 0D 20 20  |EANS eXPAND)..  |
00002E60: 20 50 52 49 4F 52 3A 20  73 50 52 49 54 45 2D 73  | PRIOR: sPRITE-s|
00002E70: 43 52 45 45 4E 20 50 52  49 4F 52 49 54 59 20 46  |CREEN PRIORITY F|
00002E80: 4C 41 47 0D 20 20 20 20  20 20 20 20 20 20 28 3D  |LAG.          (=|
00002E90: 30 20 4D 45 41 4E 53 20  53 43 52 45 45 4E 20 48  |0 MEANS SCREEN H|
00002EA0: 41 53 20 50 52 49 4F 52  49 54 59 0D 20 20 20 20  |AS PRIORITY.    |
00002EB0: 20 20 20 20 20 20 3C 3E  30 20 4D 45 41 4E 53 20  |      <>0 MEANS |
00002EC0: 53 50 52 49 54 45 20 48  41 53 20 50 52 49 4F 52  |SPRITE HAS PRIOR|
00002ED0: 49 54 59 29 0D 65 58 41  4D 50 4C 45 3A 20 74 4F  |ITY).eXAMPLE: tO|
00002EE0: 20 44 45 46 49 4E 45 20  53 50 52 49 54 45 20 23  | DEFINE SPRITE #|
00002EF0: 35 20 41 53 20 41 20 4D  55 4C 54 49 2D 20 20 20  |5 AS A MULTI-   |
00002F00: 43 4F 4C 4F 55 52 20 53  50 52 49 54 45 2C 20 53  |COLOUR SPRITE, S|
00002F10: 50 52 49 54 45 20 43 4F  4C 4F 52 20 43 59 41 4E  |PRITE COLOR CYAN|
00002F20: 2C 0D 20 20 20 45 58 50  41 4E 44 45 44 20 4F 4E  |,.   EXPANDED ON|
00002F30: 4C 59 20 49 4E 20 54 48  45 20 56 45 52 54 49 43  |LY IN THE VERTIC|
00002F40: 41 4C 0D 20 20 20 44 49  52 45 43 54 49 4F 4E 20  |AL.   DIRECTION |
00002F50: 41 4E 44 20 48 41 56 49  4E 47 20 50 52 49 4F 52  |AND HAVING PRIOR|
00002F60: 49 54 59 20 4F 56 45 52  0D 20 20 20 54 48 45 20  |ITY OVER.   THE |
00002F70: 53 43 52 45 45 4E 2C 20  55 53 45 20 54 48 45 20  |SCREEN, USE THE |
00002F80: 46 4F 4C 4C 4F 57 49 4E  47 20 43 4F 4D 4D 41 4E  |FOLLOWING COMMAN|
00002F90: 44 20 20 20 49 46 20 54  48 45 20 53 50 52 49 54  |D   IF THE SPRIT|
00002FA0: 45 20 44 41 54 41 20 49  53 20 4C 4F 43 41 54 45  |E DATA IS LOCATE|
00002FB0: 44 20 49 4E 0D 20 20 20  50 41 47 45 20 32 35 30  |D IN.   PAGE 250|
00002FC0: 3A 0D 0D 20 20 20 73 70  72 69 74 65 20 35 2C 32  |:..   sprite 5,2|
00002FD0: 35 30 2C 33 2C 31 2C 30  2C 31 2C 31 0D 5E 20 73  |50,3,1,0,1,1.^ s|
00002FE0: 70 72 6D 63 72 20 0D 0D  0D 70 55 52 50 4F 53 45  |prmcr ...pURPOSE|
00002FF0: 3A 20 73 45 54 53 20 73  50 52 49 54 45 20 6D 63  |: sETS sPRITE mc|
00003000: 30 20 41 4E 44 20 6D 63  31 0D 0D 66 4F 52 4D 41  |0 AND mc1..fORMA|
00003010: 54 3A 20 20 73 70 72 6D  63 72 20 6D 63 30 2C 20  |T:  sprmcr mc0, |
00003020: 6D 63 31 0D 0D 70 41 52  41 4D 45 54 45 52 20 64  |mc1..pARAMETER d|
00003030: 45 53 43 52 49 50 54 49  4F 4E 3A 0D 0D 20 20 20  |ESCRIPTION:..   |
00003040: 6D 63 30 3A 20 73 50 52  49 54 45 20 4D 55 4C 54  |mc0: sPRITE MULT|
00003050: 49 43 4F 4C 4F 55 52 20  30 20 28 30 2D 31 35 29  |ICOLOUR 0 (0-15)|
00003060: 0D 0D 20 20 20 6D 63 31  3A 20 73 50 52 49 54 45  |..   mc1: sPRITE|
00003070: 20 4D 55 4C 54 49 43 4F  4C 4F 55 52 20 31 20 28  | MULTICOLOUR 1 (|
00003080: 30 2D 31 35 29 0D 0D 72  45 53 54 52 49 43 54 49  |0-15)..rESTRICTI|
00003090: 4F 4E 53 3A 20 74 48 45  53 45 20 4D 55 4C 54 49  |ONS: tHESE MULTI|
000030A0: 43 4F 4C 4F 55 52 0D 20  20 20 52 45 47 49 53 54  |COLOUR.   REGIST|
000030B0: 45 52 53 20 41 52 45 20  47 4C 4F 42 41 4C 20 54  |ERS ARE GLOBAL T|
000030C0: 4F 20 41 4C 4C 20 53 50  52 49 54 45 53 2E 0D 20  |O ALL SPRITES.. |
000030D0: 20 20 74 4F 20 55 53 45  20 54 48 45 53 45 20 43  |  tO USE THESE C|
000030E0: 4F 4C 4F 55 52 53 2C 20  54 48 45 20 53 50 52 49  |OLOURS, THE SPRI|
000030F0: 54 45 53 0D 20 20 20 6D  75 73 74 20 42 45 20 44  |TES.   must BE D|
00003100: 45 46 49 4E 45 44 20 41  53 20 4D 55 4C 54 49 43  |EFINED AS MULTIC|
00003110: 4F 4C 4F 55 52 0D 20 20  20 53 50 52 49 54 45 53  |OLOUR.   SPRITES|
00003120: 20 57 49 54 48 20 54 48  45 20 73 70 72 69 74 65  | WITH THE sprite|
00003130: 20 43 4F 4D 4D 41 4E 44  2E 0D 0D 65 58 41 4D 50  | COMMAND...eXAMP|
00003140: 4C 45 3A 20 74 4F 20 44  45 46 49 4E 45 20 43 59  |LE: tO DEFINE CY|
00003150: 41 4E 20 26 20 52 45 44  20 54 4F 20 6D 63 30 20  |AN & RED TO mc0 |
00003160: 26 0D 20 20 20 6D 63 31  20 52 45 53 50 45 43 54  |&.   mc1 RESPECT|
00003170: 49 56 45 4C 59 2C 20 55  53 45 3A 0D 0D 20 20 20  |IVELY, USE:..   |
00003180: 73 70 72 6D 63 72 20 33  2C 32 0D 5E 20 73 70 72  |sprmcr 3,2.^ spr|
00003190: 6D 76 20 0D 0D 70 55 52  50 4F 53 45 3A 20 73 45  |mv ..pURPOSE: sE|
000031A0: 54 53 20 55 50 20 41 20  53 50 52 49 54 45 20 46  |TS UP A SPRITE F|
000031B0: 4F 52 20 41 55 54 4F 4D  41 54 49 43 20 20 20 20  |OR AUTOMATIC    |
000031C0: 20 20 20 20 20 20 4D 4F  56 45 4D 45 4E 54 2E 20  |      MOVEMENT. |
000031D0: 20 6F 4E 43 45 20 45 58  45 43 55 54 45 44 2C 20  | oNCE EXECUTED, |
000031E0: 54 48 45 0D 20 20 20 20  20 20 20 20 20 53 50 52  |THE.         SPR|
000031F0: 49 54 45 20 4D 4F 56 45  53 20 57 49 54 48 4F 55  |ITE MOVES WITHOU|
00003200: 54 20 46 55 52 54 48 45  52 0D 20 20 20 20 20 20  |T FURTHER.      |
00003210: 20 20 20 50 52 4F 47 52  41 4D 4D 49 4E 47 2E 0D  |   PROGRAMMING..|
00003220: 0D 66 4F 52 4D 41 54 3A  20 20 73 70 72 6D 76 20  |.fORMAT:  sprmv |
00003230: 53 50 52 23 2C 58 49 4E  43 52 2C 59 49 4E 43 52  |SPR#,XINCR,YINCR|
00003240: 2C 44 54 49 4D 45 0D 0D  70 41 52 41 4D 45 54 45  |,DTIME..pARAMETE|
00003250: 52 20 64 45 53 43 52 49  50 54 49 4F 4E 3A 0D 0D  |R dESCRIPTION:..|
00003260: 20 20 53 50 52 23 3A 20  73 50 52 49 54 45 20 4E  |  SPR#: sPRITE N|
00003270: 55 4D 42 45 52 20 28 30  2D 37 29 0D 20 58 49 4E  |UMBER (0-7). XIN|
00003280: 43 52 3A 20 78 2D 49 4E  43 52 45 4D 45 4E 54 20  |CR: x-INCREMENT |
00003290: 49 4E 20 50 49 58 45 4C  53 20 28 2D 31 32 38 3A  |IN PIXELS (-128:|
000032A0: 31 32 37 29 20 59 49 4E  43 52 3A 20 79 2D 49 4E  |127) YINCR: y-IN|
000032B0: 43 52 45 4D 45 4E 54 20  49 4E 20 50 49 58 45 4C  |CREMENT IN PIXEL|
000032C0: 53 20 28 2D 31 32 38 3A  31 32 37 29 20 44 54 49  |S (-128:127) DTI|
000032D0: 4D 45 3A 20 54 49 4D 45  20 49 4E 20 4A 49 46 46  |ME: TIME IN JIFF|
000032E0: 49 45 53 20 28 31 2F 36  30 54 48 20 53 45 43 29  |IES (1/60TH SEC)|
000032F0: 20 54 4F 0D 20 20 20 20  20 20 20 20 41 44 56 41  | TO.        ADVA|
00003300: 4E 43 45 20 53 50 52 49  54 45 20 42 59 20 54 48  |NCE SPRITE BY TH|
00003310: 45 20 49 4E 43 52 0D 0D  72 45 53 54 52 49 43 54  |E INCR..rESTRICT|
00003320: 49 4F 4E 53 3A 20 74 4F  20 53 54 4F 50 20 41 20  |IONS: tO STOP A |
00003330: 53 50 52 49 54 45 20 46  52 4F 4D 0D 20 20 20 4D  |SPRITE FROM.   M|
00003340: 4F 56 49 4E 47 2C 20 4A  55 53 54 20 53 45 54 20  |OVING, JUST SET |
00003350: 44 54 49 4D 45 20 54 4F  20 5A 45 52 4F 2E 0D 0D  |DTIME TO ZERO...|
00003360: 65 58 41 4D 50 4C 45 3A  20 74 4F 20 4D 4F 56 45  |eXAMPLE: tO MOVE|
00003370: 20 53 50 52 49 54 45 20  31 2C 20 32 20 50 49 58  | SPRITE 1, 2 PIX|
00003380: 45 4C 53 20 54 4F 0D 20  20 20 54 48 45 20 52 49  |ELS TO.   THE RI|
00003390: 47 48 54 20 41 4E 44 20  33 20 50 49 58 45 4C 53  |GHT AND 3 PIXELS|
000033A0: 20 55 50 2C 20 45 56 45  52 59 20 35 0D 20 20 20  | UP, EVERY 5.   |
000033B0: 4A 49 46 46 49 45 53 20  28 31 2F 36 30 54 48 20  |JIFFIES (1/60TH |
000033C0: 53 45 43 29 2C 20 55 53  45 3A 0D 20 20 20 20 20  |SEC), USE:.     |
000033D0: 20 20 20 20 20 20 20 20  73 70 72 6D 76 20 31 2C  |        sprmv 1,|
000033E0: 32 2C 2D 33 2C 35 0D 5E  20 73 70 72 70 73 20 0D  |2,-3,5.^ sprps .|
000033F0: 0D 70 55 52 50 4F 53 45  3A 20 73 45 54 53 20 54  |.pURPOSE: sETS T|
00003400: 48 45 20 28 58 2C 59 29  20 50 4F 53 49 54 49 4F  |HE (X,Y) POSITIO|
00003410: 4E 20 4F 46 0D 20 20 20  20 20 20 20 20 20 41 20  |N OF.         A |
00003420: 47 49 56 45 4E 20 53 50  52 49 54 45 2E 0D 0D 66  |GIVEN SPRITE...f|
00003430: 4F 52 4D 41 54 3A 20 20  73 70 72 70 73 20 53 50  |ORMAT:  sprps SP|
00003440: 52 23 2C 20 58 2C 20 59  0D 0D 70 41 52 41 4D 45  |R#, X, Y..pARAME|
00003450: 54 45 52 20 64 45 53 43  52 49 50 54 49 4F 4E 3A  |TER dESCRIPTION:|
00003460: 0D 0D 20 20 20 53 50 52  23 3A 20 73 50 52 49 54  |..   SPR#: sPRIT|
00003470: 45 20 4E 55 4D 42 45 52  20 28 30 2D 37 29 0D 0D  |E NUMBER (0-7)..|
00003480: 20 20 20 58 3A 20 68 4F  52 49 5A 4F 4E 54 41 4C  |   X: hORIZONTAL|
00003490: 20 50 4F 53 49 54 49 4F  4E 20 28 30 2D 35 31 31  | POSITION (0-511|
000034A0: 29 0D 0D 20 20 20 59 3A  20 76 45 52 54 49 43 41  |)..   Y: vERTICA|
000034B0: 4C 20 50 4F 53 49 54 49  4F 4E 20 28 30 2D 32 35  |L POSITION (0-25|
000034C0: 35 29 0D 0D 72 45 53 54  52 49 43 54 49 4F 4E 53  |5)..rESTRICTIONS|
000034D0: 3A 20 74 48 45 20 56 49  53 49 42 4C 45 20 52 45  |: tHE VISIBLE RE|
000034E0: 47 49 4F 4E 20 4F 4E 20  54 48 45 20 20 20 20 53  |GION ON THE    S|
000034F0: 43 52 45 45 4E 20 49 53  20 58 20 52 41 4E 47 45  |CREEN IS X RANGE|
00003500: 20 32 34 2D 33 32 30 20  41 4E 44 20 59 20 52 41  | 24-320 AND Y RA|
00003510: 4E 47 45 0D 20 20 20 35  30 2D 32 32 39 0D 0D 65  |NGE.   50-229..e|
00003520: 58 41 4D 50 4C 45 3A 20  74 4F 20 50 4F 53 49 54  |XAMPLE: tO POSIT|
00003530: 49 4F 4E 20 53 50 52 49  54 45 20 34 20 54 4F 0D  |ION SPRITE 4 TO.|
00003540: 20 20 20 20 20 20 20 20  20 28 31 30 30 2C 32 30  |         (100,20|
00003550: 30 29 2C 20 55 53 45 3A  0D 0D 20 20 20 20 20 20  |0), USE:..      |
00003560: 20 20 20 20 20 20 73 70  72 70 73 20 34 2C 31 30  |      sprps 4,10|
00003570: 30 2C 32 30 30 0D 5E 20  73 70 72 73 70 20 0D 0D  |0,200.^ sprsp ..|
00003580: 70 55 52 50 4F 53 45 3A  20 61 20 46 55 4E 43 54  |pURPOSE: a FUNCT|
00003590: 49 4F 4E 20 52 45 54 55  52 4E 49 4E 47 20 54 48  |ION RETURNING TH|
000035A0: 45 0D 20 20 20 20 20 20  20 20 20 41 43 43 55 4D  |E.         ACCUM|
000035B0: 4D 55 4C 41 54 45 44 20  53 50 52 49 54 45 2F 53  |MULATED SPRITE/S|
000035C0: 50 52 49 54 45 0D 20 20  20 20 20 20 20 20 20 43  |PRITE.         C|
000035D0: 4F 4C 4C 49 53 49 4F 4E  53 20 53 49 4E 43 45 20  |OLLISIONS SINCE |
000035E0: 54 48 45 20 4C 41 53 54  20 43 41 4C 4C 2E 20 20  |THE LAST CALL.  |
000035F0: 20 20 20 20 20 20 20 69  54 20 49 53 20 57 49 53  |       iT IS WIS|
00003600: 45 20 54 4F 20 53 54 4F  52 45 20 54 48 45 20 52  |E TO STORE THE R|
00003610: 45 53 55 4C 54 53 20 20  20 20 20 20 20 20 20 54  |ESULTS         T|
00003620: 4F 20 41 20 56 41 52 49  41 42 4C 45 20 53 49 4E  |O A VARIABLE SIN|
00003630: 43 45 20 54 48 45 20 56  41 4C 55 45 0D 20 20 20  |CE THE VALUE.   |
00003640: 20 20 20 20 20 20 49 53  20 41 55 54 4F 4D 41 54  |      IS AUTOMAT|
00003650: 49 43 41 4C 4C 59 20 7A  65 72 6F 45 44 20 41 46  |ICALLY zeroED AF|
00003660: 54 45 52 0D 20 20 20 20  20 20 20 20 20 45 41 43  |TER.         EAC|
00003670: 48 20 46 55 4E 43 54 49  4F 4E 20 43 41 4C 4C 2E  |H FUNCTION CALL.|
00003680: 20 20 73 50 52 49 54 45  2F 0D 20 20 20 20 20 20  |  sPRITE/.      |
00003690: 20 20 20 53 50 52 49 54  45 20 43 4F 4C 4C 49 53  |   SPRITE COLLIS|
000036A0: 49 4F 4E 53 20 43 41 4E  20 4F 43 43 55 52 0D 20  |IONS CAN OCCUR. |
000036B0: 20 20 20 20 20 20 20 20  4F 55 54 53 49 44 45 20  |        OUTSIDE |
000036C0: 54 48 45 20 56 49 53 49  41 42 4C 45 20 41 52 45  |THE VISIABLE ARE|
000036D0: 41 2E 0D 0D 66 4F 52 4D  41 54 3A 20 20 73 70 72  |A...fORMAT:  spr|
000036E0: 73 70 20 28 44 55 4D 4D  59 29 0D 0D 61 52 47 55  |sp (DUMMY)..aRGU|
000036F0: 4D 45 4E 54 20 64 45 53  43 52 49 50 54 49 4F 4E  |MENT dESCRIPTION|
00003700: 3A 0D 0D 20 20 20 44 55  4D 4D 59 3A 20 61 4E 59  |:..   DUMMY: aNY|
00003710: 20 44 55 4D 4D 59 20 41  52 47 55 4D 45 4E 54 0D  | DUMMY ARGUMENT.|
00003720: 0D 65 58 41 4D 50 4C 45  3A 20 61 62 63 20 3D 20  |.eXAMPLE: abc = |
00003730: 73 70 72 73 70 28 30 29  0D 0D 20 20 20 6F 4E 43  |sprsp(0)..   oNC|
00003740: 45 20 54 48 45 20 73 50  52 49 54 45 2D 73 50 52  |E THE sPRITE-sPR|
00003750: 49 54 45 20 52 45 47 49  53 54 45 52 0D 20 20 20  |ITE REGISTER.   |
00003760: 56 41 4C 55 45 20 49 53  20 41 53 53 49 47 4E 45  |VALUE IS ASSIGNE|
00003770: 44 20 54 4F 20 61 62 63  2C 20 61 62 63 20 43 41  |D TO abc, abc CA|
00003780: 4E 20 42 45 0D 20 20 20  4C 4F 47 49 43 41 4C 4C  |N BE.   LOGICALL|
00003790: 59 20 4F 50 45 52 41 54  45 44 20 4F 4E 20 54 4F  |Y OPERATED ON TO|
000037A0: 20 44 45 54 45 52 4D 49  4E 45 20 49 46 20 20 20  | DETERMINE IF   |
000037B0: 41 20 43 4F 4C 4C 49 53  49 4F 4E 20 48 41 53 20  |A COLLISION HAS |
000037C0: 4F 43 43 55 52 45 44 2E  0D 5E 20 73 70 72 78 20  |OCCURED..^ sprx |
000037D0: 0D 0D 70 55 52 50 4F 53  45 3A 20 61 20 46 55 4E  |..pURPOSE: a FUN|
000037E0: 43 54 49 4F 4E 20 52 45  54 55 52 4E 49 4E 47 20  |CTION RETURNING |
000037F0: 54 48 45 0D 20 20 20 20  20 20 20 20 20 48 4F 52  |THE.         HOR|
00003800: 49 5A 4F 4E 54 41 4C 20  50 4F 53 49 54 49 4F 4E  |IZONTAL POSITION|
00003810: 20 4F 46 20 41 20 53 50  52 49 54 45 0D 66 4F 52  | OF A SPRITE.fOR|
00003820: 4D 41 54 3A 20 20 73 70  72 78 20 28 53 50 52 23  |MAT:  sprx (SPR#|
00003830: 29 0D 0D 61 52 47 55 4D  45 4E 54 20 64 45 53 43  |)..aRGUMENT dESC|
00003840: 52 49 50 54 49 4F 4E 3A  0D 0D 20 20 20 53 50 52  |RIPTION:..   SPR|
00003850: 23 3A 20 73 50 52 49 54  45 20 4E 55 4D 42 45 52  |#: sPRITE NUMBER|
00003860: 20 28 30 2D 37 29 0D 0D  0D 65 58 41 4D 50 4C 45  | (0-7)...eXAMPLE|
00003870: 3A 20 74 4F 20 46 49 4E  44 20 54 48 45 20 48 4F  |: tO FIND THE HO|
00003880: 52 49 5A 4F 4E 54 41 4C  20 50 4F 53 49 54 49 4F  |RIZONTAL POSITIO|
00003890: 4E 20 20 20 4F 46 20 53  50 52 49 54 45 20 35 2C  |N   OF SPRITE 5,|
000038A0: 20 55 53 45 3A 0D 0D 20  20 20 20 20 20 20 20 20  | USE:..         |
000038B0: 20 20 78 70 6F 73 20 3D  20 73 70 72 78 20 28 35  |  xpos = sprx (5|
000038C0: 29 0D 5E 20 73 70 72 79  20 0D 0D 70 55 52 50 4F  |).^ spry ..pURPO|
000038D0: 53 45 3A 20 61 20 46 55  4E 43 54 49 4F 4E 20 52  |SE: a FUNCTION R|
000038E0: 45 54 55 52 4E 49 4E 47  20 54 48 45 0D 20 20 20  |ETURNING THE.   |
000038F0: 20 20 20 20 20 20 56 45  52 54 49 43 41 4C 20 50  |      VERTICAL P|
00003900: 4F 53 49 54 49 4F 4E 20  4F 46 20 41 20 53 50 52  |OSITION OF A SPR|
00003910: 49 54 45 0D 0D 66 4F 52  4D 41 54 3A 20 20 73 70  |ITE..fORMAT:  sp|
00003920: 72 79 20 28 53 50 52 23  29 0D 0D 61 52 47 55 4D  |ry (SPR#)..aRGUM|
00003930: 45 4E 54 20 64 45 53 43  52 49 50 54 49 4F 4E 3A  |ENT dESCRIPTION:|
00003940: 0D 0D 20 20 20 53 50 52  23 3A 20 73 50 52 49 54  |..   SPR#: sPRIT|
00003950: 45 20 4E 55 4D 42 45 52  20 28 30 2D 37 29 0D 0D  |E NUMBER (0-7)..|
00003960: 0D 65 58 41 4D 50 4C 45  3A 20 74 4F 20 46 49 4E  |.eXAMPLE: tO FIN|
00003970: 44 20 54 48 45 20 56 45  52 54 49 43 41 4C 20 50  |D THE VERTICAL P|
00003980: 4F 53 49 54 49 4F 4E 0D  20 20 20 4F 46 20 53 50  |OSITION.   OF SP|
00003990: 52 49 54 45 20 35 2C 20  55 53 45 3A 0D 0D 20 20  |RITE 5, USE:..  |
000039A0: 20 20 20 20 20 20 20 79  70 6F 73 20 3D 20 73 70  |       ypos = sp|
000039B0: 72 79 20 28 35 29 0D 5E  20 73 4F 55 4E 44 20 0D  |ry (5).^ sOUND .|
000039C0: 0D 0D 74 48 45 20 46 4F  4C 4C 4F 57 49 4E 47 20  |..tHE FOLLOWING |
000039D0: 43 4F 4D 4D 41 4E 44 53  20 41 52 45 20 43 4C 41  |COMMANDS ARE CLA|
000039E0: 53 53 49 46 49 45 44 0D  41 53 20 53 4F 55 4E 44  |SSIFIED.AS SOUND|
000039F0: 20 45 58 54 45 4E 53 49  4F 4E 53 3A 0D 0D 20 20  | EXTENSIONS:..  |
00003A00: 20 66 72 71 20 20 20 20  20 20 67 61 74 65 20 20  | frq      gate  |
00003A10: 20 20 20 6D 75 73 69 63  20 20 20 20 70 6C 61 79  |   music    play|
00003A20: 0D 0D 20 20 20 74 65 6D  70 6F 20 20 20 20 76 6F  |..   tempo    vo|
00003A30: 69 63 65 20 20 20 20 76  6F 6C 0D 5E 20 66 72 71  |ice    vol.^ frq|
00003A40: 20 0D 0D 0D 70 55 52 50  4F 53 45 3A 20 73 45 54  | ...pURPOSE: sET|
00003A50: 20 54 48 45 20 46 52 45  51 55 45 4E 43 59 20 4F  | THE FREQUENCY O|
00003A60: 46 20 41 20 47 49 56 45  4E 0D 20 20 20 20 20 20  |F A GIVEN.      |
00003A70: 20 20 20 56 4F 49 43 45  0D 0D 66 4F 52 4D 41 54  |   VOICE..fORMAT|
00003A80: 3A 20 20 66 72 71 20 56  4F 49 43 45 23 2C 20 46  |:  frq VOICE#, F|
00003A90: 52 45 51 55 45 4E 43 59  0D 0D 70 41 52 41 4D 45  |REQUENCY..pARAME|
00003AA0: 54 45 52 20 64 45 53 43  52 49 50 54 49 4F 4E 3A  |TER dESCRIPTION:|
00003AB0: 0D 0D 20 20 20 56 4F 49  43 45 23 3A 20 20 43 48  |..   VOICE#:  CH|
00003AC0: 4F 49 43 45 20 4F 46 20  56 4F 49 43 45 20 31 2C  |OICE OF VOICE 1,|
00003AD0: 20 32 20 4F 52 20 33 0D  0D 20 20 20 46 52 45 51  | 2 OR 3..   FREQ|
00003AE0: 55 45 4E 43 59 3A 20 32  20 42 59 54 45 20 46 52  |UENCY: 2 BYTE FR|
00003AF0: 45 51 55 45 4E 43 59 20  56 41 4C 55 45 0D 0D 72  |EQUENCY VALUE..r|
00003B00: 45 53 54 52 49 43 54 49  4F 4E 53 3A 20 74 48 49  |ESTRICTIONS: tHI|
00003B10: 53 20 53 45 54 53 20 54  48 45 20 46 52 45 51 55  |S SETS THE FREQU|
00003B20: 45 4E 43 59 0D 20 20 20  4F 4E 4C 59 2E 20 20 74  |ENCY.   ONLY.  t|
00003B30: 48 45 20 76 6F 69 63 65  20 41 4E 44 20 76 6F 6C  |HE voice AND vol|
00003B40: 20 4D 55 53 54 20 42 45  20 53 45 54 0D 20 20 20  | MUST BE SET.   |
00003B50: 41 4C 4F 4E 47 20 57 49  54 48 20 67 61 74 69 6E  |ALONG WITH gatin|
00003B60: 67 20 54 48 45 20 56 4F  49 43 45 2E 0D 0D 65 58  |g THE VOICE...eX|
00003B70: 41 4D 50 4C 45 3A 20 74  4F 20 53 45 54 20 54 48  |AMPLE: tO SET TH|
00003B80: 45 20 46 52 45 51 55 45  4E 43 59 20 4F 46 20 56  |E FREQUENCY OF V|
00003B90: 4F 49 43 45 0D 20 20 20  31 20 54 4F 20 56 41 4C  |OICE.   1 TO VAL|
00003BA0: 55 45 20 35 30 30 30 20  68 5A 3A 0D 0D 20 20 20  |UE 5000 hZ:..   |
00003BB0: 66 72 71 20 31 2C 35 30  30 30 0D 5E 20 67 61 74  |frq 1,5000.^ gat|
00003BC0: 65 20 0D 0D 0D 70 55 52  50 4F 53 45 3A 20 74 55  |e ...pURPOSE: tU|
00003BD0: 52 4E 53 20 4F 4E 20 4F  52 20 4F 46 46 20 54 48  |RNS ON OR OFF TH|
00003BE0: 45 20 47 41 54 49 4E 47  20 4F 46 0D 20 20 20 20  |E GATING OF.    |
00003BF0: 20 20 20 20 20 53 50 45  43 49 46 49 45 44 20 56  |     SPECIFIED V|
00003C00: 4F 49 43 45 28 53 29 0D  0D 66 4F 52 4D 41 54 3A  |OICE(S)..fORMAT:|
00003C10: 20 20 67 61 74 65 20 53  54 41 54 45 20 56 4F 49  |  gate STATE VOI|
00003C20: 43 45 23 28 53 29 0D 0D  70 41 52 41 4D 45 54 45  |CE#(S)..pARAMETE|
00003C30: 52 20 64 45 53 43 52 49  50 54 49 4F 4E 3A 0D 0D  |R dESCRIPTION:..|
00003C40: 20 20 20 53 54 41 54 45  3A 20 43 48 4F 49 43 45  |   STATE: CHOICE|
00003C50: 20 4F 46 20 6F 6E 20 4F  52 20 6F 66 66 0D 0D 20  | OF on OR off.. |
00003C60: 20 20 56 4F 49 43 45 23  28 53 29 3A 20 54 48 45  |  VOICE#(S): THE|
00003C70: 20 56 4F 49 43 45 53 20  54 4F 20 42 45 20 47 41  | VOICES TO BE GA|
00003C80: 54 45 44 2C 0D 20 20 20  20 20 20 20 20 20 20 20  |TED,.           |
00003C90: 20 20 20 53 45 50 41 52  41 54 45 44 20 42 59 20  |   SEPARATED BY |
00003CA0: 41 20 43 4F 4D 4D 41 0D  0D 65 58 41 4D 50 4C 45  |A COMMA..eXAMPLE|
00003CB0: 3A 20 74 4F 20 47 41 54  45 20 4F 4E 20 56 4F 49  |: tO GATE ON VOI|
00003CC0: 43 45 20 32 20 41 4E 44  20 33 20 41 54 20 54 48  |CE 2 AND 3 AT TH|
00003CD0: 45 20 20 20 53 41 4D 45  20 54 49 4D 45 3A 0D 0D  |E   SAME TIME:..|
00003CE0: 20 20 20 67 61 74 65 20  6F 6E 20 32 2C 33 0D 5E  |   gate on 2,3.^|
00003CF0: 20 6D 75 73 69 63 20 0D  0D 0D 70 55 52 50 4F 53  | music ...pURPOS|
00003D00: 45 3A 20 64 45 46 49 4E  45 53 20 41 20 53 4D 41  |E: dEFINES A SMA|
00003D10: 4C 4C 20 50 49 45 43 45  20 4F 46 20 4D 55 53 49  |LL PIECE OF MUSI|
00003D20: 43 0D 20 20 20 20 20 20  20 20 20 54 4F 20 42 45  |C.         TO BE|
00003D30: 20 70 6C 61 79 45 44 20  4F 4E 20 41 20 47 49 56  | playED ON A GIV|
00003D40: 45 4E 20 56 4F 49 43 45  23 2E 20 20 20 20 20 20  |EN VOICE#.      |
00003D50: 20 20 20 6E 4F 54 45 53  2C 20 4F 43 54 41 56 45  |   nOTES, OCTAVE|
00003D60: 53 20 26 20 44 55 52 41  54 49 4F 4E 20 43 41 4E  |S & DURATION CAN|
00003D70: 0D 20 20 20 20 20 20 20  20 20 42 45 20 44 45 46  |.         BE DEF|
00003D80: 49 4E 45 44 2E 20 74 48  45 20 4D 55 53 49 43 20  |INED. tHE MUSIC |
00003D90: 49 53 20 50 4C 41 59 45  44 20 20 20 20 20 20 20  |IS PLAYED       |
00003DA0: 20 20 49 4E 20 54 48 45  20 42 41 43 4B 47 52 4F  |  IN THE BACKGRO|
00003DB0: 55 4E 44 20 4C 45 41 56  49 4E 47 20 54 48 45 0D  |UND LEAVING THE.|
00003DC0: 20 20 20 20 20 20 20 20  20 43 4F 4D 50 55 54 45  |         COMPUTE|
00003DD0: 52 20 46 52 45 45 20 46  4F 52 20 4F 54 48 45 52  |R FREE FOR OTHER|
00003DE0: 20 55 53 45 53 21 21 0D  0D 66 4F 52 4D 41 54 3A  | USES!!..fORMAT:|
00003DF0: 20 20 56 4F 49 43 45 23  2C 20 4D 55 53 49 43 53  |  VOICE#, MUSICS|
00003E00: 54 52 0D 0D 70 41 52 41  4D 45 54 45 52 20 64 45  |TR..pARAMETER dE|
00003E10: 53 43 52 49 50 54 49 4F  4E 3A 0D 0D 20 20 20 56  |SCRIPTION:..   V|
00003E20: 4F 49 43 45 23 3A 20 43  48 4F 49 43 45 20 4F 46  |OICE#: CHOICE OF|
00003E30: 20 56 4F 49 43 45 20 31  2C 20 32 20 4F 52 20 33  | VOICE 1, 2 OR 3|
00003E40: 0D 0D 20 20 20 4D 55 53  49 43 53 54 52 3A 20 61  |..   MUSICSTR: a|
00003E50: 20 53 54 52 49 4E 47 20  4F 46 20 55 50 20 54 4F  | STRING OF UP TO|
00003E60: 20 36 33 20 4E 4F 54 45  53 2E 20 20 20 20 20 20  | 63 NOTES.      |
00003E70: 20 20 20 20 20 20 20 65  41 43 48 20 4E 4F 54 45  |       eACH NOTE|
00003E80: 20 49 53 20 4D 41 44 45  20 55 50 20 4F 46 20 34  | IS MADE UP OF 4|
00003E90: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 50 41  |.             PA|
00003EA0: 52 54 53 20 28 34 20 43  48 41 52 41 43 54 45 52  |RTS (4 CHARACTER|
00003EB0: 53 29 3A 0D 0D 0D 6D 4F  52 45 20 49 4E 46 4F 52  |S):...mORE INFOR|
00003EC0: 4D 41 54 49 4F 4E 20 41  56 41 49 4C 41 42 4C 45  |MATION AVAILABLE|
00003ED0: 2E 2E 2E 0D 5E 20 6D 75  73 69 63 20 0D 20 20 20  |....^ music .   |
00003EE0: 20 20 20 74 48 45 20 6E  4F 54 45 3A 20 4F 4E 45  |   tHE nOTE: ONE|
00003EF0: 20 4F 46 20 27 63 64 65  66 67 61 62 27 20 49 4E  | OF 'cdefgab' IN|
00003F00: 0D 20 20 20 20 20 20 20  20 20 4D 55 53 49 43 41  |.         MUSICA|
00003F10: 4C 20 54 45 52 4D 53 2E  20 20 68 3D 61 23 2C 20  |L TERMS.  h=a#, |
00003F20: 69 3D 63 23 2C 0D 20 20  20 20 20 20 20 20 20 6A  |i=c#,.         j|
00003F30: 3D 64 23 2C 20 6B 3D 66  23 2C 20 6C 3D 67 23 20  |=d#, k=f#, l=g# |
00003F40: 26 20 6D 3D 52 45 53 54  2E 0D 20 20 20 20 20 20  |& m=REST..      |
00003F50: 6F 43 54 41 56 45 3A 20  4F 46 20 54 48 45 20 4E  |oCTAVE: OF THE N|
00003F60: 4F 54 45 2E 20 20 72 41  4E 47 45 20 49 53 0D 20  |OTE.  rANGE IS. |
00003F70: 20 20 20 20 20 20 20 20  49 53 20 46 52 4F 4D 20  |        IS FROM |
00003F80: 30 20 54 4F 20 37 2E 0D  20 20 20 20 20 20 64 55  |0 TO 7..      dU|
00003F90: 52 41 54 49 4F 4E 3A 20  54 48 45 20 4E 55 4D 42  |RATION: THE NUMB|
00003FA0: 45 52 20 4F 46 20 54 48  45 20 4E 4F 54 45 0D 20  |ER OF THE NOTE. |
00003FB0: 20 20 20 20 20 20 20 20  54 49 4D 49 4E 47 20 56  |        TIMING V|
00003FC0: 41 4C 55 45 2E 20 72 41  4E 47 45 20 49 53 20 30  |ALUE. rANGE IS 0|
00003FD0: 2D 39 2E 0D 20 20 20 20  20 20 74 49 4D 49 4E 47  |-9..      tIMING|
00003FE0: 3A 20 54 48 45 20 4E 4F  54 45 20 54 49 4D 49 4E  |: THE NOTE TIMIN|
00003FF0: 47 20 56 41 4C 55 45 3A  0D 20 20 20 20 20 20 20  |G VALUE:.       |
00004000: 20 20 20 20 20 20 77 20  3D 20 77 48 4F 4C 45 20  |      w = wHOLE |
00004010: 4E 4F 54 45 0D 20 20 20  20 20 20 20 20 20 20 20  |NOTE.           |
00004020: 20 20 68 20 3D 20 68 41  4C 46 20 4E 4F 54 45 0D  |  h = hALF NOTE.|
00004030: 20 20 20 20 20 20 20 20  20 20 20 20 20 71 20 3D  |             q =|
00004040: 20 71 55 41 52 54 45 52  20 4E 4F 54 45 0D 20 20  | qUARTER NOTE.  |
00004050: 20 20 20 20 20 20 20 20  20 20 20 65 20 3D 20 65  |           e = e|
00004060: 49 47 54 48 20 4E 4F 54  45 0D 20 20 20 20 20 20  |IGTH NOTE.      |
00004070: 20 20 20 20 20 20 20 73  20 3D 20 31 2F 31 36 54  |       s = 1/16T|
00004080: 48 20 4E 4F 54 45 0D 68  45 4E 43 45 3A 20 54 4F  |H NOTE.hENCE: TO|
00004090: 20 50 4C 41 59 20 41 20  63 23 20 49 4E 20 4F 43  | PLAY A c# IN OC|
000040A0: 54 41 56 45 20 33 2C 20  46 4F 52 0D 20 20 20 4F  |TAVE 3, FOR.   O|
000040B0: 4E 45 20 51 55 41 52 54  45 52 20 4E 4F 54 45 3A  |NE QUARTER NOTE:|
000040C0: 20 55 53 45 20 27 69 33  31 71 27 2E 20 20 75 50  | USE 'i31q'.  uP|
000040D0: 20 54 4F 0D 20 20 20 36  33 20 4F 46 20 54 48 45  | TO.   63 OF THE|
000040E0: 53 45 20 27 4E 4F 54 45  53 27 20 43 41 4E 20 42  |SE 'NOTES' CAN B|
000040F0: 45 20 55 53 45 44 2E 0D  61 44 44 49 54 49 4F 4E  |E USED..aDDITION|
00004100: 41 4C 20 6E 4F 54 45 3A  20 69 46 20 41 20 27 5C  |AL nOTE: iF A '\|
00004110: 27 20 41 50 50 45 41 52  53 20 49 4E 0D 20 20 20  |' APPEARS IN.   |
00004120: 20 54 48 45 20 4D 55 53  49 43 53 54 52 2C 20 54  | THE MUSICSTR, T|
00004130: 48 45 4E 20 54 48 45 20  43 59 43 4C 45 20 49 53  |HEN THE CYCLE IS|
00004140: 0D 20 20 20 20 52 45 50  45 41 54 45 44 20 46 52  |.    REPEATED FR|
00004150: 4F 4D 20 54 48 45 20 53  54 41 52 54 20 4F 46 20  |OM THE START OF |
00004160: 54 48 45 20 4D 55 53 49  43 20 20 20 20 53 54 52  |THE MUSIC    STR|
00004170: 49 4E 47 2E 0D 0D 6D 4F  52 45 20 49 4E 46 4F 52  |ING...mORE INFOR|
00004180: 4D 41 54 49 4F 4E 20 49  53 20 41 56 41 49 4C 41  |MATION IS AVAILA|
00004190: 42 4C 45 2E 2E 2E 0D 5E  20 6D 75 73 69 63 20 0D  |BLE....^ music .|
000041A0: 0D 0D 0D 72 45 53 54 52  49 43 54 49 4F 4E 53 3A  |...rESTRICTIONS:|
000041B0: 20 74 48 49 53 20 44 45  46 49 4E 45 53 20 54 48  | tHIS DEFINES TH|
000041C0: 45 20 4D 55 53 49 43 0D  20 20 20 4F 4E 4C 59 2E  |E MUSIC.   ONLY.|
000041D0: 20 20 6E 4F 54 45 20 54  48 41 54 20 54 48 45 20  |  nOTE THAT THE |
000041E0: 76 6F 69 63 65 20 41 4E  44 20 76 6F 6C 0D 20 20  |voice AND vol.  |
000041F0: 20 53 45 54 55 50 20 49  53 20 53 54 49 4C 4C 20  | SETUP IS STILL |
00004200: 4E 45 45 44 45 44 2E 20  20 74 4F 20 50 4C 41 59  |NEEDED.  tO PLAY|
00004210: 20 54 48 45 0D 20 20 20  4D 55 53 49 43 2C 20 55  | THE.   MUSIC, U|
00004220: 53 45 20 70 6C 61 79 2E  20 20 74 48 45 52 45 20  |SE play.  tHERE |
00004230: 49 53 20 41 20 4D 41 58  20 4F 46 0D 20 20 20 36  |IS A MAX OF.   6|
00004240: 34 20 4E 4F 54 45 53 20  41 4C 4C 4F 57 45 44 2E  |4 NOTES ALLOWED.|
00004250: 0D 0D 65 58 41 4D 50 4C  45 3A 20 74 4F 20 44 45  |..eXAMPLE: tO DE|
00004260: 46 49 4E 45 20 41 20 53  43 41 4C 45 20 49 4E 54  |FINE A SCALE INT|
00004270: 4F 20 56 4F 49 43 45 20  31 20 4D 41 44 45 20 55  |O VOICE 1 MADE U|
00004280: 50 20 46 52 4F 4D 20 51  55 41 52 54 45 52 20 4E  |P FROM QUARTER N|
00004290: 4F 54 45 53 20 49 4E 20  4F 43 54 41 56 45 20 33  |OTES IN OCTAVE 3|
000042A0: 3A 0D 0D 20 20 20 61 24  3D 22 63 33 31 71 64 33  |:..   a$="c31qd3|
000042B0: 31 71 65 33 31 71 66 33  31 71 67 33 31 71 61 33  |1qe31qf31qg31qa3|
000042C0: 31 71 62 33 31 71 63 34  31 71 22 20 20 20 6D 75  |1qb31qc41q"   mu|
000042D0: 73 69 63 20 31 2C 20 61  24 0D 5E 20 70 6C 61 79  |sic 1, a$.^ play|
000042E0: 20 0D 0D 0D 70 55 52 50  4F 53 45 3A 20 74 55 52  | ...pURPOSE: tUR|
000042F0: 4E 53 20 4F 4E 20 4F 52  20 4F 46 46 20 54 48 45  |NS ON OR OFF THE|
00004300: 20 50 4C 41 59 49 4E 47  20 4F 46 0D 20 20 20 20  | PLAYING OF.    |
00004310: 20 20 20 20 20 54 48 45  20 4D 55 53 49 43 41 4C  |     THE MUSICAL|
00004320: 20 50 49 45 43 45 28 53  29 20 44 45 46 49 4E 45  | PIECE(S) DEFINE|
00004330: 44 20 42 59 20 20 20 20  20 20 20 20 20 6D 75 73  |D BY         mus|
00004340: 69 63 2E 0D 0D 66 4F 52  4D 41 54 3A 20 20 70 6C  |ic...fORMAT:  pl|
00004350: 61 79 20 53 54 41 54 45  20 56 4F 49 43 45 23 28  |ay STATE VOICE#(|
00004360: 53 29 0D 0D 70 41 52 41  4D 45 54 45 52 20 64 45  |S)..pARAMETER dE|
00004370: 53 43 52 49 50 54 49 4F  4E 3A 0D 0D 20 20 20 53  |SCRIPTION:..   S|
00004380: 54 41 54 45 3A 20 43 48  4F 49 43 45 20 4F 46 20  |TATE: CHOICE OF |
00004390: 6F 6E 20 4F 52 20 6F 66  66 0D 0D 20 20 20 56 4F  |on OR off..   VO|
000043A0: 49 43 45 23 28 53 29 3A  20 54 48 45 20 56 4F 49  |ICE#(S): THE VOI|
000043B0: 43 45 53 20 54 4F 20 70  6C 61 79 2C 0D 20 20 20  |CES TO play,.   |
000043C0: 20 20 20 20 20 20 20 20  20 20 20 53 45 50 41 52  |           SEPAR|
000043D0: 41 54 45 44 20 42 59 20  41 20 43 4F 4D 4D 41 2E  |ATED BY A COMMA.|
000043E0: 0D 0D 65 58 41 4D 50 4C  45 3A 20 74 4F 20 50 4C  |..eXAMPLE: tO PL|
000043F0: 41 59 20 41 20 4D 55 53  49 43 41 4C 20 50 49 45  |AY A MUSICAL PIE|
00004400: 43 45 20 57 49 54 48 0D  20 20 20 56 4F 49 43 45  |CE WITH.   VOICE|
00004410: 20 31 20 41 4E 44 20 56  4F 49 43 45 20 33 20 54  | 1 AND VOICE 3 T|
00004420: 4F 47 45 54 48 45 52 2C  20 55 53 45 3A 0D 0D 20  |OGETHER, USE:.. |
00004430: 20 20 70 6C 61 79 20 6F  6E 20 31 2C 33 0D 5E 20  |  play on 1,3.^ |
00004440: 74 65 6D 70 6F 20 0D 0D  0D 70 55 52 50 4F 53 45  |tempo ...pURPOSE|
00004450: 3A 20 64 45 46 49 4E 45  53 20 54 48 45 20 44 55  |: dEFINES THE DU|
00004460: 52 41 54 49 4F 4E 20 4F  46 20 41 0D 20 20 20 20  |RATION OF A.    |
00004470: 20 20 20 20 20 53 49 58  54 45 45 4E 54 48 20 28  |     SIXTEENTH (|
00004480: 31 2F 31 36 20 54 48 29  20 4E 4F 54 45 20 46 4F  |1/16 TH) NOTE FO|
00004490: 52 0D 20 20 20 20 20 20  20 20 20 54 48 45 20 50  |R.         THE P|
000044A0: 49 45 43 45 20 44 45 46  49 4E 45 44 20 42 59 20  |IECE DEFINED BY |
000044B0: 6D 75 73 69 63 0D 20 20  20 20 20 20 20 20 20 49  |music.         I|
000044C0: 4E 20 54 45 52 4D 53 20  4F 46 20 4A 49 46 46 49  |N TERMS OF JIFFI|
000044D0: 45 53 2E 0D 0D 66 4F 52  4D 41 54 3A 20 20 74 65  |ES...fORMAT:  te|
000044E0: 6D 70 6F 20 4E 0D 0D 64  45 53 43 52 49 50 54 49  |mpo N..dESCRIPTI|
000044F0: 4F 4E 3A 0D 0D 20 20 20  4E 3A 20 54 48 45 20 4E  |ON:..   N: THE N|
00004500: 55 4D 42 45 52 20 4F 46  20 4A 49 46 46 49 45 53  |UMBER OF JIFFIES|
00004510: 20 28 31 2F 36 30 20 53  45 43 29 0D 20 20 20 20  | (1/60 SEC).    |
00004520: 20 20 54 4F 20 41 53 53  49 47 4E 20 54 4F 20 41  |  TO ASSIGN TO A|
00004530: 20 53 49 58 54 45 45 4E  54 48 20 4E 4F 54 45 0D  | SIXTEENTH NOTE.|
00004540: 0D 65 58 41 4D 50 4C 45  3A 20 74 4F 20 44 45 46  |.eXAMPLE: tO DEF|
00004550: 49 4E 45 20 41 20 54 45  4D 50 4F 20 57 48 45 52  |INE A TEMPO WHER|
00004560: 45 20 41 0D 20 20 20 53  49 58 54 45 45 4E 54 48  |E A.   SIXTEENTH|
00004570: 20 4E 4F 54 45 20 49 53  20 41 20 51 55 41 52 54  | NOTE IS A QUART|
00004580: 45 52 20 53 45 43 4F 4E  44 0D 20 20 20 4C 4F 4E  |ER SECOND.   LON|
00004590: 47 20 28 31 2F 34 20 53  45 43 3D 31 35 2F 36 30  |G (1/4 SEC=15/60|
000045A0: 20 53 45 43 3D 31 35 20  4A 49 46 46 49 45 53 29  | SEC=15 JIFFIES)|
000045B0: 3A 0D 0D 20 20 20 74 65  6D 70 6F 20 31 35 0D 5E  |:..   tempo 15.^|
000045C0: 20 76 6F 69 63 65 20 0D  0D 0D 70 55 52 50 4F 53  | voice ...pURPOS|
000045D0: 45 3A 20 64 45 46 49 4E  45 53 20 54 48 45 20 41  |E: dEFINES THE A|
000045E0: 43 54 55 41 4C 20 61 64  73 72 2C 20 57 41 56 45  |CTUAL adsr, WAVE|
000045F0: 2D 0D 20 20 20 20 20 20  20 20 20 46 4F 52 4D 53  |-.         FORMS|
00004600: 20 41 4E 44 20 50 55 4C  53 45 20 57 49 44 54 48  | AND PULSE WIDTH|
00004610: 20 49 4E 46 4F 52 4D 41  2D 0D 20 20 20 20 20 20  | INFORMA-.      |
00004620: 20 20 20 54 49 4F 4E 20  4E 45 45 44 45 44 20 42  |   TION NEEDED B|
00004630: 59 20 54 48 45 20 53 4F  55 4E 44 20 43 48 49 50  |Y THE SOUND CHIP|
00004640: 0D 20 20 20 20 20 20 20  20 20 46 4F 52 20 41 20  |.         FOR A |
00004650: 47 49 56 45 4E 20 56 4F  49 43 45 23 0D 0D 66 4F  |GIVEN VOICE#..fO|
00004660: 52 4D 41 54 3A 20 20 76  6F 69 63 65 20 56 4F 49  |RMAT:  voice VOI|
00004670: 43 45 23 2C 20 41 54 54  41 43 4B 2C 20 44 45 43  |CE#, ATTACK, DEC|
00004680: 41 59 2C 0D 20 20 20 20  20 20 20 20 20 20 20 20  |AY,.            |
00004690: 20 20 20 53 55 53 54 41  49 4E 2C 20 52 45 4C 45  |   SUSTAIN, RELE|
000046A0: 41 53 45 2C 0D 20 20 20  20 20 20 20 20 20 20 20  |ASE,.           |
000046B0: 20 20 20 20 57 41 56 45  46 4F 52 4D 20 5B 2C 50  |    WAVEFORM [,P|
000046C0: 55 4C 53 45 57 49 44 54  48 5D 0D 0D 70 41 52 41  |ULSEWIDTH]..pARA|
000046D0: 4D 45 54 45 52 20 64 45  53 43 52 49 50 54 49 4F  |METER dESCRIPTIO|
000046E0: 4E 3A 0D 0D 20 20 20 76  4F 49 43 45 23 3A 20 43  |N:..   vOICE#: C|
000046F0: 48 4F 49 43 45 20 4F 46  20 56 4F 49 43 45 20 31  |HOICE OF VOICE 1|
00004700: 2C 20 32 20 4F 52 20 33  0D 0D 20 20 20 41 54 54  |, 2 OR 3..   ATT|
00004710: 41 43 4B 3A 20 74 48 45  20 41 54 54 41 43 4B 20  |ACK: tHE ATTACK |
00004720: 28 30 2D 31 35 29 0D 0D  20 20 20 44 45 43 41 59  |(0-15)..   DECAY|
00004730: 3A 20 74 48 45 20 44 45  43 41 59 20 28 30 2D 31  |: tHE DECAY (0-1|
00004740: 35 29 0D 0D 20 20 20 53  55 53 54 41 49 4E 3A 20  |5)..   SUSTAIN: |
00004750: 74 48 45 20 53 55 53 54  41 49 4E 20 28 30 2D 31  |tHE SUSTAIN (0-1|
00004760: 35 29 0D 0D 6D 4F 52 45  20 49 4E 46 4F 52 4D 41  |5)..mORE INFORMA|
00004770: 54 49 4F 4E 20 41 56 41  49 4C 41 42 4C 45 2E 2E  |TION AVAILABLE..|
00004780: 2E 0D 5E 20 76 6F 69 63  65 20 0D 0D 0D 0D 20 20  |..^ voice ....  |
00004790: 20 52 45 4C 45 41 53 45  3A 20 74 48 45 20 52 45  | RELEASE: tHE RE|
000047A0: 4C 45 41 53 45 20 28 30  2D 31 35 29 0D 0D 20 20  |LEASE (0-15)..  |
000047B0: 20 43 4F 4E 54 52 4F 4C  20 52 45 47 3A 20 74 48  | CONTROL REG: tH|
000047C0: 45 20 43 4F 4E 54 52 4F  4C 20 52 45 47 49 53 54  |E CONTROL REGIST|
000047D0: 45 52 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |ER.             |
000047E0: 20 43 4F 4E 54 41 49 4E  49 4E 47 20 54 48 45 20  | CONTAINING THE |
000047F0: 57 41 56 45 46 4F 52 4D  2E 0D 20 20 20 20 20 20  |WAVEFORM..      |
00004800: 20 20 20 20 20 20 20 20  74 45 53 54 2C 20 72 49  |        tEST, rI|
00004810: 4E 47 20 4D 4F 44 2C 20  73 59 4E 43 20 43 41 4E  |NG MOD, sYNC CAN|
00004820: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 42  |.              B|
00004830: 45 20 53 45 54 20 56 49  41 20 54 48 49 53 20 52  |E SET VIA THIS R|
00004840: 45 47 49 53 54 45 52 2E  0D 20 20 20 20 20 20 20  |EGISTER..       |
00004850: 20 20 20 20 20 20 20 74  48 45 20 47 41 54 45 20  |       tHE GATE |
00004860: 49 53 20 53 45 54 20 54  4F 20 4F 46 46 2E 0D 0D  |IS SET TO OFF...|
00004870: 65 58 41 4D 50 4C 45 3A  20 74 4F 20 50 52 4F 44  |eXAMPLE: tO PROD|
00004880: 55 43 45 20 41 20 56 49  4F 4C 49 4E 20 53 4F 55  |UCE A VIOLIN SOU|
00004890: 4E 44 2C 0D 20 20 28 61  54 54 41 43 4B 3D 35 2C  |ND,.  (aTTACK=5,|
000048A0: 64 45 43 41 59 3D 38 2C  73 55 53 54 41 49 4E 3D  |dECAY=8,sUSTAIN=|
000048B0: 35 2C 72 45 4C 45 41 53  45 3D 39 29 20 20 41 4E  |5,rELEASE=9)  AN|
000048C0: 44 20 53 41 57 54 4F 4F  54 48 20 57 41 56 45 46  |D SAWTOOTH WAVEF|
000048D0: 4F 52 4D 20 4F 4E 20 56  4F 49 43 45 20 23 32 2C  |ORM ON VOICE #2,|
000048E0: 55 53 45 3A 0D 20 20 76  6F 69 63 65 20 32 2C 35  |USE:.  voice 2,5|
000048F0: 2C 38 2C 35 2C 39 2C 33  32 0D 5E 20 76 6F 6C 20  |,8,5,9,32.^ vol |
00004900: 0D 0D 0D 70 55 52 50 4F  53 45 3A 20 73 45 54 20  |...pURPOSE: sET |
00004910: 54 48 45 20 4F 56 45 52  41 4C 4C 20 43 55 52 52  |THE OVERALL CURR|
00004920: 45 4E 54 20 56 4F 4C 55  4D 45 0D 0D 66 4F 52 4D  |ENT VOLUME..fORM|
00004930: 41 54 3A 20 20 76 6F 6C  20 4E 0D 0D 64 45 53 43  |AT:  vol N..dESC|
00004940: 52 49 50 54 49 4F 4E 3A  0D 0D 20 20 20 4E 3A 20  |RIPTION:..   N: |
00004950: 6F 56 45 52 41 4C 4C 20  56 4F 4C 55 4D 45 20 52  |oVERALL VOLUME R|
00004960: 41 4E 47 49 4E 47 20 46  52 4F 4D 20 30 2D 31 35  |ANGING FROM 0-15|
00004970: 0D 0D 65 58 41 4D 50 4C  45 3A 20 74 4F 20 54 55  |..eXAMPLE: tO TU|
00004980: 52 4E 20 56 4F 4C 55 4D  45 20 4F 46 46 3A 0D 0D  |RN VOLUME OFF:..|
00004990: 20 20 20 76 6F 6C 20 30  0D 5E 20 70 52 4F 47 52  |   vol 0.^ pROGR|
000049A0: 41 4D 20 26 20 64 45 56  45 4C 4F 50 4D 45 4E 54  |AM & dEVELOPMENT|
000049B0: 0D 0D 0D 74 48 45 20 46  4F 4C 4C 4F 57 49 4E 47  |...tHE FOLLOWING|
000049C0: 20 43 4F 4D 4D 41 4E 44  53 20 41 52 45 20 43 4C  | COMMANDS ARE CL|
000049D0: 41 53 53 49 46 49 45 44  0D 41 53 20 50 52 4F 44  |ASSIFIED.AS PROD|
000049E0: 55 43 54 49 56 49 54 59  20 54 4F 4F 4C 53 3A 0D  |UCTIVITY TOOLS:.|
000049F0: 0D 20 20 20 64 65 6C 20  20 20 20 20 20 64 65 76  |.   del      dev|
00004A00: 20 20 20 20 20 20 64 69  72 20 20 20 20 20 20 64  |      dir      d|
00004A10: 6C 73 74 0D 0D 20 20 20  64 6F 73 20 20 20 20 20  |lst..   dos     |
00004A20: 20 64 73 6B 24 20 20 20  20 20 65 72 72 20 20 20  | dsk$     err   |
00004A30: 20 20 20 65 72 72 24 0D  0D 20 20 20 65 78 65 63  |   err$..   exec|
00004A40: 75 74 65 20 20 6A 6F 79  20 20 20 20 20 20 6B 65  |ute  joy      ke|
00004A50: 79 20 20 20 20 20 20 6D  61 78 0D 0D 20 20 20 6D  |y      max..   m|
00004A60: 69 6E 20 20 20 20 20 20  6E 75 6D 20 20 20 20 20  |in      num     |
00004A70: 20 70 6F 6B 65 20 20 20  20 20 70 72 69 6E 74 40  | poke     print@|
00004A80: 0D 0D 20 20 20 72 65 70  65 61 74 20 20 20 74 72  |..   repeat   tr|
00004A90: 61 70 20 20 20 20 20 75  6E 74 69 6C 20 20 20 20  |ap     until    |
00004AA0: 24 0D 0D 20 20 20 25 0D  5E 20 64 65 6C 20 0D 0D  |$..   %.^ del ..|
00004AB0: 70 55 52 50 4F 53 45 3A  20 64 45 4C 45 54 45 53  |pURPOSE: dELETES|
00004AC0: 20 41 20 4C 49 4E 45 20  4F 52 20 41 20 52 41 4E  | A LINE OR A RAN|
00004AD0: 47 45 20 4F 46 0D 20 20  20 20 20 20 20 20 20 4C  |GE OF.         L|
00004AE0: 49 4E 45 53 20 4F 46 20  41 20 50 52 4F 47 52 41  |INES OF A PROGRA|
00004AF0: 4D 20 49 4E 20 4D 45 4D  4F 52 59 0D 0D 66 4F 52  |M IN MEMORY..fOR|
00004B00: 4D 41 54 3A 20 20 64 65  6C 20 52 41 4E 47 45 0D  |MAT:  del RANGE.|
00004B10: 0D 70 41 52 41 4D 45 54  45 52 20 64 45 53 43 52  |.pARAMETER dESCR|
00004B20: 49 50 54 49 4F 4E 3A 0D  0D 20 20 20 52 41 4E 47  |IPTION:..   RANG|
00004B30: 45 3A 20 61 20 53 49 4E  47 4C 45 20 4C 49 4E 45  |E: a SINGLE LINE|
00004B40: 4E 55 4D 42 45 52 20 4D  41 59 20 42 45 0D 20 20  |NUMBER MAY BE.  |
00004B50: 20 20 20 20 20 20 20 20  53 50 45 43 49 46 49 45  |        SPECIFIE|
00004B60: 44 2E 20 20 61 20 52 41  4E 47 45 20 43 41 4E 20  |D.  a RANGE CAN |
00004B70: 42 45 0D 20 20 20 20 20  20 20 20 20 20 53 50 45  |BE.          SPE|
00004B80: 43 49 46 49 45 44 20 42  59 20 55 53 45 20 4F 46  |CIFIED BY USE OF|
00004B90: 20 41 20 27 2D 27 2E 0D  20 20 20 20 20 20 20 20  | A '-'..        |
00004BA0: 20 20 69 46 20 45 49 54  48 45 52 20 4C 49 4E 45  |  iF EITHER LINE|
00004BB0: 4E 55 4D 42 45 52 20 49  53 20 4C 45 46 54 0D 20  |NUMBER IS LEFT. |
00004BC0: 20 20 20 20 20 20 20 20  20 4F 55 54 20 4F 46 20  |         OUT OF |
00004BD0: 45 49 54 48 45 52 20 53  49 44 45 20 4F 46 20 54  |EITHER SIDE OF T|
00004BE0: 48 45 20 27 2D 27 2C 20  20 20 20 20 20 20 20 20  |HE '-',         |
00004BF0: 20 54 48 45 20 45 58 54  52 45 4D 45 20 4C 49 4D  | THE EXTREME LIM|
00004C00: 49 54 20 49 53 20 55 53  45 44 2E 0D 20 20 20 20  |IT IS USED..    |
00004C10: 20 20 20 20 20 20 69 46  20 42 4F 54 48 20 49 53  |      iF BOTH IS|
00004C20: 20 4C 45 46 54 20 4F 55  54 2C 20 54 48 45 0D 20  | LEFT OUT, THE. |
00004C30: 20 20 20 20 20 20 20 20  20 45 4E 54 49 52 45 20  |         ENTIRE |
00004C40: 50 52 4F 47 52 41 4D 20  49 53 20 44 45 4C 45 54  |PROGRAM IS DELET|
00004C50: 45 44 2E 0D 0D 65 58 41  4D 50 4C 45 3A 20 74 4F  |ED...eXAMPLE: tO|
00004C60: 20 44 45 4C 45 54 45 20  41 4C 4C 20 4C 49 4E 45  | DELETE ALL LINE|
00004C70: 53 20 46 52 4F 4D 20 4C  49 4E 45 0D 20 20 20 31  |S FROM LINE.   1|
00004C80: 30 30 30 20 4F 4E 57 41  52 44 53 3A 0D 0D 20 20  |000 ONWARDS:..  |
00004C90: 20 64 65 6C 20 31 30 30  30 2D 0D 5E 20 64 65 76  | del 1000-.^ dev|
00004CA0: 20 0D 0D 0D 70 55 52 50  4F 53 45 3A 20 64 45 46  | ...pURPOSE: dEF|
00004CB0: 49 4E 45 53 20 54 48 45  20 43 55 52 52 45 4E 54  |INES THE CURRENT|
00004CC0: 20 44 45 56 49 43 45 20  23 0D 20 20 20 20 20 20  | DEVICE #.      |
00004CD0: 20 20 20 4F 4E 20 57 48  49 43 48 20 41 4C 4C 20  |   ON WHICH ALL |
00004CE0: 44 45 56 49 43 45 20 52  45 4C 41 54 45 44 0D 20  |DEVICE RELATED. |
00004CF0: 20 20 20 20 20 20 20 20  67 6F 6C 64 20 62 61 73  |        gold bas|
00004D00: 69 63 20 43 4F 4D 4D 41  4E 44 53 20 57 49 4C 4C  |ic COMMANDS WILL|
00004D10: 20 0D 20 20 20 20 20 20  20 20 20 4F 50 45 52 41  | .         OPERA|
00004D20: 54 45 2E 0D 0D 66 4F 52  4D 41 54 3A 20 20 64 65  |TE...fORMAT:  de|
00004D30: 76 20 44 45 56 49 43 45  23 0D 0D 70 41 52 41 4D  |v DEVICE#..pARAM|
00004D40: 45 54 45 52 20 64 45 53  43 52 49 50 54 49 4F 4E  |ETER dESCRIPTION|
00004D50: 3A 0D 0D 20 20 20 4E 3A  20 64 45 46 41 55 4C 54  |:..   N: dEFAULT|
00004D60: 20 44 45 56 49 43 45 20  4E 55 4D 42 45 52 0D 0D  | DEVICE NUMBER..|
00004D70: 72 45 53 54 52 49 43 54  49 4F 4E 53 3A 20 74 48  |rESTRICTIONS: tH|
00004D80: 45 20 64 65 76 49 43 45  20 53 50 45 43 49 46 49  |E devICE SPECIFI|
00004D90: 45 44 20 4D 55 53 54 0D  20 20 20 48 41 56 45 20  |ED MUST.   HAVE |
00004DA0: 41 20 43 4F 4D 4D 41 4E  44 20 43 48 41 4E 4E 45  |A COMMAND CHANNE|
00004DB0: 4C 20 46 4F 52 20 53 4F  4D 45 0D 20 20 20 45 58  |L FOR SOME.   EX|
00004DC0: 54 45 4E 44 45 44 20 43  4F 4D 4D 41 4E 44 53 20  |TENDED COMMANDS |
00004DD0: 54 4F 20 4F 50 45 52 41  54 45 2E 0D 20 20 20 74  |TO OPERATE..   t|
00004DE0: 48 45 20 49 4E 49 54 49  41 4C 20 44 45 56 49 43  |HE INITIAL DEVIC|
00004DF0: 45 20 53 45 4C 45 43 54  45 44 20 49 53 20 38 2E  |E SELECTED IS 8.|
00004E00: 0D 0D 65 58 41 4D 50 4C  45 3A 20 74 4F 20 44 49  |..eXAMPLE: tO DI|
00004E10: 52 45 43 54 20 41 4C 4C  20 44 45 56 49 43 45 20  |RECT ALL DEVICE |
00004E20: 52 45 4C 41 54 45 44 0D  20 20 20 43 4F 4D 4D 41  |RELATED.   COMMA|
00004E30: 4E 44 53 20 54 4F 20 55  53 45 20 44 45 56 49 43  |NDS TO USE DEVIC|
00004E40: 45 20 23 39 3A 0D 0D 20  20 20 64 65 76 20 39 0D  |E #9:..   dev 9.|
00004E50: 5E 20 64 69 72 20 0D 0D  0D 70 55 52 50 4F 53 45  |^ dir ...pURPOSE|
00004E60: 3A 20 64 49 53 50 4C 41  59 53 20 54 48 45 20 44  |: dISPLAYS THE D|
00004E70: 49 52 45 43 54 4F 52 59  20 4F 46 20 54 48 45 0D  |IRECTORY OF THE.|
00004E80: 20 20 20 20 20 20 20 20  20 43 55 52 52 45 4E 54  |         CURRENT|
00004E90: 20 64 65 76 49 43 45 20  4F 4E 20 54 48 45 20 53  | devICE ON THE S|
00004EA0: 43 52 45 45 4E 0D 0D 66  4F 52 4D 41 54 3A 20 20  |CREEN..fORMAT:  |
00004EB0: 64 69 72 20 5B 44 52 49  56 45 23 5D 0D 0D 64 45  |dir [DRIVE#]..dE|
00004EC0: 53 43 52 49 50 54 49 4F  4E 3A 0D 0D 20 20 20 44  |SCRIPTION:..   D|
00004ED0: 52 49 56 45 23 3A 20 69  46 20 4F 4D 4D 49 54 45  |RIVE#: iF OMMITE|
00004EE0: 44 2C 20 41 20 44 49 52  45 43 54 4F 52 59 20 4F  |D, A DIRECTORY O|
00004EF0: 46 0D 20 20 20 20 20 20  20 20 20 20 20 54 48 45  |F.           THE|
00004F00: 20 44 52 49 56 45 20 49  53 20 53 45 4C 45 43 54  | DRIVE IS SELECT|
00004F10: 45 44 2E 20 69 46 20 41  0D 20 20 20 20 20 20 20  |ED. iF A.       |
00004F20: 20 20 20 20 44 52 49 56  45 20 4E 55 4D 42 45 52  |    DRIVE NUMBER|
00004F30: 20 49 53 20 53 50 45 43  49 46 49 45 44 2C 20 41  | IS SPECIFIED, A|
00004F40: 0D 20 20 20 20 20 20 20  20 20 20 20 44 49 52 45  |.           DIRE|
00004F50: 43 54 4F 52 59 20 4F 46  20 54 48 41 54 20 50 41  |CTORY OF THAT PA|
00004F60: 52 54 49 43 55 4C 41 52  0D 20 20 20 20 20 20 20  |RTICULAR.       |
00004F70: 20 20 20 20 44 52 49 56  45 23 20 4F 4E 20 54 48  |    DRIVE# ON TH|
00004F80: 45 20 43 55 52 52 45 4E  54 20 64 65 76 49 43 45  |E CURRENT devICE|
00004F90: 2C 20 20 20 20 20 20 20  20 20 20 20 49 53 20 44  |,           IS D|
00004FA0: 49 53 50 4C 41 59 45 44  2E 0D 0D 65 58 41 4D 50  |ISPLAYED...eXAMP|
00004FB0: 4C 45 3A 20 74 4F 20 44  49 53 50 4C 41 59 20 54  |LE: tO DISPLAY T|
00004FC0: 48 45 20 44 49 52 45 43  54 4F 52 59 20 4F 46 0D  |HE DIRECTORY OF.|
00004FD0: 20 20 20 44 52 49 56 45  20 23 31 20 4F 4E 20 54  |   DRIVE #1 ON T|
00004FE0: 48 45 20 43 55 52 52 45  4E 54 20 44 45 56 49 43  |HE CURRENT DEVIC|
00004FF0: 45 3A 0D 0D 20 20 20 64  69 72 20 31 0D 5E 20 64  |E:..   dir 1.^ d|
00005000: 6C 73 74 20 0D 0D 0D 70  55 52 50 4F 53 45 3A 20  |lst ...pURPOSE: |
00005010: 6C 49 53 54 53 20 41 20  50 52 4F 47 52 41 4D 20  |lISTS A PROGRAM |
00005020: 46 52 4F 4D 20 43 55 52  52 45 4E 54 0D 20 20 20  |FROM CURRENT.   |
00005030: 20 20 20 20 20 20 64 65  76 49 43 45 20 57 49 54  |      devICE WIT|
00005040: 48 4F 55 54 20 41 46 46  45 43 54 49 4E 47 0D 20  |HOUT AFFECTING. |
00005050: 20 20 20 20 20 20 20 20  43 55 52 52 45 4E 54 20  |        CURRENT |
00005060: 50 52 4F 47 52 41 4D 20  49 4E 20 4D 45 4D 4F 52  |PROGRAM IN MEMOR|
00005070: 59 0D 0D 66 4F 52 4D 41  54 3A 20 20 64 6C 73 74  |Y..fORMAT:  dlst|
00005080: 20 50 52 4F 47 4E 41 4D  45 0D 0D 70 41 52 41 4D  | PROGNAME..pARAM|
00005090: 45 54 45 52 20 64 45 53  43 52 49 50 54 49 4F 4E  |ETER dESCRIPTION|
000050A0: 3A 0D 0D 20 20 20 50 52  4F 47 4E 41 4D 45 3A 20  |:..   PROGNAME: |
000050B0: 61 4E 59 20 56 41 4C 49  44 20 46 49 4C 45 4E 41  |aNY VALID FILENA|
000050C0: 4D 45 20 4F 4E 20 54 48  45 0D 20 20 20 20 20 20  |ME ON THE.      |
000050D0: 20 20 20 20 20 20 20 43  55 52 52 45 4E 54 20 64  |       CURRENT d|
000050E0: 65 76 49 43 45 2E 0D 0D  65 58 41 4D 50 4C 45 3A  |evICE...eXAMPLE:|
000050F0: 20 74 4F 20 4C 49 53 54  20 54 48 45 20 50 52 4F  | tO LIST THE PRO|
00005100: 47 52 41 4D 20 27 74 65  73 74 27 0D 20 20 20 57  |GRAM 'test'.   W|
00005110: 49 54 48 4F 55 54 20 41  46 46 45 43 54 49 4E 47  |ITHOUT AFFECTING|
00005120: 20 43 55 52 52 45 4E 54  20 50 52 4F 47 52 41 4D  | CURRENT PROGRAM|
00005130: 20 49 4E 0D 20 20 20 4D  45 4D 4F 52 59 3A 0D 0D  | IN.   MEMORY:..|
00005140: 20 20 20 64 6C 73 74 20  22 74 65 73 74 22 0D 5E  |   dlst "test".^|
00005150: 20 64 6F 73 20 0D 0D 70  55 52 50 4F 53 45 3A 20  | dos ..pURPOSE: |
00005160: 73 45 4E 44 53 20 41 20  64 6F 73 20 43 4F 4D 4D  |sENDS A dos COMM|
00005170: 41 4E 44 20 54 4F 20 54  48 45 0D 20 20 20 20 20  |AND TO THE.     |
00005180: 20 20 20 20 43 4F 4D 4D  41 4E 44 20 43 48 41 4E  |    COMMAND CHAN|
00005190: 4E 45 4C 20 4F 46 20 54  48 45 20 43 55 52 52 45  |NEL OF THE CURRE|
000051A0: 4E 54 0D 20 20 20 20 20  20 20 20 20 64 65 76 49  |NT.         devI|
000051B0: 43 45 0D 0D 66 4F 52 4D  41 54 3A 20 20 64 6F 73  |CE..fORMAT:  dos|
000051C0: 20 43 4F 4D 4D 41 4E 44  53 54 52 0D 0D 70 41 52  | COMMANDSTR..pAR|
000051D0: 41 4D 45 54 45 52 20 64  45 53 43 52 49 50 54 49  |AMETER dESCRIPTI|
000051E0: 4F 4E 3A 0D 0D 20 20 20  43 4F 4D 4D 41 4E 44 53  |ON:..   COMMANDS|
000051F0: 54 52 3A 20 61 4E 59 20  56 41 4C 49 44 20 43 4F  |TR: aNY VALID CO|
00005200: 4D 4D 41 4E 44 20 53 54  52 49 4E 47 0D 20 20 20  |MMAND STRING.   |
00005210: 20 20 20 20 20 20 20 20  20 20 20 20 41 4C 4C 4F  |            ALLO|
00005220: 57 45 44 20 4F 4E 20 54  48 45 20 43 4F 4D 4D 41  |WED ON THE COMMA|
00005230: 4E 44 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |ND.             |
00005240: 20 20 43 48 41 4E 4E 45  4C 20 4F 46 20 54 48 45  |  CHANNEL OF THE|
00005250: 20 43 55 52 52 45 4E 54  0D 20 20 20 20 20 20 20  | CURRENT.       |
00005260: 20 20 20 20 20 20 20 20  64 65 76 49 43 45 2E 0D  |        devICE..|
00005270: 0D 72 45 53 54 52 49 43  54 49 4F 4E 53 3A 20 74  |.rESTRICTIONS: t|
00005280: 48 45 20 44 45 46 41 55  4C 54 20 44 45 56 49 43  |HE DEFAULT DEVIC|
00005290: 45 20 6D 75 73 74 0D 20  20 20 48 41 56 45 20 41  |E must.   HAVE A|
000052A0: 20 43 4F 4D 4D 41 4E 44  20 43 48 41 4E 4E 45 4C  | COMMAND CHANNEL|
000052B0: 20 57 49 54 48 20 53 45  43 4F 4E 44 41 52 59 20  | WITH SECONDARY |
000052C0: 20 20 41 44 44 52 45 53  53 20 31 35 2E 0D 0D 65  |  ADDRESS 15...e|
000052D0: 58 41 4D 50 4C 45 3A 20  74 4F 20 46 4F 52 4D 41  |XAMPLE: tO FORMA|
000052E0: 54 20 41 20 4E 45 57 20  44 49 53 4B 20 4F 4E 20  |T A NEW DISK ON |
000052F0: 54 48 45 0D 20 20 20 43  55 52 52 45 4E 54 20 44  |THE.   CURRENT D|
00005300: 45 56 49 43 45 3A 0D 0D  20 20 20 64 6F 73 20 22  |EVICE:..   dos "|
00005310: 6E 30 3A 64 69 73 6B 20  6E 61 6D 65 2C 69 64 22  |n0:disk name,id"|
00005320: 0D 5E 20 64 73 6B 24 20  0D 0D 0D 70 55 52 50 4F  |.^ dsk$ ...pURPO|
00005330: 53 45 3A 20 61 20 46 55  4E 43 54 49 4F 4E 20 52  |SE: a FUNCTION R|
00005340: 45 54 55 52 4E 49 4E 47  20 54 48 45 0D 20 20 20  |ETURNING THE.   |
00005350: 20 20 20 20 20 20 43 55  52 52 45 4E 54 20 53 54  |      CURRENT ST|
00005360: 41 54 55 53 20 4F 46 20  54 48 45 20 43 55 52 52  |ATUS OF THE CURR|
00005370: 45 4E 54 0D 20 20 20 20  20 20 20 20 20 64 65 76  |ENT.         dev|
00005380: 49 43 45 0D 0D 66 4F 52  4D 41 54 3A 20 20 64 73  |ICE..fORMAT:  ds|
00005390: 6B 24 28 44 55 4D 4D 59  29 0D 0D 61 52 47 55 4D  |k$(DUMMY)..aRGUM|
000053A0: 45 4E 54 20 64 45 53 43  52 49 50 54 49 4F 4E 3A  |ENT dESCRIPTION:|
000053B0: 0D 0D 20 20 20 44 55 4D  4D 59 3A 20 41 4E 59 20  |..   DUMMY: ANY |
000053C0: 44 55 4D 4D 59 20 41 52  47 55 4D 45 4E 54 0D 0D  |DUMMY ARGUMENT..|
000053D0: 65 58 41 4D 50 4C 45 3A  20 74 4F 20 44 49 53 50  |eXAMPLE: tO DISP|
000053E0: 4C 41 59 20 4C 41 53 54  20 44 49 53 4B 20 53 54  |LAY LAST DISK ST|
000053F0: 41 54 55 53 3A 0D 0D 20  20 20 70 72 69 6E 74 20  |ATUS:..   print |
00005400: 22 73 74 61 74 75 73 3D  22 3B 20 64 73 6B 24 28  |"status="; dsk$(|
00005410: 30 29 0D 5E 20 65 72 72  20 0D 0D 0D 70 55 52 50  |0).^ err ...pURP|
00005420: 4F 53 45 3A 20 61 20 46  55 4E 43 54 49 4F 4E 20  |OSE: a FUNCTION |
00005430: 52 45 54 55 52 4E 49 4E  47 20 54 48 45 20 45 52  |RETURNING THE ER|
00005440: 52 4F 52 0D 20 20 20 20  20 20 20 20 20 4E 55 4D  |ROR.         NUM|
00005450: 42 45 52 20 4F 46 20 54  48 45 20 45 52 52 4F 52  |BER OF THE ERROR|
00005460: 20 57 48 49 43 48 0D 20  20 20 20 20 20 20 20 20  | WHICH.         |
00005470: 43 41 55 53 45 44 20 41  20 50 52 4F 47 52 41 4D  |CAUSED A PROGRAM|
00005480: 20 54 4F 20 54 45 52 4D  49 4E 41 54 45 0D 20 20  | TO TERMINATE.  |
00005490: 20 20 20 20 20 20 20 4F  52 20 41 20 50 52 4F 47  |       OR A PROG|
000054A0: 52 41 4D 20 54 4F 20 74  72 61 70 20 49 46 20 54  |RAM TO trap IF T|
000054B0: 48 45 0D 20 20 20 20 20  20 20 20 20 74 72 61 70  |HE.         trap|
000054C0: 20 49 53 20 45 4E 41 42  4C 45 44 2E 20 20 6F 4E  | IS ENABLED.  oN|
000054D0: 43 45 20 54 48 45 20 65  72 72 0D 20 20 20 20 20  |CE THE err.     |
000054E0: 20 20 20 20 46 55 4E 43  54 49 4F 4E 20 49 53 20  |    FUNCTION IS |
000054F0: 55 53 45 44 2C 20 54 48  45 20 45 52 52 4F 52 20  |USED, THE ERROR |
00005500: 23 0D 20 20 20 20 20 20  20 20 20 49 53 20 52 45  |#.         IS RE|
00005510: 53 45 54 20 54 4F 20 5A  45 52 4F 0D 0D 66 4F 52  |SET TO ZERO..fOR|
00005520: 4D 41 54 3A 20 20 65 72  72 28 44 55 4D 4D 59 29  |MAT:  err(DUMMY)|
00005530: 0D 0D 61 52 47 55 4D 45  4E 54 20 64 45 53 43 52  |..aRGUMENT dESCR|
00005540: 49 50 54 49 4F 4E 3A 0D  0D 20 20 20 44 55 4D 4D  |IPTION:..   DUMM|
00005550: 59 3A 20 41 4E 59 20 44  55 4D 4D 59 20 41 52 47  |Y: ANY DUMMY ARG|
00005560: 55 4D 45 4E 54 0D 0D 65  58 41 4D 50 4C 45 3A 20  |UMENT..eXAMPLE: |
00005570: 74 4F 20 44 45 54 45 52  4D 49 4E 45 20 44 49 56  |tO DETERMINE DIV|
00005580: 20 42 59 20 30 20 45 52  52 4F 52 3A 0D 0D 20 20  | BY 0 ERROR:..  |
00005590: 20 31 30 20 74 72 61 70  20 32 30 3A 20 61 3D 30  | 10 trap 20: a=0|
000055A0: 2F 30 3A 20 65 6E 64 0D  20 20 20 32 30 20 70 72  |/0: end.   20 pr|
000055B0: 69 6E 74 20 22 65 52 52  4F 52 20 4E 55 4D 42 45  |int "eRROR NUMBE|
000055C0: 52 3A 20 22 3B 65 72 72  28 30 29 0D 5E 20 65 72  |R: ";err(0).^ er|
000055D0: 72 24 20 0D 0D 0D 70 55  52 50 4F 53 45 3A 20 61  |r$ ...pURPOSE: a|
000055E0: 20 46 55 4E 43 54 49 4F  4E 20 52 45 54 55 52 4E  | FUNCTION RETURN|
000055F0: 49 4E 47 20 54 48 45 20  45 52 52 4F 52 0D 20 20  |ING THE ERROR.  |
00005600: 20 20 20 20 20 20 20 53  54 52 49 4E 47 20 43 4F  |       STRING CO|
00005610: 52 52 45 53 50 4F 4E 44  49 4E 47 20 54 4F 20 54  |RRESPONDING TO T|
00005620: 48 45 0D 20 20 20 20 20  20 20 20 20 45 52 52 4F  |HE.         ERRO|
00005630: 52 20 4E 55 4D 42 45 52  20 50 52 4F 56 49 44 45  |R NUMBER PROVIDE|
00005640: 44 0D 0D 66 4F 52 4D 41  54 3A 20 20 65 72 72 24  |D..fORMAT:  err$|
00005650: 20 28 45 52 52 23 29 0D  0D 61 52 47 55 4D 45 4E  | (ERR#)..aRGUMEN|
00005660: 54 20 64 45 53 43 52 49  50 54 49 4F 4E 3A 0D 0D  |T dESCRIPTION:..|
00005670: 20 20 20 45 52 52 23 3A  20 41 4E 59 20 56 41 4C  |   ERR#: ANY VAL|
00005680: 49 44 20 45 52 52 4F 52  20 4E 55 4D 42 45 52 20  |ID ERROR NUMBER |
00005690: 28 31 2D 33 33 29 0D 0D  65 58 41 4D 50 4C 45 3A  |(1-33)..eXAMPLE:|
000056A0: 20 74 4F 20 44 45 54 45  52 4D 49 4E 45 20 44 49  | tO DETERMINE DI|
000056B0: 56 20 42 59 20 30 20 45  52 52 4F 52 3A 0D 0D 20  |V BY 0 ERROR:.. |
000056C0: 20 20 31 30 20 74 72 61  70 20 32 30 3A 20 61 3D  |  10 trap 20: a=|
000056D0: 30 2F 30 3A 20 65 6E 64  0D 20 20 20 32 30 20 70  |0/0: end.   20 p|
000056E0: 72 69 6E 74 20 22 65 52  52 4F 52 20 57 41 53 3A  |rint "eRROR WAS:|
000056F0: 20 22 3B 20 65 72 72 24  28 65 72 72 28 30 29 29  | "; err$(err(0))|
00005700: 0D 5E 20 65 78 65 63 75  74 65 20 0D 0D 0D 70 55  |.^ execute ...pU|
00005710: 52 50 4F 53 45 3A 20 65  58 45 43 55 54 45 53 20  |RPOSE: eXECUTES |
00005720: 41 20 73 41 56 45 44 20  50 52 4F 47 52 41 4D 20  |A sAVED PROGRAM |
00005730: 4F 46 0D 20 20 20 20 20  20 20 20 20 43 4F 4D 4D  |OF.         COMM|
00005740: 41 4E 44 53 20 4E 4F 52  4D 41 4C 4C 59 20 45 4E  |ANDS NORMALLY EN|
00005750: 54 45 52 45 44 20 49 4E  0D 20 20 20 20 20 20 20  |TERED IN.       |
00005760: 20 20 49 4D 4D 45 44 49  41 54 45 20 4D 4F 44 45  |  IMMEDIATE MODE|
00005770: 2E 0D 0D 66 4F 52 4D 41  54 3A 20 20 65 78 65 63  |...fORMAT:  exec|
00005780: 75 74 65 20 43 4F 4D 4D  41 4E 44 46 49 4C 45 0D  |ute COMMANDFILE.|
00005790: 0D 70 41 52 41 4D 45 54  45 52 20 64 45 53 43 52  |.pARAMETER dESCR|
000057A0: 49 50 54 49 4F 4E 3A 0D  0D 20 20 20 43 4F 4D 4D  |IPTION:..   COMM|
000057B0: 41 4E 44 46 49 4C 45 3A  20 73 54 52 49 4E 47 20  |ANDFILE: sTRING |
000057C0: 43 4F 4E 54 41 49 4E 49  4E 47 20 54 48 45 0D 20  |CONTAINING THE. |
000057D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4E  |               N|
000057E0: 41 4D 45 20 4F 46 20 54  48 45 20 43 4F 4D 4D 41  |AME OF THE COMMA|
000057F0: 4E 44 20 46 49 4C 45 20  20 20 20 20 20 20 20 20  |ND FILE         |
00005800: 20 20 20 20 20 20 20 4F  4E 20 54 48 45 20 44 45  |       ON THE DE|
00005810: 46 41 55 4C 54 20 64 65  76 49 43 45 2E 0D 0D 72  |FAULT devICE...r|
00005820: 45 53 54 52 49 43 54 49  4F 4E 53 3A 20 6F 4E 4C  |ESTRICTIONS: oNL|
00005830: 59 20 41 56 41 49 4C 41  42 4C 45 20 49 4E 0D 20  |Y AVAILABLE IN. |
00005840: 20 20 20 20 20 20 20 20  20 20 20 20 20 49 4D 4D  |             IMM|
00005850: 45 44 49 41 54 45 20 4D  4F 44 45 2E 0D 0D 0D 6D  |EDIATE MODE....m|
00005860: 4F 52 45 20 49 4E 46 4F  52 4D 41 54 49 4F 4E 20  |ORE INFORMATION |
00005870: 41 56 41 49 4C 41 42 4C  45 2E 2E 2E 0D 5E 20 65  |AVAILABLE....^ e|
00005880: 78 65 63 75 74 65 20 0D  0D 0D 0D 0D 65 58 41 4D  |xecute .....eXAM|
00005890: 50 4C 45 3A 20 74 4F 20  45 58 45 43 55 54 45 20  |PLE: tO EXECUTE |
000058A0: 41 20 46 49 4C 45 20 43  41 4C 4C 45 44 0D 20 20  |A FILE CALLED.  |
000058B0: 20 73 74 61 72 74 75 70  2C 20 4A 55 53 54 20 54  | startup, JUST T|
000058C0: 59 50 45 3A 0D 0D 20 20  20 65 78 65 63 75 74 65  |YPE:..   execute|
000058D0: 20 22 73 74 61 72 74 75  70 22 0D 0D 57 48 45 52  | "startup"..WHER|
000058E0: 45 20 73 74 61 72 74 75  70 20 43 41 4E 20 43 4F  |E startup CAN CO|
000058F0: 4E 54 41 49 4E 3A 0D 0D  20 20 20 31 30 20 63 6F  |NTAIN:..   10 co|
00005900: 6C 20 30 2C 30 2C 31 0D  20 20 20 32 30 20 6C 6F  |l 0,0,1.   20 lo|
00005910: 61 64 20 22 63 75 72 72  65 6E 74 20 70 72 6F 67  |ad "current prog|
00005920: 72 61 6D 22 0D 20 20 20  33 30 20 72 75 6E 0D 0D  |ram".   30 run..|
00005930: 4E 4F 54 45 3A 54 48 45  20 4C 49 4E 45 20 4E 55  |NOTE:THE LINE NU|
00005940: 4D 42 45 52 53 20 41 52  45 20 49 47 4E 4F 52 45  |MBERS ARE IGNORE|
00005950: 44 20 44 55 52 49 4E 47  20 20 20 20 20 43 4F 4D  |D DURING     COM|
00005960: 4D 41 4E 44 20 45 58 45  43 55 54 49 4F 4E 2E 0D  |MAND EXECUTION..|
00005970: 5E 20 6A 6F 79 20 0D 0D  0D 70 55 52 50 4F 53 45  |^ joy ...pURPOSE|
00005980: 3A 20 61 20 46 55 4E 43  54 49 4F 4E 20 52 45 54  |: a FUNCTION RET|
00005990: 55 52 4E 49 4E 47 20 54  48 45 20 56 41 4C 55 45  |URNING THE VALUE|
000059A0: 0D 20 20 20 20 20 20 20  20 20 49 4E 20 54 48 45  |.         IN THE|
000059B0: 20 52 45 47 49 53 54 45  52 20 43 4F 4E 54 41 49  | REGISTER CONTAI|
000059C0: 4E 49 4E 47 20 54 48 45  0D 20 20 20 20 20 20 20  |NING THE.       |
000059D0: 20 20 4A 4F 59 53 54 49  43 4B 20 56 41 4C 55 45  |  JOYSTICK VALUE|
000059E0: 20 4F 46 20 54 48 45 20  53 50 45 43 49 46 49 45  | OF THE SPECIFIE|
000059F0: 44 20 20 20 20 20 20 20  20 20 4A 4F 59 53 54 49  |D         JOYSTI|
00005A00: 43 4B 20 4E 55 4D 42 45  52 0D 0D 66 4F 52 4D 41  |CK NUMBER..fORMA|
00005A10: 54 3A 20 20 6A 6F 79 20  28 4A 4F 59 23 29 0D 0D  |T:  joy (JOY#)..|
00005A20: 61 52 47 55 4D 45 4E 54  20 64 45 43 52 49 50 54  |aRGUMENT dECRIPT|
00005A30: 49 4F 4E 3A 0D 0D 20 20  20 4A 4F 59 23 3A 20 4A  |ION:..   JOY#: J|
00005A40: 4F 59 53 54 49 43 4B 20  4E 55 4D 42 45 52 20 43  |OYSTICK NUMBER C|
00005A50: 4F 52 52 45 53 50 4F 4E  44 49 4E 47 0D 20 20 20  |ORRESPONDING.   |
00005A60: 20 20 20 20 20 20 54 4F  20 54 48 41 54 20 4C 41  |      TO THAT LA|
00005A70: 42 45 4C 4C 45 44 20 4F  4E 20 54 48 45 20 63 36  |BELLED ON THE c6|
00005A80: 34 0D 20 20 20 20 20 20  20 20 20 43 41 53 49 4E  |4.         CASIN|
00005A90: 47 2E 0D 0D 65 58 41 4D  50 4C 45 3A 20 74 4F 20  |G...eXAMPLE: tO |
00005AA0: 44 45 54 45 43 54 20 55  50 57 41 52 44 20 4D 4F  |DETECT UPWARD MO|
00005AB0: 54 49 4F 4E 20 4F 4E 20  50 4F 52 54 20 20 20 23  |TION ON PORT   #|
00005AC0: 32 3A 0D 0D 20 20 20 69  66 20 28 31 35 2D 6A 6F  |2:..   if (15-jo|
00005AD0: 79 28 32 29 61 6E 64 31  35 29 20 61 6E 64 20 31  |y(2)and15) and 1|
00005AE0: 20 74 68 65 6E 0D 20 20  20 20 20 20 20 20 20 20  | then.          |
00005AF0: 20 70 72 69 6E 74 20 22  75 70 20 44 45 54 45 43  | print "up DETEC|
00005B00: 54 45 44 22 0D 5E 20 6B  65 79 20 0D 0D 70 55 52  |TED".^ key ..pUR|
00005B10: 50 4F 53 45 3A 20 64 45  46 49 4E 45 53 20 41 20  |POSE: dEFINES A |
00005B20: 53 54 52 49 4E 47 20 54  4F 20 42 45 20 41 53 53  |STRING TO BE ASS|
00005B30: 49 47 4E 45 44 20 20 20  20 20 20 20 20 20 54 4F  |IGNED         TO|
00005B40: 20 41 20 47 49 56 45 4E  20 46 55 4E 43 54 49 4F  | A GIVEN FUNCTIO|
00005B50: 4E 20 4B 45 59 20 23 2E  0D 20 20 20 20 20 20 20  |N KEY #..       |
00005B60: 20 20 6F 4E 43 45 44 20  44 45 46 49 4E 45 44 2C  |  oNCED DEFINED,|
00005B70: 20 48 49 54 54 49 4E 47  20 54 48 45 0D 20 20 20  | HITTING THE.   |
00005B80: 20 20 20 20 20 20 47 49  56 45 4E 20 46 55 4E 43  |      GIVEN FUNC|
00005B90: 54 49 4F 4E 20 4B 45 59  20 57 49 4C 4C 20 59 49  |TION KEY WILL YI|
00005BA0: 45 4C 44 0D 20 20 20 20  20 20 20 20 20 54 48 45  |ELD.         THE|
00005BB0: 20 50 52 4F 56 49 44 45  44 20 53 54 52 49 4E 47  | PROVIDED STRING|
00005BC0: 0D 0D 66 4F 52 4D 41 54  3A 20 20 4B 45 59 20 46  |..fORMAT:  KEY F|
00005BD0: 4E 4B 45 59 23 2C 20 53  54 52 49 4E 47 0D 0D 64  |NKEY#, STRING..d|
00005BE0: 45 53 43 52 49 50 54 49  4F 4E 3A 0D 0D 20 20 20  |ESCRIPTION:..   |
00005BF0: 46 4E 4B 45 59 23 3A 20  61 4E 59 20 56 41 4C 49  |FNKEY#: aNY VALI|
00005C00: 44 20 46 55 4E 43 54 49  4F 4E 20 4B 45 59 20 28  |D FUNCTION KEY (|
00005C10: 31 2D 38 29 0D 0D 20 20  20 53 54 52 49 4E 47 3A  |1-8)..   STRING:|
00005C20: 20 75 50 20 54 4F 20 41  20 31 30 20 43 48 41 52  | uP TO A 10 CHAR|
00005C30: 20 53 54 52 49 4E 47 20  54 4F 0D 20 20 20 20 20  | STRING TO.     |
00005C40: 20 20 20 20 20 53 55 42  53 54 49 54 55 45 20 46  |     SUBSTITUE F|
00005C50: 4F 52 20 41 20 46 55 4E  43 54 49 4F 4E 20 4B 45  |OR A FUNCTION KE|
00005C60: 59 2C 0D 20 20 20 20 20  20 20 20 20 20 55 50 4F  |Y,.          UPO|
00005C70: 4E 20 44 45 50 52 45 53  53 49 4E 47 20 54 48 41  |N DEPRESSING THA|
00005C80: 54 20 4B 45 59 0D 0D 65  58 41 4D 50 4C 45 3A 20  |T KEY..eXAMPLE: |
00005C90: 74 4F 20 53 45 54 55 50  20 66 31 20 53 4F 20 54  |tO SETUP f1 SO T|
00005CA0: 48 41 54 20 49 54 20 57  49 4C 4C 0D 20 20 20 4C  |HAT IT WILL.   L|
00005CB0: 4F 41 44 20 54 48 45 20  50 52 4F 47 52 41 4D 20  |OAD THE PROGRAM |
00005CC0: 74 20 57 48 45 4E 20 44  45 50 52 45 53 53 45 44  |t WHEN DEPRESSED|
00005CD0: 3A 0D 0D 20 20 20 20 20  20 20 20 20 6B 65 79 20  |:..         key |
00005CE0: 31 2C 22 6C 6F 61 64 27  74 27 2C 38 5C 22 0D 6E  |1,"load't',8\".n|
00005CF0: 4F 54 45 3A 20 74 48 45  20 5C 20 49 53 20 54 52  |OTE: tHE \ IS TR|
00005D00: 41 4E 53 4C 41 54 45 44  20 54 4F 20 41 20 43 41  |ANSLATED TO A CA|
00005D10: 52 52 49 41 47 45 0D 20  20 20 20 20 20 52 45 54  |RRIAGE.      RET|
00005D20: 55 52 4E 20 41 4E 44 20  27 20 49 53 20 54 52 41  |URN AND ' IS TRA|
00005D30: 4E 53 4C 41 54 45 44 20  54 4F 20 22 0D 5E 20 6D  |NSLATED TO ".^ m|
00005D40: 61 78 20 0D 0D 0D 70 55  52 50 4F 53 45 3A 20 61  |ax ...pURPOSE: a|
00005D50: 20 46 55 4E 43 54 49 4F  4E 20 54 48 41 54 20 52  | FUNCTION THAT R|
00005D60: 45 54 55 52 4E 53 20 54  48 45 0D 20 20 20 20 20  |ETURNS THE.     |
00005D70: 20 20 20 20 4C 41 52 47  45 53 54 20 56 41 4C 55  |    LARGEST VALU|
00005D80: 45 20 4F 46 20 49 54 53  20 41 52 47 55 4D 45 4E  |E OF ITS ARGUMEN|
00005D90: 54 53 0D 0D 66 4F 52 4D  41 54 3A 20 20 6D 61 78  |TS..fORMAT:  max|
00005DA0: 20 28 20 4E 55 4D 42 45  52 53 20 29 0D 0D 61 52  | ( NUMBERS )..aR|
00005DB0: 47 55 4D 45 4E 54 20 64  45 53 43 52 49 50 54 49  |GUMENT dESCRIPTI|
00005DC0: 4F 4E 3A 0D 0D 20 20 20  4E 55 4D 42 45 52 53 3A  |ON:..   NUMBERS:|
00005DD0: 20 61 20 4C 49 53 54 20  4F 46 20 4E 55 4D 42 45  | a LIST OF NUMBE|
00005DE0: 52 53 2C 20 56 41 52 49  41 42 4C 45 53 20 20 20  |RS, VARIABLES   |
00005DF0: 20 20 20 20 20 20 20 20  20 4F 52 20 43 41 4C 43  |         OR CALC|
00005E00: 55 4C 41 54 49 4F 4E 53  2C 20 53 45 50 41 52 41  |ULATIONS, SEPARA|
00005E10: 54 45 44 0D 20 20 20 20  20 20 20 20 20 20 20 20  |TED.            |
00005E20: 42 59 20 41 20 43 4F 4D  4D 41 2E 0D 0D 65 58 41  |BY A COMMA...eXA|
00005E30: 4D 50 4C 45 3A 20 74 4F  20 50 52 49 4E 54 20 4F  |MPLE: tO PRINT O|
00005E40: 55 54 20 54 48 45 20 4C  41 52 47 45 53 54 20 4E  |UT THE LARGEST N|
00005E50: 55 4D 42 45 52 20 20 20  49 4E 20 41 20 4C 49 53  |UMBER   IN A LIS|
00005E60: 54 20 4F 46 20 4E 55 4D  42 45 52 53 3A 0D 0D 20  |T OF NUMBERS:.. |
00005E70: 20 20 70 72 69 6E 74 20  6D 61 78 20 28 31 30 2C  |  print max (10,|
00005E80: 61 2C 62 2C 63 2C 64 29  0D 5E 20 6D 69 6E 20 0D  |a,b,c,d).^ min .|
00005E90: 0D 0D 70 55 52 50 4F 53  45 3A 20 61 20 46 55 4E  |..pURPOSE: a FUN|
00005EA0: 43 54 49 4F 4E 20 52 45  54 55 52 4E 49 4E 47 20  |CTION RETURNING |
00005EB0: 54 48 45 20 4C 4F 57 45  53 54 20 20 20 20 20 20  |THE LOWEST      |
00005EC0: 20 20 20 56 41 4C 55 45  20 4F 46 20 49 54 53 20  |   VALUE OF ITS |
00005ED0: 41 52 47 55 4D 45 4E 54  53 0D 0D 66 4F 52 4D 41  |ARGUMENTS..fORMA|
00005EE0: 54 3A 20 20 6D 69 6E 20  28 20 4E 55 4D 42 45 52  |T:  min ( NUMBER|
00005EF0: 53 20 29 0D 0D 61 52 47  55 4D 45 4E 54 20 64 45  |S )..aRGUMENT dE|
00005F00: 53 43 52 49 50 54 49 4F  4E 3A 0D 0D 20 20 20 4E  |SCRIPTION:..   N|
00005F10: 55 4D 42 45 52 53 3A 20  61 20 4C 49 53 54 20 4F  |UMBERS: a LIST O|
00005F20: 46 20 4E 55 4D 42 45 52  53 2C 20 56 41 52 49 41  |F NUMBERS, VARIA|
00005F30: 42 4C 45 53 20 20 20 20  20 20 20 20 20 20 20 20  |BLES            |
00005F40: 4F 52 20 43 41 4C 43 55  4C 41 54 49 4F 4E 53 2C  |OR CALCULATIONS,|
00005F50: 20 53 45 50 41 52 41 54  45 44 0D 20 20 20 20 20  | SEPARATED.     |
00005F60: 20 20 20 20 20 20 20 42  59 20 41 20 43 4F 4D 4D  |       BY A COMM|
00005F70: 41 2E 0D 0D 0D 65 58 41  4D 50 4C 45 3A 20 74 4F  |A....eXAMPLE: tO|
00005F80: 20 50 52 49 4E 54 20 4F  55 54 20 54 48 45 20 53  | PRINT OUT THE S|
00005F90: 4D 41 4C 4C 45 53 54 20  23 0D 20 20 20 49 4E 20  |MALLEST #.   IN |
00005FA0: 41 20 4C 49 53 54 20 4F  46 20 4E 55 4D 42 45 52  |A LIST OF NUMBER|
00005FB0: 53 3A 0D 0D 20 20 20 70  72 69 6E 74 20 6D 69 6E  |S:..   print min|
00005FC0: 20 28 31 30 2C 61 2C 62  2C 63 2C 64 29 0D 5E 20  | (10,a,b,c,d).^ |
00005FD0: 6E 75 6D 20 0D 0D 70 55  52 50 4F 53 45 3A 20 70  |num ..pURPOSE: p|
00005FE0: 52 4F 56 49 44 45 53 20  41 55 54 4F 6E 75 6D 42  |ROVIDES AUTOnumB|
00005FF0: 45 52 49 4E 47 20 4F 46  0D 20 20 20 20 20 20 20  |ERING OF.       |
00006000: 20 20 50 52 4F 47 52 41  4D 53 20 4C 49 4E 45 53  |  PROGRAMS LINES|
00006010: 2E 20 20 61 20 53 54 41  52 54 20 56 41 4C 55 45  |.  a START VALUE|
00006020: 0D 20 20 20 20 20 20 20  20 20 41 4E 44 20 49 4E  |.         AND IN|
00006030: 43 52 45 4D 45 4E 54 20  43 41 4E 20 42 45 20 53  |CREMENT CAN BE S|
00006040: 50 45 43 49 46 49 45 44  0D 0D 66 4F 52 4D 41 54  |PECIFIED..fORMAT|
00006050: 3A 20 20 6E 75 6D 20 5B  53 54 41 52 54 20 5B 2C  |:  num [START [,|
00006060: 20 49 4E 43 52 45 4D 45  4E 54 5D 5D 0D 0D 70 41  | INCREMENT]]..pA|
00006070: 52 41 4D 45 54 45 52 20  64 45 53 43 52 49 50 54  |RAMETER dESCRIPT|
00006080: 49 4F 4E 3A 0D 20 20 20  53 54 41 52 54 3A 20 74  |ION:.   START: t|
00006090: 48 45 20 53 54 41 52 54  49 4E 47 20 4C 49 4E 45  |HE STARTING LINE|
000060A0: 4E 55 4D 42 45 52 20 54  4F 0D 20 20 20 20 20 20  |NUMBER TO.      |
000060B0: 20 20 20 20 53 54 41 52  54 20 4E 55 4D 42 45 52  |    START NUMBER|
000060C0: 49 4E 47 20 46 52 4F 4D  2E 20 20 69 46 0D 20 20  |ING FROM.  iF.  |
000060D0: 20 20 20 20 20 20 20 20  4F 4D 4D 49 54 45 44 2C  |        OMMITED,|
000060E0: 20 54 48 45 20 53 54 41  52 54 20 57 49 4C 4C 20  | THE START WILL |
000060F0: 42 45 0D 20 20 20 20 20  20 20 20 20 20 54 48 45  |BE.          THE|
00006100: 20 45 4E 44 20 4F 46 20  54 48 45 20 43 55 52 52  | END OF THE CURR|
00006110: 45 4E 54 20 50 52 4F 47  52 41 4D 0D 20 20 20 49  |ENT PROGRAM.   I|
00006120: 4E 43 52 45 4D 45 4E 54  3A 20 74 48 45 20 49 4E  |NCREMENT: tHE IN|
00006130: 43 52 45 4D 45 4E 54 20  46 4F 52 20 54 48 45 20  |CREMENT FOR THE |
00006140: 4C 49 4E 45 20 20 20 20  20 20 20 20 20 20 4E 55  |LINE          NU|
00006150: 4D 42 45 52 49 4E 47 2E  20 20 69 46 20 4F 4D 4D  |MBERING.  iF OMM|
00006160: 49 54 45 44 2C 20 54 48  45 0D 20 20 20 20 20 20  |ITED, THE.      |
00006170: 20 20 20 20 4C 41 53 54  20 49 4E 43 52 45 4D 45  |    LAST INCREME|
00006180: 4E 54 20 57 49 4C 4C 20  42 45 20 55 53 45 44 2E  |NT WILL BE USED.|
00006190: 0D 20 20 20 20 20 20 20  20 20 20 74 48 45 20 4F  |.          tHE O|
000061A0: 52 49 47 49 4E 41 4C 20  44 45 46 41 55 4C 54 20  |RIGINAL DEFAULT |
000061B0: 49 53 20 31 30 2E 0D 0D  65 58 41 4D 50 4C 45 3A  |IS 10...eXAMPLE:|
000061C0: 20 74 4F 20 53 54 41 52  54 20 41 55 54 4F 4E 55  | tO START AUTONU|
000061D0: 4D 42 45 52 49 4E 47 20  46 52 4F 4D 0D 20 20 20  |MBERING FROM.   |
000061E0: 20 20 20 20 20 20 43 55  52 52 45 4E 54 20 50 52  |      CURRENT PR|
000061F0: 4F 47 52 41 4D 20 45 4E  44 20 49 4E 20 53 54 45  |OGRAM END IN STE|
00006200: 50 53 20 4F 46 20 20 20  20 20 20 20 20 20 31 30  |PS OF         10|
00006210: 30 20 20 55 53 45 3A 0D  0D 20 20 20 20 20 20 20  |0  USE:..       |
00006220: 20 20 20 20 6E 75 6D 20  2C 31 30 30 0D 5E 20 70  |    num ,100.^ p|
00006230: 6F 6B 65 20 0D 0D 70 55  52 50 4F 53 45 3A 20 61  |oke ..pURPOSE: a|
00006240: 4E 20 45 58 54 45 4E 53  49 4F 4E 20 54 4F 20 53  |N EXTENSION TO S|
00006250: 54 41 4E 44 41 52 44 20  62 61 73 69 63 0D 20 20  |TANDARD basic.  |
00006260: 20 20 20 20 20 20 20 54  4F 20 41 4C 4C 4F 57 20  |       TO ALLOW |
00006270: 4D 55 4C 54 49 50 4C 45  20 56 41 4C 55 45 53 20  |MULTIPLE VALUES |
00006280: 54 4F 20 42 45 0D 20 20  20 20 20 20 20 20 20 70  |TO BE.         p|
00006290: 6F 6B 65 44 20 49 4E 54  4F 20 4D 45 4D 4F 52 59  |okeD INTO MEMORY|
000062A0: 2E 0D 0D 66 4F 52 4D 41  54 3A 20 20 70 6F 6B 65  |...fORMAT:  poke|
000062B0: 20 4C 4F 43 41 54 49 4F  4E 2C 20 56 41 4C 55 45  | LOCATION, VALUE|
000062C0: 53 0D 0D 70 41 52 41 4D  45 54 45 52 20 64 45 53  |S..pARAMETER dES|
000062D0: 43 52 49 50 54 49 4F 4E  3A 0D 0D 20 20 20 4C 4F  |CRIPTION:..   LO|
000062E0: 43 41 54 49 4F 4E 3A 20  73 54 41 52 54 49 4E 47  |CATION: sTARTING|
000062F0: 20 4D 45 4D 4F 52 59 20  4C 4F 43 41 54 49 4F 4E  | MEMORY LOCATION|
00006300: 20 54 4F 20 20 20 20 20  20 20 20 20 20 20 20 20  | TO             |
00006310: 52 45 43 45 49 56 45 20  53 50 45 43 49 46 49 45  |RECEIVE SPECIFIE|
00006320: 44 20 56 41 4C 55 45 53  0D 0D 20 20 20 56 41 4C  |D VALUES..   VAL|
00006330: 55 45 53 3A 20 61 20 42  59 54 45 20 56 41 4C 55  |UES: a BYTE VALU|
00006340: 45 20 54 4F 20 42 45 20  57 52 49 54 54 45 4E 0D  |E TO BE WRITTEN.|
00006350: 20 20 20 20 20 20 20 20  20 20 20 49 4E 54 4F 20  |           INTO |
00006360: 54 48 45 20 41 42 4F 56  45 20 4C 4F 43 41 54 49  |THE ABOVE LOCATI|
00006370: 4F 4E 2E 20 20 69 46 0D  20 20 20 20 20 20 20 20  |ON.  iF.        |
00006380: 20 20 20 41 20 4C 49 53  54 20 4F 46 20 56 41 4C  |   A LIST OF VAL|
00006390: 55 45 53 20 49 53 20 53  50 45 43 49 46 49 45 44  |UES IS SPECIFIED|
000063A0: 20 20 20 20 20 20 20 20  20 20 20 28 53 45 50 41  |           (SEPA|
000063B0: 52 41 54 45 44 20 42 59  20 43 4F 4D 4D 41 53 29  |RATED BY COMMAS)|
000063C0: 2C 20 54 48 45 0D 20 20  20 20 20 20 20 20 20 20  |, THE.          |
000063D0: 20 4C 49 53 54 20 57 49  4C 4C 20 42 45 20 41 53  | LIST WILL BE AS|
000063E0: 53 49 47 4E 20 49 4E 0D  20 20 20 20 20 20 20 20  |SIGN IN.        |
000063F0: 20 20 20 53 55 43 43 45  53 53 49 4F 4E 20 53 54  |   SUCCESSION ST|
00006400: 41 52 54 49 4E 47 20 41  54 20 54 48 45 0D 20 20  |ARTING AT THE.  |
00006410: 20 20 20 20 20 20 20 20  20 41 42 4F 56 45 20 4D  |         ABOVE M|
00006420: 45 4D 4F 52 59 20 4C 4F  43 41 54 49 4F 4E 2E 0D  |EMORY LOCATION..|
00006430: 0D 65 58 41 4D 50 4C 45  3A 20 70 6F 6B 65 20 31  |.eXAMPLE: poke 1|
00006440: 30 30 30 2C 31 2C 32 2C  33 20 57 49 4C 4C 20 50  |000,1,2,3 WILL P|
00006450: 55 54 20 41 20 31 20 49  4E 20 54 4F 20 4C 4F 43  |UT A 1 IN TO LOC|
00006460: 20 31 30 30 30 2C 20 32  20 49 4E 54 4F 20 31 30  | 1000, 2 INTO 10|
00006470: 30 31 20 26 20 33 20 49  4E 54 4F 20 31 30 30 32  |01 & 3 INTO 1002|
00006480: 2E 5E 20 70 72 69 6E 74  20 40 20 0D 0D 0D 70 55  |.^ print @ ...pU|
00006490: 52 50 4F 53 45 3A 20 61  4E 20 45 58 54 45 4E 53  |RPOSE: aN EXTENS|
000064A0: 49 4F 4E 20 54 4F 20 54  48 45 20 53 54 41 4E 44  |ION TO THE STAND|
000064B0: 41 52 44 0D 20 20 20 20  20 20 20 20 20 70 72 69  |ARD.         pri|
000064C0: 6E 74 20 43 4F 4D 4D 41  4E 44 20 54 4F 20 41 4C  |nt COMMAND TO AL|
000064D0: 4C 4F 57 20 46 4F 52 20  0D 20 20 20 20 20 20 20  |LOW FOR .       |
000064E0: 20 20 43 55 52 53 4F 52  20 50 4F 53 49 54 49 4F  |  CURSOR POSITIO|
000064F0: 4E 49 4E 47 20 50 52 49  4F 52 20 54 4F 0D 20 20  |NING PRIOR TO.  |
00006500: 20 20 20 20 20 20 20 54  4F 20 50 52 49 4E 54 49  |       TO PRINTI|
00006510: 4E 47 2E 0D 0D 66 4F 52  4D 41 54 3A 20 20 70 72  |NG...fORMAT:  pr|
00006520: 69 6E 74 20 40 20 58 2C  59 3B 20 56 41 52 4C 49  |int @ X,Y; VARLI|
00006530: 53 54 0D 0D 0D 70 41 52  41 4D 45 54 45 52 20 64  |ST...pARAMETER d|
00006540: 45 53 43 52 49 50 54 49  4F 4E 3A 0D 0D 20 20 20  |ESCRIPTION:..   |
00006550: 58 3A 20 72 4F 57 20 50  4F 53 49 54 49 4F 4E 20  |X: rOW POSITION |
00006560: 46 52 4F 4D 20 54 4F 50  2D 4C 45 46 54 20 4F 46  |FROM TOP-LEFT OF|
00006570: 0D 20 20 20 20 20 20 53  43 52 45 45 4E 2E 20 20  |.      SCREEN.  |
00006580: 72 41 4E 47 45 20 49 53  20 30 20 54 4F 20 32 34  |rANGE IS 0 TO 24|
00006590: 0D 0D 20 20 20 59 3A 20  63 4F 4C 55 4D 4E 20 50  |..   Y: cOLUMN P|
000065A0: 4F 53 49 54 49 4F 4E 20  46 52 4F 4D 20 54 4F 50  |OSITION FROM TOP|
000065B0: 2D 4C 45 46 54 20 4F 46  0D 20 20 20 20 20 20 53  |-LEFT OF.      S|
000065C0: 43 52 45 45 4E 2E 20 20  72 41 4E 47 45 20 49 53  |CREEN.  rANGE IS|
000065D0: 20 30 20 54 4F 20 33 39  2E 0D 0D 0D 0D 6D 4F 52  | 0 TO 39.....mOR|
000065E0: 45 20 49 4E 46 4F 52 4D  41 54 49 4F 4E 20 41 56  |E INFORMATION AV|
000065F0: 41 49 4C 41 42 4C 45 2E  2E 2E 0D 5E 20 70 72 69  |AILABLE....^ pri|
00006600: 6E 74 20 40 20 0D 0D 0D  0D 0D 20 20 20 56 41 52  |nt @ .....   VAR|
00006610: 4C 49 53 54 3A 20 54 48  45 20 4E 4F 52 4D 41 4C  |LIST: THE NORMAL|
00006620: 20 56 41 52 49 41 42 4C  45 20 4C 49 53 54 0D 20  | VARIABLE LIST. |
00006630: 20 20 20 20 20 20 20 20  20 20 20 41 53 20 49 4E  |           AS IN|
00006640: 20 41 20 70 72 69 6E 74  20 43 4F 4D 4D 41 4E 44  | A print COMMAND|
00006650: 2E 0D 0D 0D 65 58 41 4D  50 4C 45 3A 20 74 4F 20  |....eXAMPLE: tO |
00006660: 50 52 49 4E 54 20 4F 55  54 20 41 20 27 68 45 4C  |PRINT OUT A 'hEL|
00006670: 4C 4F 20 74 48 45 52 45  27 0D 20 20 20 41 54 20  |LO tHERE'.   AT |
00006680: 43 48 41 52 41 43 54 45  52 20 4C 4F 43 41 54 49  |CHARACTER LOCATI|
00006690: 4F 4E 20 31 30 2C 31 30  0D 0D 0D 20 20 20 70 72  |ON 10,10...   pr|
000066A0: 69 6E 74 20 40 20 31 30  2C 31 30 3B 20 22 68 45  |int @ 10,10; "hE|
000066B0: 4C 4C 4F 20 74 48 45 52  45 22 0D 0D 6E 4F 54 45  |LLO tHERE"..nOTE|
000066C0: 3A 20 69 46 20 59 4F 55  20 55 53 45 20 41 20 43  |: iF YOU USE A C|
000066D0: 4F 4D 4D 41 20 28 2C 29  20 49 4E 53 54 45 41 44  |OMMA (,) INSTEAD|
000066E0: 20 4F 46 20 20 20 20 20  20 20 54 48 45 20 53 45  | OF       THE SE|
000066F0: 4D 49 43 4F 4C 4F 4E 2C  20 54 48 45 20 56 41 52  |MICOLON, THE VAR|
00006700: 4C 49 53 54 20 57 49 4C  4C 20 42 45 20 20 20 20  |LIST WILL BE    |
00006710: 20 20 50 52 49 4E 54 45  44 20 41 54 20 54 48 45  |  PRINTED AT THE|
00006720: 20 4E 45 58 54 20 41 56  41 49 4C 41 42 4C 45 20  | NEXT AVAILABLE |
00006730: 54 41 42 20 20 20 20 20  20 20 50 4F 53 49 54 49  |TAB       POSITI|
00006740: 4F 4E 2E 0D 5E 20 72 65  70 65 61 74 20 0D 0D 0D  |ON..^ repeat ...|
00006750: 70 55 52 50 4F 53 45 3A  20 69 4E 44 49 43 41 54  |pURPOSE: iNDICAT|
00006760: 45 53 20 54 48 45 20 53  54 41 52 54 20 4F 46 20  |ES THE START OF |
00006770: 41 20 72 65 70 65 61 74  20 20 20 20 20 20 20 20  |A repeat        |
00006780: 20 75 6E 74 69 6C 20 43  4F 4E 53 54 52 55 43 54  | until CONSTRUCT|
00006790: 2E 20 20 73 45 45 20 75  6E 74 69 6C 20 46 4F 52  |.  sEE until FOR|
000067A0: 20 20 20 20 20 20 20 20  20 4D 4F 52 45 20 44 45  |         MORE DE|
000067B0: 54 41 49 4C 53 0D 0D 66  4F 52 4D 41 54 3A 20 20  |TAILS..fORMAT:  |
000067C0: 72 65 70 65 61 74 0D 0D  0D 65 58 41 4D 50 4C 45  |repeat...eXAMPLE|
000067D0: 3A 20 72 65 70 65 61 74  3A 20 67 65 74 20 69 6E  |: repeat: get in|
000067E0: 24 3A 20 75 6E 74 69 6C  20 69 6E 24 3C 3E 22 22  |$: until in$<>""|
000067F0: 0D 0D 20 20 20 57 49 4C  4C 20 57 41 49 54 20 55  |..   WILL WAIT U|
00006800: 4E 54 49 4C 20 41 20 4B  45 59 20 48 41 53 20 42  |NTIL A KEY HAS B|
00006810: 45 45 4E 0D 20 20 20 44  45 50 52 45 53 53 45 44  |EEN.   DEPRESSED|
00006820: 0D 5E 20 74 72 61 70 20  0D 0D 0D 70 55 52 50 4F  |.^ trap ...pURPO|
00006830: 53 45 3A 20 74 72 61 70  20 43 41 55 53 45 53 20  |SE: trap CAUSES |
00006840: 43 4F 4E 54 52 4F 4C 20  54 4F 20 42 45 0D 20 20  |CONTROL TO BE.  |
00006850: 20 20 20 20 20 20 20 50  41 53 53 45 44 20 54 4F  |       PASSED TO|
00006860: 20 41 20 53 54 41 54 45  4D 45 4E 54 20 4E 55 4D  | A STATEMENT NUM|
00006870: 42 45 52 0D 20 20 20 20  20 20 20 20 20 4F 4E 43  |BER.         ONC|
00006880: 45 20 41 4E 20 45 52 52  4F 52 20 54 48 41 54 20  |E AN ERROR THAT |
00006890: 4E 4F 52 4D 41 4C 4C 59  0D 20 20 20 20 20 20 20  |NORMALLY.       |
000068A0: 20 20 54 45 52 4D 49 4E  41 54 45 53 20 54 48 45  |  TERMINATES THE|
000068B0: 20 50 52 4F 47 52 41 4D  20 48 41 53 0D 20 20 20  | PROGRAM HAS.   |
000068C0: 20 20 20 20 20 20 4F 43  43 55 52 45 44 2E 20 20  |      OCCURED.  |
000068D0: 65 52 52 4F 52 53 20 43  41 4E 20 54 48 45 4E 20  |eRRORS CAN THEN |
000068E0: 42 45 0D 20 20 20 20 20  20 20 20 20 49 4E 54 45  |BE.         INTE|
000068F0: 52 52 4F 47 41 54 45 44  20 42 59 20 54 48 45 20  |RROGATED BY THE |
00006900: 55 53 45 20 4F 46 20 54  48 45 0D 20 20 20 20 20  |USE OF THE.     |
00006910: 20 20 20 20 65 72 72 20  41 4E 44 20 65 72 72 24  |    err AND err$|
00006920: 20 46 55 4E 43 54 49 4F  4E 53 2E 20 20 6F 4E 43  | FUNCTIONS.  oNC|
00006930: 45 0D 20 20 20 20 20 20  20 20 20 41 20 74 72 61  |E.         A tra|
00006940: 70 20 48 41 53 20 4F 43  43 55 52 45 44 2C 20 41  |p HAS OCCURED, A|
00006950: 20 4E 45 57 20 74 72 61  70 0D 20 20 20 20 20 20  | NEW trap.      |
00006960: 20 20 20 43 4F 4D 4D 41  4E 44 20 49 53 20 4E 45  |   COMMAND IS NE|
00006970: 43 43 45 53 53 41 52 59  20 54 4F 0D 20 20 20 20  |CCESSARY TO.    |
00006980: 20 20 20 20 20 52 45 2D  45 4E 41 42 4C 45 20 54  |     RE-ENABLE T|
00006990: 48 45 20 54 52 41 50 50  49 4E 47 20 4F 46 20 4E  |HE TRAPPING OF N|
000069A0: 45 57 0D 20 20 20 20 20  20 20 20 20 45 52 52 4F  |EW.         ERRO|
000069B0: 52 53 0D 0D 66 4F 52 4D  41 54 3A 20 20 74 72 61  |RS..fORMAT:  tra|
000069C0: 70 20 4C 49 4E 45 23 0D  0D 0D 0D 6D 4F 52 45 20  |p LINE#....mORE |
000069D0: 49 4E 46 4F 52 4D 41 54  49 4F 4E 20 41 56 41 49  |INFORMATION AVAI|
000069E0: 4C 41 42 4C 45 2E 2E 2E  0D 5E 20 74 72 61 70 20  |LABLE....^ trap |
000069F0: 0D 0D 0D 64 45 53 43 52  49 50 54 49 4F 4E 3A 0D  |...dESCRIPTION:.|
00006A00: 0D 20 20 20 4C 49 4E 45  23 3A 20 61 20 4C 49 4E  |.   LINE#: a LIN|
00006A10: 45 20 4E 55 4D 42 45 52  20 54 4F 20 27 67 6F 74  |E NUMBER TO 'got|
00006A20: 6F 27 20 57 48 45 4E 0D  20 20 20 20 20 20 20 20  |o' WHEN.        |
00006A30: 20 20 41 4E 20 45 52 52  4F 52 20 4F 43 43 55 52  |  AN ERROR OCCUR|
00006A40: 53 2E 20 20 69 46 20 54  48 45 20 4C 49 4E 45 0D  |S.  iF THE LINE.|
00006A50: 20 20 20 20 20 20 20 20  20 20 4E 55 4D 42 45 52  |          NUMBER|
00006A60: 20 44 4F 45 53 20 4E 4F  54 20 45 58 49 53 54 2C  | DOES NOT EXIST,|
00006A70: 20 41 4E 4F 54 48 45 52  20 20 20 20 20 20 20 20  | ANOTHER        |
00006A80: 20 20 45 52 52 4F 52 20  57 49 4C 4C 20 4F 43 43  |  ERROR WILL OCC|
00006A90: 55 52 2E 0D 0D 0D 65 58  41 4D 50 4C 45 3A 20 74  |UR....eXAMPLE: t|
00006AA0: 4F 20 4C 45 54 20 41 20  52 4F 55 54 49 4E 45 20  |O LET A ROUTINE |
00006AB0: 41 54 20 4C 49 4E 45 20  31 30 30 30 0D 20 20 20  |AT LINE 1000.   |
00006AC0: 50 45 52 46 4F 52 4D 20  45 52 52 4F 52 20 48 41  |PERFORM ERROR HA|
00006AD0: 4E 44 4C 49 4E 47 20 49  4E 20 54 48 45 20 45 56  |NDLING IN THE EV|
00006AE0: 45 4E 54 0D 20 20 20 4F  46 20 50 52 4F 47 52 41  |ENT.   OF PROGRA|
00006AF0: 4D 20 54 45 52 4D 49 4E  41 54 49 4F 4E 3A 0D 0D  |M TERMINATION:..|
00006B00: 20 20 20 20 20 20 20 20  20 20 20 20 74 72 61 70  |            trap|
00006B10: 20 31 30 30 30 0D 0D 6E  4F 54 45 3A 20 74 4F 20  | 1000..nOTE: tO |
00006B20: 44 49 53 41 42 4C 45 20  41 20 54 52 41 50 20 4A  |DISABLE A TRAP J|
00006B30: 55 53 54 20 4C 45 41 56  45 20 4F 46 46 20 0D 20  |UST LEAVE OFF . |
00006B40: 20 20 20 20 20 54 48 45  20 4C 49 4E 45 23 3A 0D  |     THE LINE#:.|
00006B50: 0D 20 20 20 20 20 20 20  20 20 20 20 20 74 72 61  |.            tra|
00006B60: 70 0D 5E 20 75 6E 74 69  6C 20 0D 0D 0D 70 55 52  |p.^ until ...pUR|
00006B70: 50 4F 53 45 3A 20 74 48  45 20 43 4F 4E 43 4C 55  |POSE: tHE CONCLU|
00006B80: 44 49 4E 47 20 50 41 52  54 20 4F 46 20 41 20 72  |DING PART OF A r|
00006B90: 65 70 65 61 74 20 20 20  20 20 20 20 20 20 75 6E  |epeat         un|
00006BA0: 74 69 6C 20 43 4F 4E 53  54 52 55 43 54 2E 20 20  |til CONSTRUCT.  |
00006BB0: 6C 49 4E 45 53 20 42 45  54 57 45 45 4E 20 20 20  |lINES BETWEEN   |
00006BC0: 20 20 20 20 20 20 41 20  50 41 49 52 20 4F 46 20  |      A PAIR OF |
00006BD0: 72 65 70 65 61 74 2F 75  6E 74 69 6C 53 20 57 49  |repeat/untilS WI|
00006BE0: 4C 4C 20 42 45 20 20 20  20 20 20 20 20 20 45 58  |LL BE         EX|
00006BF0: 45 43 55 54 45 44 20 55  4E 54 49 4C 20 54 48 45  |ECUTED UNTIL THE|
00006C00: 20 43 4F 4E 44 49 54 49  4F 4E 20 49 4E 20 20 20  | CONDITION IN   |
00006C10: 20 20 20 20 20 20 54 48  45 20 75 6E 74 69 6C 20  |      THE until |
00006C20: 49 53 20 53 41 54 49 53  46 49 45 44 0D 0D 66 4F  |IS SATISFIED..fO|
00006C30: 52 4D 41 54 3A 20 20 75  6E 74 69 6C 20 43 4F 4E  |RMAT:  until CON|
00006C40: 44 49 54 49 4F 4E 0D 0D  64 45 53 43 52 49 50 54  |DITION..dESCRIPT|
00006C50: 49 4F 4E 3A 0D 0D 20 20  20 43 4F 4E 44 49 54 49  |ION:..   CONDITI|
00006C60: 4F 4E 3A 20 41 4E 59 20  42 4F 4F 4C 45 41 4E 20  |ON: ANY BOOLEAN |
00006C70: 45 58 50 52 45 53 53 49  4F 4E 20 4F 52 0D 20 20  |EXPRESSION OR.  |
00006C80: 20 20 20 20 20 20 20 20  20 20 20 20 56 41 52 49  |            VARI|
00006C90: 41 42 4C 45 2E 20 20 28  3D 30 20 49 53 20 46 41  |ABLE.  (=0 IS FA|
00006CA0: 4C 53 45 2C 0D 20 20 20  20 20 20 20 20 20 20 20  |LSE,.           |
00006CB0: 20 20 20 3C 3E 30 20 49  53 20 54 52 55 45 29 0D  |   <>0 IS TRUE).|
00006CC0: 0D 65 58 41 4D 50 4C 45  3A 20 72 65 70 65 61 74  |.eXAMPLE: repeat|
00006CD0: 3A 20 67 65 74 20 69 6E  24 3A 20 75 6E 74 69 6C  |: get in$: until|
00006CE0: 20 69 6E 24 3C 3E 22 22  0D 0D 20 20 20 57 49 4C  | in$<>""..   WIL|
00006CF0: 4C 20 57 41 49 54 20 55  4E 54 49 4C 20 41 20 4B  |L WAIT UNTIL A K|
00006D00: 45 59 20 48 41 53 20 42  45 45 4E 0D 20 20 20 44  |EY HAS BEEN.   D|
00006D10: 45 50 52 45 53 53 45 44  0D 5E 20 24 20 0D 0D 0D  |EPRESSED.^ $ ...|
00006D20: 70 55 52 50 4F 53 45 3A  20 61 20 50 52 45 46 49  |pURPOSE: a PREFI|
00006D30: 58 20 54 4F 20 41 4E 59  20 43 4F 4E 53 54 41 4E  |X TO ANY CONSTAN|
00006D40: 54 20 54 4F 0D 20 20 20  20 20 20 20 20 20 49 4E  |T TO.         IN|
00006D50: 44 49 43 41 54 45 20 54  48 45 20 43 4F 4E 53 54  |DICATE THE CONST|
00006D60: 41 4E 54 20 49 53 20 4F  46 0D 20 20 20 20 20 20  |ANT IS OF.      |
00006D70: 20 20 20 52 41 44 49 58  20 68 65 78 20 41 4E 44  |   RADIX hex AND|
00006D80: 20 4E 4F 54 20 54 48 45  20 44 45 46 41 55 4C 54  | NOT THE DEFAULT|
00006D90: 0D 20 20 20 20 20 20 20  20 20 4F 46 20 64 45 43  |.         OF dEC|
00006DA0: 49 4D 41 4C 2E 0D 0D 66  4F 52 4D 41 54 3A 20 20  |IMAL...fORMAT:  |
00006DB0: 24 43 4F 4E 53 54 41 4E  54 0D 0D 0D 65 58 41 4D  |$CONSTANT...eXAM|
00006DC0: 50 4C 45 3A 20 61 20 3D  20 24 31 30 30 30 0D 0D  |PLE: a = $1000..|
00006DD0: 20 20 20 57 49 4C 4C 20  41 53 53 49 47 4E 20 54  |   WILL ASSIGN T|
00006DE0: 48 45 20 56 41 4C 55 45  20 4F 46 20 28 31 30 30  |HE VALUE OF (100|
00006DF0: 30 29 68 65 78 0D 20 20  20 4F 52 20 44 45 43 49  |0)hex.   OR DECI|
00006E00: 4D 41 4C 20 56 41 4C 55  45 20 4F 46 20 34 30 39  |MAL VALUE OF 409|
00006E10: 36 20 54 4F 20 56 41 52  49 41 42 4C 45 0D 20 20  |6 TO VARIABLE.  |
00006E20: 20 61 2E 0D 5E 20 25 20  0D 0D 0D 70 55 52 50 4F  | a..^ % ...pURPO|
00006E30: 53 45 3A 20 61 20 50 52  45 46 49 58 20 54 4F 20  |SE: a PREFIX TO |
00006E40: 41 4E 59 20 43 4F 4E 53  54 41 4E 54 20 54 4F 0D  |ANY CONSTANT TO.|
00006E50: 20 20 20 20 20 20 20 20  20 49 4E 44 49 43 41 54  |         INDICAT|
00006E60: 45 20 54 48 45 20 43 4F  4E 53 54 41 4E 54 20 49  |E THE CONSTANT I|
00006E70: 53 20 4F 46 0D 20 20 20  20 20 20 20 20 20 52 41  |S OF.         RA|
00006E80: 44 49 58 20 62 69 6E 61  72 79 20 41 4E 44 20 4E  |DIX binary AND N|
00006E90: 4F 54 20 54 48 45 0D 20  20 20 20 20 20 20 20 20  |OT THE.         |
00006EA0: 44 45 46 41 55 4C 54 20  4F 46 20 64 45 43 49 4D  |DEFAULT OF dECIM|
00006EB0: 41 4C 2E 0D 0D 66 4F 52  4D 41 54 3A 20 20 25 43  |AL...fORMAT:  %C|
00006EC0: 4F 4E 53 54 41 4E 54 0D  0D 0D 65 58 41 4D 50 4C  |ONSTANT...eXAMPL|
00006ED0: 45 3A 20 61 20 3D 20 25  31 30 30 30 0D 0D 20 20  |E: a = %1000..  |
00006EE0: 20 57 49 4C 4C 20 41 53  53 49 47 4E 20 54 48 45  | WILL ASSIGN THE|
00006EF0: 20 56 41 4C 55 45 20 4F  46 20 28 31 30 30 30 29  | VALUE OF (1000)|
00006F00: 62 69 6E 61 72 79 20 20  20 4F 52 20 44 45 43 49  |binary   OR DECI|
00006F10: 4D 41 4C 20 56 41 4C 55  45 20 4F 46 20 38 20 54  |MAL VALUE OF 8 T|
00006F20: 4F 20 56 41 52 49 41 42  4C 45 20 61 2E 0D 5E     |O VARIABLE a..^ |
.0^ GOLD BASIC ...GOLD BASIC IS AN EXTEN
SIVE ENHANCEMENT  TO THE NORMAL COMMODOR
E BASIC.  IT ADDS.MANY NEW COMMANDS AND 
FUNCTIONS.....<F1> GENERAL INFORMATION..
<F3> GRAPHICS..<F5> SOUND..<F7> PROGRAM 
& DEVELOPMENT...SELECT TOPIC BY APPROPRI
ATE FUNCTION KEY.    NOTE: <\> FOR GOLD 
DISK MENU..^ GENERAL INFORMATION ..THE G
OLD BASIC SYSTEM MUST BE INVOKED .BEFORE
 YOU CAN WORK ON PROGRAMS WRITTEN.WITH T
HESE EXTENSIONS.  TO INVOKE THE.GOLD BAS
IC SYSTEM:..   1) LOAD "GOLD BASIC",8,1.
   2) SYS 35000.   3) NEW...MORE GENERAL
 INFORMATION AVAILABLE ON.THE FOLLOWING:
..   FIX     HELP     OFF.^ FIX ...PURPO
SE: CORRECTS ANY VECTORS REQUIRED.      
   BY THE GOLD BASIC SYSTEM.         AFT
ER A <RUN/STOP><RESTORE>..FORMAT:  FIX..
DESCRIPTION: FIX CAN BE USED IN DIRECT. 
  AND PROGRAM MODE.  IT WILL RESET.   VE
CTORS AND RETURN GRAPHICS TO TEXT.   MOD
E IN THE DEFAULT BANK AND SCREEN..   SPR
ITE MOVEMENT AND MUSIC IS TURNED.   OFF.
..EXAMPLE: FIX.^ HELP ...PURPOSE: PROVID
ES A QUICK REFERENCE TO.         ALL GOL
D BASIC COMMANDS AT.         ANY TIME...
FORMAT:  HELP..DESCRIPTION: DISPLAYS A L
IST OF ALL.   ENHANCED COMMANDS TO THE C
URRENT.   DISPLAY DEVICE...EXAMPLE: THE 
FOLLOWING WILL DISPLAY A.   LIST OF GOLD
 BASIC COMMANDS TO.   PRINTER:..   OPEN 
4,4,7: CMD 4: HELP.^ OFF ...PURPOSE: TUR
NS OFF GOLD BASIC..FORMAT:  OFF..DESCRIP
TION: DEACTIVATES THE GOLD.   BASIC SYST
EM.  EXECUTABLE FROM BOTH.   DIRECT AND 
PROGRAM MODE...RESTRICTIONS: PROGRAMS US
ING GOLD BASIC.   WILL NOT BE DISPLAYED 
CORRECTLY AFTER   THE SYSTEM IS TURNED O
FF.  DO NOT.   ATTEMPT TO ENTER OR CORRE
CT GOLD.   BASIC LINES UNTIL THE SYSTEM 
IS.   RE-INVOKED...EXAMPLE: OFF.^ GRAPHI
CS ...THE FOLLOWING COMMANDS ARE CLASSIF
IED.AS GRAPHICS EXTENSIONS:.. <F1>GENERA
L  <F3>BIT-MAP  <F5>SPRITES. ===========
  ===========  ===========. COL         
 COL          SPRBKG. EOB          CLSCR
        SPRDS. TEXT         GRAPHIC     
 SPREN. VIC          LINE         SPRITE
.              MOVE         SPRMCR.     
         PEN          SPRMV.            
  PIXEL        SPRPS.              PLOT 
        SPRSP.              WRITE       
 SPRX.                           SPRY.^ 
COL ...PURPOSE: USED IN TEXT MODE, COL D
EFINES.         THE BORDER, SCREEN AND C
URRENT.         TEXT COLOURS..FORMAT:  C
OL BORDER, SCREEN, TEXT..PARAMETER DESCR
IPTION:..   BORDER: COLOUR TO BE SELECTE
D FROM.           COMMODORE COLOUR RANGE
 (0-15).   SCREEN: SCREEN BACKGROUND COL
OUR TO.           SELECTED FROM COLOURS 
(0-15)..   TEXT: CURRENT TEXT COLOUR (0-
15)..EXAMPLE: A BLACK BORDER & BACKGROUN
D.   WITH WHITE TEXT IS SET BY:..       
  COL 0,0,1.^ EOB ..PURPOSE: DEFINES A N
EW END OF BASIC.         LIMIT TO PROTEC
T SUCH THINGS AS         SPRITES, FONT D
ATA OR BITMAPS...FORMAT:  EOB N..PARAMET
ER DESCRIPTION:..   N: DEFINES NEW END O
F BASIC TO BE.      MEMORY LOCATION 'N'.
.RESTRICTIONS: THE EOB COMMAND ALSO.   P
ERFORMS A CLR COMMAND.  THUS THIS.   STA
TEMENT SHOULD BE EXECUTED BEFORE.   DEFI
NING VARIABLES.  GENERALLY, THE.   EOB C
OMMAND IS NEEDED AFTER VIC...EXAMPLE: TH
E FOLLOWING COMMAND WILL.   SET THE LAST
 ADDRESS USED BY BASIC.   TO $4000 HEX (
16384 DECIMAL)..   EOB 16384.^ TEXT ...P
URPOSE: SET THE CURRENT GRAPHICS MODE.  
       TO TEXT MODE..FORMAT:  TEXT..EXAM
PLE: TEXT.^ VIC ...PURPOSE: SETS TO VIC 
CHIP TO INDICATE.         BANK, TEXT SCR
EEN & CHARACTER.         LOCATIONS.  IT 
ALSO PROVIDES.         AN OPTION TO COPY
 THE CHARACTER         DATA FROM ROM...F
ORMAT:  VIC BANK#, SCREEN#, CHAR#, COPY.
PARAMETER DESCRIPTION:..   BANK#: 16K VI
DEO BANK 0 TO 3 MAY BE.          SELECTE
D..   SCREEN#: TEXT SCREENS 0-15 (1 OF 1
6.            1K BLOCKS) MAY BE SELECTED
..   CHAR#: CHARACTER SET LOCATIONS 0-7.
          (1 OF 8-2K BLOCKS) MAY BE.    
      SELECTED..MORE INFORMATION AVAILAB
LE....^ VIC .   COPY OPTION: COPY MADE T
O CHAR LOC:.       = 0 DO NOT COPY CHAR 
SET FROM ROM       = 1 COPY UPPER CASE S
ET FROM ROM.       = 2 COPY LOWER CASE S
ET FROM ROM.       = 3 COPY BOTH SETS FR
OM ROM..RESTRICTIONS: THE VIC COMMAND MU
ST BE.   USED BEFORE USING SPRITES AND B
IT-.   MAP GRAPHICS COMMANDS.  GENERALLY
,.   THE EOB COMMAND IS NEEDED TO PROTEC
T.   THE DEFINED AREAS FROM BASIC...EXAM
PLE: TO SETUP THE VIC CHIP TO USE.   BAN
K 1 (STARTING AT $4000) WITH.   TEXT SCR
EEN AT BLOCK 1 ($4400),.   CHARACTER DAT
A IN BLOCK 1 (STARTING.   AT $4800) AND 
ALSO COPY THE UPPERCASE   CHARACTER DATA
 FROM ROM TO THE BLOCK.   1 CHARACTER DA
TA AREA, THE FOLLOWING.   COMMAND IS USE
D:..   VIC 2,1,1,1.^ COL ...PURPOSE: IN 
BIT-MAP MODE, COL IS USED.         TO SE
T THE BACKGROUND AND FORE-         GROUN
D COLOURS, AS WELL AS.         OPTIONALL
Y THE MULTI-COLOUR.         1 AND 2 REGI
STERS..FORMAT:  COL BACKG, FORE [, MC1, 
MC2 ]..PARAMETER DESCRIPTION: COLOUR RAN
GE FOR.   THE FOLLOWING PARAMETERS IS 0-
15..   FORE: THE COLOUR WHICH THE FOREGR
OUND         IS DRAWN (WITH LINE, PLOT, 
ETC)         IN HI-RES MODE.  IN MULTICO
LOUR         MODE, ONE OF 3 POSSIBLE COL
OUR.         SELECTION AVAILABLE...   BA
CKG: THE COLOUR OF THE BACKGROUND...MORE
 INFORMATION AVAILABLE....^ COL ....   M
C1: OPTIONAL MULTI-COLOUR #1 FOR USE    
    IN MULTICOLOUR MODE...   MC2: OPTION
AL MULTI-COLOUR #2 FOR USE        IN MUL
TICOLOUR MODE...EXAMPLE: TO SETUP A WHIT
E BIT-MAP SCREEN   AND HAVE THE LINE AND
 PLOT COMMANDS.   DRAW IN BLACK (IN HI-R
ES MODE), USE:..   COL 1,0..TO SETUP THE
 SAME IN MULTI-COLOUR MODE,.   WITH MC1 
BEING CYAN AND MC2 GREEN:..   COL 1,0,3,
5.^ CLSCR ...PURPOSE: CLEARS THE CURRENT
 BIT-MAP.         SCREEN..FORMAT:  CLSCR
...EXAMPLE: TO CLEAR THE CURRENT BIT-MAP
.         (HI-RES OR MULTICOLOR), USE TH
E         FOLLOWING:..              CLSC
R.^ GRAPHIC ...PURPOSE: SET THE CURRENT 
GRAPHICS MODE.         TO BITMAP MODE.  
ONE OF HI-RES.         AND MULTI-COLOUR 
MODES CAN BE.         SELECTED..FORMAT: 
 GRAPHIC N..PARAMETER DESCRIPTION:..   N
: SELECT TYPE OF BIT-MAP MODE.      = 0 
 SETS BIT-MAP MODE TO HI-RES.      <>0  
SETS BIT-MAP MODE TO MULTI-.            
                    COLOUR.RESTRICTIONS:
 GRAPHIC COMMAND MUST.   PRECEDE ANY BIT
-MAP GRAPHIC COMMANDS.   AND MUST COME A
FTER A VIC COMMAND...EXAMPLE: TO PUT THE
 CURRENT GRAPHICS.   MODE INTO HI-RES BI
T-MAP, USE..   GRAPHIC 0.^ LINE ..PURPOS
E: DRAWS A LINE FROM THE CURRENT.       
  BIT-MAP CURSOR POSITION TO THE.       
  POSITION DEFINED IN THE LINE.         
COMMAND USING THE DRAW OPTIONS.         
DEFINED BY THE PEN COMMAND..FORMAT:  LIN
E X,Y..PARAMETER DESCRIPTION:..   X: ROW
 PIXEL FROM TOP-LEFT OF SCREEN.      RAN
GE IS 0 TO 199..   Y: COLUMN PIXEL FROM 
TOP-LEFT OF.      SCREEN.  RANGE IS 0 TO
 319 FOR .      HI-RES AND 0-159 FOR MUL
TI-COLOR...RESTRICTIONS: USED IN BIT-MAP
 MODE ONLY..EXAMPLE: TO DRAW A LINE FROM
 (10,10) TO          (20,20) USE:.      
       MOVE 10,10: LINE 20,20.^ MOVE ...
PURPOSE: SET THE CURRENT BIT-MAP CURSOR.
         LOCATION WITHOUT AFFECTING THE.
         BIT-MAP IN ANY WAY..FORMAT:  MO
VE X,Y..PARAMETER DESCRIPTION:..  X: ROW
 PIXEL FROM TOP-LEFT OF SCREEN.      RAN
GE IS 0 TO 199..  Y: COL. PIXEL FROM TOP
-LEFT OF SCREEN.      RANGE: 0 TO 319 FO
R HIRES..             0 TO 159 FOR MULTI
COLOR...RESTRICTIONS: USED IN BIT-MAP MO
DE ONLY..EXAMPLE: TO START DRAWING A LIN
E FROM.   CO-ORDINATES: (10,10), USE:.. 
  MOVE 10,10.^ PEN ...PURPOSE: DEFINES C
URRENT DRAWING OPTIONS         FOR BIT-M
AP COMMANDS.  THE.         DRAWING MODE 
AND IF APPLICABLE,         THE MULTICOLO
UR SELECTION, IS.         SPECIFIED..FOR
MAT:  PEN DRAWMODE [, COLSEL]..PARAMETER
 DESCRIPTION:..   DRAWMODE: SPECIFY PEN 
ACTION FOR BIT-             MAP RELATED 
COMMANDS:..            = 0 UNDRAWS.     
       = 1 DRAWS.            = 2 COMPLEM
ENTS...MORE INFORMATION AVAILABLE....^ P
EN ..   COLSEL: OPTIONAL PARAMETER USED 
IN.           MULTICOLOUR MODE ONLY..   
        SELECTS THE COLOUR TO BE USED   
        BY THE BIT-MAP COMMANDS:..      
    = 0 USES THE FOREGROUND COLOUR      
    = 1 USES THE COLOUR OF MC1.         
 = 2 USES THE COLOUR OF MC2..RESTRICTION
S: USED IN BIT-MAP MODE ONLY.           
   'COLSEL' IS IGNORED IN .             
 HI-RES MODE...EXAMPLE: TO SET THE CURRE
NT DRAWING.   OPTIONS FOR LINE & PLOT CO
MMANDS TO.   COMPLEMENT USE:..          
  PEN 2.   IF YOU WISH TO DRAW WITH MC2 
IN .   MULTI-COLOUR MODE, USE:..        
    PEN 1,2.^ PIXEL ..PURPOSE: A FUNCTIO
N RETURNING THE.         CURRENT STATE O
F A SPECIFIED.         LOCATION IN A BIT
-MAP.  IN.         HI-RES MODE: 0=NOT SE
T, 1=SET..         IN MULTI-COLOUR MODE,
 THE 2-BIT         MULTI-COLOUR SELECTIO
N CODE IS.         RETURNED..FORMAT:  PI
XEL (X,Y)..PARAMETER DESCRIPTION:.   X: 
ROW PIXEL FROM TOP-LEFT OF SCREEN.      
RANGE IS 0 TO 199..   Y: COLUMN PIXEL FR
OM TOP-LEFT OF.      SCREEN. RANGE: 0 TO
 319 (HIRES)..                     0 TO 
159 (MULTI)..RESTRICTIONS: USED IN BIT-M
AP MODE ONLY..EXAMPLE: TO SEE IF PIXEL (
100,100) IS.   SET ( 1 IF SET, 0 IF NOT 
SET):.   PRINT PIXEL(100,100).^ PLOT ...
PURPOSE: PLOT AFFECTS ONE PIXEL IN THE. 
        BIT-MAP USING THE CURRENT.      
   DRAWING OPTIONS DEFINED BY PEN..FORMA
T:  PLOT X,Y..PARAMETER DESCRIPTION:..  
 X: ROW PIXEL FROM TOP-LEFT OF SCREEN.  
    RANGE IS 0 TO 199..   Y: COLUMN PIXE
L FROM TOP-LEFT OF.      SCREEN. RANGE: 
0 TO 319 (HIRES)..                     0
 TO 159 (MULTI)...RESTRICTIONS: USED IN 
BIT-MAP MODE ONLY..EXAMPLE: TO UNDRAW A 
PIXEL AT (100,100).   IN HI-RES MODE:.. 
  PEN 0: PLOT 100,100.^ WRITE ...PURPOSE
: TEXT IS WRITTEN IN A BIT-MAP.         
AT TEXT LOCATION X,Y.  A CASE.         S
ELECTION (SO YOU CAN PRINT.         TEXT
 GRAPHICS) IS ALSO PROVIDED.FORMAT:  WRI
TE R, C, CASESEL, TEXTSTR..PARAMETER DES
CRIPTION:..   R: ROW POSITION FROM TOP-L
EFT OF.      SCREEN. RANGE IS 0 TO 24.. 
  C: COLUMN POSITION FROM TOP-LEFT OF.  
    SCREEN.  RANGE IS 0 TO 39...   CASES
EL: =0 TO USE UPPER CASE CHAR.          
     SET AND GRAPHICS.            =1 TO 
USE LOWER CASE CHAR.               SET A
ND GRAPHICS..MORE INFORMATION AVAILABLE.
...^ WRITE .....   TEXTSTR: A CHARCTER S
TRING OR STRING             EXPRESSION..
.RESTRICTIONS: USED IN BIT-MAP MODE ONLY
..EXAMPLE: TO 'PRINT' OUT A 'HELLO THERE
'.   AT CHARACTER LOCATION 10,10 IN A.  
 HI-RES BIT-MAP SCREEN:..   PEN 1: WRITE
 10,10,0,"HELLO THERE".^ SPRBKG ...PURPO
SE: A FUNCTION RETURNING THE.         AC
CUMMULATED SPRITE/BACKGROUND.         CO
LLISIONS SINCE THE LAST CALL.         IT
 IS WISE TO STORE THE RESULTS         TO
 A VARIABLE SINCE THE VALUE.         IS 
AUTOMATICALLY ZEROED AFTER.         EACH
 FUNCTION CALL...FORMAT:  SPRBKG (DUMMY)
..ARGUMENT DESCRIPTION:..   DUMMY: ANY D
UMMY ARGUMENT..EXAMPLE: ABC = SPRBKG(0).
.   ONCE THE SPRITE-BACKGROUND REGISTER.
   VALUE IS ASSIGNED TO ABC, ABC CAN BE.
   LOGICALLY OPERATED ON TO DETERMINE IF
   A COLLISION HAS OCCURED..^ SPRDS ...P
URPOSE: DISABLES A SPECIFIC SPRITE BY.  
       REMOVING THAT SPRITE NUMBER.     
    FROM THE SPRITE ENABLE REGISTER.FORM
AT:  SPRDS N..PARAMETER DESCRIPTION:..  
 N: SPRITE TO DISABLE (0-7)...EXAMPLE: T
O DISABLE SPRITE #5, JUST USE:.         
     SPRDS 5.^ SPREN ...PURPOSE: ENABLES
 A SPECIFIC SPRITE BY.         ADDING TH
AT SPRITE NUMBER.         TO THE SPRITE 
ENABLE REGISTER..         SPRITES SHOULD
 BE DEFINED BY.         USING THE SPRITE
 COMMAND BEFORE         ENABLING...FORMA
T:  SPREN N..PARAMETER DESCRIPTION:..   
N: SPRITE TO ENABLE (0-7)...EXAMPLE: TO 
ENABLE SPRITE #5, JUST USE:..           
SPREN 5.^ SPRITE ..PURPOSE: DEFINES A SP
ECIFIC SPRITE...FORMAT:  SPRITE SPR#,PAG
E#,COL,MCM,.                     HX,VX,P
RIOR..PARAMETER DESCRIPTION:..   SPR#: S
PRITE NUMBER (0-7)..   PAGE#: THE PAGE N
UMBER (0-255) OR.          WHICH 64 BYTE
 BLOCK WITHIN.          THIS BANK THAT C
ONTAINS THE.          SPRITE DATA FOR TH
IS SPRITE...   COL:  THE COLOUR OF THIS 
SPRITE,.         COLOUR RANGES FROM 0 TO
 15..   MCM: MULTICOLOUR MODE FLAG (=0 M
EANS         NOT MULTICOLOUR MODE, <>0 M
EANS.        MULTICOLOUR MODE)..MORE INF
ORMATION AVAILABLE....^ SPRITE ...   HX:
 HORIZONTAL EXPAND FLAG (=0 MEANS.      
 NOT EXPAND, <>0 MEANS EXPAND)..   VX: V
ERTICAL EXPAND FLAG ( = 0 MEANS.       N
OT EXPAND, <>0 MEANS EXPAND)..   PRIOR: 
SPRITE-SCREEN PRIORITY FLAG.          (=
0 MEANS SCREEN HAS PRIORITY.          <>
0 MEANS SPRITE HAS PRIORITY).EXAMPLE: TO
 DEFINE SPRITE #5 AS A MULTI-   COLOUR S
PRITE, SPRITE COLOR CYAN,.   EXPANDED ON
LY IN THE VERTICAL.   DIRECTION AND HAVI
NG PRIORITY OVER.   THE SCREEN, USE THE 
FOLLOWING COMMAND   IF THE SPRITE DATA I
S LOCATED IN.   PAGE 250:..   SPRITE 5,2
50,3,1,0,1,1.^ SPRMCR ...PURPOSE: SETS S
PRITE MC0 AND MC1..FORMAT:  SPRMCR MC0, 
MC1..PARAMETER DESCRIPTION:..   MC0: SPR
ITE MULTICOLOUR 0 (0-15)..   MC1: SPRITE
 MULTICOLOUR 1 (0-15)..RESTRICTIONS: THE
SE MULTICOLOUR.   REGISTERS ARE GLOBAL T
O ALL SPRITES..   TO USE THESE COLOURS, 
THE SPRITES.   MUST BE DEFINED AS MULTIC
OLOUR.   SPRITES WITH THE SPRITE COMMAND
...EXAMPLE: TO DEFINE CYAN & RED TO MC0 
&.   MC1 RESPECTIVELY, USE:..   SPRMCR 3
,2.^ SPRMV ..PURPOSE: SETS UP A SPRITE F
OR AUTOMATIC          MOVEMENT.  ONCE EX
ECUTED, THE.         SPRITE MOVES WITHOU
T FURTHER.         PROGRAMMING...FORMAT:
  SPRMV SPR#,XINCR,YINCR,DTIME..PARAMETE
R DESCRIPTION:..  SPR#: SPRITE NUMBER (0
-7). XINCR: X-INCREMENT IN PIXELS (-128:
127) YINCR: Y-INCREMENT IN PIXELS (-128:
127) DTIME: TIME IN JIFFIES (1/60TH SEC)
 TO.        ADVANCE SPRITE BY THE INCR..
RESTRICTIONS: TO STOP A SPRITE FROM.   M
OVING, JUST SET DTIME TO ZERO...EXAMPLE:
 TO MOVE SPRITE 1, 2 PIXELS TO.   THE RI
GHT AND 3 PIXELS UP, EVERY 5.   JIFFIES 
(1/60TH SEC), USE:.             SPRMV 1,
2,-3,5.^ SPRPS ..PURPOSE: SETS THE (X,Y)
 POSITION OF.         A GIVEN SPRITE...F
ORMAT:  SPRPS SPR#, X, Y..PARAMETER DESC
RIPTION:..   SPR#: SPRITE NUMBER (0-7)..
   X: HORIZONTAL POSITION (0-511)..   Y:
 VERTICAL POSITION (0-255)..RESTRICTIONS
: THE VISIBLE REGION ON THE    SCREEN IS
 X RANGE 24-320 AND Y RANGE.   50-229..E
XAMPLE: TO POSITION SPRITE 4 TO.        
 (100,200), USE:..            SPRPS 4,10
0,200.^ SPRSP ..PURPOSE: A FUNCTION RETU
RNING THE.         ACCUMMULATED SPRITE/S
PRITE.         COLLISIONS SINCE THE LAST
 CALL.         IT IS WISE TO STORE THE R
ESULTS         TO A VARIABLE SINCE THE V
ALUE.         IS AUTOMATICALLY ZEROED AF
TER.         EACH FUNCTION CALL.  SPRITE
/.         SPRITE COLLISIONS CAN OCCUR. 
        OUTSIDE THE VISIABLE AREA...FORM
AT:  SPRSP (DUMMY)..ARGUMENT DESCRIPTION
:..   DUMMY: ANY DUMMY ARGUMENT..EXAMPLE
: ABC = SPRSP(0)..   ONCE THE SPRITE-SPR
ITE REGISTER.   VALUE IS ASSIGNED TO ABC
, ABC CAN BE.   LOGICALLY OPERATED ON TO
 DETERMINE IF   A COLLISION HAS OCCURED.
.^ SPRX ..PURPOSE: A FUNCTION RETURNING 
THE.         HORIZONTAL POSITION OF A SP
RITE.FORMAT:  SPRX (SPR#)..ARGUMENT DESC
RIPTION:..   SPR#: SPRITE NUMBER (0-7)..
.EXAMPLE: TO FIND THE HORIZONTAL POSITIO
N   OF SPRITE 5, USE:..           XPOS =
 SPRX (5).^ SPRY ..PURPOSE: A FUNCTION R
ETURNING THE.         VERTICAL POSITION 
OF A SPRITE..FORMAT:  SPRY (SPR#)..ARGUM
ENT DESCRIPTION:..   SPR#: SPRITE NUMBER
 (0-7)...EXAMPLE: TO FIND THE VERTICAL P
OSITION.   OF SPRITE 5, USE:..         Y
POS = SPRY (5).^ SOUND ...THE FOLLOWING 
COMMANDS ARE CLASSIFIED.AS SOUND EXTENSI
ONS:..   FRQ      GATE     MUSIC    PLAY
..   TEMPO    VOICE    VOL.^ FRQ ...PURP
OSE: SET THE FREQUENCY OF A GIVEN.      
   VOICE..FORMAT:  FRQ VOICE#, FREQUENCY
..PARAMETER DESCRIPTION:..   VOICE#:  CH
OICE OF VOICE 1, 2 OR 3..   FREQUENCY: 2
 BYTE FREQUENCY VALUE..RESTRICTIONS: THI
S SETS THE FREQUENCY.   ONLY.  THE VOICE
 AND VOL MUST BE SET.   ALONG WITH GATIN
G THE VOICE...EXAMPLE: TO SET THE FREQUE
NCY OF VOICE.   1 TO VALUE 5000 HZ:..   
FRQ 1,5000.^ GATE ...PURPOSE: TURNS ON O
R OFF THE GATING OF.         SPECIFIED V
OICE(S)..FORMAT:  GATE STATE VOICE#(S)..
PARAMETER DESCRIPTION:..   STATE: CHOICE
 OF ON OR OFF..   VOICE#(S): THE VOICES 
TO BE GATED,.              SEPARATED BY 
A COMMA..EXAMPLE: TO GATE ON VOICE 2 AND
 3 AT THE   SAME TIME:..   GATE ON 2,3.^
 MUSIC ...PURPOSE: DEFINES A SMALL PIECE
 OF MUSIC.         TO BE PLAYED ON A GIV
EN VOICE#.         NOTES, OCTAVES & DURA
TION CAN.         BE DEFINED. THE MUSIC 
IS PLAYED         IN THE BACKGROUND LEAV
ING THE.         COMPUTER FREE FOR OTHER
 USES!!..FORMAT:  VOICE#, MUSICSTR..PARA
METER DESCRIPTION:..   VOICE#: CHOICE OF
 VOICE 1, 2 OR 3..   MUSICSTR: A STRING 
OF UP TO 63 NOTES.             EACH NOTE
 IS MADE UP OF 4.             PARTS (4 C
HARACTERS):...MORE INFORMATION AVAILABLE
....^ MUSIC .      THE NOTE: ONE OF 'CDE
FGAB' IN.         MUSICAL TERMS.  H=A#, 
I=C#,.         J=D#, K=F#, L=G# & M=REST
..      OCTAVE: OF THE NOTE.  RANGE IS. 
        IS FROM 0 TO 7..      DURATION: 
THE NUMBER OF THE NOTE.         TIMING V
ALUE. RANGE IS 0-9..      TIMING: THE NO
TE TIMING VALUE:.             W = WHOLE 
NOTE.             H = HALF NOTE.        
     Q = QUARTER NOTE.             E = E
IGTH NOTE.             S = 1/16TH NOTE.H
ENCE: TO PLAY A C# IN OCTAVE 3, FOR.   O
NE QUARTER NOTE: USE 'I31Q'.  UP TO.   6
3 OF THESE 'NOTES' CAN BE USED..ADDITION
AL NOTE: IF A '\' APPEARS IN.    THE MUS
ICSTR, THEN THE CYCLE IS.    REPEATED FR
OM THE START OF THE MUSIC    STRING...MO
RE INFORMATION IS AVAILABLE....^ MUSIC .
...RESTRICTIONS: THIS DEFINES THE MUSIC.
   ONLY.  NOTE THAT THE VOICE AND VOL.  
 SETUP IS STILL NEEDED.  TO PLAY THE.   
MUSIC, USE PLAY.  THERE IS A MAX OF.   6
4 NOTES ALLOWED...EXAMPLE: TO DEFINE A S
CALE INTO VOICE 1 MADE UP FROM QUARTER N
OTES IN OCTAVE 3:..   A$="C31QD31QE31QF3
1QG31QA31QB31QC41Q"   MUSIC 1, A$.^ PLAY
 ...PURPOSE: TURNS ON OR OFF THE PLAYING
 OF.         THE MUSICAL PIECE(S) DEFINE
D BY         MUSIC...FORMAT:  PLAY STATE
 VOICE#(S)..PARAMETER DESCRIPTION:..   S
TATE: CHOICE OF ON OR OFF..   VOICE#(S):
 THE VOICES TO PLAY,.              SEPAR
ATED BY A COMMA...EXAMPLE: TO PLAY A MUS
ICAL PIECE WITH.   VOICE 1 AND VOICE 3 T
OGETHER, USE:..   PLAY ON 1,3.^ TEMPO ..
.PURPOSE: DEFINES THE DURATION OF A.    
     SIXTEENTH (1/16 TH) NOTE FOR.      
   THE PIECE DEFINED BY MUSIC.         I
N TERMS OF JIFFIES...FORMAT:  TEMPO N..D
ESCRIPTION:..   N: THE NUMBER OF JIFFIES
 (1/60 SEC).      TO ASSIGN TO A SIXTEEN
TH NOTE..EXAMPLE: TO DEFINE A TEMPO WHER
E A.   SIXTEENTH NOTE IS A QUARTER SECON
D.   LONG (1/4 SEC=15/60 SEC=15 JIFFIES)
:..   TEMPO 15.^ VOICE ...PURPOSE: DEFIN
ES THE ACTUAL ADSR, WAVE-.         FORMS
 AND PULSE WIDTH INFORMA-.         TION 
NEEDED BY THE SOUND CHIP.         FOR A 
GIVEN VOICE#..FORMAT:  VOICE VOICE#, ATT
ACK, DECAY,.               SUSTAIN, RELE
ASE,.               WAVEFORM [,PULSEWIDT
H]..PARAMETER DESCRIPTION:..   VOICE#: C
HOICE OF VOICE 1, 2 OR 3..   ATTACK: THE
 ATTACK (0-15)..   DECAY: THE DECAY (0-1
5)..   SUSTAIN: THE SUSTAIN (0-15)..MORE
 INFORMATION AVAILABLE....^ VOICE ....  
 RELEASE: THE RELEASE (0-15)..   CONTROL
 REG: THE CONTROL REGISTER.             
 CONTAINING THE WAVEFORM..              
TEST, RING MOD, SYNC CAN.              B
E SET VIA THIS REGISTER..              T
HE GATE IS SET TO OFF...EXAMPLE: TO PROD
UCE A VIOLIN SOUND,.  (ATTACK=5,DECAY=8,
SUSTAIN=5,RELEASE=9)  AND SAWTOOTH WAVEF
ORM ON VOICE #2,USE:.  VOICE 2,5,8,5,9,3
2.^ VOL ...PURPOSE: SET THE OVERALL CURR
ENT VOLUME..FORMAT:  VOL N..DESCRIPTION:
..   N: OVERALL VOLUME RANGING FROM 0-15
..EXAMPLE: TO TURN VOLUME OFF:..   VOL 0
.^ PROGRAM & DEVELOPMENT...THE FOLLOWING
 COMMANDS ARE CLASSIFIED.AS PRODUCTIVITY
 TOOLS:..   DEL      DEV      DIR      D
LST..   DOS      DSK$     ERR      ERR$.
.   EXECUTE  JOY      KEY      MAX..   M
IN      NUM      POKE     PRINT@..   REP
EAT   TRAP     UNTIL    $..   %.^ DEL ..
PURPOSE: DELETES A LINE OR A RANGE OF.  
       LINES OF A PROGRAM IN MEMORY..FOR
MAT:  DEL RANGE..PARAMETER DESCRIPTION:.
.   RANGE: A SINGLE LINENUMBER MAY BE.  
        SPECIFIED.  A RANGE CAN BE.     
     SPECIFIED BY USE OF A '-'..        
  IF EITHER LINENUMBER IS LEFT.         
 OUT OF EITHER SIDE OF THE '-',         
 THE EXTREME LIMIT IS USED..          IF
 BOTH IS LEFT OUT, THE.          ENTIRE 
PROGRAM IS DELETED...EXAMPLE: TO DELETE 
ALL LINES FROM LINE.   1000 ONWARDS:..  
 DEL 1000-.^ DEV ...PURPOSE: DEFINES THE
 CURRENT DEVICE #.         ON WHICH ALL 
DEVICE RELATED.         GOLD BASIC COMMA
NDS WILL .         OPERATE...FORMAT:  DE
V DEVICE#..PARAMETER DESCRIPTION:..   N:
 DEFAULT DEVICE NUMBER..RESTRICTIONS: TH
E DEVICE SPECIFIED MUST.   HAVE A COMMAN
D CHANNEL FOR SOME.   EXTENDED COMMANDS 
TO OPERATE..   THE INITIAL DEVICE SELECT
ED IS 8...EXAMPLE: TO DIRECT ALL DEVICE 
RELATED.   COMMANDS TO USE DEVICE #9:.. 
  DEV 9.^ DIR ...PURPOSE: DISPLAYS THE D
IRECTORY OF THE.         CURRENT DEVICE 
ON THE SCREEN..FORMAT:  DIR [DRIVE#]..DE
SCRIPTION:..   DRIVE#: IF OMMITED, A DIR
ECTORY OF.           THE DRIVE IS SELECT
ED. IF A.           DRIVE NUMBER IS SPEC
IFIED, A.           DIRECTORY OF THAT PA
RTICULAR.           DRIVE# ON THE CURREN
T DEVICE,           IS DISPLAYED...EXAMP
LE: TO DISPLAY THE DIRECTORY OF.   DRIVE
 #1 ON THE CURRENT DEVICE:..   DIR 1.^ D
LST ...PURPOSE: LISTS A PROGRAM FROM CUR
RENT.         DEVICE WITHOUT AFFECTING. 
        CURRENT PROGRAM IN MEMORY..FORMA
T:  DLST PROGNAME..PARAMETER DESCRIPTION
:..   PROGNAME: ANY VALID FILENAME ON TH
E.             CURRENT DEVICE...EXAMPLE:
 TO LIST THE PROGRAM 'TEST'.   WITHOUT A
FFECTING CURRENT PROGRAM IN.   MEMORY:..
   DLST "TEST".^ DOS ..PURPOSE: SENDS A 
DOS COMMAND TO THE.         COMMAND CHAN
NEL OF THE CURRENT.         DEVICE..FORM
AT:  DOS COMMANDSTR..PARAMETER DESCRIPTI
ON:..   COMMANDSTR: ANY VALID COMMAND ST
RING.               ALLOWED ON THE COMMA
ND.               CHANNEL OF THE CURRENT
.               DEVICE...RESTRICTIONS: T
HE DEFAULT DEVICE MUST.   HAVE A COMMAND
 CHANNEL WITH SECONDARY   ADDRESS 15...E
XAMPLE: TO FORMAT A NEW DISK ON THE.   C
URRENT DEVICE:..   DOS "N0:DISK NAME,ID"
.^ DSK$ ...PURPOSE: A FUNCTION RETURNING
 THE.         CURRENT STATUS OF THE CURR
ENT.         DEVICE..FORMAT:  DSK$(DUMMY
)..ARGUMENT DESCRIPTION:..   DUMMY: ANY 
DUMMY ARGUMENT..EXAMPLE: TO DISPLAY LAST
 DISK STATUS:..   PRINT "STATUS="; DSK$(
0).^ ERR ...PURPOSE: A FUNCTION RETURNIN
G THE ERROR.         NUMBER OF THE ERROR
 WHICH.         CAUSED A PROGRAM TO TERM
INATE.         OR A PROGRAM TO TRAP IF T
HE.         TRAP IS ENABLED.  ONCE THE E
RR.         FUNCTION IS USED, THE ERROR 
#.         IS RESET TO ZERO..FORMAT:  ER
R(DUMMY)..ARGUMENT DESCRIPTION:..   DUMM
Y: ANY DUMMY ARGUMENT..EXAMPLE: TO DETER
MINE DIV BY 0 ERROR:..   10 TRAP 20: A=0
/0: END.   20 PRINT "ERROR NUMBER: ";ERR
(0).^ ERR$ ...PURPOSE: A FUNCTION RETURN
ING THE ERROR.         STRING CORRESPOND
ING TO THE.         ERROR NUMBER PROVIDE
D..FORMAT:  ERR$ (ERR#)..ARGUMENT DESCRI
PTION:..   ERR#: ANY VALID ERROR NUMBER 
(1-33)..EXAMPLE: TO DETERMINE DIV BY 0 E
RROR:..   10 TRAP 20: A=0/0: END.   20 P
RINT "ERROR WAS: "; ERR$(ERR(0)).^ EXECU
TE ...PURPOSE: EXECUTES A SAVED PROGRAM 
OF.         COMMANDS NORMALLY ENTERED IN
.         IMMEDIATE MODE...FORMAT:  EXEC
UTE COMMANDFILE..PARAMETER DESCRIPTION:.
.   COMMANDFILE: STRING CONTAINING THE. 
               NAME OF THE COMMAND FILE 
               ON THE DEFAULT DEVICE...R
ESTRICTIONS: ONLY AVAILABLE IN.         
     IMMEDIATE MODE....MORE INFORMATION 
AVAILABLE....^ EXECUTE .....EXAMPLE: TO 
EXECUTE A FILE CALLED.   STARTUP, JUST T
YPE:..   EXECUTE "STARTUP"..WHERE STARTU
P CAN CONTAIN:..   10 COL 0,0,1.   20 LO
AD "CURRENT PROGRAM".   30 RUN..NOTE:THE
 LINE NUMBERS ARE IGNORED DURING     COM
MAND EXECUTION..^ JOY ...PURPOSE: A FUNC
TION RETURNING THE VALUE.         IN THE
 REGISTER CONTAINING THE.         JOYSTI
CK VALUE OF THE SPECIFIED         JOYSTI
CK NUMBER..FORMAT:  JOY (JOY#)..ARGUMENT
 DECRIPTION:..   JOY#: JOYSTICK NUMBER C
ORRESPONDING.         TO THAT LABELLED O
N THE C64.         CASING...EXAMPLE: TO 
DETECT UPWARD MOTION ON PORT   #2:..   I
F (15-JOY(2)AND15) AND 1 THEN.          
 PRINT "UP DETECTED".^ KEY ..PURPOSE: DE
FINES A STRING TO BE ASSIGNED         TO
 A GIVEN FUNCTION KEY #..         ONCED 
DEFINED, HITTING THE.         GIVEN FUNC
TION KEY WILL YIELD.         THE PROVIDE
D STRING..FORMAT:  KEY FNKEY#, STRING..D
ESCRIPTION:..   FNKEY#: ANY VALID FUNCTI
ON KEY (1-8)..   STRING: UP TO A 10 CHAR
 STRING TO.          SUBSTITUE FOR A FUN
CTION KEY,.          UPON DEPRESSING THA
T KEY..EXAMPLE: TO SETUP F1 SO THAT IT W
ILL.   LOAD THE PROGRAM T WHEN DEPRESSED
:..         KEY 1,"LOAD'T',8\".NOTE: THE
 \ IS TRANSLATED TO A CARRIAGE.      RET
URN AND ' IS TRANSLATED TO ".^ MAX ...PU
RPOSE: A FUNCTION THAT RETURNS THE.     
    LARGEST VALUE OF ITS ARGUMENTS..FORM
AT:  MAX ( NUMBERS )..ARGUMENT DESCRIPTI
ON:..   NUMBERS: A LIST OF NUMBERS, VARI
ABLES            OR CALCULATIONS, SEPARA
TED.            BY A COMMA...EXAMPLE: TO
 PRINT OUT THE LARGEST NUMBER   IN A LIS
T OF NUMBERS:..   PRINT MAX (10,A,B,C,D)
.^ MIN ...PURPOSE: A FUNCTION RETURNING 
THE LOWEST         VALUE OF ITS ARGUMENT
S..FORMAT:  MIN ( NUMBERS )..ARGUMENT DE
SCRIPTION:..   NUMBERS: A LIST OF NUMBER
S, VARIABLES            OR CALCULATIONS,
 SEPARATED.            BY A COMMA....EXA
MPLE: TO PRINT OUT THE SMALLEST #.   IN 
A LIST OF NUMBERS:..   PRINT MIN (10,A,B
,C,D).^ NUM ..PURPOSE: PROVIDES AUTONUMB
ERING OF.         PROGRAMS LINES.  A STA
RT VALUE.         AND INCREMENT CAN BE S
PECIFIED..FORMAT:  NUM [START [, INCREME
NT]]..PARAMETER DESCRIPTION:.   START: T
HE STARTING LINENUMBER TO.          STAR
T NUMBERING FROM.  IF.          OMMITED,
 THE START WILL BE.          THE END OF 
THE CURRENT PROGRAM.   INCREMENT: THE IN
CREMENT FOR THE LINE          NUMBERING.
  IF OMMITED, THE.          LAST INCREME
NT WILL BE USED..          THE ORIGINAL 
DEFAULT IS 10...EXAMPLE: TO START AUTONU
MBERING FROM.         CURRENT PROGRAM EN
D IN STEPS OF         100  USE:..       
    NUM ,100.^ POKE ..PURPOSE: AN EXTENS
ION TO STANDARD BASIC.         TO ALLOW 
MULTIPLE VALUES TO BE.         POKED INT
O MEMORY...FORMAT:  POKE LOCATION, VALUE
S..PARAMETER DESCRIPTION:..   LOCATION: 
STARTING MEMORY LOCATION TO             
RECEIVE SPECIFIED VALUES..   VALUES: A B
YTE VALUE TO BE WRITTEN.           INTO 
THE ABOVE LOCATION.  IF.           A LIS
T OF VALUES IS SPECIFIED           (SEPA
RATED BY COMMAS), THE.           LIST WI
LL BE ASSIGN IN.           SUCCESSION ST
ARTING AT THE.           ABOVE MEMORY LO
CATION...EXAMPLE: POKE 1000,1,2,3 WILL P
UT A 1 IN TO LOC 1000, 2 INTO 1001 & 3 I
NTO 1002.^ PRINT @ ...PURPOSE: AN EXTENS
ION TO THE STANDARD.         PRINT COMMA
ND TO ALLOW FOR .         CURSOR POSITIO
NING PRIOR TO.         TO PRINTING...FOR
MAT:  PRINT @ X,Y; VARLIST...PARAMETER D
ESCRIPTION:..   X: ROW POSITION FROM TOP
-LEFT OF.      SCREEN.  RANGE IS 0 TO 24
..   Y: COLUMN POSITION FROM TOP-LEFT OF
.      SCREEN.  RANGE IS 0 TO 39.....MOR
E INFORMATION AVAILABLE....^ PRINT @ ...
..   VARLIST: THE NORMAL VARIABLE LIST. 
           AS IN A PRINT COMMAND....EXAM
PLE: TO PRINT OUT A 'HELLO THERE'.   AT 
CHARACTER LOCATION 10,10...   PRINT @ 10
,10; "HELLO THERE"..NOTE: IF YOU USE A C
OMMA (,) INSTEAD OF       THE SEMICOLON,
 THE VARLIST WILL BE      PRINTED AT THE
 NEXT AVAILABLE TAB       POSITION..^ RE
PEAT ...PURPOSE: INDICATES THE START OF 
A REPEAT         UNTIL CONSTRUCT.  SEE U
NTIL FOR         MORE DETAILS..FORMAT:  
REPEAT...EXAMPLE: REPEAT: GET IN$: UNTIL
 IN$<>""..   WILL WAIT UNTIL A KEY HAS B
EEN.   DEPRESSED.^ TRAP ...PURPOSE: TRAP
 CAUSES CONTROL TO BE.         PASSED TO
 A STATEMENT NUMBER.         ONCE AN ERR
OR THAT NORMALLY.         TERMINATES THE
 PROGRAM HAS.         OCCURED.  ERRORS C
AN THEN BE.         INTERROGATED BY THE 
USE OF THE.         ERR AND ERR$ FUNCTIO
NS.  ONCE.         A TRAP HAS OCCURED, A
 NEW TRAP.         COMMAND IS NECCESSARY
 TO.         RE-ENABLE THE TRAPPING OF N
EW.         ERRORS..FORMAT:  TRAP LINE#.
...MORE INFORMATION AVAILABLE....^ TRAP 
...DESCRIPTION:..   LINE#: A LINE NUMBER
 TO 'GOTO' WHEN.          AN ERROR OCCUR
S.  IF THE LINE.          NUMBER DOES NO
T EXIST, ANOTHER          ERROR WILL OCC
UR....EXAMPLE: TO LET A ROUTINE AT LINE 
1000.   PERFORM ERROR HANDLING IN THE EV
ENT.   OF PROGRAM TERMINATION:..        
    TRAP 1000..NOTE: TO DISABLE A TRAP J
UST LEAVE OFF .      THE LINE#:..       
     TRAP.^ UNTIL ...PURPOSE: THE CONCLU
DING PART OF A REPEAT         UNTIL CONS
TRUCT.  LINES BETWEEN         A PAIR OF 
REPEAT/UNTILS WILL BE         EXECUTED U
NTIL THE CONDITION IN         THE UNTIL 
IS SATISFIED..FORMAT:  UNTIL CONDITION..
DESCRIPTION:..   CONDITION: ANY BOOLEAN 
EXPRESSION OR.              VARIABLE.  (
=0 IS FALSE,.              <>0 IS TRUE).
.EXAMPLE: REPEAT: GET IN$: UNTIL IN$<>""
..   WILL WAIT UNTIL A KEY HAS BEEN.   D
EPRESSED.^ $ ...PURPOSE: A PREFIX TO ANY
 CONSTANT TO.         INDICATE THE CONST
ANT IS OF.         RADIX HEX AND NOT THE
 DEFAULT.         OF DECIMAL...FORMAT:  
$CONSTANT...EXAMPLE: A = $1000..   WILL 
ASSIGN THE VALUE OF (1000)HEX.   OR DECI
MAL VALUE OF 4096 TO VARIABLE.   A..^ % 
...PURPOSE: A PREFIX TO ANY CONSTANT TO.
         INDICATE THE CONSTANT IS OF.   
      RADIX BINARY AND NOT THE.         
DEFAULT OF DECIMAL...FORMAT:  %CONSTANT.
..EXAMPLE: A = %1000..   WILL ASSIGN THE
 VALUE OF (1000)BINARY   OR DECIMAL VALU
E OF 8 TO VARIABLE A..^
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL