B+DEMO
FILE INFORMATION
FILENAME(S): B+DEMO
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 18:05:27
APPEARS ON: 2 disk(s)
FILE HASH
a981bc827b0608f0ed85e7b3e770d57a90fc19047f6cfd60e88ce7efeac8ee1b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 66 S 4 | B+DEMO | PRG | Xii | 7 | 6 | DOWNLOAD FILE |
| LOADSTAR 66 S 4 | B+DEMO | PRG | Sailor, Ganheden | 7 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 51 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..Q.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 20 |********* |
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 2A 00 A1 08 02 00 8F 20 2A 20 42 2B 20 44 45 4D |*...... * B+ DEM|
00000060: 4F 20 50 52 4F 47 52 41 4D 20 42 59 20 4A 2E 20 |O PROGRAM BY J. |
00000070: 4D 41 54 54 53 4F 4E 20 2A 20 20 20 20 20 20 20 |MATTSON * |
00000080: 2A 20 20 20 20 20 20 20 20 20 2D 20 30 35 2F 32 |* - 05/2|
00000090: 30 2F 38 39 20 2D 20 20 20 20 20 20 20 20 20 20 |0/89 - |
000000A0: 2A 00 F1 08 03 00 8F 20 2A 20 54 48 49 53 20 50 |*...... * THIS P|
000000B0: 52 4F 47 52 41 4D 20 48 41 53 20 42 45 45 4E 20 |ROGRAM HAS BEEN |
000000C0: 43 52 45 41 54 45 44 20 2A 20 20 20 20 20 20 20 |CREATED * |
000000D0: 2A 20 54 4F 20 48 45 4C 50 20 59 4F 55 20 41 42 |* TO HELP YOU AB|
000000E0: 53 4F 52 42 20 54 48 45 20 4D 41 4E 59 20 20 20 |SORB THE MANY |
000000F0: 2A 00 41 09 04 00 8F 20 2A 20 4E 45 57 20 43 4F |*.A.... * NEW CO|
00000100: 4D 4D 41 4E 44 53 2E 20 53 54 55 44 59 20 54 48 |MMANDS. STUDY TH|
00000110: 45 20 52 45 4D 53 20 20 2A 20 20 20 20 20 20 20 |E REMS * |
00000120: 2A 20 26 20 50 52 4F 47 52 41 4D 4D 49 4E 47 20 |* & PROGRAMMING |
00000130: 54 45 43 48 4E 49 51 55 45 53 20 41 4E 44 20 20 |TECHNIQUES AND |
00000140: 2A 00 91 09 05 00 8F 20 2A 20 59 4F 55 20 57 49 |*...... * YOU WI|
00000150: 4C 4C 20 42 45 20 57 45 4C 4C 20 4F 4E 20 59 4F |LL BE WELL ON YO|
00000160: 55 52 20 57 41 59 20 20 2A 20 20 20 20 20 20 20 |UR WAY * |
00000170: 2A 20 4D 41 53 54 45 52 49 4E 47 20 42 2B 21 20 |* MASTERING B+! |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 2A 00 E1 09 06 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 | * |
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 00 E7 09 07 00 8F 00 0F 0A 08 00 8F 20 2A 20 |*............ * |
000001F0: 20 20 4C 4F 41 44 20 42 2B 20 41 4E 44 20 53 45 | LOAD B+ AND SE|
00000200: 54 20 54 48 49 4E 47 53 20 55 50 20 20 20 2A 00 |T THINGS UP *.|
00000210: 26 0A 0A 00 8B 41 B2 2E A7 41 B2 31 3A 93 22 42 |&....A...A.1:."B|
00000220: 2B 22 2C 38 2C 31 00 4D 0A 0F 00 8F 20 2A 50 52 |+",8,1.M.... *PR|
00000230: 4F 54 45 43 54 20 48 49 2D 52 45 53 20 41 52 45 |OTECT HI-RES ARE|
00000240: 41 20 46 52 4F 4D 20 42 41 53 49 43 2A 00 6A 0A |A FROM BASIC*.j.|
00000250: 14 00 97 35 32 2C 38 38 3A 97 35 36 2C 38 38 3A |...52,88:.56,88:|
00000260: 9C 3A 99 C7 28 31 34 32 29 3B 00 91 0A 19 00 8F |.:..(142);......|
00000270: 20 2A 20 53 50 52 49 54 45 20 50 4F 49 4E 54 45 | * SPRITE POINTE|
00000280: 52 20 46 4F 52 20 4C 41 54 45 52 20 55 53 45 20 |R FOR LATER USE |
00000290: 2A 00 C3 0A 1E 00 81 49 B2 2E A4 36 33 3A 97 32 |*......I...63:.2|
000002A0: 32 35 32 38 AA 49 2C 2E 3A 82 3A 81 49 B2 2E A4 |2528.I,.:.:.I...|
000002B0: 35 3A 87 4A 3A 97 32 32 35 32 38 AA 49 AC 33 2C |5:.J:.22528.I.3,|
000002C0: 4A 3A 82 00 DD 0A 28 00 83 20 32 34 30 2C 32 32 |J:....(.. 240,22|
000002D0: 34 2C 31 37 36 2C 32 34 2C 31 32 2C 34 00 2C 0B |4,176,24,12,4.,.|
000002E0: 2A 00 8F 20 2A 20 51 55 49 43 4B 20 4D 4C 20 52 |*.. * QUICK ML R|
000002F0: 4F 55 54 49 4E 45 20 41 4C 4C 4F 57 53 20 53 41 |OUTINE ALLOWS SA|
00000300: 46 45 20 2A 20 20 20 20 20 20 20 20 2A 20 52 45 |FE * * RE|
00000310: 54 55 52 4E 20 54 4F 20 4C 4F 41 44 53 54 41 52 |TURN TO LOADSTAR|
00000320: 20 2D 20 27 51 55 49 54 27 20 20 2A 00 7B 0B 2D | - 'QUIT' *.{.-|
00000330: 00 8F 20 2A 20 52 45 53 45 54 53 20 43 4F 4D 50 |.. * RESETS COMP|
00000340: 55 54 45 52 2C 20 53 4F 20 53 48 4F 55 4C 44 20 |UTER, SO SHOULD |
00000350: 20 20 2A 20 20 20 20 20 20 20 20 2A 20 4E 4F 54 | * * NOT|
00000360: 20 42 45 20 55 53 45 44 20 57 49 54 48 20 27 43 | BE USED WITH 'C|
00000370: 48 41 49 4E 45 44 27 20 20 20 2A 00 A2 0B 30 00 |HAINED' *...0.|
00000380: 8F 20 2A 20 50 52 4F 47 52 41 4D 53 20 28 4C 49 |. * PROGRAMS (LI|
00000390: 4B 45 20 4C 4F 41 44 53 54 41 52 29 20 20 20 20 |KE LOADSTAR) |
000003A0: 20 2A 00 E2 0B 32 00 81 49 B2 32 32 35 39 32 A4 | *...2..I.22592.|
000003B0: 32 32 36 33 33 3A 87 4A 3A 97 49 2C 4A 3A 82 3A |22633:.J:.I,J:.:|
000003C0: 83 31 32 30 2C 31 36 30 2C 30 2C 31 36 32 2C 30 |.120,160,0,162,0|
000003D0: 2C 31 38 35 2C 39 34 2C 38 38 2C 31 35 33 2C 34 |,185,94,88,153,4|
000003E0: 2C 33 00 28 0C 3C 00 83 32 30 30 2C 31 39 32 2C |,3.(.<..200,192,|
000003F0: 36 2C 31 34 34 2C 32 34 35 2C 31 38 35 2C 39 34 |6,144,245,185,94|
00000400: 2C 38 38 2C 31 35 37 2C 32 30 2C 33 2C 32 30 30 |,88,157,20,3,200|
00000410: 2C 32 33 32 2C 32 32 34 2C 36 2C 31 34 34 2C 32 |,232,224,6,144,2|
00000420: 34 34 2C 38 38 2C 39 36 00 59 0C 46 00 83 31 32 |44,88,96.Y.F..12|
00000430: 34 2C 31 36 35 2C 32 36 2C 31 36 37 2C 32 32 38 |4,165,26,167,228|
00000440: 2C 31 36 37 2C 34 39 2C 32 33 34 2C 31 30 32 2C |,167,49,234,102,|
00000450: 32 35 34 2C 31 2C 32 35 34 00 A8 0C 4B 00 8F 20 |254,1,254...K.. |
00000460: 2A 20 53 45 54 20 55 50 20 58 20 26 20 59 20 45 |* SET UP X & Y E|
00000470: 51 55 49 56 41 4C 45 4E 54 53 20 46 4F 52 20 2A |QUIVALENTS FOR *|
00000480: 20 20 20 20 20 20 20 20 2A 20 4A 4F 59 20 43 4F | * JOY CO|
00000490: 4D 4D 41 4E 44 20 44 49 52 45 43 54 49 4F 4E 53 |MMAND DIRECTIONS|
000004A0: 2C 20 54 48 45 4E 20 2A 00 F7 0C 4E 00 8F 20 2A |, THEN *...N.. *|
000004B0: 20 4A 55 4D 50 20 54 4F 20 4D 41 49 4E 20 50 52 | JUMP TO MAIN PR|
000004C0: 4F 47 52 41 4D 20 54 4F 20 53 4B 49 50 20 2A 20 |OGRAM TO SKIP * |
000004D0: 20 20 20 20 20 20 20 2A 20 56 41 52 49 4F 55 53 | * VARIOUS|
000004E0: 20 53 55 42 52 4F 55 54 49 4E 45 53 20 20 20 20 | SUBROUTINES |
000004F0: 20 20 20 20 20 20 2A 00 14 0D 50 00 81 49 B2 2E | *...P..I..|
00000500: A4 38 3A 87 58 28 49 29 2C 59 28 49 29 3A 82 3A |.8:.X(I),Y(I):.:|
00000510: 89 31 34 30 00 44 0D 5A 00 83 20 30 2C 30 2C 30 |.140.D.Z.. 0,0,0|
00000520: 2C 2D 31 2C 31 2C 2D 31 2C 31 2C 30 2C 31 2C 31 |,-1,1,-1,1,0,1,1|
00000530: 2C 30 2C 31 2C 2D 31 2C 31 2C 2D 31 2C 30 2C 2D |,0,1,-1,1,-1,0,-|
00000540: 31 2C 2D 31 00 93 0D 5F 00 8F 20 2A 20 46 52 45 |1,-1..._.. * FRE|
00000550: 51 55 45 4E 54 4C 59 20 55 53 45 44 20 53 55 42 |QUENTLY USED SUB|
00000560: 52 4F 55 54 49 4E 45 53 20 20 2A 20 20 20 20 20 |ROUTINES * |
00000570: 20 20 20 2A 20 46 49 52 53 54 2C 20 57 41 49 54 | * FIRST, WAIT|
00000580: 20 46 4F 52 20 53 50 41 43 45 20 42 41 52 20 20 | FOR SPACE BAR |
00000590: 20 20 2A 00 B0 0D 64 00 97 31 39 38 2C 2E 3A 20 | *...d..198,.: |
000005A0: 8F 20 43 4C 45 41 52 20 4B 45 59 42 4F 41 52 44 |. CLEAR KEYBOARD|
000005B0: 00 C5 0D 6E 00 A1 41 24 3A 8B 41 24 B3 B1 22 20 |...n..A$:.A$.." |
000005C0: 22 A7 31 31 30 00 CB 0D 78 00 8E 00 F1 0D 7D 00 |".110...x.....}.|
000005D0: 8F 20 2A 20 20 20 4E 4F 52 4D 41 4C 49 5A 45 20 |. * NORMALIZE |
000005E0: 53 43 52 45 45 4E 20 56 41 4C 55 45 53 20 20 20 |SCREEN VALUES |
000005F0: 2A 00 1D 0E 82 00 CC 30 3A EA 31 30 32 34 3A D5 |*......0:.1024:.|
00000600: 34 30 39 36 3A DF 30 3A D2 30 2C 31 35 3A D2 31 |4096:.0:.0,15:.1|
00000610: 2C 31 31 3A D2 37 2C 31 33 3A D1 3A 8E 00 43 0E |,11:.7,13:.:..C.|
00000620: 87 00 8F 20 2A 20 41 43 54 49 56 41 54 45 20 42 |... * ACTIVATE B|
00000630: 2B 20 41 4E 44 20 47 45 54 20 52 4F 4C 4C 49 4E |+ AND GET ROLLIN|
00000640: 47 20 2A 00 4E 0E 8C 00 9E 34 39 31 35 32 00 9C |G *.N....49152..|
00000650: 0E 91 00 8F 20 2A 20 50 41 55 53 45 20 54 4F 20 |.... * PAUSE TO |
00000660: 53 48 4F 57 20 54 49 54 4C 45 20 53 43 52 45 45 |SHOW TITLE SCREE|
00000670: 4E 20 20 2A 20 20 20 20 20 20 20 20 20 2A 20 54 |N * * T|
00000680: 48 45 4E 20 53 45 54 20 55 50 20 46 49 52 53 54 |HEN SET UP FIRST|
00000690: 20 57 49 4E 44 4F 57 20 2D 20 20 2A 00 D6 0E 96 | WINDOW - *....|
000006A0: 00 E3 31 3A EE 32 2C 36 2C 32 37 2C 37 2C 30 2C |..1:.2,6,27,7,0,|
000006B0: 31 3A D2 37 2C 31 33 3A 41 24 B2 22 54 48 49 53 |1:.7,13:A$."THIS|
000006C0: 20 4F 50 45 4E 49 4E 47 20 53 43 52 45 45 4E 20 | OPENING SCREEN |
000006D0: 54 45 4C 4C 53 22 00 24 0F 9B 00 8F 20 2A 20 4E |TELLS".$.... * N|
000006E0: 4F 54 45 20 54 48 41 54 20 53 54 52 49 4E 47 20 |OTE THAT STRING |
000006F0: 56 41 52 49 41 42 4C 45 53 20 20 2A 20 20 20 20 |VARIABLES * |
00000700: 20 20 20 20 20 2A 20 43 41 4E 20 42 45 20 41 44 | * CAN BE AD|
00000710: 44 45 44 20 54 4F 47 45 54 48 45 52 20 57 48 45 |DED TOGETHER WHE|
00000720: 4E 20 20 2A 00 72 0F 9E 00 8F 20 2A 20 54 48 45 |N *.r.... * THE|
00000730: 20 44 45 53 49 52 45 44 20 53 54 52 49 4E 47 20 | DESIRED STRING |
00000740: 49 53 20 54 4F 4F 20 20 20 2A 20 20 20 20 20 20 |IS TOO * |
00000750: 20 20 20 2A 20 4C 4F 4E 47 20 46 4F 52 20 41 20 | * LONG FOR A |
00000760: 42 41 53 49 43 20 4C 49 4E 45 20 20 20 20 20 20 |BASIC LINE |
00000770: 20 2A 00 B1 0F A0 00 41 24 B2 41 24 AA 22 59 4F | *.....A$.A$."YO|
00000780: 55 20 54 48 41 54 20 42 2B 20 49 53 20 49 4E 53 |U THAT B+ IS INS|
00000790: 54 41 4C 4C 45 44 2E 4F 46 20 43 4F 55 52 53 45 |TALLED.OF COURSE|
000007A0: 2C 20 59 4F 55 27 4C 4C 20 57 41 4E 54 20 54 4F |, YOU'LL WANT TO|
000007B0: 22 00 E9 0F AA 00 41 24 B2 41 24 AA 22 43 4C 45 |".....A$.A$."CLE|
000007C0: 41 52 20 49 54 20 41 46 54 45 52 57 41 52 44 53 |AR IT AFTERWARDS|
000007D0: 20 57 49 54 48 20 54 48 45 20 05 43 4C 53 99 20 | WITH THE .CLS. |
000007E0: 43 4F 4D 4D 41 4E 44 2E 22 00 37 10 AC 00 8F 20 |COMMAND.".7.... |
000007F0: 2A 20 43 4F 4C 4F 52 20 43 4F 44 45 53 20 4D 41 |* COLOR CODES MA|
00000800: 59 20 42 45 20 45 4D 42 45 44 44 45 44 20 2A 20 |Y BE EMBEDDED * |
00000810: 20 20 20 20 20 20 20 20 2A 20 54 4F 20 43 48 41 | * TO CHA|
00000820: 4E 47 45 20 54 48 45 20 43 4F 4C 4F 52 20 4F 46 |NGE THE COLOR OF|
00000830: 20 54 45 58 54 20 2A 00 85 10 AF 00 8F 20 2A 20 | TEXT *...... * |
00000840: 2D 20 42 45 20 43 41 52 45 46 55 4C 20 54 4F 20 |- BE CAREFUL TO |
00000850: 46 4F 52 4D 41 54 20 54 48 45 20 20 2A 20 20 20 |FORMAT THE * |
00000860: 20 20 20 20 20 20 2A 20 53 54 52 49 4E 47 20 54 | * STRING T|
00000870: 4F 20 46 49 54 20 54 48 45 20 57 49 4E 44 4F 57 |O FIT THE WINDOW|
00000880: 20 2D 20 20 2A 00 D3 10 B2 00 8F 20 2A 20 43 4F | - *...... * CO|
00000890: 55 4E 54 49 4E 47 20 43 4F 4C 4F 52 20 43 48 41 |UNTING COLOR CHA|
000008A0: 52 41 43 54 45 52 53 21 20 20 2A 20 20 20 20 20 |RACTERS! * |
000008B0: 20 20 20 20 2A 20 4E 4F 57 20 4F 50 45 4E 20 54 | * NOW OPEN T|
000008C0: 48 45 20 57 49 4E 44 4F 57 2E 2E 2E 20 20 20 20 |HE WINDOW... |
000008D0: 20 20 2A 00 DB 10 B4 00 E1 41 24 00 29 11 B9 00 | *......A$.)...|
000008E0: 8F 20 2A 20 50 41 55 53 45 20 41 4E 44 20 52 45 |. * PAUSE AND RE|
000008F0: 50 45 41 54 20 50 52 4F 43 45 44 55 52 45 20 20 |PEAT PROCEDURE |
00000900: 2A 20 20 20 20 20 20 20 20 20 2A 20 46 4F 52 20 |* * FOR |
00000910: 54 48 45 20 4E 45 58 54 20 57 49 4E 44 4F 57 20 |THE NEXT WINDOW |
00000920: 20 20 20 20 20 20 20 20 2A 00 6C 11 BE 00 E3 32 | *.l....2|
00000930: 3A 41 24 B2 22 5E 20 54 48 49 53 20 49 53 20 41 |:A$."^ THIS IS A|
00000940: 4E 20 45 58 41 4D 50 4C 45 20 4F 46 54 48 45 20 |N EXAMPLE OFTHE |
00000950: 57 49 4E 44 4F 57 20 43 4F 4D 4D 41 4E 44 53 2C |WINDOW COMMANDS,|
00000960: 20 42 59 54 48 45 20 57 41 59 2E 22 00 84 11 C8 | BYTHE WAY."....|
00000970: 00 EE 31 33 2C 31 32 2C 32 35 2C 35 2C 30 2C 31 |..13,12,25,5,0,1|
00000980: 3A E1 41 24 00 D2 11 CD 00 8F 20 2A 20 4E 4F 57 |:.A$...... * NOW|
00000990: 20 41 20 27 50 52 45 53 53 20 53 50 41 43 45 27 | A 'PRESS SPACE'|
000009A0: 20 4D 45 53 53 41 47 45 20 2A 20 20 20 20 20 20 | MESSAGE * |
000009B0: 20 20 20 2A 20 57 49 54 48 20 41 20 27 44 4F 54 | * WITH A 'DOT|
000009C0: 27 20 42 4F 52 44 45 52 2E 2E 2E 20 20 20 20 20 |' BORDER... |
000009D0: 20 2A 00 08 12 D2 00 E3 32 3A D2 37 2C 31 30 3A | *......2:.7,10:|
000009E0: EE 31 31 2C 31 36 2C 31 38 2C 33 2C 38 31 2C 32 |.11,16,18,3,81,2|
000009F0: 3A E1 22 20 3E 20 50 52 45 53 53 20 53 50 41 43 |:." > PRESS SPAC|
00000A00: 45 20 3C 22 3A 49 B2 2E 00 56 12 D7 00 8F 20 2A |E <":I...V.... *|
00000A10: 20 2E 2E 2E 41 4E 44 20 4A 41 5A 5A 20 49 54 20 | ...AND JAZZ IT |
00000A20: 55 50 20 57 49 54 48 20 54 48 45 20 20 2A 20 20 |UP WITH THE * |
00000A30: 20 20 20 20 20 20 20 2A 20 50 41 49 4E 54 20 43 | * PAINT C|
00000A40: 4F 4D 4D 41 4E 44 20 20 20 20 20 20 20 20 20 20 |OMMAND |
00000A50: 20 20 20 20 20 2A 00 7D 12 DC 00 A1 41 24 3A 8B | *.}....A$:.|
00000A60: 41 24 B3 B1 22 20 22 A7 49 B2 28 49 AA 31 29 AF |A$.." ".I.(I.1).|
00000A70: 31 35 3A E2 38 31 2C 49 3A 89 32 32 30 00 CB 12 |15:.81,I:.220...|
00000A80: E1 00 8F 20 2A 20 43 4C 4F 53 45 20 55 50 20 54 |... * CLOSE UP T|
00000A90: 48 45 20 57 49 4E 44 4F 57 53 20 53 4C 4F 57 4C |HE WINDOWS SLOWL|
00000AA0: 59 20 2A 20 20 20 20 20 20 20 20 20 2A 20 54 4F |Y * * TO|
00000AB0: 20 4D 41 4B 45 20 45 46 46 45 43 54 20 4F 42 56 | MAKE EFFECT OBV|
00000AC0: 49 4F 55 53 20 20 20 20 20 20 2A 00 FB 12 E6 00 |IOUS *.....|
00000AD0: 81 49 B2 31 A4 33 3A D6 3A 81 4A B2 31 A4 32 30 |.I.1.3:.:.J.1.20|
00000AE0: 30 3A 82 4A 2C 49 3A D2 37 2C 31 33 3A EE 31 36 |0:.J,I:.7,13:.16|
00000AF0: 2C 31 31 2C 38 2C 33 2C 30 2C 31 00 19 13 F0 00 |,11,8,3,0,1.....|
00000B00: E1 22 57 48 45 45 45 21 22 3A 81 49 B2 31 A4 34 |."WHEEE!":.I.1.4|
00000B10: 30 30 3A 82 3A D6 3A E3 31 00 3F 13 F5 00 8F 20 |00:.:.:.1.?.... |
00000B20: 2A 43 4C 45 41 52 20 53 43 52 45 45 4E 20 26 20 |*CLEAR SCREEN & |
00000B30: 45 58 50 4C 41 49 4E 20 53 54 55 46 46 20 2A 00 |EXPLAIN STUFF *.|
00000B40: 6F 13 FA 00 D1 3A 99 22 11 20 44 55 52 49 4E 47 |o....:.". DURING|
00000B50: 20 54 48 49 53 20 44 45 4D 4F 20 59 4F 55 20 43 | THIS DEMO YOU C|
00000B60: 41 4E 20 4D 4F 56 45 20 54 4F 20 54 48 45 22 00 |AN MOVE TO THE".|
00000B70: 9B 13 04 01 99 22 20 4E 45 58 54 20 53 43 52 45 |....." NEXT SCRE|
00000B80: 45 4E 20 42 59 20 50 52 45 53 53 49 4E 47 20 9E |EN BY PRESSING .|
00000B90: 53 50 41 43 45 2E 99 22 3A E3 31 00 CB 13 0E 01 |SPACE..":.1.....|
00000BA0: 99 22 11 20 54 48 45 20 46 4C 41 53 48 49 4E 47 |.". THE FLASHING|
00000BB0: 20 42 4F 52 44 45 52 20 4F 4E 20 54 48 45 20 4C | BORDER ON THE L|
00000BC0: 41 53 54 20 53 43 52 45 45 4E 22 00 09 14 18 01 |AST SCREEN".....|
00000BD0: 99 22 20 57 41 53 20 43 52 45 41 54 45 44 20 57 |." WAS CREATED W|
00000BE0: 49 54 48 20 54 48 45 20 05 50 41 49 4E 54 99 20 |ITH THE .PAINT. |
00000BF0: 43 4F 4D 4D 41 4E 44 2C 20 42 59 20 20 54 48 45 |COMMAND, BY THE|
00000C00: 20 57 41 59 2E 22 3A E3 31 00 51 14 22 01 99 22 | WAY.":.1.Q.".."|
00000C10: 11 20 4E 4F 54 45 20 54 48 45 20 57 41 59 20 54 |. NOTE THE WAY T|
00000C20: 48 45 20 53 43 52 45 45 4E 20 57 41 53 20 52 45 |HE SCREEN WAS RE|
00000C30: 53 54 4F 52 45 44 20 20 20 20 42 45 48 49 4E 44 |STORED BEHIND|
00000C40: 20 54 48 45 20 57 49 4E 44 4F 57 53 2E 22 3A E3 | THE WINDOWS.":.|
00000C50: 31 00 99 14 2C 01 99 22 11 20 53 49 4D 49 4C 41 |1...,..". SIMILA|
00000C60: 52 4C 59 2C 20 57 48 4F 4C 45 20 53 43 52 45 45 |RLY, WHOLE SCREE|
00000C70: 4E 53 20 43 41 4E 20 42 45 20 05 53 54 4F 52 45 |NS CAN BE .STORE|
00000C80: 99 44 20 20 41 4E 44 20 05 52 45 43 41 4C 4C 99 |.D AND .RECALL.|
00000C90: 45 44 2E 22 3A 8D 31 30 30 00 E7 14 31 01 8F 20 |ED.":.100...1.. |
00000CA0: 2A 20 53 41 56 45 20 53 43 52 45 45 4E 20 49 4E |* SAVE SCREEN IN|
00000CB0: 20 42 55 46 46 45 52 20 5A 45 52 4F 20 20 2A 20 | BUFFER ZERO * |
00000CC0: 20 20 20 20 20 20 20 20 2A 20 41 4E 44 20 54 48 | * AND TH|
00000CD0: 45 4E 20 43 4C 45 41 52 20 49 54 20 20 20 20 20 |EN CLEAR IT |
00000CE0: 20 20 20 20 20 20 2A 00 0F 15 36 01 EC 30 3A D1 | *...6..0:.|
00000CF0: 3A 99 22 11 20 4C 45 54 27 53 20 44 45 4D 4F 4E |:.". LET'S DEMON|
00000D00: 53 54 52 41 54 45 2E 2E 2E 22 3A 8D 31 30 30 00 |STRATE...":.100.|
00000D10: 35 15 3B 01 8F 20 2A 20 52 45 53 54 4F 52 45 20 |5.;.. * RESTORE |
00000D20: 53 43 52 45 45 4E 2E 2E 2E 20 20 20 20 20 20 20 |SCREEN... |
00000D30: 20 20 20 20 2A 00 41 15 40 01 E9 30 3A 8D 31 30 | *.A.@..0:.10|
00000D40: 30 00 67 15 45 01 8F 20 2A 20 2E 2E 2E 41 4E 44 |0.g.E.. * ...AND|
00000D50: 20 4F 50 45 4E 20 4D 45 53 53 41 47 45 20 57 49 | OPEN MESSAGE WI|
00000D60: 4E 44 4F 57 20 20 2A 00 A1 15 4A 01 D2 37 2C 31 |NDOW *...J..7,1|
00000D70: 30 3A EE 34 2C 36 2C 33 32 2C 33 2C 30 2C 31 3A |0:.4,6,32,3,0,1:|
00000D80: E1 22 4E 4F 57 20 46 4F 52 20 53 4F 4D 45 54 48 |."NOW FOR SOMETH|
00000D90: 49 4E 47 20 44 49 46 46 45 52 45 4E 54 2E 2E 2E |ING DIFFERENT...|
00000DA0: 22 00 B2 15 54 01 8D 31 30 30 3A D6 3A D2 37 2C |"...T..100:.:.7,|
00000DB0: 31 33 00 D8 15 59 01 8F 20 2A 20 54 48 45 20 53 |13...Y.. * THE S|
00000DC0: 50 52 49 54 45 20 43 4F 4D 4D 41 4E 44 53 20 20 |PRITE COMMANDS |
00000DD0: 20 20 20 20 20 20 20 2A 00 06 16 5E 01 D1 3A 99 | *...^..:.|
00000DE0: 22 11 20 46 49 52 53 54 2C 20 57 45 27 4C 4C 20 |". FIRST, WE'LL |
00000DF0: 41 43 54 49 56 41 54 45 20 41 20 53 50 52 49 54 |ACTIVATE A SPRIT|
00000E00: 45 20 41 4E 44 22 00 48 16 68 01 99 22 20 50 4F |E AND".H.h.." PO|
00000E10: 53 49 54 49 4F 4E 20 49 54 20 57 49 54 48 20 05 |SITION IT WITH .|
00000E20: 53 50 52 49 54 45 99 20 41 4E 44 20 05 4D 4F 56 |SPRITE. AND .MOV|
00000E30: 53 50 52 99 2C 20 20 20 20 20 52 45 53 50 45 43 |SPR., RESPEC|
00000E40: 54 49 56 45 4C 59 2E 22 00 69 16 72 01 E0 30 2C |TIVELY.".i.r..0,|
00000E50: 31 37 30 2C 31 33 36 3A EB 30 2C 31 2C 31 2C 30 |170,136:.0,1,1,0|
00000E60: 2C 30 2C 30 2C 30 3A E3 32 00 B7 16 77 01 8F 20 |,0,0,0:.2...w.. |
00000E70: 2A 20 4C 49 4E 4B 20 4A 4F 59 53 54 49 43 4B 20 |* LINK JOYSTICK |
00000E80: 32 20 54 4F 20 53 50 52 49 54 45 20 30 20 2A 20 |2 TO SPRITE 0 * |
00000E90: 20 20 20 20 20 20 20 20 2A 20 57 49 54 48 20 41 | * WITH A|
00000EA0: 20 53 50 45 45 44 20 4F 46 20 33 20 20 20 20 20 | SPEED OF 3 |
00000EB0: 20 20 20 20 20 20 2A 00 EE 16 7C 01 DE 32 2C 30 | *...|..2,0|
00000EC0: 2C 33 3A 99 22 11 20 54 52 59 20 4D 4F 56 49 4E |,3:.". TRY MOVIN|
00000ED0: 47 20 54 48 45 20 50 4F 52 54 20 54 57 4F 20 4A |G THE PORT TWO J|
00000EE0: 4F 59 53 54 49 43 4B 2E 2E 2E 22 3A E3 32 00 1B |OYSTICK...":.2..|
00000EF0: 17 86 01 99 22 11 20 54 48 45 20 4A 4F 59 53 54 |....". THE JOYST|
00000F00: 49 43 4B 20 41 4E 44 20 54 48 45 20 53 50 52 49 |ICK AND THE SPRI|
00000F10: 54 45 20 41 52 45 20 4E 4F 57 22 00 67 17 90 01 |TE ARE NOW".g...|
00000F20: 99 22 20 05 4C 49 4E 4B 99 45 44 20 2D 20 41 4E |." .LINK.ED - AN|
00000F30: 44 20 57 49 4C 4C 20 43 4F 4E 54 49 4E 55 45 20 |D WILL CONTINUE |
00000F40: 54 4F 20 42 45 2C 20 45 56 45 4E 20 20 57 48 49 |TO BE, EVEN WHI|
00000F50: 4C 45 20 54 48 49 53 20 44 45 4D 4F 20 49 53 20 |LE THIS DEMO IS |
00000F60: 47 4F 49 4E 47 21 22 00 9C 17 9A 01 8D 31 30 30 |GOING!"......100|
00000F70: 3A D1 3A 99 22 11 20 4C 45 54 27 53 20 4D 41 4B |:.:.". LET'S MAK|
00000F80: 45 20 55 53 45 20 4F 46 20 54 48 49 53 20 57 49 |E USE OF THIS WI|
00000F90: 54 48 20 53 4F 4D 45 20 4E 45 57 22 00 C9 17 A4 |TH SOME NEW"....|
00000FA0: 01 99 22 20 43 4F 4D 4D 41 4E 44 53 2E 20 57 45 |.." COMMANDS. WE|
00000FB0: 27 4C 4C 20 4D 41 4B 45 20 41 20 48 49 2D 52 45 |'LL MAKE A HI-RE|
00000FC0: 53 20 53 43 52 45 45 4E 22 00 FF 17 AE 01 99 22 |S SCREEN"......"|
00000FD0: 20 57 49 54 48 20 05 42 41 4E 4B 99 2C 20 05 43 | WITH .BANK., .C|
00000FE0: 53 45 54 99 2C 20 05 4D 4F 44 45 99 20 26 20 05 |SET., .MODE. & .|
00000FF0: 53 43 52 45 45 4E 99 2C 20 45 52 41 53 45 22 00 |SCREEN., ERASE".|
00001000: 2F 18 B8 01 99 22 20 49 54 20 57 49 54 48 20 05 |/...." IT WITH .|
00001010: 57 49 50 45 99 20 41 4E 44 20 54 48 45 4E 20 44 |WIPE. AND THEN D|
00001020: 52 41 57 20 4F 4E 20 49 54 20 57 49 54 48 22 00 |RAW ON IT WITH".|
00001030: 7B 18 C2 01 99 22 20 05 50 4C 4F 54 99 20 41 4E |{...." .PLOT. AN|
00001040: 44 20 05 4A 4F 59 99 2E 20 50 52 45 53 53 20 9E |D .JOY.. PRESS .|
00001050: 46 49 52 45 99 20 54 4F 20 44 52 41 57 20 41 20 |FIRE. TO DRAW A |
00001060: 44 4F 54 20 20 4F 52 20 45 52 41 53 45 20 41 20 |DOT OR ERASE A |
00001070: 44 52 41 57 4E 20 44 4F 54 2E 22 00 C6 18 CC 01 |DRAWN DOT.".....|
00001080: 99 22 11 20 59 4F 55 27 4C 4C 20 50 52 4F 42 41 |.". YOU'LL PROBA|
00001090: 42 4C 59 20 57 41 4E 54 20 54 4F 20 53 54 55 44 |BLY WANT TO STUD|
000010A0: 59 20 54 48 45 20 44 45 4D 4F 20 20 50 52 4F 47 |Y THE DEMO PROG|
000010B0: 52 41 4D 20 54 4F 20 53 45 45 20 48 4F 57 20 54 |RAM TO SEE HOW T|
000010C0: 48 49 53 20 22 3B 00 04 19 D6 01 99 22 57 41 53 |HIS ";......"WAS|
000010D0: 20 44 4F 4E 45 2E 20 4E 4F 54 45 20 20 54 48 41 | DONE. NOTE THA|
000010E0: 54 20 54 48 45 20 52 4F 55 54 49 4E 45 20 57 49 |T THE ROUTINE WI|
000010F0: 4C 4C 20 57 4F 52 4B 20 4D 55 43 48 20 46 41 53 |LL WORK MUCH FAS|
00001100: 54 45 52 22 00 39 19 D8 01 99 22 20 57 49 54 48 |TER".9...." WITH|
00001110: 20 54 48 45 20 4D 41 4E 59 20 9E 52 45 4D 99 20 | THE MANY .REM. |
00001120: 53 54 41 54 45 4D 45 4E 54 53 20 52 45 4D 4F 56 |STATEMENTS REMOV|
00001130: 45 44 2E 22 3A 8D 31 30 30 00 87 19 DB 01 8F 20 |ED.":.100...... |
00001140: 2A 20 53 57 49 54 43 48 20 42 41 4E 4B 20 54 4F |* SWITCH BANK TO|
00001150: 20 31 36 33 38 34 2D 33 32 37 36 37 20 20 2A 20 | 16384-32767 * |
00001160: 20 20 20 20 20 20 20 20 2A 20 41 4E 44 20 56 49 | * AND VI|
00001170: 44 45 4F 20 4D 41 54 52 49 58 20 54 4F 20 32 33 |DEO MATRIX TO 23|
00001180: 35 35 32 2C 20 20 2A 00 AD 19 DE 01 8F 20 2A 20 |552, *...... * |
00001190: 57 49 54 48 20 48 49 2D 52 45 53 20 53 43 52 45 |WITH HI-RES SCRE|
000011A0: 45 4E 20 41 54 20 32 34 35 37 36 20 2A 00 C2 19 |EN AT 24576 *...|
000011B0: E0 01 CC 31 3A EA 32 33 35 35 32 3A D5 32 34 35 |...1:.23552:.245|
000011C0: 37 36 00 10 1A E5 01 8F 20 2A 20 53 57 49 54 43 |76...... * SWITC|
000011D0: 48 20 4F 4E 20 48 49 2D 52 45 53 20 41 4E 44 20 |H ON HI-RES AND |
000011E0: 43 4C 45 41 4E 20 20 2A 20 20 20 20 20 20 20 20 |CLEAN * |
000011F0: 20 2A 20 55 50 20 42 4F 54 48 20 49 54 20 26 20 | * UP BOTH IT & |
00001200: 56 49 44 45 4F 20 4D 41 54 52 49 58 20 20 20 2A |VIDEO MATRIX *|
00001210: 00 1B 1A EA 01 DF 33 3A EF 3A D1 00 69 1A EF 01 |......3:.:..i...|
00001220: 8F 20 2A 20 43 48 41 4E 47 45 20 53 50 52 49 54 |. * CHANGE SPRIT|
00001230: 45 20 54 4F 20 54 48 45 20 50 4F 49 4E 54 45 52 |E TO THE POINTER|
00001240: 2A 20 20 20 20 20 20 20 20 20 2A 20 57 45 20 53 |* * WE S|
00001250: 45 54 20 55 50 20 45 41 52 4C 49 45 52 3B 20 53 |ET UP EARLIER; S|
00001260: 48 55 54 20 4F 46 46 20 2A 00 8F 1A F2 01 8F 20 |HUT OFF *...... |
00001270: 2A 20 4C 49 4E 4B 20 26 20 55 53 45 20 4A 4F 59 |* LINK & USE JOY|
00001280: 20 49 4E 53 54 45 41 44 20 20 20 20 20 20 2A 00 | INSTEAD *.|
00001290: A0 1A F4 01 97 32 34 35 36 38 2C 39 36 3A DE 30 |.....24568,96:.0|
000012A0: 00 C6 1A F9 01 8F 20 2A 20 53 45 54 20 55 50 20 |...... * SET UP |
000012B0: 49 4E 49 54 49 41 4C 20 43 4F 4F 52 44 49 4E 41 |INITIAL COORDINA|
000012C0: 54 45 53 20 20 2A 00 DC 1A FE 01 58 B2 31 37 30 |TES *.....X.170|
000012D0: 3A 59 B2 38 30 3A E0 30 2C 58 2C 59 00 2A 1B 03 |:Y.80:.0,X,Y.*..|
000012E0: 02 8F 20 2A 20 4D 41 49 4E 20 44 52 41 57 49 4E |.. * MAIN DRAWIN|
000012F0: 47 20 4C 4F 4F 50 2C 20 55 53 49 4E 47 20 58 20 |G LOOP, USING X |
00001300: 20 2A 20 20 20 20 20 20 20 20 20 2A 20 41 4E 44 | * * AND|
00001310: 20 59 20 41 52 52 41 59 20 53 45 54 20 55 50 20 | Y ARRAY SET UP |
00001320: 45 41 52 4C 49 45 52 2E 20 2A 00 78 1B 06 02 8F |EARLIER. *.x....|
00001330: 20 2A 20 46 49 52 53 54 2C 20 43 48 45 43 4B 20 | * FIRST, CHECK |
00001340: 4B 45 59 42 4F 41 52 44 20 46 4F 52 20 20 20 2A |KEYBOARD FOR *|
00001350: 20 20 20 20 20 20 20 20 20 2A 20 53 50 41 43 45 | * SPACE|
00001360: 20 28 3D 20 51 55 49 54 20 44 52 41 57 49 4E 47 | (= QUIT DRAWING|
00001370: 29 20 20 20 20 20 20 2A 00 8C 1B 08 02 A1 41 24 |) *......A$|
00001380: 3A 8B 41 24 B2 22 20 22 A7 35 39 30 00 DA 1B 0D |:.A$." ".590....|
00001390: 02 8F 20 2A 20 47 45 54 20 4A 4F 59 20 56 41 4C |.. * GET JOY VAL|
000013A0: 55 45 20 49 4E 20 4A 25 20 2D 20 49 46 20 30 20 |UE IN J% - IF 0 |
000013B0: 20 2A 20 20 20 20 20 20 20 20 20 2A 20 54 48 45 | * * THE|
000013C0: 4E 20 4E 4F 54 48 49 4E 47 20 48 41 53 20 48 41 |N NOTHING HAS HA|
000013D0: 50 50 45 4E 45 44 20 20 20 2A 00 EE 1B 12 02 DC |PPENED *......|
000013E0: 32 2C 4A 25 3A 8B 4A 25 B2 30 A7 35 32 30 00 3C |2,J%:.J%.0.520.<|
000013F0: 1C 14 02 8F 20 2A 20 4A 25 3E 30 2C 20 53 4F 20 |.... * J%>0, SO |
00001400: 4D 41 53 4B 20 49 54 20 57 49 54 48 20 31 32 37 |MASK IT WITH 127|
00001410: 20 20 20 2A 20 20 20 20 20 20 20 20 20 2A 20 54 | * * T|
00001420: 4F 20 46 49 4E 44 20 44 49 52 45 43 54 49 4F 4E |O FIND DIRECTION|
00001430: 20 57 49 54 48 4F 55 54 20 20 20 2A 00 8A 1C 17 | WITHOUT *....|
00001440: 02 8F 20 2A 20 46 49 52 45 20 42 55 54 54 4F 4E |.. * FIRE BUTTON|
00001450: 3B 20 55 53 45 20 58 2F 59 20 41 52 52 41 59 20 |; USE X/Y ARRAY |
00001460: 20 2A 20 20 20 20 20 20 20 20 20 2A 20 54 4F 20 | * * TO |
00001470: 41 44 44 20 4E 45 57 20 4D 4F 56 45 20 26 20 4D |ADD NEW MOVE & M|
00001480: 41 4B 45 20 53 55 52 45 20 2A 00 B0 1C 1A 02 8F |AKE SURE *......|
00001490: 20 2A 20 49 54 20 49 53 20 53 54 49 4C 4C 20 4F | * IT IS STILL O|
000014A0: 4E 20 54 48 45 20 53 43 52 45 45 4E 20 20 20 2A |N THE SCREEN *|
000014B0: 00 E4 1C 1C 02 4A B2 4A 25 AF 31 32 37 3A 58 31 |.....J.J%.127:X1|
000014C0: B2 58 AA 58 28 4A 29 3A 59 31 B2 59 AA 59 28 4A |.X.X(J):Y1.Y.Y(J|
000014D0: 29 3A 8B 58 31 B3 32 34 B0 58 31 B1 33 34 32 A7 |):.X1.24.X1.342.|
000014E0: 58 31 B2 58 00 FA 1C 26 02 8B 59 31 B3 30 B0 59 |X1.X...&..Y1.0.Y|
000014F0: 31 B1 32 34 39 A7 59 31 B2 59 00 48 1D 2B 02 8F |1.249.Y1.Y.H.+..|
00001500: 20 2A 20 56 41 4C 55 45 53 20 41 52 45 20 4F 4B | * VALUES ARE OK|
00001510: 2C 20 53 4F 20 55 50 44 41 54 45 20 58 20 20 2A |, SO UPDATE X *|
00001520: 20 20 20 20 20 20 20 20 20 2A 20 26 20 59 20 43 | * & Y C|
00001530: 4F 4F 52 44 49 4E 41 54 45 53 20 20 20 20 20 20 |OORDINATES |
00001540: 20 20 20 20 20 20 20 2A 00 5D 1D 30 02 58 B2 58 | *.].0.X.X|
00001550: 31 3A 59 B2 59 31 3A E0 30 2C 58 2C 59 00 AB 1D |1:Y.Y1:.0,X,Y...|
00001560: 32 02 8F 20 2A 20 46 49 52 45 20 42 55 54 54 4F |2.. * FIRE BUTTO|
00001570: 4E 20 50 52 45 53 53 45 44 3F 20 49 46 20 53 4F |N PRESSED? IF SO|
00001580: 2C 20 2A 20 20 20 20 20 20 20 20 20 2A 20 52 45 |, * * RE|
00001590: 53 45 54 20 54 48 45 20 50 4F 49 4E 54 2E 20 4E |SET THE POINT. N|
000015A0: 4F 54 45 20 54 48 41 54 20 20 2A 00 F9 1D 34 02 |OTE THAT *...4.|
000015B0: 8F 20 2A 20 53 50 52 49 54 45 20 26 20 48 49 2D |. * SPRITE & HI-|
000015C0: 52 45 53 20 43 4F 4F 52 44 49 4E 41 54 45 53 20 |RES COORDINATES |
000015D0: 2A 20 20 20 20 20 20 20 20 20 2A 20 41 52 45 20 |* * ARE |
000015E0: 4E 4F 54 20 54 48 45 20 53 41 4D 45 2C 20 53 4F |NOT THE SAME, SO|
000015F0: 20 41 4E 20 20 20 20 20 2A 00 47 1E 36 02 8F 20 | AN *.G.6.. |
00001600: 2A 20 41 44 4A 55 53 54 4D 45 4E 54 20 4D 55 53 |* ADJUSTMENT MUS|
00001610: 54 20 42 45 20 4D 41 44 45 21 20 20 20 20 2A 20 |T BE MADE! * |
00001620: 20 20 20 20 20 20 20 20 2A 20 41 4C 53 4F 2C 20 | * ALSO, |
00001630: 52 45 4D 45 4D 42 45 52 20 54 4F 20 50 55 54 20 |REMEMBER TO PUT |
00001640: 43 4F 4C 4F 4E 20 2A 00 95 1E 38 02 8F 20 2A 20 |COLON *...8.. * |
00001650: 42 45 54 57 45 45 4E 20 27 54 48 45 4E 27 20 41 |BETWEEN 'THEN' A|
00001660: 4E 44 20 41 20 4E 45 57 20 42 2B 20 2A 20 20 20 |ND A NEW B+ * |
00001670: 20 20 20 20 20 20 2A 20 43 4F 4D 4D 41 4E 44 2E | * COMMAND.|
00001680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001690: 20 20 20 20 2A 00 AD 1E 3A 02 8B 4A 25 B1 38 A7 | *...:..J%.8.|
000016A0: 3A E4 32 2C 58 AB 32 34 2C 59 AB 35 30 00 D3 1E |:.2,X.24,Y.50...|
000016B0: 3F 02 8F 20 2A 20 41 4E 44 20 52 45 53 54 41 52 |?.. * AND RESTAR|
000016C0: 54 20 4C 4F 4F 50 2E 2E 2E 20 20 20 20 20 20 20 |T LOOP... |
000016D0: 20 20 2A 00 DC 1E 44 02 89 35 32 30 00 2A 1F 49 | *...D..520.*.I|
000016E0: 02 8F 20 2A 20 53 50 41 43 45 20 57 41 53 20 50 |.. * SPACE WAS P|
000016F0: 52 45 53 53 45 44 2C 20 53 4F 20 45 58 49 54 20 |RESSED, SO EXIT |
00001700: 20 2A 20 20 20 20 20 20 20 20 20 2A 20 4C 4F 4F | * * LOO|
00001710: 50 20 26 20 4E 4F 52 4D 41 4C 49 5A 45 20 53 43 |P & NORMALIZE SC|
00001720: 52 45 45 4E 20 20 20 20 20 2A 00 50 1F 4E 02 8D |REEN *.P.N..|
00001730: 31 33 30 3A EB 30 2C 30 3A 99 22 11 20 57 48 41 |130:.0,0:.". WHA|
00001740: 54 20 41 4E 20 41 52 54 49 53 54 21 22 3A E3 31 |T AN ARTIST!":.1|
00001750: 00 85 1F 58 02 99 22 11 20 4E 4F 57 20 57 41 54 |...X..". NOW WAT|
00001760: 43 48 20 54 48 45 20 4E 45 58 54 20 53 43 52 45 |CH THE NEXT SCRE|
00001770: 45 4E 20 43 41 52 45 46 55 4C 4C 59 2E 2E 2E 22 |EN CAREFULLY..."|
00001780: 3A 8D 31 30 30 00 D3 1F 5D 02 8F 20 2A 20 53 45 |:.100...].. * SE|
00001790: 54 20 55 50 20 54 4F 50 20 4F 46 20 53 50 4C 49 |T UP TOP OF SPLI|
000017A0: 54 20 53 43 52 45 45 4E 3A 20 2A 20 20 20 20 20 |T SCREEN: * |
000017B0: 20 20 20 20 2A 20 43 4C 45 41 52 20 49 54 20 42 | * CLEAR IT B|
000017C0: 45 46 4F 52 45 20 41 43 54 49 56 41 54 49 4E 47 |EFORE ACTIVATING|
000017D0: 20 20 2A 00 21 20 60 02 8F 20 2A 20 52 41 53 54 | *.! `.. * RAST|
000017E0: 45 52 20 26 20 43 4F 50 59 20 4C 4F 57 45 52 20 |ER & COPY LOWER |
000017F0: 43 41 53 45 20 20 20 20 2A 20 20 20 20 20 20 20 |CASE * |
00001800: 20 20 2A 20 43 48 41 52 41 43 54 45 52 20 53 45 | * CHARACTER SE|
00001810: 54 20 54 4F 20 49 54 20 20 20 20 20 20 20 20 20 |T TO IT |
00001820: 2A 00 55 20 62 02 E6 30 2C 31 35 2C 31 31 2C 32 |*.U b..0,15,11,2|
00001830: 2C 33 2C 34 2C 30 2C 30 2C 32 2C 30 2C 32 3A D1 |,3,4,0,0,2,0,2:.|
00001840: 3A CC 32 3A EA 33 32 37 36 38 3A D1 3A CC 30 3A |:.2:.32768:.:.0:|
00001850: EA 31 30 32 34 00 62 20 6C 02 D3 31 2C 33 34 38 |.1024.b l..1,348|
00001860: 31 36 00 B0 20 71 02 8F 20 2A 20 44 49 53 50 4C |16.. q.. * DISPL|
00001870: 41 59 20 53 50 4C 49 54 20 53 43 52 45 45 4E 20 |AY SPLIT SCREEN |
00001880: 26 20 53 48 4F 57 20 2A 20 20 20 20 20 20 20 20 |& SHOW * |
00001890: 20 2A 20 43 48 41 52 41 43 54 45 52 53 20 49 4E | * CHARACTERS IN|
000018A0: 20 42 4F 54 48 20 48 41 4C 56 45 53 20 20 20 2A | BOTH HALVES *|
000018B0: 00 BC 20 76 02 E8 31 32 3A 49 B2 2E 00 F2 20 80 |.. v..12:I.... .|
000018C0: 02 97 33 32 38 30 38 AA 49 2C 49 3A 97 31 35 34 |..32808.I,I:.154|
000018D0: 34 AA 49 2C 49 3A 49 B2 49 AA 31 3A A1 41 24 3A |4.I,I:I.I.1:.A$:|
000018E0: 8B 41 24 B3 B1 22 20 22 AF 49 B3 32 35 36 A7 36 |.A$.." ".I.256.6|
000018F0: 34 30 00 18 21 85 02 8F 20 2A 20 54 55 52 4E 20 |40..!... * TURN |
00001900: 4F 46 46 20 26 20 4E 4F 52 4D 41 4C 49 5A 45 20 |OFF & NORMALIZE |
00001910: 53 43 52 45 45 4E 20 2A 00 26 21 8A 02 E3 32 3A |SCREEN *.&!...2:|
00001920: E7 3A 8D 31 33 30 00 71 21 94 02 99 22 11 20 59 |.:.130.q!...". Y|
00001930: 4F 55 20 53 41 57 20 54 48 41 54 20 43 4F 52 52 |OU SAW THAT CORR|
00001940: 45 43 54 4C 59 3A 20 9E 54 57 4F 99 20 44 49 46 |ECTLY: .TWO. DIF|
00001950: 46 45 52 45 4E 54 20 20 20 43 48 41 52 41 43 54 |FERENT CHARACT|
00001960: 45 52 20 53 45 54 53 20 4F 4E 20 54 48 45 20 22 |ER SETS ON THE "|
00001970: 3B 00 B4 21 9E 02 99 22 9E 53 41 4D 45 99 20 53 |;..!...".SAME. S|
00001980: 43 52 45 45 4E 20 2D 20 20 20 20 20 57 49 54 48 |CREEN - WITH|
00001990: 20 9E 54 57 4F 99 20 53 43 52 45 45 4E 20 41 4E | .TWO. SCREEN AN|
000019A0: 44 20 42 4F 52 44 45 52 20 43 4F 4C 4F 52 53 21 |D BORDER COLORS!|
000019B0: 22 3A E3 33 00 E2 21 A8 02 99 22 11 20 57 45 4C |":.3..!...". WEL|
000019C0: 4C 2C 20 4E 4F 54 20 51 55 49 54 45 20 54 48 45 |L, NOT QUITE THE|
000019D0: 20 53 41 4D 45 20 53 43 52 45 45 4E 2E 20 54 48 | SAME SCREEN. TH|
000019E0: 45 22 00 10 22 B2 02 99 22 20 05 52 41 53 54 45 |E".."..." .RASTE|
000019F0: 52 99 20 43 4F 4D 4D 41 4E 44 53 20 41 4C 4C 4F |R. COMMANDS ALLO|
00001A00: 57 20 59 4F 55 20 54 4F 20 45 41 53 49 4C 59 22 |W YOU TO EASILY"|
00001A10: 00 5A 22 BC 02 99 22 20 55 53 45 20 9E 53 50 4C |.Z"..." USE .SPL|
00001A20: 49 54 20 53 43 52 45 45 4E 53 99 2C 20 57 49 54 |IT SCREENS., WIT|
00001A30: 48 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 20 20 |H INFORMATION |
00001A40: 20 20 54 41 4B 45 4E 20 46 52 4F 4D 20 54 57 4F | TAKEN FROM TWO|
00001A50: 20 53 4F 55 52 43 45 53 2E 22 00 8D 22 C6 02 E3 | SOURCES.".."...|
00001A60: 33 3A 99 22 11 20 52 45 4D 45 4D 42 45 52 20 59 |3:.". REMEMBER Y|
00001A70: 4F 55 52 20 48 49 2D 52 45 53 20 57 4F 52 4B 20 |OUR HI-RES WORK |
00001A80: 4F 46 20 41 52 54 3F 22 3A 8D 31 30 30 00 DB 22 |OF ART?":.100.."|
00001A90: CB 02 8F 20 2A 20 53 45 54 20 55 50 20 4E 45 57 |... * SET UP NEW|
00001AA0: 20 52 41 53 54 45 52 20 57 49 54 48 20 48 49 47 | RASTER WITH HIG|
00001AB0: 48 20 2A 20 20 20 20 20 20 20 20 20 2A 20 52 45 |H * * RE|
00001AC0: 53 4F 4C 55 54 49 4F 4E 20 54 4F 50 20 2D 20 4E |SOLUTION TOP - N|
00001AD0: 4F 54 45 20 4F 52 44 45 52 20 2A 00 0F 23 D0 02 |OTE ORDER *..#..|
00001AE0: E6 30 2C 31 35 2C 31 31 2C 32 2C 33 2C 34 2C 32 |.0,15,11,2,3,4,2|
00001AF0: 2C 30 2C 31 2C 37 2C 38 3A D1 3A D0 31 2C 31 33 |,0,1,7,8:.:.1,13|
00001B00: 2C 22 1F 4E 45 41 54 2C 20 48 55 48 3F 99 22 00 |,".NEAT, HUH?.".|
00001B10: 23 23 DA 02 E8 31 32 3A 8D 31 30 30 3A E7 3A 8D |##...12:.100:.:.|
00001B20: 31 33 30 00 50 23 E4 02 99 22 11 20 4C 45 41 56 |130.P#...". LEAV|
00001B30: 49 4E 47 20 54 48 45 20 52 45 41 4C 4D 20 4F 46 |ING THE REALM OF|
00001B40: 20 47 52 41 50 48 49 43 53 20 46 4F 52 20 41 22 | GRAPHICS FOR A"|
00001B50: 00 9A 23 EE 02 99 22 20 4D 4F 4D 45 4E 54 2C 20 |..#..." MOMENT, |
00001B60: 48 45 52 45 27 53 20 41 20 4C 45 53 53 20 44 52 |HERE'S A LESS DR|
00001B70: 41 4D 41 54 49 43 20 42 55 54 20 20 20 20 20 20 |AMATIC BUT |
00001B80: 45 51 55 41 4C 4C 59 20 55 53 45 46 55 4C 20 43 |EQUALLY USEFUL C|
00001B90: 4F 4D 4D 41 4E 44 2E 2E 2E 22 00 E8 23 F3 02 8F |OMMAND..."..#...|
00001BA0: 20 2A 20 57 41 49 54 20 46 4F 52 20 53 50 41 43 | * WAIT FOR SPAC|
00001BB0: 45 20 54 48 45 4E 20 53 48 4F 57 20 20 20 20 2A |E THEN SHOW *|
00001BC0: 20 20 20 20 20 20 20 20 20 2A 20 44 49 53 4B 20 | * DISK |
00001BD0: 44 49 52 45 43 54 4F 52 59 20 20 20 20 20 20 20 |DIRECTORY |
00001BE0: 20 20 20 20 20 20 20 2A 00 F8 23 F8 02 8D 31 30 | *..#...10|
00001BF0: 30 3A D2 37 2C 33 3A D8 00 1E 24 FD 02 8F 20 2A |0:.7,3:...$... *|
00001C00: 20 4D 4F 52 45 20 4D 45 53 53 41 47 45 20 57 49 | MORE MESSAGE WI|
00001C10: 4E 44 4F 57 53 2E 2E 2E 20 20 20 20 20 2A 00 65 |NDOWS... *.e|
00001C20: 24 02 03 EE 32 2C 36 2C 33 36 2C 35 2C 30 2C 31 |$...2,6,36,5,0,1|
00001C30: 3A 41 24 B2 22 4E 4F 54 45 20 54 48 45 20 46 41 |:A$."NOTE THE FA|
00001C40: 43 54 20 54 48 41 54 20 54 48 49 53 20 50 52 4F |CT THAT THIS PRO|
00001C50: 47 52 41 4D 20 49 53 53 54 49 4C 4C 20 52 55 4E |GRAM ISSTILL RUN|
00001C60: 4E 49 4E 47 22 00 AB 24 0C 03 41 24 B2 41 24 AA |NING"..$..A$.A$.|
00001C70: 22 20 51 55 49 54 45 20 4E 49 43 45 4C 59 20 41 |" QUITE NICELY A|
00001C80: 46 54 45 52 20 20 49 53 53 55 49 4E 47 20 41 20 |FTER ISSUING A |
00001C90: 05 44 49 52 45 43 54 4F 52 59 99 20 43 4F 4D 4D |.DIRECTORY. COMM|
00001CA0: 41 4E 44 21 22 3A D2 37 2C 31 33 00 E9 24 16 03 |AND!":.7,13..$..|
00001CB0: E1 41 24 3A 8D 31 30 30 3A D6 3A 41 24 B2 22 4E |.A$:.100:.:A$."N|
00001CC0: 4F 57 20 4C 45 54 27 53 20 43 4C 45 41 4E 20 55 |OW LET'S CLEAN U|
00001CD0: 50 20 49 4E 20 41 4E 20 55 4E 55 53 55 41 4C 57 |P IN AN UNUSUALW|
00001CE0: 41 59 20 57 49 54 48 20 22 00 23 25 20 03 41 24 |AY WITH ".#% .A$|
00001CF0: B2 41 24 AA 22 54 48 45 20 4C 43 4C 45 41 52 20 |.A$."THE LCLEAR |
00001D00: 43 4F 4D 4D 41 4E 44 2E 2E 2E 22 3A EE 33 2C 31 |COMMAND...":.3,1|
00001D10: 31 2C 33 34 2C 34 2C 30 2C 31 3A E1 41 24 3A 8D |1,34,4,0,1:.A$:.|
00001D20: 31 30 30 00 32 25 2A 03 D6 3A D2 37 2C 31 33 3A |100.2%*..:.7,13:|
00001D30: EC 30 00 80 25 2F 03 8F 20 2A 20 55 53 45 20 4C |.0..%/.. * USE L|
00001D40: 43 4C 45 41 52 20 54 4F 20 45 52 41 53 45 20 4C |CLEAR TO ERASE L|
00001D50: 49 4E 45 53 20 20 20 2A 20 20 20 20 20 20 20 20 |INES * |
00001D60: 20 2A 20 49 4E 20 41 20 53 50 45 43 49 46 49 43 | * IN A SPECIFIC|
00001D70: 20 4F 52 44 45 52 20 20 20 20 20 20 20 20 20 2A | ORDER *|
00001D80: 00 A4 25 34 03 81 49 B2 2E A4 31 32 3A DD 31 32 |..%4..I...12:.12|
00001D90: AB 49 2C 31 32 AA 49 3A 81 4A B2 31 A4 32 35 3A |.I,12.I:.J.1.25:|
00001DA0: 82 4A 2C 49 00 D4 25 3E 03 DB 3A 99 22 11 20 4C |.J,I..%>..:.". L|
00001DB0: 45 54 27 53 20 42 52 49 4E 47 20 49 54 20 42 41 |ET'S BRING IT BA|
00001DC0: 43 4B 20 46 4F 52 20 4D 4F 52 45 20 53 50 45 43 |CK FOR MORE SPEC|
00001DD0: 49 41 4C 22 00 05 26 48 03 99 22 20 45 46 46 45 |IAL"..&H.." EFFE|
00001DE0: 43 54 53 2C 20 55 53 49 4E 47 20 05 44 49 43 45 |CTS, USING .DICE|
00001DF0: 99 20 41 4E 44 20 05 46 43 4F 4C 99 2E 2E 2E 22 |. AND .FCOL...."|
00001E00: 3A 8D 31 30 30 00 53 26 4D 03 8F 20 2A 20 52 45 |:.100.S&M.. * RE|
00001E10: 43 41 4C 4C 20 53 43 52 45 45 4E 2C 20 54 48 45 |CALL SCREEN, THE|
00001E20: 4E 20 46 49 4C 4C 20 49 54 20 2A 20 20 20 20 20 |N FILL IT * |
00001E30: 20 20 20 20 2A 20 57 49 54 48 20 52 41 4E 44 4F | * WITH RANDO|
00001E40: 4D 20 43 4F 4C 4F 52 53 20 20 20 20 20 20 20 20 |M COLORS |
00001E50: 20 20 2A 00 5A 26 52 03 E9 30 00 7C 26 5C 03 D7 | *.Z&R..0.|&\..|
00001E60: 31 36 2C 44 25 3A D9 44 25 AB 31 3A A1 41 24 3A |16,D%:.D%.1:.A$:|
00001E70: 8B 41 24 B3 B1 22 20 22 A7 38 36 30 00 AB 26 66 |.A$.." ".860..&f|
00001E80: 03 D1 3A 99 22 11 20 54 48 45 52 45 20 41 52 45 |..:.". THERE ARE|
00001E90: 20 45 56 45 4E 20 4D 4F 52 45 20 4E 45 57 20 43 | EVEN MORE NEW C|
00001EA0: 4F 4D 4D 41 4E 44 53 20 41 54 22 00 EE 26 70 03 |OMMANDS AT"..&p.|
00001EB0: 99 22 20 59 4F 55 52 20 44 49 53 50 4F 53 41 4C |." YOUR DISPOSAL|
00001EC0: 20 57 48 49 43 48 20 43 41 4E 27 54 20 42 45 20 | WHICH CAN'T BE |
00001ED0: 56 49 53 49 42 4C 59 20 20 20 20 44 45 4D 4F 4E |VISIBLY DEMON|
00001EE0: 53 54 52 41 54 45 44 20 48 45 52 45 2E 22 00 1E |STRATED HERE."..|
00001EF0: 27 7A 03 99 22 11 20 54 48 45 20 42 45 53 54 20 |'z..". THE BEST |
00001F00: 57 41 59 20 54 4F 20 4C 45 41 52 4E 20 41 42 4F |WAY TO LEARN ABO|
00001F10: 55 54 20 54 48 45 4D 20 49 53 20 54 4F 22 00 53 |UT THEM IS TO".S|
00001F20: 27 84 03 99 22 20 54 52 59 20 54 48 45 4D 20 4F |'..." TRY THEM O|
00001F30: 55 54 20 59 4F 55 52 53 45 4C 46 2E 22 3A 8D 31 |UT YOURSELF.":.1|
00001F40: 30 30 3A D1 3A D2 30 2C 30 3A D2 31 2C 30 3A D2 |00:.:.0,0:.1,0:.|
00001F50: 37 2C 31 00 62 27 89 03 41 24 B2 22 11 20 20 42 |7,1.b'..A$.". B|
00001F60: 2B 22 00 98 27 8E 03 81 49 B2 2E A4 37 3A EE 31 |+"..'...I...7:.1|
00001F70: 36 2C 49 2C 38 2C 35 2C 30 2C 49 AA 31 3A E1 41 |6,I,8,5,0,I.1:.A|
00001F80: 24 3A EE 31 36 2C 32 30 AB 49 2C 38 2C 35 2C 30 |$:.16,20.I,8,5,0|
00001F90: 2C 49 AA 31 3A E1 41 24 00 C8 27 98 03 82 3A 41 |,I.1:.A$..'...:A|
00001FA0: 24 B2 22 20 42 2B 3A 20 41 44 56 41 4E 43 45 44 |$." B+: ADVANCED|
00001FB0: 20 42 41 53 49 43 20 22 3A EE 39 2C 31 30 2C 32 | BASIC ":.9,10,2|
00001FC0: 32 2C 35 2C 30 2C 31 35 00 03 28 A2 03 41 24 B2 |2,5,0,15..(..A$.|
00001FD0: 41 24 AA 22 20 20 20 20 20 20 20 20 20 99 42 59 |A$." .BY|
00001FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4A 2E 20 | J. |
00001FF0: 4D 41 54 54 53 4F 4E 22 3A E1 41 24 3A 8D 31 30 |MATTSON":.A$:.10|
00002000: 30 3A D6 00 30 28 AC 03 EE 38 2C 31 31 2C 32 34 |0:..0(...8,11,24|
00002010: 2C 33 2C 30 2C 31 3A E1 22 51 29 55 49 54 20 4F |,3,0,1:."Q)UIT O|
00002020: 52 20 57 29 41 54 43 48 20 41 47 41 49 4E 3F 22 |R W)ATCH AGAIN?"|
00002030: 00 4D 28 B6 03 A1 41 24 3A 8B 41 24 B3 B1 22 51 |.M(...A$:.A$.."Q|
00002040: 22 AF 41 24 B3 B1 22 57 22 A7 39 35 30 00 73 28 |".A$.."W".950.s(|
00002050: C0 03 81 49 B2 2E A4 31 36 3A D6 3A 81 4A B2 31 |...I...16:.:.J.1|
00002060: A4 35 3A 82 4A 2C 49 3A 8B 41 24 B2 22 57 22 A7 |.5:.J,I:.A$."W".|
00002070: 31 34 30 00 C1 28 CA 03 8F 20 2A 20 44 45 41 43 |140..(... * DEAC|
00002080: 54 49 56 41 54 45 20 42 2B 20 26 20 43 4C 45 41 |TIVATE B+ & CLEA|
00002090: 4E 20 55 50 20 20 20 20 2A 20 20 20 20 20 20 20 |N UP * |
000020A0: 20 20 2A 20 4E 4F 52 4D 41 4C 4C 59 20 54 48 45 | * NORMALLY THE|
000020B0: 20 27 51 55 49 54 27 20 43 4F 4D 4D 41 4E 44 20 | 'QUIT' COMMAND |
000020C0: 2A 00 0F 29 D4 03 8F 20 2A 20 57 4F 55 4C 44 20 |*..)... * WOULD |
000020D0: 44 4F 20 41 4C 4C 20 4F 46 20 54 48 49 53 2C 20 |DO ALL OF THIS, |
000020E0: 42 59 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 |BY * |
000020F0: 2A 20 52 45 53 45 54 54 49 4E 47 20 54 48 45 20 |* RESETTING THE |
00002100: 43 4F 4D 50 55 54 45 52 20 20 20 20 20 20 2A 00 |COMPUTER *.|
00002110: 1A 29 E8 03 9E 32 32 35 39 32 00 50 29 F2 03 97 |.)...22592.P)...|
00002120: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,|
00002130: 36 3A 99 C7 28 31 34 32 29 22 9A 93 22 3B 3A 97 |6:..(142)"..";:.|
00002140: 35 32 2C 31 36 30 3A 97 35 36 2C 31 36 30 3A 9C |52,160:.56,160:.|
00002150: 00 56 29 F4 03 8F 00 7B 29 F7 03 8F 20 2A 2A 52 |.V)....{)... **R|
00002160: 45 54 55 52 4E 20 54 4F 20 4C 4F 41 44 53 54 41 |ETURN TO LOADSTA|
00002170: 52 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 29 FA 03 |R**********..)..|
00002180: 8F 00 AE 29 FC 03 9F 31 35 2C 38 2C 31 35 2C 22 |...)...15,8,15,"|
00002190: 52 30 3A 42 2B 20 4D 45 4E 55 3D 42 2B 20 4D 45 |R0:B+ MENU=B+ ME|
000021A0: 4E 55 22 3A 84 31 35 2C 45 52 3A A0 31 35 00 BE |NU":.15,ER:.15..|
000021B0: 29 06 04 8B 45 52 B2 36 33 A7 31 30 37 30 00 C9 |)...ER.63.1070..|
000021C0: 29 10 04 99 22 93 22 3A 80 00 E1 29 1A 04 A1 41 |)...".":...)...A|
000021D0: 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 30 35 |$:.A$...(13).105|
000021E0: 30 00 EB 29 24 04 89 31 30 32 30 00 20 2A 2E 04 |0..)$..1020. *..|
000021F0: 99 22 93 11 1D 52 45 54 55 52 4E 49 4E 47 20 54 |."...RETURNING T|
00002200: 4F 20 42 2B 20 4D 45 4E 55 2E 2E 2E 20 22 3A 99 |O B+ MENU... ":.|
00002210: 22 11 11 11 1F 4C 4F 41 44 22 C7 28 33 34 29 3B |"....LOAD".(34);|
00002220: 00 53 2A 38 04 99 22 42 2B 20 4D 45 4E 55 22 C7 |.S*8.."B+ MENU".|
00002230: 28 33 34 29 22 2C 38 22 3A 99 22 11 11 11 11 52 |(34)",8":."....R|
00002240: 55 4E 91 91 91 91 91 91 91 91 22 3A 97 36 33 31 |UN........":.631|
00002250: 2C 31 33 00 70 2A 42 04 97 36 33 32 2C 31 33 3A |,13.p*B..632,13:|
00002260: 97 36 33 33 2C 31 33 3A 97 31 39 38 2C 33 3A A2 |.633,13:.198,3:.|
00002270: 00 00 00 |... |
..Q.... ********************************
* *
*...... * B+ DEMO PROGRAM BY J. MATTSON
* * - 05/20/89 -
*...... * THIS PROGRAM HAS BEEN CREATED
* * TO HELP YOU ABSORB THE MANY
*.A.... * NEW COMMANDS. STUDY THE REMS
* * & PROGRAMMING TECHNIQUES AND
*...... * YOU WILL BE WELL ON YOUR WAY
* * MASTERING B+!
*...... *
* ********************************
*............ * LOAD B+ AND SET THINGS
UP *.&....A...A.1:."B+",8,1.M.... *PR
OTECT HI-RES AREA FROM BASIC*.J....52,88
:.56,88:.:.G(142);...... * SPRITE POINTE
R FOR LATER USE *.C....I...63:.22528.I,.
:.:.I...5:.J:.22528.I.3,J:....(.. 240,22
4,176,24,12,4.,.*.. * QUICK ML ROUTINE A
LLOWS SAFE * * RETURN TO LOADSTAR
- 'QUIT' *.{.-.. * RESETS COMPUTER, SO
SHOULD * * NOT BE USED WITH 'C
HAINED' *...0.. * PROGRAMS (LIKE LOADS
TAR) *...2..I.22592.22633:.J:.I,J:.:
.120,160,0,162,0,185,94,88,153,4,3.(.<..
200,192,6,144,245,185,94,88,157,20,3,200
,232,224,6,144,244,88,96.Y.F..124,165,26
,167,228,167,49,234,102,254,1,254...K..
* SET UP X & Y EQUIVALENTS FOR *
* JOY COMMAND DIRECTIONS, THEN *...N.. *
JUMP TO MAIN PROGRAM TO SKIP * *
VARIOUS SUBROUTINES *...P..I..
.8:.X(I),Y(I):.:.140.D.Z.. 0,0,0,-1,1,-1
,1,0,1,1,0,1,-1,1,-1,0,-1,-1..._.. * FRE
QUENTLY USED SUBROUTINES * * FIR
ST, WAIT FOR SPACE BAR *...D..198,.:
. CLEAR KEYBOARD.E.N..A$:.A$.." ".110.K.
X.....}.. * NORMALIZE SCREEN VALUES
*.....L0:.1024:U4096:.0:R0,15:R1,11:R7,1
3:Q:..C.... * ACTIVATE B+ AND GET ROLLIN
G *.N....49152...... * PAUSE TO SHOW TIT
LE SCREEN * * THEN SET UP FIRST
WINDOW - *.V....1:.2,6,27,7,0,1:R7,13:
A$."THIS OPENING SCREEN TELLS".$.... * N
OTE THAT STRING VARIABLES * * C
AN BE ADDED TOGETHER WHEN *.R.... * THE
DESIRED STRING IS TOO * * LON
G FOR A BASIC LINE *... .A$.A$."YO
U THAT B+ IS INSTALLED.OF COURSE, YOU'LL
WANT TO".....A$.A$."CLEAR IT AFTERWARDS
WITH THE .CLS. COMMAND.".7.... * COLOR
CODES MAY BE EMBEDDED * * TO CHA
NGE THE COLOR OF TEXT *...... * - BE CAR
EFUL TO FORMAT THE * * STRING T
O FIT THE WINDOW - *.S.... * COUNTING C
OLOR CHARACTERS! * * NOW OPEN T
HE WINDOW... *......A$.).... * PAUS
E AND REPEAT PROCEDURE * * FOR
THE NEXT WINDOW *.L....2:A$."^ T
HIS IS AN EXAMPLE OFTHE WINDOW COMMANDS,
BYTHE WAY."...H..13,12,25,5,0,1:.A$.R.M
.. * NOW A 'PRESS SPACE' MESSAGE *
* WITH A 'DOT' BORDER... *...R..
2:R7,10:.11,16,18,3,81,2:." > PRESS SPAC
E <":I...V.W.. * ...AND JAZZ IT UP WITH
THE * * PAINT COMMAND
*.}....A$:.A$.." ".I.(I.1).15:.81,I
:.220.K.... * CLOSE UP THE WINDOWS SLOWL
Y * * TO MAKE EFFECT OBVIOUS
*......I.1.3:V:.J.1.200:.J,I:R7,13:.16
,11,8,3,0,1......"WHEEE!":.I.1.400:.:V:.
1.?.... *CLEAR SCREEN & EXPLAIN STUFF *.
O...Q:.". DURING THIS DEMO YOU CAN MOVE
TO THE"......" NEXT SCREEN BY PRESSING .
SPACE..":.1.K....". THE FLASHING BORDER
ON THE LAST SCREEN"......" WAS CREATED W
ITH THE .PAINT. COMMAND, BY THE WAY.":.
1.Q."..". NOTE THE WAY THE SCREEN WAS RE
STORED BEHIND THE WINDOWS.":.1...,.."
. SIMILARLY, WHOLE SCREENS CAN BE .STORE
.D AND .RECALL.ED.":.100...1.. * SAVE S
CREEN IN BUFFER ZERO * * AND TH
EN CLEAR IT *...6..0:Q:.". LET
'S DEMONSTRATE...":.100.5.;.. * RESTORE
SCREEN... *.A.@..0:.100.G.E..
* ...AND OPEN MESSAGE WINDOW *...J.R7,1
0:.4,6,32,3,0,1:."NOW FOR SOMETHING DIFF
ERENT..."...T..100:V:R7,13.X.Y.. * THE S
PRITE COMMANDS *...^.Q:.". FIRST
, WE'LL ACTIVATE A SPRITE AND".H.H.." PO
SITION IT WITH .SPRITE. AND .MOVSPR.,
RESPECTIVELY.".I.R..0,170,136:.0,1,1,0
,0,0,0:.2...W.. * LINK JOYSTICK 2 TO SPR
ITE 0 * * WITH A SPEED OF 3
*...|..2,0,3:.". TRY MOVING THE PO
RT TWO JOYSTICK...":.2......". THE JOYST
ICK AND THE SPRITE ARE NOW".G...." .LINK
.ED - AND WILL CONTINUE TO BE, EVEN WHI
LE THIS DEMO IS GOING!"......100:Q:.". L
ET'S MAKE USE OF THIS WITH SOME NEW".I..
.." COMMANDS. WE'LL MAKE A HI-RES SCREEN
"......" WITH .BANK., .CSET., .MODE. & .
SCREEN., ERASE"./...." IT WITH .WIPE. AN
D THEN DRAW ON IT WITH".{.B.." .PLOT. AN
D .JOY.. PRESS .FIRE. TO DRAW A DOT OR
ERASE A DRAWN DOT.".F.L..". YOU'LL PROBA
BLY WANT TO STUDY THE DEMO PROGRAM TO S
EE HOW THIS ";...V.."WAS DONE. NOTE THA
T THE ROUTINE WILL WORK MUCH FASTER".9.X
.." WITH THE MANY .REM. STATEMENTS REMOV
ED.":.100...... * SWITCH BANK TO 16384-3
2767 * * AND VIDEO MATRIX TO 23
552, *...... * WITH HI-RES SCREEN AT 24
576 *.B...L1:.23552:U24576...... * SWITC
H ON HI-RES AND CLEAN * * UP BO
TH IT & VIDEO MATRIX *......3:.:Q.I...
. * CHANGE SPRITE TO THE POINTER*
* WE SET UP EARLIER; SHUT OFF *......
* LINK & USE JOY INSTEAD *. ....245
68,96:.0.F.... * SET UP INITIAL COORDINA
TES *.....X.170:Y.80:.0,X,Y.*.... * MAI
N DRAWING LOOP, USING X * * AND
Y ARRAY SET UP EARLIER. *.X.... * FIRST
, CHECK KEYBOARD FOR * * SPACE
(= QUIT DRAWING) *......A$:.A$." "
.590.Z.... * GET JOY VALUE IN J% - IF 0
* * THEN NOTHING HAS HAPPENED
*......2,J%:.J%.0.520.<.... * J%>0, SO
MASK IT WITH 127 * * TO FIND D
IRECTION WITHOUT *...... * FIRE BUTTON
; USE X/Y ARRAY * * TO ADD NEW
MOVE & MAKE SURE *...... * IT IS STILL O
N THE SCREEN *.....J.J%.127:X1.X.X(J):
Y1.Y.Y(J):.X1.24.X1.342.X1.X...&..Y1.0.Y
1.249.Y1.Y.H.+.. * VALUES ARE OK, SO UPD
ATE X * * & Y COORDINATES
*.].0.X.X1:Y.Y1:.0,X,Y...2.. * FI
RE BUTTON PRESSED? IF SO, * * RE
SET THE POINT. NOTE THAT *...4.. * SPRI
TE & HI-RES COORDINATES * * ARE
NOT THE SAME, SO AN *.G.6.. * ADJUST
MENT MUST BE MADE! * * ALSO,
REMEMBER TO PUT COLON *...8.. * BETWEEN
'THEN' AND A NEW B+ * * COMMAND.
*...:..J%.8.:.2,X.24
,Y.50.S.?.. * AND RESTART LOOP...
*...D..520.*.I.. * SPACE WAS PRESSED,
SO EXIT * * LOOP & NORMALIZE SC
REEN *.P.N..130:.0,0:.". WHAT AN ART
IST!":.1...X..". NOW WATCH THE NEXT SCRE
EN CAREFULLY...":.100.S.].. * SET UP TOP
OF SPLIT SCREEN: * * CLEAR IT B
EFORE ACTIVATING *.! `.. * RASTER & COP
Y LOWER CASE * * CHARACTER SE
T TO IT *.U B..0,15,11,2,3,4,0,0
,2,0,2:Q:L2:.32768:Q:L0:.1024.B L.S1,348
16.. Q.. * DISPLAY SPLIT SCREEN & SHOW *
* CHARACTERS IN BOTH HALVES *
.. V..12:I.... ...32808.I,I:.1544.I,I:I.
I.1:.A$:.A$.." ".I.256.640..!... * TURN
OFF & NORMALIZE SCREEN *.&!...2:.:.130.Q
!...". YOU SAW THAT CORRECTLY: .TWO. DIF
FERENT CHARACTER SETS ON THE ";..!..."
.SAME. SCREEN - WITH .TWO. SCREEN AN
D BORDER COLORS!":.3..!...". WELL, NOT Q
UITE THE SAME SCREEN. THE".."..." .RASTE
R. COMMANDS ALLOW YOU TO EASILY".Z"..."
USE .SPLIT SCREENS., WITH INFORMATION
TAKEN FROM TWO SOURCES.".."F..3:.". RE
MEMBER YOUR HI-RES WORK OF ART?":.100.."
K.. * SET UP NEW RASTER WITH HIGH *
* RESOLUTION TOP - NOTE ORDER *..#P.
.0,15,11,2,3,4,2,0,1,7,8:Q:P1,13,".NEAT,
HUH?.".##Z..12:.100:.:.130.P#...". LEAV
ING THE REALM OF GRAPHICS FOR A"..#..."
MOMENT, HERE'S A LESS DRAMATIC BUT
EQUALLY USEFUL COMMAND..."..#... * WAIT
FOR SPACE THEN SHOW * * DISK
DIRECTORY *..#...100:R7,3:X
..$... * MORE MESSAGE WINDOWS... *.E
$...2,6,36,5,0,1:A$."NOTE THE FACT THAT
THIS PROGRAM ISSTILL RUNNING"..$..A$.A$.
" QUITE NICELY AFTER ISSUING A .DIRECTO
RY. COMMAND!":R7,13..$...A$:.100:V:A$."N
OW LET'S CLEAN UP IN AN UNUSUALWAY WITH
".#% .A$.A$."THE LCLEAR COMMAND...":.3,1
1,34,4,0,1:.A$:.100.2%*.V:R7,13:.0..%/..
* USE LCLEAR TO ERASE LINES *
* IN A SPECIFIC ORDER *..%4..I.
..12:.12.I,12.I:.J.1.25:.J,I.T%>..:.". L
ET'S BRING IT BACK FOR MORE SPECIAL"..&H
.." EFFECTS, USING .DICE. AND .FCOL...."
:.100.S&M.. * RECALL SCREEN, THEN FILL I
T * * WITH RANDOM COLORS
*.Z&R..0.|&\.W16,D%:YD%.1:.A$:.A$.." "
.860..&F.Q:.". THERE ARE EVEN MORE NEW C
OMMANDS AT"..&P.." YOUR DISPOSAL WHICH C
AN'T BE VISIBLY DEMONSTRATED HERE."..
'Z..". THE BEST WAY TO LEARN ABOUT THEM
IS TO".S'..." TRY THEM OUT YOURSELF.":.1
00:Q:R0,0:R1,0:R7,1.B'..A$.". B+"..'...
I...7:.16,I,8,5,0,I.1:.A$:.16,20.I,8,5,0
,I.1:.A$.H'...:A$." B+: ADVANCED BASIC "
:.9,10,22,5,0,15..(..A$.A$." .BY
J. MATTSON":.A$:.100:V.0(..
.8,11,24,3,0,1:."Q)UIT OR W)ATCH AGAIN?"
.M(...A$:.A$.."Q".A$.."W".950.S(...I...1
6:V:.J.1.5:.J,I:.A$."W".140.A(J.. * DEAC
TIVATE B+ & CLEAN UP * * NORM
ALLY THE 'QUIT' COMMAND *..)T.. * WOULD
DO ALL OF THIS, BY * * RESETT
ING THE COMPUTER *..)...22592.P)...
53280,14:.53281,6:.G(142)"..";:.52,160:.
56,160:..V)....{)... **RETURN TO LOADSTA
R**********..).....)...15,8,15,"R0:B+ ME
NU=B+ MENU":.15,ER: 15..)...ER.63.1070.I
)...".":...)...A$:.A$..G(13).1050..)$..1
020. *..."...RETURNING TO B+ MENU... ":.
"....LOAD"G(34);.S*8.."B+ MENU"G(34)",8"
:."....RUN........":.631,13.P*B..632,13:
.633,13:.198,3:....
> CLICK IMAGE PREVIEW FOR FULL MODAL