SUPABASIC DEMO
FILE INFORMATION
FILENAME(S): SUPABASIC DEMO
FILE TYPE(S): PRG
FILE SIZE: 24.1K
FIRST SEEN: 2025-11-30 21:24:17
APPEARS ON: 1 disk(s)
FILE HASH
79ae6eb57dc051fc8e02ae2113bc3ee43b686b879471465cbab60533b599fed9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRAPHICSBASIC V1 | SUPABASIC DEMO | PRG | DuncanTwain | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 05 00 8B 41 B3 B1 33 A7 41 B2 33 3A |.......A..3.A.3:|
00000010: 93 22 53 50 2E 44 41 54 41 22 2C 38 2C 31 00 38 |."SP.DATA",8,1.8|
00000020: 08 0A 00 56 44 55 31 34 37 3A 49 4E 4B 31 3A 43 |...VDU147:INK1:C|
00000030: 4F 4C 4F 55 52 30 2C 30 00 5F 08 14 00 99 22 11 |OLOUR0,0._....".|
00000040: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 57 45 4C 43 4F 4D |..........WELCOM|
00000050: 45 20 54 4F 20 53 55 50 41 42 41 53 49 43 22 00 |E TO SUPABASIC".|
00000060: 85 08 1E 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |....."..........|
00000070: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000080: C4 C4 C4 C4 22 00 B4 08 28 00 99 22 11 11 1D 1D |...."...(.."....|
00000090: 1D 81 43 4F 50 59 52 49 47 48 54 20 31 39 38 34 |..COPYRIGHT 1984|
000000A0: 20 49 4E 54 45 52 43 45 50 54 4F 52 20 4D 49 43 | INTERCEPTOR MIC|
000000B0: 52 4F 53 22 00 E0 08 32 00 99 22 1D 1D 1D C4 C4 |ROS"...2..".....|
000000C0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000000D0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 |..............."|
000000E0: 00 0D 09 3C 00 99 22 11 11 11 11 9F 1D 1D 1D 1D |...<..".........|
000000F0: 1D 1D 1D 57 52 49 54 54 45 4E 20 42 59 20 52 49 |...WRITTEN BY RI|
00000100: 43 48 41 52 44 20 44 41 57 53 4F 4E 22 00 35 09 |CHARD DAWSON".5.|
00000110: 46 00 99 22 1D 1D 1D 1D 1D 1D 1D C4 C4 C4 C4 C4 |F.."............|
00000120: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000130: C4 C4 C4 C4 22 00 63 09 50 00 99 22 05 11 11 11 |....".c.P.."....|
00000140: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 52 45 53 |............PRES|
00000150: 53 20 41 4E 59 20 4B 45 59 20 46 4F 52 20 4D 45 |S ANY KEY FOR ME|
00000160: 4E 55 22 00 75 09 5A 00 A1 41 24 3A 8B 41 24 B2 |NU".u.Z..A$:.A$.|
00000170: 22 22 A7 39 30 00 80 09 64 00 56 44 55 31 34 37 |"".90...d.VDU147|
00000180: 00 AD 09 6E 00 99 22 11 1D 1D 1D 1D 1D 53 55 50 |...n.."......SUP|
00000190: 41 42 41 53 49 43 20 44 45 4D 4F 4E 53 54 52 41 |ABASIC DEMONSTRA|
000001A0: 54 49 4F 4E 20 50 52 4F 47 52 41 4D 22 00 B3 09 |TION PROGRAM"...|
000001B0: 73 00 9C 00 DF 09 78 00 99 22 1D 1D 1D 1D 1D C4 |s.....x.."......|
000001C0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000001D0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 |..............".|
000001E0: F2 09 82 00 99 22 11 9C 1D 1D 43 48 4F 4F 53 45 |....."....CHOOSE|
000001F0: 3A 22 00 F8 09 8C 00 99 00 20 0A A0 00 99 22 9E |:"....... ....".|
00000200: 20 20 20 20 20 20 20 31 2E 20 20 20 20 20 50 52 | 1. PR|
00000210: 4F 47 52 41 4D 4D 49 4E 47 20 41 49 44 53 2E 22 |OGRAMMING AIDS."|
00000220: 00 40 0A AA 00 99 22 11 9F 20 20 20 20 20 20 20 |.@....".. |
00000230: 32 2E 20 20 20 20 20 53 50 52 49 54 45 53 2E 22 |2. SPRITES."|
00000240: 00 72 0A B4 00 99 22 11 1E 20 20 20 20 20 20 20 |.r....".. |
00000250: 33 2E 20 20 20 20 20 4E 55 4D 45 52 49 43 20 26 |3. NUMERIC &|
00000260: 20 53 54 52 49 4E 47 20 46 55 4E 43 54 49 4F 4E | STRING FUNCTION|
00000270: 53 22 00 9D 0A BE 00 99 22 81 20 20 20 20 20 20 |S"......". |
00000280: 20 34 2E 20 20 20 20 20 53 43 52 45 45 4E 20 4D | 4. SCREEN M|
00000290: 41 4E 49 50 55 4C 41 54 49 4F 4E 2E 22 00 C3 0A |ANIPULATION."...|
000002A0: C8 00 99 22 11 9E 20 20 20 20 20 20 20 35 2E 20 |...".. 5. |
000002B0: 20 20 20 20 53 4F 55 4E 44 20 26 20 4D 55 53 49 | SOUND & MUSI|
000002C0: 43 2E 22 00 DF 0A D2 00 99 22 11 9F 20 20 20 20 |C."......".. |
000002D0: 20 20 20 36 2E 20 20 20 20 20 49 2F 4F 2E 22 00 | 6. I/O.".|
000002E0: 00 0B DC 00 99 22 11 1E 20 20 20 20 20 20 20 37 |.....".. 7|
000002F0: 2E 20 20 20 20 20 47 52 41 50 48 49 43 53 2E 22 |. GRAPHICS."|
00000300: 00 27 0B E6 00 99 22 11 81 20 20 20 20 20 20 20 |.'....".. |
00000310: 38 2E 20 20 20 20 20 4D 45 4D 4F 52 59 20 43 4F |8. MEMORY CO|
00000320: 4E 54 52 4F 4C 2E 22 00 4F 0B F0 00 99 22 11 9E |NTROL.".O...."..|
00000330: 20 20 20 20 20 20 20 39 2E 20 20 20 20 20 52 45 | 9. RE|
00000340: 54 55 52 4E 20 54 4F 20 42 41 53 49 43 2E 22 00 |TURN TO BASIC.".|
00000350: 63 0B FA 00 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 |c....A$:.A$.."".|
00000360: 32 35 30 00 76 0B 04 01 A1 41 24 3A 8B 41 24 B2 |250.v....A$:.A$.|
00000370: 22 22 A7 32 36 30 00 8D 0B 0E 01 8B 41 24 B3 22 |"".260......A$."|
00000380: 31 22 B0 41 24 B1 22 39 22 A7 32 37 30 00 9B 0B |1".A$."9".270...|
00000390: 13 01 8B 41 24 B2 22 39 22 A7 80 00 AE 0B 18 01 |...A$."9".......|
000003A0: 4A 55 4D 50 C5 28 41 24 29 AC 32 30 30 30 00 BC |JUMP.(A$).2000..|
000003B0: 0B D0 07 43 4F 4C 4F 55 52 30 2C 30 00 CB 0B DA |...COLOUR0,0....|
000003C0: 07 45 52 52 B0 3A 89 32 37 34 30 00 D5 0B E4 07 |.ERR.:.2740.....|
000003D0: 8D 33 31 30 30 00 04 0C EE 07 99 22 9F 93 11 1D |.3100......"....|
000003E0: 54 48 45 20 27 4F 4C 44 27 20 49 4E 53 54 52 55 |THE 'OLD' INSTRU|
000003F0: 43 54 49 4F 4E 20 57 49 4C 4C 20 52 45 54 52 49 |CTION WILL RETRI|
00000400: 45 56 45 22 00 2D 0C F8 07 99 22 11 41 20 50 52 |EVE".-....".A PR|
00000410: 4F 47 52 41 4D 20 54 48 41 54 20 48 41 53 20 42 |OGRAM THAT HAS B|
00000420: 45 45 4E 20 27 4E 45 57 45 44 27 2E 22 00 50 0C |EEN 'NEWED'.".P.|
00000430: 02 08 99 22 11 11 48 45 52 45 20 49 53 20 41 20 |..."..HERE IS A |
00000440: 53 41 4D 50 4C 45 20 50 52 4F 47 52 41 4D 2E 22 |SAMPLE PROGRAM."|
00000450: 00 5F 0C 0C 08 99 22 11 22 3A 8D 33 32 35 30 00 |._....".":.3250.|
00000460: 90 0C 16 08 99 22 11 11 9E 1D 1D 49 46 20 54 48 |.....".....IF TH|
00000470: 49 53 20 50 52 4F 47 52 41 4D 20 57 41 53 20 27 |IS PROGRAM WAS '|
00000480: 4E 45 57 45 44 27 20 41 4E 44 20 54 48 45 4E 22 |NEWED' AND THEN"|
00000490: 00 C1 0C 20 08 99 22 59 4F 55 20 52 45 41 4C 49 |... .."YOU REALI|
000004A0: 53 45 20 59 4F 55 20 48 41 44 4E 27 54 20 53 41 |SE YOU HADN'T SA|
000004B0: 56 45 44 20 49 54 2C 54 48 45 4E 20 54 48 45 22 |VED IT,THEN THE"|
000004C0: 3B 00 F0 0C 2A 08 99 22 27 4F 4C 44 27 20 43 4F |;...*.."'OLD' CO|
000004D0: 4D 4D 41 4E 44 20 57 49 4C 4C 20 52 45 54 52 49 |MMAND WILL RETRI|
000004E0: 45 56 45 20 54 48 45 20 50 52 4F 47 52 41 4D 22 |EVE THE PROGRAM"|
000004F0: 00 FF 0C 34 08 99 22 49 4E 54 41 43 54 2E 22 00 |...4.."INTACT.".|
00000500: 17 0D 3E 08 99 22 11 11 05 50 52 45 53 53 20 41 |..>.."...PRESS A|
00000510: 4E 59 20 4B 45 59 22 00 2B 0D 48 08 A1 41 24 3A |NY KEY".+.H..A$:|
00000520: 8B 41 24 B2 22 22 A7 32 31 32 30 00 5D 0D 52 08 |.A$."".2120.].R.|
00000530: 99 22 93 11 9E 1D 54 48 45 20 27 52 45 4E 55 4D |."....THE 'RENUM|
00000540: 42 45 52 27 20 43 4F 4D 4D 41 4E 44 20 57 49 4C |BER' COMMAND WIL|
00000550: 4C 20 4E 55 4D 42 45 52 20 54 48 45 22 00 8A 0D |L NUMBER THE"...|
00000560: 5C 08 99 22 11 4C 49 4E 45 20 4E 55 4D 42 45 52 |\..".LINE NUMBER|
00000570: 53 20 4F 46 20 59 4F 55 52 20 50 52 4F 47 52 41 |S OF YOUR PROGRA|
00000580: 4D 20 49 4E 20 4E 45 41 54 22 00 99 0D 66 08 99 |M IN NEAT"...f..|
00000590: 22 11 53 54 45 50 53 2E 22 00 BA 0D 70 08 99 22 |".STEPS."...p.."|
000005A0: 11 46 4F 52 20 45 58 41 4D 50 4C 45 20 54 48 45 |.FOR EXAMPLE THE|
000005B0: 20 50 52 4F 47 52 41 4D 3A 22 00 EA 0D 7A 08 99 | PROGRAM:"...z..|
000005C0: 22 11 11 81 20 31 20 50 52 49 4E 54 22 AA C7 28 |"... 1 PRINT"..(|
000005D0: 33 34 29 AA 22 54 48 49 53 20 49 53 20 41 20 54 |34)."THIS IS A T|
000005E0: 45 53 54 22 AA C7 28 33 34 29 00 1D 0E 84 08 99 |EST"..(34)......|
000005F0: 22 20 34 20 46 4F 52 41 3D 31 54 4F 31 30 3A 46 |" 4 FORA=1TO10:F|
00000600: 4F 52 42 3D 30 54 4F 31 35 3A 43 4F 4C 4F 55 52 |ORB=0TO15:COLOUR|
00000610: 42 2C 42 3A 4E 45 58 54 3A 4E 45 58 54 00 46 0E |B,B:NEXT:NEXT.F.|
00000620: 8E 08 99 22 20 37 20 50 52 49 4E 54 22 AA C7 28 |..." 7 PRINT"..(|
00000630: 33 34 29 AA 22 54 45 53 54 20 4F 56 45 52 2E 22 |34)."TEST OVER."|
00000640: AA C7 28 33 34 29 00 55 0E 98 08 99 22 20 31 31 |..(34).U...." 11|
00000650: 20 45 4E 44 22 00 88 0E A2 08 99 22 11 11 1D 1D | END"......"....|
00000660: 1D 1D 05 43 41 4E 20 42 45 20 4E 45 41 54 4C 59 |...CAN BE NEATLY|
00000670: 20 4C 49 4E 45 20 4E 55 4D 42 45 52 45 44 20 57 | LINE NUMBERED W|
00000680: 49 54 48 20 54 48 45 22 00 A3 0E AC 08 99 22 27 |ITH THE"......"'|
00000690: 52 45 4E 55 4D 42 45 52 27 20 43 4F 4D 4D 41 4E |RENUMBER' COMMAN|
000006A0: 44 2E 22 00 CB 0E B6 08 99 22 11 50 55 53 48 20 |D."......".PUSH |
000006B0: 41 4E 59 20 4B 45 59 20 54 4F 20 53 45 45 20 54 |ANY KEY TO SEE T|
000006C0: 48 45 20 43 48 41 4E 47 45 2E 22 00 DF 0E C0 08 |HE CHANGE.".....|
000006D0: A1 41 24 3A 8B 41 24 B2 22 22 A7 32 32 34 30 00 |.A$:.A$."".2240.|
000006E0: EF 0E CA 08 99 22 93 11 22 3A 8D 33 32 35 30 00 |....."..":.3250.|
000006F0: 0D 0F D4 08 99 22 11 11 53 45 45 20 54 48 45 20 |....."..SEE THE |
00000700: 44 49 46 46 45 52 45 4E 43 45 20 3F 22 00 25 0F |DIFFERENCE ?".%.|
00000710: DE 08 99 22 11 11 50 52 45 53 53 20 41 4E 59 20 |..."..PRESS ANY |
00000720: 4B 45 59 2E 22 00 39 0F E8 08 A1 41 24 3A 8B 41 |KEY.".9....A$:.A|
00000730: 24 B2 22 22 A7 32 32 38 30 00 6B 0F F2 08 99 22 |$."".2280.k...."|
00000740: 93 11 1D 05 20 20 54 48 45 20 27 44 55 4D 50 27 |.... THE 'DUMP'|
00000750: 20 49 4E 53 54 52 55 43 54 49 4F 4E 20 57 49 4C | INSTRUCTION WIL|
00000760: 4C 20 4C 49 53 54 20 54 48 45 22 00 94 0F FC 08 |L LIST THE".....|
00000770: 99 22 11 56 41 4C 55 45 53 20 4F 46 20 41 4C 4C |.".VALUES OF ALL|
00000780: 20 44 45 46 49 4E 45 44 20 56 41 52 49 41 42 4C | DEFINED VARIABL|
00000790: 45 53 2E 22 00 C6 0F 06 09 99 22 81 11 54 4F 20 |ES."......"..TO |
000007A0: 44 45 4D 4F 4E 53 54 52 41 54 45 20 54 48 49 53 |DEMONSTRATE THIS|
000007B0: 20 45 4E 54 45 52 20 54 48 45 20 46 4F 4C 4C 4F | ENTER THE FOLLO|
000007C0: 57 49 4E 47 2E 22 00 F1 0F 10 09 85 22 11 11 9F |WING."......"...|
000007D0: 41 20 44 45 43 49 4D 41 4C 20 56 41 4C 55 45 20 |A DECIMAL VALUE |
000007E0: 28 45 2E 47 2E 20 36 2E 33 32 34 32 34 29 22 3B |(E.G. 6.32424)";|
000007F0: 41 00 FE 0F 1A 09 49 25 B2 33 32 37 36 37 00 20 |A.....I%.32767. |
00000800: 10 24 09 85 22 11 41 20 53 54 52 49 4E 47 20 28 |.$..".A STRING (|
00000810: 45 2E 47 2E 20 48 45 4C 4C 4F 20 29 22 3B 41 24 |E.G. HELLO )";A$|
00000820: 00 3C 10 2E 09 99 22 11 9E 20 4E 4F 57 20 50 55 |.<....".. NOW PU|
00000830: 53 48 20 41 4E 59 20 4B 45 59 2E 22 00 50 10 38 |SH ANY KEY.".P.8|
00000840: 09 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 33 36 30 |..K$:.K$."".2360|
00000850: 00 61 10 42 09 4B 24 B2 22 22 3A 99 3A 44 55 4D |.a.B.K$."":.:DUM|
00000860: 50 00 77 10 4C 09 99 22 11 50 55 53 48 20 41 4E |P.w.L..".PUSH AN|
00000870: 59 20 4B 45 59 2E 22 00 8B 10 56 09 A1 41 24 3A |Y KEY."...V..A$:|
00000880: 8B 41 24 B2 22 22 A7 32 33 39 30 00 BA 10 60 09 |.A$."".2390...`.|
00000890: 99 22 93 11 1D 20 57 49 54 48 20 54 48 45 20 27 |."... WITH THE '|
000008A0: 4B 45 59 27 20 43 4F 4D 4D 41 4E 44 20 54 48 45 |KEY' COMMAND THE|
000008B0: 20 46 55 4E 43 54 49 4F 4E 22 00 E9 10 6A 09 99 | FUNCTION"...j..|
000008C0: 22 11 4B 45 59 53 20 43 41 4E 20 42 45 20 4D 41 |".KEYS CAN BE MA|
000008D0: 44 45 20 54 4F 20 50 45 52 46 4F 52 4D 20 54 41 |DE TO PERFORM TA|
000008E0: 53 4B 53 2E 54 48 49 53 22 00 1A 11 74 09 99 22 |SKS.THIS"...t.."|
000008F0: 11 49 53 20 49 44 45 41 4C 20 46 4F 52 20 52 45 |.IS IDEAL FOR RE|
00000900: 50 45 54 49 54 49 56 45 20 43 4F 4D 4D 41 4E 44 |PETITIVE COMMAND|
00000910: 53 20 53 55 43 48 20 41 53 22 00 32 11 7E 09 99 |S SUCH AS".2.~..|
00000920: 22 27 4C 49 53 54 27 20 4F 52 20 27 52 55 4E 27 |"'LIST' OR 'RUN'|
00000930: 2E 22 00 6D 11 88 09 85 22 11 11 05 45 4E 54 45 |.".m...."...ENTE|
00000940: 52 20 41 20 4D 41 58 2E 20 4F 46 20 4E 49 4E 45 |R A MAX. OF NINE|
00000950: 20 43 48 41 52 41 43 54 45 52 53 22 3B 58 24 3A | CHARACTERS";X$:|
00000960: 8B C3 28 58 24 29 B1 39 A7 32 34 34 30 00 79 11 |..(X$).9.2440.y.|
00000970: 92 09 4B 45 59 31 2C 58 24 00 A4 11 9C 09 85 22 |..KEY1,X$......"|
00000980: 11 11 4E 4F 57 20 50 55 53 48 20 27 46 31 27 20 |..NOW PUSH 'F1' |
00000990: 41 4E 44 20 54 48 45 4E 20 52 45 54 55 52 4E 2E |AND THEN RETURN.|
000009A0: 22 3B 41 24 00 D4 11 A6 09 99 22 11 81 52 45 54 |";A$......"..RET|
000009B0: 55 52 4E 20 43 48 41 52 41 43 54 45 52 53 20 43 |URN CHARACTERS C|
000009C0: 41 4E 20 41 4C 53 4F 20 42 45 20 45 4E 54 45 52 |AN ALSO BE ENTER|
000009D0: 45 44 2E 22 00 E6 11 B0 09 4B 45 59 31 2C 58 24 |ED.".....KEY1,X$|
000009E0: AA C7 28 31 33 29 00 06 12 BA 09 85 22 11 50 55 |..(13)......".PU|
000009F0: 53 48 20 27 46 31 27 20 41 47 41 49 4E 20 4E 4F |SH 'F1' AGAIN NO|
00000A00: 57 2E 22 3B 41 24 00 41 12 C4 09 99 22 11 53 45 |W.";A$.A....".SE|
00000A10: 45 20 48 4F 57 20 54 48 45 20 52 45 54 55 52 4E |E HOW THE RETURN|
00000A20: 20 43 48 41 52 41 43 54 45 52 20 45 4E 44 45 44 | CHARACTER ENDED|
00000A30: 20 54 48 45 22 3A 99 22 11 49 4E 50 55 54 20 3F | THE":.".INPUT ?|
00000A40: 22 00 58 12 CE 09 99 22 11 05 50 52 45 53 53 20 |".X...."..PRESS |
00000A50: 41 4E 59 20 4B 45 59 22 00 6C 12 D8 09 A1 41 24 |ANY KEY".l....A$|
00000A60: 3A 8B 41 24 B2 22 22 A7 32 35 32 30 00 9C 12 E2 |:.A$."".2520....|
00000A70: 09 99 22 93 11 20 20 54 48 45 20 27 4A 55 4D 50 |..".. THE 'JUMP|
00000A80: 27 20 43 4F 4D 4D 41 4E 44 20 57 49 4C 4C 20 41 |' COMMAND WILL A|
00000A90: 4C 4C 4F 57 20 59 4F 55 20 54 4F 22 00 C9 12 EC |LLOW YOU TO"....|
00000AA0: 09 99 22 11 27 47 4F 54 4F 27 20 41 20 43 41 4C |..".'GOTO' A CAL|
00000AB0: 43 55 4C 41 54 45 44 20 4C 49 4E 45 20 4E 55 4D |CULATED LINE NUM|
00000AC0: 42 45 52 2E 54 48 49 53 22 00 F7 12 F6 09 99 22 |BER.THIS"......"|
00000AD0: 11 4D 45 41 4E 53 20 54 48 41 54 20 54 48 45 20 |.MEANS THAT THE |
00000AE0: 54 48 45 20 4C 49 4E 45 20 4E 55 4D 42 45 52 20 |THE LINE NUMBER |
00000AF0: 4D 41 59 20 42 45 22 00 23 13 00 0A 99 22 11 47 |MAY BE".#....".G|
00000B00: 49 56 45 4E 20 41 53 20 41 20 56 41 52 49 41 42 |IVEN AS A VARIAB|
00000B10: 4C 45 20 4F 52 20 41 53 20 41 20 4E 55 4D 45 52 |LE OR AS A NUMER|
00000B20: 49 43 22 00 53 13 0A 0A 99 22 11 45 58 50 52 45 |IC".S....".EXPRE|
00000B30: 53 53 49 4F 4E 2E 54 48 45 20 46 4F 4C 4C 4F 57 |SSION.THE FOLLOW|
00000B40: 49 4E 47 20 53 54 41 54 45 4D 45 4E 54 53 20 41 |ING STATEMENTS A|
00000B50: 52 45 22 00 66 13 14 0A 99 22 11 41 4C 4C 20 56 |RE".f....".ALL V|
00000B60: 41 4C 49 44 3A 22 00 7B 13 1E 0A 99 22 11 11 9E |ALID:".{...."...|
00000B70: 47 3D 32 30 3A 4A 55 4D 50 47 22 00 8C 13 28 0A |G=20:JUMPG"...(.|
00000B80: 99 22 11 4A 55 4D 50 31 30 2F 32 22 00 9C 13 32 |.".JUMP10/2"...2|
00000B90: 0A 99 22 11 4A 55 4D 50 24 36 34 22 00 B0 13 3C |..".JUMP$64"...<|
00000BA0: 0A 99 22 11 4A 55 4D 50 41 2A 33 2D 31 30 30 22 |..".JUMPA*3-100"|
00000BB0: 00 C9 13 46 0A 99 22 11 11 05 50 52 45 53 53 20 |...F.."...PRESS |
00000BC0: 41 4E 59 20 4B 45 59 2E 22 00 DD 13 50 0A A1 41 |ANY KEY."...P..A|
00000BD0: 24 3A 8B 41 24 B2 22 22 A7 32 36 34 30 00 0F 14 |$:.A$."".2640...|
00000BE0: 5A 0A 99 22 11 93 20 20 54 48 45 20 27 45 52 52 |Z..".. THE 'ERR|
00000BF0: 4F 52 27 20 43 4F 4D 4D 41 4E 44 20 57 49 4C 4C |OR' COMMAND WILL|
00000C00: 20 49 4E 54 45 52 43 45 50 54 20 41 4C 4C 22 00 | INTERCEPT ALL".|
00000C10: 3E 14 64 0A 99 22 45 52 52 4F 52 53 20 49 4E 20 |>.d.."ERRORS IN |
00000C20: 41 20 50 52 4F 47 52 41 4D 2E 54 4F 20 44 45 4D |A PROGRAM.TO DEM|
00000C30: 4F 4E 53 54 52 41 54 45 20 54 48 49 53 22 00 64 |ONSTRATE THIS".d|
00000C40: 14 6E 0A 99 22 11 4C 49 4E 45 20 32 37 33 30 20 |.n..".LINE 2730 |
00000C50: 4F 46 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |OF THIS PROGRAM |
00000C60: 49 53 3A 22 00 8A 14 78 0A 99 22 11 32 37 33 30 |IS:"...x..".2730|
00000C70: 20 50 49 4E 54 22 AA C7 28 33 34 29 AA 22 48 45 | PINT"..(34)."HE|
00000C80: 4C 4C 4F 22 AA C7 28 33 34 29 00 BA 14 82 0A 99 |LLO"..(34)......|
00000C90: 22 11 54 48 45 20 45 52 52 4F 52 20 43 4F 4D 4D |".THE ERROR COMM|
00000CA0: 41 4E 44 20 57 49 4C 4C 20 49 4E 54 45 52 43 45 |AND WILL INTERCE|
00000CB0: 50 54 20 49 54 20 41 4E 44 22 00 EA 14 8C 0A 99 |PT IT AND"......|
00000CC0: 22 11 4A 55 4D 50 20 54 4F 20 4C 49 4E 45 20 32 |".JUMP TO LINE 2|
00000CD0: 37 34 30 20 41 4E 44 20 52 45 50 4F 52 54 20 54 |740 AND REPORT T|
00000CE0: 48 45 20 45 52 52 4F 52 2E 22 00 00 15 96 0A 99 |HE ERROR."......|
00000CF0: 22 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 |".PRESS ANY KEY"|
00000D00: 00 14 15 A0 0A A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000D10: 32 37 32 30 00 22 15 AA 0A 50 B5 22 48 45 4C 4C |2720."...P."HELL|
00000D20: 4F 22 00 53 15 B4 0A 99 22 11 54 48 45 52 45 20 |O".S....".THERE |
00000D30: 49 53 20 41 20 22 3B 3A 52 45 50 B0 54 3A 99 22 |IS A ";:REP.T:."|
00000D40: 20 45 52 52 4F 52 20 49 4E 20 4C 49 4E 45 20 22 | ERROR IN LINE "|
00000D50: 45 52 4C 00 81 15 BE 0A 99 22 11 9F 54 48 45 20 |ERL......"..THE |
00000D60: 27 52 45 50 4F 52 54 27 20 43 4F 4D 4D 41 4E 44 |'REPORT' COMMAND|
00000D70: 20 57 49 4C 4C 20 52 45 54 55 52 4E 20 54 48 45 | WILL RETURN THE|
00000D80: 22 00 AE 15 C8 0A 99 22 4C 41 53 54 20 45 52 52 |"......"LAST ERR|
00000D90: 4F 52 20 41 4E 44 20 45 52 4C 20 41 4E 44 20 45 |OR AND ERL AND E|
00000DA0: 52 4E 20 52 45 54 55 52 4E 20 54 48 45 22 00 CC |RN RETURN THE"..|
00000DB0: 15 D2 0A 99 22 4C 49 4E 45 20 41 4E 44 20 45 52 |...."LINE AND ER|
00000DC0: 52 4F 52 20 4E 55 4D 42 45 52 2E 22 00 E4 15 DC |ROR NUMBER."....|
00000DD0: 0A 99 22 11 05 50 52 45 53 53 20 41 4E 59 20 4B |.."..PRESS ANY K|
00000DE0: 45 59 2E 22 00 F8 15 E6 0A A1 41 24 3A 8B 41 24 |EY."......A$:.A$|
00000DF0: B2 22 22 A7 32 37 39 30 00 29 16 F0 0A 99 22 93 |."".2790.)....".|
00000E00: 11 9F 20 20 54 48 45 20 27 52 45 50 45 41 54 27 |.. THE 'REPEAT'|
00000E10: 20 43 4F 4D 4D 41 4E 44 20 53 49 4D 50 4C 59 20 | COMMAND SIMPLY |
00000E20: 53 57 49 54 43 48 45 53 22 00 48 16 FA 0A 99 22 |SWITCHES".H...."|
00000E30: 11 41 55 54 4F 20 52 45 50 45 41 54 20 4F 4E 20 |.AUTO REPEAT ON |
00000E40: 4F 52 20 4F 46 46 2E 22 00 6F 16 04 0B 99 22 11 |OR OFF.".o....".|
00000E50: 50 55 53 48 20 41 4E 59 20 4B 45 59 20 41 4E 44 |PUSH ANY KEY AND|
00000E60: 20 48 4F 4C 44 20 49 54 20 44 4F 57 4E 2E 22 00 | HOLD IT DOWN.".|
00000E70: 7B 16 0E 0B 52 45 50 45 41 54 31 00 A1 16 18 0B |{...REPEAT1.....|
00000E80: 85 22 11 9E 28 50 52 45 53 53 20 52 45 54 55 52 |."..(PRESS RETUR|
00000E90: 4E 20 54 4F 20 46 49 4E 49 53 48 2E 29 22 3B 41 |N TO FINISH.)";A|
00000EA0: 24 00 B9 16 22 0B 99 22 11 05 50 52 45 53 53 20 |$...".."..PRESS |
00000EB0: 41 4E 59 20 4B 45 59 2E 22 00 CD 16 2C 0B A1 41 |ANY KEY."...,..A|
00000EC0: 24 3A 8B 41 24 B2 22 22 A7 32 38 36 30 00 F9 16 |$:.A$."".2860...|
00000ED0: 36 0B 99 22 93 11 20 20 46 49 4E 41 4C 4C 59 2C |6..".. FINALLY,|
00000EE0: 4D 41 4E 59 20 50 52 4F 47 52 41 4D 4D 45 52 53 |MANY PROGRAMMERS|
00000EF0: 20 57 41 4E 54 20 54 4F 22 00 26 17 40 0B 99 22 | WANT TO".&.@.."|
00000F00: 11 44 49 53 41 42 4C 45 20 4F 52 20 55 53 45 20 |.DISABLE OR USE |
00000F10: 54 48 45 20 27 52 55 4E 2F 53 54 4F 50 27 20 42 |THE 'RUN/STOP' B|
00000F20: 55 54 54 4F 4E 22 00 57 17 4A 0B 99 22 11 46 4F |UTTON".W.J..".FO|
00000F30: 52 20 4F 54 48 45 52 20 55 53 45 53 20 28 45 2E |R OTHER USES (E.|
00000F40: 47 2E 20 44 49 53 50 4C 41 59 49 4E 47 20 41 20 |G. DISPLAYING A |
00000F50: 4D 45 4E 55 29 2E 22 00 84 17 54 0B 99 22 54 48 |MENU)."...T.."TH|
00000F60: 45 20 27 42 52 45 41 4B 27 20 43 4F 4D 4D 41 4E |E 'BREAK' COMMAN|
00000F70: 44 20 57 49 4C 4C 20 41 4C 4C 4F 57 20 59 4F 55 |D WILL ALLOW YOU|
00000F80: 20 54 4F 22 00 B2 17 5E 0B 99 22 11 4D 41 4B 45 | TO"...^..".MAKE|
00000F90: 20 54 48 45 20 50 52 4F 47 52 41 4D 20 4A 55 4D | THE PROGRAM JUM|
00000FA0: 50 20 54 4F 20 41 4E 4F 54 48 45 52 20 4C 49 4E |P TO ANOTHER LIN|
00000FB0: 45 22 00 DE 17 68 0B 99 22 11 57 48 45 4E 20 54 |E"...h..".WHEN T|
00000FC0: 48 45 20 52 55 4E 2F 53 54 4F 50 20 42 55 54 54 |HE RUN/STOP BUTT|
00000FD0: 4F 4E 20 49 53 20 50 55 53 48 45 44 2E 22 00 0F |ON IS PUSHED."..|
00000FE0: 18 72 0B 99 22 11 9E 54 4F 20 53 45 45 20 54 48 |.r.."..TO SEE TH|
00000FF0: 49 53 20 49 4E 20 41 43 54 49 4F 4E 20 50 55 53 |IS IN ACTION PUS|
00001000: 48 20 54 48 45 20 52 55 4E 2F 53 54 4F 50 22 00 |H THE RUN/STOP".|
00001010: 3C 18 7C 0B 99 22 11 42 55 54 54 4F 4E 20 41 20 |<.|..".BUTTON A |
00001020: 46 45 57 20 54 49 4D 45 53 20 28 50 55 53 48 20 |FEW TIMES (PUSH |
00001030: 2A 20 54 4F 20 53 54 4F 50 29 2E 22 00 5A 18 86 |* TO STOP).".Z..|
00001040: 0B 99 3A 42 52 45 41 4B 3A 99 22 49 54 20 57 4F |..:BREAK:."IT WO|
00001050: 4E 27 54 20 57 4F 52 4B 2E 22 00 70 18 90 0B A1 |N'T WORK.".p....|
00001060: 41 24 3A 8B 41 24 B3 B1 22 2A 22 A7 32 39 36 30 |A$:.A$.."*".2960|
00001070: 00 8E 18 9A 0B 42 52 45 41 4B AC 3A 99 22 9F 11 |.....BREAK.:."..|
00001080: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 00 A2 |PRESS ANY KEY"..|
00001090: 18 A4 0B A1 41 24 3A 8B 41 24 B2 22 22 A7 32 39 |....A$:.A$."".29|
000010A0: 38 30 00 CD 18 AE 0B 99 22 93 05 11 1D 1D 1D 1D |80......".......|
000010B0: 1D 1D 1D 1D 1D 44 45 4D 4F 4E 53 54 52 41 54 49 |.....DEMONSTRATI|
000010C0: 4F 4E 20 46 49 4E 49 53 48 45 44 2E 22 00 F5 18 |ON FINISHED."...|
000010D0: B8 0B 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 |..."............|
000010E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000010F0: C3 C3 C3 C3 22 00 21 19 C2 0B 99 22 11 44 4F 20 |....".!....".DO |
00001100: 59 4F 55 20 57 41 4E 54 20 54 4F 20 12 52 92 55 |YOU WANT TO .R.U|
00001110: 4E 20 54 48 45 20 44 45 4D 4F 20 41 47 41 49 4E |N THE DEMO AGAIN|
00001120: 22 00 40 19 CC 0B 99 22 11 4F 52 20 44 49 53 50 |".@....".OR DISP|
00001130: 4C 41 59 20 54 48 45 20 12 4D 92 45 4E 55 2E 22 |LAY THE .M.ENU."|
00001140: 00 55 19 D6 0B A1 41 24 3A 8B 41 24 B2 22 52 22 |.U....A$:.A$."R"|
00001150: A7 32 30 30 30 00 67 19 E0 0B 8B 41 24 B3 B1 22 |.2000.g....A$.."|
00001160: 4D 22 A7 33 30 33 30 00 6F 19 EA 0B 89 31 30 00 |M".3030.o....10.|
00001170: 7A 19 12 0C 99 22 05 22 3A 90 00 A1 19 1C 0C 99 |z....".":.......|
00001180: 22 93 05 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001190: 50 52 4F 47 52 41 4D 4D 49 4E 47 20 41 49 44 53 |PROGRAMMING AIDS|
000011A0: 22 00 C5 19 26 0C 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"...&.."........|
000011B0: 1D 1D 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000011C0: C3 C3 C3 C3 22 00 E8 19 30 0C 99 22 11 1D 1D 1D |...."...0.."....|
000011D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 44 45 4D 4F 4E 53 |..........DEMONS|
000011E0: 54 52 41 54 49 4F 4E 22 00 0A 1A 3A 0C 99 22 1D |TRATION"...:..".|
000011F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 C3 |................|
00001200: C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 36 1A 44 0C 99 |.........".6.D..|
00001210: 22 11 11 1D 1D 9E 53 55 50 41 42 41 53 49 43 20 |".....SUPABASIC |
00001220: 41 4C 53 4F 20 50 52 4F 56 49 44 45 53 20 46 4F |ALSO PROVIDES FO|
00001230: 52 20 54 48 45 22 00 62 1A 4E 0C 99 22 53 45 52 |R THE".b.N.."SER|
00001240: 49 4F 55 53 20 50 52 4F 47 52 41 4D 4D 45 52 2E |IOUS PROGRAMMER.|
00001250: 49 54 20 43 4F 4E 54 41 49 4E 53 20 41 20 53 45 |IT CONTAINS A SE|
00001260: 54 22 00 8F 1A 58 0C 99 22 4F 46 20 43 4F 4D 4D |T"...X.."OF COMM|
00001270: 41 4E 44 53 20 54 4F 20 41 4C 4C 4F 57 20 45 41 |ANDS TO ALLOW EA|
00001280: 53 49 45 52 20 45 4E 54 52 59 20 41 4E 44 22 00 |SIER ENTRY AND".|
00001290: C0 1A 62 0C 99 22 44 45 42 55 47 47 49 4E 47 20 |..b.."DEBUGGING |
000012A0: 4F 46 20 50 52 4F 47 52 41 4D 53 2C 53 55 43 48 |OF PROGRAMS,SUCH|
000012B0: 20 41 53 20 27 52 45 4E 55 4D 42 45 52 27 22 3B | AS 'RENUMBER'";|
000012C0: 00 D8 1A 6C 0C 99 22 27 4F 4C 44 27 20 41 4E 44 |...l.."'OLD' AND|
000012D0: 20 27 4B 45 59 27 2E 22 00 EF 1A 76 0C 99 22 11 | 'KEY'."...v..".|
000012E0: 11 1D 1D 81 54 48 45 53 45 20 41 52 45 3A 22 00 |....THESE ARE:".|
000012F0: 21 1B 80 0C 99 22 9F 11 11 1D 1D 1D 4F 4C 44 2C |!...."......OLD,|
00001300: 4B 45 59 2C 52 45 4E 55 4D 42 45 52 2C 44 55 4D |KEY,RENUMBER,DUM|
00001310: 50 2C 42 52 45 41 4B 2C 42 59 45 2C 45 52 4E 2C |P,BREAK,BYE,ERN,|
00001320: 22 00 46 1B 8A 0C 99 22 45 52 4C 2C 52 45 50 45 |".F...."ERL,REPE|
00001330: 41 54 2C 4A 55 4D 50 2C 45 52 52 4F 52 2C 52 45 |AT,JUMP,ERROR,RE|
00001340: 50 4F 52 54 2E 22 00 6B 1B 94 0C 99 22 11 1D 05 |PORT.".k...."...|
00001350: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00001360: 20 43 4F 4E 54 49 4E 55 45 2E 22 00 7F 1B 9E 0C | CONTINUE.".....|
00001370: A1 41 24 3A 8B 41 24 B2 22 22 A7 33 32 33 30 00 |.A$:.A$."".3230.|
00001380: 89 1B A8 0C 89 32 30 33 30 00 B8 1B B2 0C 99 22 |.....2030......"|
00001390: 05 20 31 30 20 50 52 49 4E 54 22 AA C7 28 33 34 |. 10 PRINT"..(34|
000013A0: 29 AA 22 54 48 49 53 20 49 53 20 41 20 54 45 53 |)."THIS IS A TES|
000013B0: 54 22 AA C7 28 33 34 29 00 EC 1B BC 0C 99 22 20 |T"..(34)......" |
000013C0: 32 30 20 46 4F 52 41 3D 31 54 4F 31 30 3A 46 4F |20 FORA=1TO10:FO|
000013D0: 52 42 3D 30 54 4F 31 35 3A 43 4F 4C 4F 55 52 42 |RB=0TO15:COLOURB|
000013E0: 2C 42 3A 4E 45 58 54 3A 4E 45 58 54 00 16 1C C6 |,B:NEXT:NEXT....|
000013F0: 0C 99 22 20 33 30 20 50 52 49 4E 54 22 AA C7 28 |.." 30 PRINT"..(|
00001400: 33 34 29 AA 22 54 45 53 54 20 4F 56 45 52 2E 22 |34)."TEST OVER."|
00001410: AA C7 28 33 34 29 00 25 1C D0 0C 99 22 20 34 30 |..(34).%...." 40|
00001420: 20 45 4E 44 22 00 2B 1C DA 0C 8E 00 42 1C A0 0F | END".+.....B...|
00001430: 56 44 55 31 34 32 2C 38 3A 43 53 45 54 22 40 22 |VDU142,8:CSET"@"|
00001440: 2C 30 00 55 1C AA 0F 43 42 49 54 22 2E 2E 58 58 |,0.U...CBIT"..XX|
00001450: 58 58 2E 2E 22 00 68 1C B4 0F 43 42 49 54 22 2E |XX..".h...CBIT".|
00001460: 58 2E 2E 2E 2E 58 2E 22 00 7B 1C BE 0F 43 42 49 |X....X.".{...CBI|
00001470: 54 22 58 2E 2E 58 58 2E 2E 58 22 00 8E 1C C8 0F |T"X..XX..X".....|
00001480: 43 42 49 54 22 58 2E 58 2E 2E 2E 2E 58 22 00 A1 |CBIT"X.X....X"..|
00001490: 1C D2 0F 43 42 49 54 22 58 2E 58 2E 2E 2E 2E 58 |...CBIT"X.X....X|
000014A0: 22 00 B4 1C DC 0F 43 42 49 54 22 58 2E 2E 58 58 |".....CBIT"X..XX|
000014B0: 2E 2E 58 22 00 C7 1C E6 0F 43 42 49 54 22 2E 58 |..X".....CBIT".X|
000014C0: 2E 2E 2E 2E 58 2E 22 00 DA 1C F0 0F 43 42 49 54 |....X.".....CBIT|
000014D0: 22 2E 2E 58 58 58 58 2E 2E 22 00 E4 1C 04 10 8D |"..XXXX.."......|
000014E0: 34 38 36 30 00 F4 1C 0E 10 56 44 55 31 34 37 3A |4860.....VDU147:|
000014F0: 49 4E 4B 31 00 24 1D 18 10 99 22 11 1D 1D 54 48 |INK1.$...."...TH|
00001500: 49 53 20 44 45 4D 4F 4E 53 54 52 41 54 45 53 20 |IS DEMONSTRATES |
00001510: 54 48 45 20 53 50 52 49 54 45 20 43 4F 4D 4D 41 |THE SPRITE COMMA|
00001520: 4E 44 53 22 00 3A 1D 22 10 99 22 11 4F 46 20 53 |NDS".:."..".OF S|
00001530: 55 50 41 42 41 53 49 43 2E 22 00 59 1D 2C 10 53 |UPABASIC.".Y.,.S|
00001540: 50 52 49 54 45 30 2C 33 34 2C 37 2C 30 2C 30 3A |PRITE0,34,7,0,0:|
00001550: 53 49 5A 45 30 2C 31 2C 31 00 7C 1D 36 10 53 50 |SIZE0,1,1.|.6.SP|
00001560: 52 49 54 45 31 2C 33 32 2C 38 2C 30 2C 31 2C 31 |RITE1,32,8,0,1,1|
00001570: 2C 34 3A 53 49 5A 45 31 2C 31 2C 31 00 B5 1D 40 |,4:SIZE1,1,1...@|
00001580: 10 53 50 52 49 54 45 32 2C 33 33 2C 33 2C 30 2C |.SPRITE2,33,3,0,|
00001590: 30 3A 53 49 5A 45 32 2C 31 2C 31 3A 50 4C 41 43 |0:SIZE2,1,1:PLAC|
000015A0: 45 32 2C 31 32 35 2C 32 38 30 3A 44 49 2E 32 2C |E2,125,280:DI.2,|
000015B0: 31 3A 43 B2 30 00 D3 1D 4A 10 59 B2 30 3A 50 4C |1:C.0...J.Y.0:PL|
000015C0: 41 43 45 30 2C 30 2C 30 3A 50 4C 41 43 45 31 2C |ACE0,0,0:PLACE1,|
000015D0: 30 2C 30 00 E5 1D 54 10 44 49 2E 31 2C 31 3A 44 |0,0...T.DI.1,1:D|
000015E0: 49 2E 30 2C 31 00 1B 1E 5E 10 81 58 B2 37 30 A4 |I.0,1...^..X.70.|
000015F0: 32 38 30 A9 33 3A 50 4C 41 43 45 31 2C 31 32 35 |280.3:PLACE1,125|
00001600: 2C 59 3A 50 4C 41 43 45 30 2C 31 32 35 2C 58 3A |,Y:PLACE0,125,X:|
00001610: 59 B2 59 AA 33 3A 43 B2 43 AA 31 00 41 1E 68 10 |Y.Y.3:C.C.1.A.h.|
00001620: 41 B2 45 B0 28 C2 28 35 30 31 36 38 29 2C 31 29 |A.E.(.(50168),1)|
00001630: 3A 97 35 30 31 36 38 2C 41 3A 8B 43 B3 B1 39 A7 |:.50168,A:.C..9.|
00001640: 82 00 58 1E 72 10 8B 43 B2 39 A7 3A 49 4E 56 53 |..X.r..C.9.:INVS|
00001650: 50 32 3A 43 B2 31 3A 82 00 82 1E 7C 10 44 49 2E |P2:C.1:....|.DI.|
00001660: 32 2C 30 3A 97 35 30 31 36 38 2C 33 36 3A 53 50 |2,0:.50168,36:SP|
00001670: 52 49 54 45 31 2C 33 32 2C 36 2C 30 2C 31 2C 31 |RITE1,32,6,0,1,1|
00001680: 2C 34 00 C9 1E 86 10 81 58 B2 32 38 30 A4 31 37 |,4......X.280.17|
00001690: 31 A9 AB 33 2E 35 3A 50 4C 41 43 45 30 2C 31 32 |1..3.5:PLACE0,12|
000016A0: 35 2C 58 3A 50 4C 41 43 45 31 2C 31 32 35 2C 59 |5,X:PLACE1,125,Y|
000016B0: 3A 59 B2 59 AB 31 2E 35 3A 41 B2 45 B0 28 C2 28 |:Y.Y.1.5:A.E.(.(|
000016C0: 35 30 31 36 38 29 2C 37 29 00 D8 1E 90 10 97 35 |50168),7)......5|
000016D0: 30 31 36 38 2C 41 3A 82 00 0D 1F 9A 10 53 50 52 |0168,A:......SPR|
000016E0: 49 54 45 32 2C 33 37 2C 31 2C 30 2C 30 3A 50 4C |ITE2,37,1,0,0:PL|
000016F0: 41 43 45 32 2C 31 33 33 2C 31 37 31 3A 53 49 5A |ACE2,133,171:SIZ|
00001700: 45 32 2C 30 2C 30 3A 44 49 2E 32 2C 31 00 26 1F |E2,0,0:DI.2,1.&.|
00001710: A4 10 53 50 52 49 54 45 31 2C 33 32 2C 30 2C 30 |..SPRITE1,32,0,0|
00001720: 2C 31 2C 31 2C 34 00 5E 1F AE 10 44 44 B2 34 2E |,1,1,4.^...DD.4.|
00001730: 35 3A 81 58 B2 31 36 38 A4 30 A9 AB 33 3A 50 4C |5:.X.168.0..3:PL|
00001740: 41 43 45 30 2C 31 32 35 2C 58 3A 50 4C 41 43 45 |ACE0,125,X:PLACE|
00001750: 31 2C 31 32 35 2C 59 3A 59 B2 59 AB 44 44 00 92 |1,125,Y:Y.Y.DD..|
00001760: 1F B8 10 41 B2 45 B0 28 C2 28 35 30 31 36 38 29 |...A.E.(.(50168)|
00001770: 2C 37 29 3A 97 35 30 31 36 38 2C 41 3A 8B 59 B3 |,7):.50168,A:.Y.|
00001780: B2 30 A7 59 B2 30 3A 44 44 B2 30 3A 44 49 2E 31 |.0.Y.0:DD.0:DI.1|
00001790: 2C 30 00 98 1F C2 10 82 00 B1 1F CC 10 44 49 2E |,0...........DI.|
000017A0: 31 2C 30 3A 44 49 2E 32 2C 30 3A 44 49 2E 30 2C |1,0:DI.2,0:DI.0,|
000017B0: 30 00 C9 1F D6 10 99 22 11 11 50 52 45 53 53 20 |0......"..PRESS |
000017C0: 41 4E 59 20 4B 45 59 2E 22 00 DD 1F E0 10 A1 41 |ANY KEY."......A|
000017D0: 24 3A 8B 41 24 B2 22 22 A7 34 33 32 30 00 0D 20 |$:.A$."".4320.. |
000017E0: EA 10 99 22 93 05 11 1D 53 50 52 49 54 45 20 54 |..."....SPRITE T|
000017F0: 4F 20 53 50 52 49 54 45 20 43 4F 4C 4C 49 53 49 |O SPRITE COLLISI|
00001800: 4F 4E 53 20 41 52 45 20 41 4C 53 4F 22 00 2F 20 |ONS ARE ALSO"./ |
00001810: F4 10 99 22 11 43 41 54 45 52 45 44 20 46 4F 52 |...".CATERED FOR|
00001820: 20 42 59 20 53 55 50 41 42 41 53 49 43 2E 22 00 | BY SUPABASIC.".|
00001830: 3C 20 FE 10 56 44 55 31 33 2C 31 33 00 5B 20 08 |< ..VDU13,13.[ .|
00001840: 11 53 50 52 49 54 45 30 2C 33 38 2C 37 2C 30 2C |.SPRITE0,38,7,0,|
00001850: 30 3A 53 49 5A 45 30 2C 31 2C 31 00 7A 20 12 11 |0:SIZE0,1,1.z ..|
00001860: 53 50 52 49 54 45 31 2C 33 39 2C 35 2C 30 2C 30 |SPRITE1,39,5,0,0|
00001870: 3A 53 49 5A 45 31 2C 31 2C 31 00 99 20 1C 11 53 |:SIZE1,1,1.. ..S|
00001880: 50 52 49 54 45 32 2C 33 39 2C 39 2C 30 2C 30 3A |PRITE2,39,9,0,0:|
00001890: 53 49 5A 45 32 2C 31 2C 31 00 C5 20 26 11 99 22 |SIZE2,1,1.. &.."|
000018A0: 50 55 54 20 41 20 4A 4F 59 53 54 49 43 4B 20 49 |PUT A JOYSTICK I|
000018B0: 4E 20 50 4F 52 54 20 23 31 20 4F 52 20 55 53 45 |N PORT #1 OR USE|
000018C0: 20 54 48 45 22 00 F5 20 30 11 99 22 11 4B 45 59 | THE".. 0..".KEY|
000018D0: 53 20 27 41 27 20 41 4E 44 20 27 53 27 20 54 4F |S 'A' AND 'S' TO|
000018E0: 20 4D 4F 56 45 20 59 4F 55 52 20 53 48 49 50 2E | MOVE YOUR SHIP.|
000018F0: 50 55 53 48 22 00 15 21 3A 11 99 22 11 53 50 41 |PUSH"..!:..".SPA|
00001900: 43 45 20 4F 52 20 46 49 52 45 20 54 4F 20 41 42 |CE OR FIRE TO AB|
00001910: 4F 52 54 2E 22 00 2C 21 44 11 99 22 11 11 50 55 |ORT.".,!D.."..PU|
00001920: 53 48 20 41 4E 59 20 4B 45 59 2E 22 00 40 21 4E |SH ANY KEY.".@!N|
00001930: 11 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 34 33 30 |..A$:.A$."".4430|
00001940: 00 4B 21 58 11 56 44 55 31 34 37 00 83 21 62 11 |.K!X.VDU147..!b.|
00001950: 81 41 B2 31 A4 35 30 3A 43 55 52 53 B0 BB 28 31 |.A.1.50:CURS..(1|
00001960: 29 AC 32 34 2C BB 28 31 29 AC 33 39 3A 49 4E 4B |).24,.(1).39:INK|
00001970: BB 28 31 29 AC 31 36 3A 99 22 2E 22 3A 82 3A 49 |.(1).16:.".":.:I|
00001980: 4E 4B 31 00 A2 21 6C 11 58 B2 31 35 35 3A 44 49 |NK1..!l.X.155:DI|
00001990: 2E 30 2C 31 3A 44 49 2E 31 2C 31 3A 44 49 2E 32 |.0,1:DI.1,1:DI.2|
000019A0: 2C 31 00 BF 21 76 11 59 B2 BB 28 31 29 AC 32 32 |,1..!v.Y..(1).22|
000019B0: 30 3A 5A B2 BB 28 31 29 AC 32 32 30 AA 39 39 00 |0:Z..(1).220.99.|
000019C0: 01 22 80 11 81 41 B2 31 30 A4 32 33 30 A9 34 3A |."...A.10.230.4:|
000019D0: 50 4C 41 43 45 30 2C 32 30 35 2C 58 3A 50 4C 41 |PLACE0,205,X:PLA|
000019E0: 43 45 31 2C 41 2C 59 3A 50 4C 41 43 45 32 2C 41 |CE1,A,Y:PLACE2,A|
000019F0: AB 31 30 2C 5A 3A 5A B2 5A AB 31 3A 59 B2 59 AA |.10,Z:Z.Z.1:Y.Y.|
00001A00: 31 00 42 22 8A 11 44 55 B2 43 48 45 43 4B 28 30 |1.B"..DU.CHECK(0|
00001A10: 2C 31 29 3A 8B 43 48 45 43 4B 28 30 2C 31 29 B0 |,1):.CHECK(0,1).|
00001A20: 43 48 45 43 4B 28 30 2C 32 29 A7 3A 53 50 52 49 |CHECK(0,2).:SPRI|
00001A30: 54 45 30 2C 34 30 2C 31 2C 30 2C 30 3A 89 34 35 |TE0,40,1,0,0:.45|
00001A40: 34 30 00 4F 22 94 11 42 B2 C2 28 31 39 37 29 00 |40.O"..B..(197).|
00001A50: 92 22 9E 11 4A B2 4A 4F 59 28 31 29 3A 8B 4A B3 |."..J.JOY(1):.J.|
00001A60: 31 32 38 A7 58 B2 58 AB 34 AC 28 28 4A B2 33 B0 |128.X.X.4.((J.3.|
00001A70: 42 B2 31 33 29 AF 58 B3 33 30 35 29 AA 34 AC 28 |B.13).X.305).4.(|
00001A80: 28 4A B2 37 B0 42 B2 31 30 29 AF 58 B1 32 30 29 |(J.7.B.10).X.20)|
00001A90: 3A 82 00 A2 22 A8 11 8B 4A B1 31 32 37 A7 34 35 |:..."...J.127.45|
00001AA0: 34 30 00 AC 22 B2 11 89 34 34 37 30 00 E3 22 BC |40.."...4470..".|
00001AB0: 11 44 49 2E 31 2C 30 3A 44 49 2E 32 2C 30 3A 81 |.DI.1,0:DI.2,0:.|
00001AC0: 41 B2 31 A4 31 30 3A 81 42 B2 31 A4 31 35 3A 53 |A.1.10:.B.1.15:S|
00001AD0: 50 52 49 54 45 30 2C 34 30 2C 42 2C 30 2C 30 3A |PRITE0,40,B,0,0:|
00001AE0: 82 3A 82 00 FC 22 C6 11 81 41 B2 31 A4 31 30 3A |.:..."...A.1.10:|
00001AF0: A1 41 24 3A 82 3A 44 49 2E 30 2C 30 00 2B 23 D0 |.A$:.:DI.0,0.+#.|
00001B00: 11 99 22 93 11 43 48 41 52 41 43 54 45 52 53 20 |.."..CHARACTERS |
00001B10: 43 41 4E 20 41 4C 53 4F 20 42 45 20 52 45 44 45 |CAN ALSO BE REDE|
00001B20: 46 49 4E 45 44 20 57 49 54 48 22 00 50 23 DA 11 |FINED WITH".P#..|
00001B30: 99 22 11 53 55 50 41 42 41 53 49 43 2E 41 4E 20 |.".SUPABASIC.AN |
00001B40: 45 58 41 4D 50 4C 45 20 49 53 20 27 40 27 2E 22 |EXAMPLE IS '@'."|
00001B50: 00 83 23 E4 11 85 22 11 11 49 4E 50 55 54 20 41 |..#..."..INPUT A|
00001B60: 20 43 48 41 52 41 43 54 45 52 22 3B 41 24 3A 8B | CHARACTER";A$:.|
00001B70: 41 24 B2 22 22 B0 C3 28 41 24 29 B3 B1 31 A7 34 |A$.""..(A$)..1.4|
00001B80: 35 38 30 00 91 23 EE 11 99 22 11 22 3A 9F 31 2C |580..#...".":.1,|
00001B90: 30 00 BE 23 F8 11 99 22 90 13 22 41 24 3A 41 B2 |0..#...".."A$:A.|
00001BA0: C2 28 34 39 31 35 32 29 3A 97 34 39 31 35 32 2C |.(49152):.49152,|
00001BB0: 33 32 3A 99 22 11 11 11 11 11 11 11 05 22 00 EE |32:."........"..|
00001BC0: 23 02 12 43 B2 41 AC 38 AA 35 33 32 34 38 3A 97 |#..C.A.8.53248:.|
00001BD0: 35 36 33 33 34 2C C2 28 35 36 33 33 34 29 AF 32 |56334,.(56334).2|
00001BE0: 35 34 3A 97 31 2C C2 28 31 29 AF 32 35 31 00 07 |54:.1,.(1).251..|
00001BF0: 24 0C 12 81 4E B2 30 A4 37 3A 43 28 4E 29 B2 C2 |$...N.0.7:C(N)..|
00001C00: 28 43 AA 4E 29 3A 82 00 27 24 16 12 97 31 2C C2 |(C.N):..'$...1,.|
00001C10: 28 31 29 B0 34 3A 97 35 36 33 33 34 2C C2 28 35 |(1).4:.56334,.(5|
00001C20: 36 33 33 34 29 B0 31 00 3F 24 20 12 81 4E B2 30 |6334).1.?$ ..N.0|
00001C30: A4 37 3A 99 4E 3B 3A 57 24 28 4E 29 B2 22 22 00 |.7:.N;:W$(N)."".|
00001C40: 65 24 2A 12 81 51 B2 37 A4 30 A9 AB 31 3A 51 24 |e$*..Q.7.0..1:Q$|
00001C50: B2 22 2E 22 3A 8B 43 28 4E 29 AF 32 AE 51 A7 51 |.".":.C(N).2.Q.Q|
00001C60: 24 B2 22 58 22 00 8A 24 34 12 57 24 28 4E 29 B2 |$."X"..$4.W$(N).|
00001C70: 57 24 28 4E 29 AA 51 24 3A 82 3A 99 57 24 28 4E |W$(N).Q$:.:.W$(N|
00001C80: 29 3A 82 3A 99 22 45 4E 44 22 00 9C 24 3E 12 99 |):.:."END"..$>..|
00001C90: 22 91 91 91 91 91 91 91 91 91 22 3B 00 C7 24 48 |".........";..$H|
00001CA0: 12 97 31 39 38 2C 33 3A 97 36 33 31 2C 32 39 3A |..198,3:.631,29:|
00001CB0: 97 36 33 32 2C 32 39 3A 97 36 33 33 2C 32 39 3A |.632,29:.633,29:|
00001CC0: 84 31 2C 45 24 3A 99 00 DA 24 52 12 8B 45 24 B2 |.1,E$:...$R..E$.|
00001CD0: 22 45 4E 44 22 A7 34 37 31 30 00 EB 24 5C 12 57 |"END".4710..$\.W|
00001CE0: B2 C5 28 C8 28 45 24 2C 33 29 29 00 11 25 61 12 |..(.(E$,3))..%a.|
00001CF0: 8B C3 28 CA 28 45 24 2C 33 29 29 B1 37 A7 57 24 |..(.(E$,3)).7.W$|
00001D00: 28 57 29 B2 CA 28 45 24 2C 33 29 3A 89 34 36 38 |(W)..(E$,3):.468|
00001D10: 30 00 1B 25 63 12 89 34 36 38 30 00 28 25 66 12 |0..%c..4680.(%f.|
00001D20: 43 53 45 54 41 24 2C 30 00 3F 25 70 12 81 41 B2 |CSETA$,0.?%p..A.|
00001D30: 30 A4 37 3A 43 42 49 54 57 24 28 41 29 3A 82 00 |0.7:CBITW$(A):..|
00001D40: 57 25 7A 12 99 22 11 11 11 50 52 45 53 53 20 41 |W%z.."...PRESS A|
00001D50: 4E 59 20 4B 45 59 22 00 6B 25 84 12 A1 41 24 3A |NY KEY".k%...A$:|
00001D60: 8B 41 24 B2 22 22 A7 34 37 34 30 00 9A 25 8E 12 |.A$."".4740..%..|
00001D70: 56 44 55 31 34 37 3A 99 22 11 1D 1D 1D 1D 1D 1D |VDU147:.".......|
00001D80: 1D 1D 1D 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E |...DEMONSTRATION|
00001D90: 20 46 49 4E 49 53 48 45 44 22 00 C1 25 98 12 99 | FINISHED"..%...|
00001DA0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 C3 C3 C3 |"...............|
00001DB0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001DC0: 22 00 EE 25 A2 12 99 22 11 11 44 4F 20 59 4F 55 |"..%..."..DO YOU|
00001DD0: 20 57 41 4E 54 20 54 4F 20 12 52 92 55 4E 20 54 | WANT TO .R.UN T|
00001DE0: 48 45 20 44 45 4D 4F 20 41 47 41 49 4E 22 00 0E |HE DEMO AGAIN"..|
00001DF0: 26 AC 12 99 22 11 4F 52 20 44 49 53 50 4C 41 59 |&...".OR DISPLAY|
00001E00: 20 54 48 45 20 12 4D 92 45 4E 55 2E 22 3B 00 23 | THE .M.ENU.";.#|
00001E10: 26 B6 12 A1 41 24 3A 8B 41 24 B2 22 52 22 A7 34 |&...A$:.A$."R".4|
00001E20: 30 30 30 00 34 26 C0 12 8B 41 24 B2 22 4D 22 A7 |000.4&...A$."M".|
00001E30: 34 38 32 30 00 3E 26 CA 12 89 34 37 39 30 00 46 |4820.>&...4790.F|
00001E40: 26 D4 12 89 31 30 00 5C 26 FC 12 56 44 55 31 34 |&...10.\&..VDU14|
00001E50: 37 3A 43 2E 30 2C 30 3A 49 4E 4B 31 00 8B 26 06 |7:C.0,0:INK1..&.|
00001E60: 13 99 22 11 1D 1D 53 50 52 49 54 45 20 41 4E 44 |.."...SPRITE AND|
00001E70: 20 55 53 45 52 2D 44 45 46 49 4E 41 42 4C 45 20 | USER-DEFINABLE |
00001E80: 43 48 41 52 41 43 54 45 52 53 22 00 B9 26 10 13 |CHARACTERS"..&..|
00001E90: 99 22 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |."..............|
00001EA0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001EB0: C3 C3 C3 C3 C3 C3 C3 C3 22 00 DC 26 1A 13 99 22 |........"..&..."|
00001EC0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 44 45 |..............DE|
00001ED0: 4D 4F 4E 53 54 52 41 54 49 4F 4E 22 00 FE 26 24 |MONSTRATION"..&$|
00001EE0: 13 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001EF0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 2E |............."..|
00001F00: 27 2E 13 99 22 11 11 9E 20 20 54 48 45 20 43 4F |'..."... THE CO|
00001F10: 4D 4D 4F 44 4F 52 45 20 27 36 34 27 20 48 41 53 |MMODORE '64' HAS|
00001F20: 20 41 20 56 49 44 45 4F 20 43 48 49 50 22 00 5F | A VIDEO CHIP"._|
00001F30: 27 38 13 99 22 43 41 4C 4C 45 44 20 54 48 45 20 |'8.."CALLED THE |
00001F40: 27 56 49 43 20 49 49 27 2E 49 54 20 49 53 20 54 |'VIC II'.IT IS T|
00001F50: 48 49 53 20 43 48 49 50 20 54 48 41 54 22 3B 00 |HIS CHIP THAT";.|
00001F60: 8B 27 42 13 99 22 43 4F 4E 54 52 4F 4C 53 20 54 |.'B.."CONTROLS T|
00001F70: 48 45 20 53 50 52 49 54 45 20 47 45 4E 45 52 41 |HE SPRITE GENERA|
00001F80: 54 4F 52 20 4F 4E 20 54 48 45 22 00 B7 27 4C 13 |TOR ON THE"..'L.|
00001F90: 99 22 27 36 34 27 2E 48 4F 57 45 56 45 52 2C 49 |."'64'.HOWEVER,I|
00001FA0: 54 20 57 41 53 20 4E 45 43 45 53 53 41 52 59 20 |T WAS NECESSARY |
00001FB0: 54 4F 20 55 53 45 22 00 E6 27 56 13 99 22 50 4F |TO USE"..'V.."PO|
00001FC0: 4B 45 53 20 54 4F 20 41 43 43 45 53 53 20 54 48 |KES TO ACCESS TH|
00001FD0: 45 53 45 20 53 50 52 49 54 45 53 2E 53 55 50 41 |ESE SPRITES.SUPA|
00001FE0: 42 41 53 49 43 22 00 17 28 60 13 99 22 4F 42 4C |BASIC"..(`.."OBL|
00001FF0: 49 56 49 41 54 45 53 20 54 48 45 20 4E 45 45 44 |IVIATES THE NEED|
00002000: 20 46 4F 52 20 53 55 43 48 20 50 4F 4B 45 53 20 | FOR SUCH POKES |
00002010: 41 53 20 49 54 22 3B 00 46 28 6A 13 99 22 50 52 |AS IT";.F(j.."PR|
00002020: 4F 56 49 44 45 53 20 31 33 20 4E 45 57 20 43 4F |OVIDES 13 NEW CO|
00002030: 4D 4D 41 4E 44 53 20 46 4F 52 20 44 45 53 49 47 |MMANDS FOR DESIG|
00002040: 4E 49 4E 47 2C 22 00 73 28 74 13 99 22 50 4F 53 |NING,".s(t.."POS|
00002050: 49 54 49 4F 4E 49 4E 47 20 41 4E 44 20 41 4E 49 |ITIONING AND ANI|
00002060: 4D 41 54 49 4E 47 20 53 50 52 49 54 45 53 20 41 |MATING SPRITES A|
00002070: 4E 44 22 00 95 28 7E 13 99 22 55 53 45 52 20 44 |ND"..(~.."USER D|
00002080: 45 46 49 4E 41 42 4C 45 20 43 48 41 52 41 43 54 |EFINABLE CHARACT|
00002090: 45 52 53 2E 22 00 A9 28 88 13 99 22 11 9F 54 48 |ERS."..(..."..TH|
000020A0: 45 53 45 20 41 52 45 3A 22 00 D7 28 92 13 99 22 |ESE ARE:"..(..."|
000020B0: 11 20 20 53 50 52 49 54 45 2C 42 49 54 2C 47 52 |. SPRITE,BIT,GR|
000020C0: 49 44 2C 53 49 5A 45 2C 50 4C 41 43 45 2C 44 49 |ID,SIZE,PLACE,DI|
000020D0: 53 50 4C 41 59 2C 22 00 05 29 9C 13 99 22 53 45 |SPLAY,"..)..."SE|
000020E0: 54 2C 49 4E 56 53 50 2C 43 48 45 43 4B 2C 43 53 |T,INVSP,CHECK,CS|
000020F0: 45 54 2C 43 42 49 54 2C 4D 45 4D 20 41 4E 44 20 |ET,CBIT,MEM AND |
00002100: 4E 55 4D 2E 22 00 29 29 A6 13 99 22 11 81 50 52 |NUM.".))..."..PR|
00002110: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
00002120: 4F 4E 54 49 4E 55 45 2E 22 00 33 29 B0 13 8D 35 |ONTINUE.".3)...5|
00002130: 30 37 30 00 39 29 BA 13 8E 00 4E 29 C4 13 99 22 |070.9)....N)..."|
00002140: 50 55 53 48 20 41 4E 59 20 4B 45 59 2E 22 00 62 |PUSH ANY KEY.".b|
00002150: 29 CE 13 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 |)...A$:.A$."".50|
00002160: 37 30 00 68 29 D8 13 8E 00 7C 29 70 17 43 4F 4C |70.h)....|)p.COL|
00002170: 4F 55 52 30 2C 30 3A 8D 36 36 30 30 00 A9 29 7A |OUR0,0:.6600..)z|
00002180: 17 99 22 93 11 20 54 48 45 20 27 48 45 58 24 27 |..".. THE 'HEX$'|
00002190: 20 46 55 4E 43 54 49 4F 4E 20 57 49 4C 4C 20 43 | FUNCTION WILL C|
000021A0: 4F 4E 56 45 52 54 20 41 22 00 D6 29 84 17 99 22 |ONVERT A"..)..."|
000021B0: 11 44 45 43 49 4D 41 4C 20 4E 55 4D 42 45 52 20 |.DECIMAL NUMBER |
000021C0: 54 4F 20 41 20 48 45 58 41 44 45 43 49 4D 41 4C |TO A HEXADECIMAL|
000021D0: 20 4F 4E 45 2E 22 00 14 2A 8E 17 85 22 11 9F 49 | ONE."..*..."..I|
000021E0: 4E 50 55 54 20 41 20 44 45 43 49 4D 41 4C 20 4E |NPUT A DECIMAL N|
000021F0: 55 4D 42 45 52 20 28 30 2D 36 35 35 33 35 29 22 |UMBER (0-65535)"|
00002200: 3B 41 3A 8B 41 B1 36 35 35 33 35 B0 41 B3 30 A7 |;A:.A.65535.A.0.|
00002210: 36 30 33 30 00 3A 2A 98 17 99 22 11 11 81 44 45 |6030.:*..."...DE|
00002220: 43 49 4D 41 4C 20 22 41 22 20 3D 20 22 48 45 58 |CIMAL "A" = "HEX|
00002230: 24 28 41 29 22 20 48 45 58 22 00 53 2A A2 17 99 |$(A)" HEX".S*...|
00002240: 22 11 11 05 50 52 45 53 53 20 41 4E 59 20 4B 45 |"...PRESS ANY KE|
00002250: 59 2E 22 00 67 2A AC 17 A1 41 24 3A 8B 41 24 B2 |Y.".g*...A$:.A$.|
00002260: 22 22 A7 36 30 36 30 00 95 2A B6 17 99 22 93 20 |"".6060..*...". |
00002270: 54 48 45 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 |THE FUNCTION KEY|
00002280: 53 20 43 41 4E 20 41 4C 53 4F 20 42 45 20 54 45 |S CAN ALSO BE TE|
00002290: 53 54 45 44 22 00 B9 2A C0 17 99 22 11 57 49 54 |STED"..*...".WIT|
000022A0: 48 20 54 48 45 20 27 46 55 4E 4B 45 59 27 20 46 |H THE 'FUNKEY' F|
000022B0: 55 4E 43 54 49 4F 4E 2E 22 00 E9 2A CA 17 99 22 |UNCTION."..*..."|
000022C0: 11 9F 50 52 45 53 53 20 41 4E 59 20 4F 46 20 54 |..PRESS ANY OF T|
000022D0: 48 45 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 |HE FUNCTION KEYS|
000022E0: 20 28 50 55 53 48 20 2A 22 00 FB 2A D4 17 99 22 | (PUSH *"..*..."|
000022F0: 11 54 4F 20 53 54 4F 50 29 2E 22 00 13 2B DE 17 |.TO STOP)."..+..|
00002300: 99 22 11 11 46 55 4E 43 54 49 4F 4E 20 4B 45 59 |."..FUNCTION KEY|
00002310: 20 3D 22 00 28 2B E8 17 A1 41 24 3A 8B 41 24 B2 | =".(+...A$:.A$.|
00002320: 22 2A 22 A7 36 31 35 30 00 62 2B F2 17 58 B2 46 |"*".6150.b+..X.F|
00002330: 55 4E 4B 45 59 3A 99 22 91 1D 1D 1D 1D 1D 1D 1D |UNKEY:."........|
00002340: 1D 1D 1D 1D 1D 1D 1D 22 58 22 9D 20 20 22 3A 8B |......."X". ":.|
00002350: 58 B3 B1 30 A7 3A 4F 46 46 4D 4F 44 28 58 2C 31 |X..0.:OFFMOD(X,1|
00002360: 36 29 00 6C 2B FC 17 89 36 31 32 30 00 83 2B 06 |6).l+...6120..+.|
00002370: 18 99 22 05 11 50 52 45 53 53 20 41 4E 59 20 4B |.."..PRESS ANY K|
00002380: 45 59 22 00 97 2B 10 18 A1 41 24 3A 8B 41 24 B2 |EY"..+...A$:.A$.|
00002390: 22 22 A7 36 31 36 30 00 A5 2B 1A 18 43 4F 4C 4F |"".6160..+..COLO|
000023A0: 55 52 30 2C 30 00 D7 2B 24 18 99 22 93 9F 54 48 |UR0,0..+$.."..TH|
000023B0: 45 20 27 4D 4F 44 27 20 46 55 4E 43 54 49 4F 4E |E 'MOD' FUNCTION|
000023C0: 20 52 45 54 55 52 4E 53 20 54 48 45 20 52 45 4D | RETURNS THE REM|
000023D0: 41 49 4E 44 45 52 22 00 01 2C 2E 18 99 22 4F 46 |AINDER"..,..."OF|
000023E0: 20 41 20 44 49 56 49 53 49 4F 4E 20 42 45 54 57 | A DIVISION BETW|
000023F0: 45 45 4E 20 54 57 4F 20 4E 55 4D 42 45 52 53 2E |EEN TWO NUMBERS.|
00002400: 22 00 38 2C 38 18 85 22 9E 11 11 45 4E 54 45 52 |".8,8.."...ENTER|
00002410: 20 41 20 4E 55 4D 42 45 52 20 28 30 2D 36 35 35 | A NUMBER (0-655|
00002420: 33 35 29 22 3B 41 3A 8B 41 B1 36 35 35 33 35 B0 |35)";A:.A.65535.|
00002430: 41 B3 30 A7 36 32 30 30 00 74 2C 42 18 85 22 9E |A.0.6200.t,B..".|
00002440: 11 45 4E 54 45 52 20 41 4E 4F 54 48 45 52 20 4E |.ENTER ANOTHER N|
00002450: 55 4D 42 45 52 20 28 30 2D 36 35 35 33 35 29 22 |UMBER (0-65535)"|
00002460: 3B 42 3A 8B 42 B1 36 35 35 33 35 B0 42 B3 31 A7 |;B:.B.65535.B.1.|
00002470: 36 32 31 30 00 A2 2C 4C 18 99 22 81 11 54 48 45 |6210..,L.."..THE|
00002480: 20 52 45 4D 41 49 4E 44 45 52 20 4F 46 20 54 48 | REMAINDER OF TH|
00002490: 45 20 44 49 56 49 53 4F 4E 20 42 45 54 57 45 45 |E DIVISON BETWEE|
000024A0: 4E 22 00 C1 2C 56 18 99 22 11 22 41 22 20 41 4E |N"..,V.."."A" AN|
000024B0: 44 20 22 42 22 20 3D 20 22 4D 4F 44 28 41 2C 42 |D "B" = "MOD(A,B|
000024C0: 29 00 D9 2C 60 18 99 22 11 11 05 50 52 45 53 53 |)..,`.."...PRESS|
000024D0: 20 41 4E 59 20 4B 45 59 22 00 ED 2C 6A 18 A1 41 | ANY KEY"..,j..A|
000024E0: 24 3A 8B 41 24 B2 22 22 A7 36 32 35 30 00 1D 2D |$:.A$."".6250..-|
000024F0: 74 18 99 22 93 9E 11 20 54 48 45 20 27 44 49 56 |t.."... THE 'DIV|
00002500: 27 20 46 55 4E 43 54 49 4F 4E 20 50 45 52 46 4F |' FUNCTION PERFO|
00002510: 52 4D 53 20 54 48 45 20 53 41 4D 45 22 00 4B 2D |RMS THE SAME".K-|
00002520: 7E 18 99 22 11 4F 50 45 52 41 54 49 4F 4E 20 41 |~..".OPERATION A|
00002530: 53 20 27 4D 4F 44 27 20 42 55 54 20 49 54 20 52 |S 'MOD' BUT IT R|
00002540: 45 54 55 52 4E 53 20 54 48 45 22 00 73 2D 88 18 |ETURNS THE".s-..|
00002550: 99 22 11 49 4E 54 45 47 45 52 20 52 45 53 55 4C |.".INTEGER RESUL|
00002560: 54 2C 49 2E 45 2E 20 57 49 54 48 4F 55 54 20 54 |T,I.E. WITHOUT T|
00002570: 48 45 22 00 86 2D 92 18 99 22 11 52 45 4D 41 49 |HE"..-...".REMAI|
00002580: 4E 44 45 52 2E 22 00 BC 2D 9C 18 85 22 1E 11 49 |NDER."..-..."..I|
00002590: 4E 50 55 54 20 41 20 4E 55 4D 42 45 52 20 28 30 |NPUT A NUMBER (0|
000025A0: 2D 36 35 35 33 35 29 22 3B 41 3A 8B 41 B1 36 35 |-65535)";A:.A.65|
000025B0: 35 33 35 B0 41 B3 30 A7 36 33 30 30 00 F8 2D A6 |535.A.0.6300..-.|
000025C0: 18 85 22 1E 11 49 4E 50 55 54 20 41 4E 4F 54 48 |.."..INPUT ANOTH|
000025D0: 45 52 20 4E 55 4D 42 45 52 20 28 30 2D 36 35 35 |ER NUMBER (0-655|
000025E0: 33 35 29 22 3B 42 3A 8B 42 B1 36 35 35 33 35 B0 |35)";B:.B.65535.|
000025F0: 42 B3 31 A7 36 33 31 30 00 24 2E B0 18 99 22 81 |B.1.6310.$....".|
00002600: 11 54 48 45 20 49 4E 54 45 47 45 52 20 52 45 53 |.THE INTEGER RES|
00002610: 55 4C 54 20 4F 46 20 54 48 45 20 44 49 56 49 53 |ULT OF THE DIVIS|
00002620: 49 4F 4E 22 00 4B 2E BA 18 99 22 11 42 45 54 57 |ION".K....".BETW|
00002630: 45 45 4E 20 22 41 22 20 41 4E 44 20 22 42 22 20 |EEN "A" AND "B" |
00002640: 3D 20 22 44 49 56 28 41 2C 42 29 00 63 2E C4 18 |= "DIV(A,B).c...|
00002650: 99 22 11 11 05 50 52 45 53 53 20 41 4E 59 20 4B |."...PRESS ANY K|
00002660: 45 59 22 00 77 2E CE 18 A1 41 24 3A 8B 41 24 B2 |EY".w....A$:.A$.|
00002670: 22 22 A7 36 33 35 30 00 A2 2E D8 18 99 22 93 11 |"".6350......"..|
00002680: 1E 20 54 48 45 20 27 45 4F 52 27 20 46 55 4E 43 |. THE 'EOR' FUNC|
00002690: 54 49 4F 4E 20 49 53 20 41 20 4C 4F 47 49 43 41 |TION IS A LOGICA|
000026A0: 4C 22 00 D3 2E E2 18 99 22 11 4F 50 45 52 41 54 |L"......".OPERAT|
000026B0: 4F 52 20 4C 49 4B 45 20 27 41 4E 44 27 20 26 20 |OR LIKE 'AND' & |
000026C0: 27 4F 52 27 2E 49 54 20 53 50 4C 49 54 53 20 54 |'OR'.IT SPLITS T|
000026D0: 48 45 22 00 FD 2E EC 18 99 22 4E 55 4D 42 45 52 |HE"......"NUMBER|
000026E0: 53 20 47 49 56 45 4E 20 49 4E 54 4F 20 42 49 4E |S GIVEN INTO BIN|
000026F0: 41 52 59 20 41 4E 44 20 54 48 45 4E 22 00 2D 2F |ARY AND THEN".-/|
00002700: F6 18 99 22 11 50 45 52 46 4F 52 4D 53 20 54 48 |...".PERFORMS TH|
00002710: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 4F 50 45 52 |E FOLLOWING OPER|
00002720: 41 54 49 4F 4E 20 4F 4E 20 54 48 45 22 00 3B 2F |ATION ON THE".;/|
00002730: 00 19 99 22 11 42 49 54 53 2E 22 00 56 2F 0A 19 |...".BITS.".V/..|
00002740: 99 22 9E 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 30 20 |."............0 |
00002750: 30 20 31 20 31 22 00 6E 2F 14 19 99 22 1D 1D 1D |0 1 1".n/..."...|
00002760: 1D 1D 1D 1D 1D 1D 30 20 31 20 30 20 31 22 00 86 |......0 1 0 1"..|
00002770: 2F 1E 19 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 |/..."...........|
00002780: C3 C3 C3 C3 C3 22 00 9F 2F 28 19 99 22 9F 1D 1D |....."../(.."...|
00002790: 1D 1D 1D 1D 1D 1D 1D 30 20 31 20 31 20 30 22 00 |.......0 1 1 0".|
000027A0: D5 2F 32 19 85 22 05 11 45 4E 54 45 52 20 41 20 |./2.."..ENTER A |
000027B0: 4E 55 4D 42 45 52 20 28 30 2D 36 35 35 33 35 29 |NUMBER (0-65535)|
000027C0: 22 3B 41 3A 8B 41 B1 36 35 35 33 35 B0 41 B3 30 |";A:.A.65535.A.0|
000027D0: A7 36 34 35 30 00 11 30 3C 19 85 22 05 11 45 4E |.6450..0<.."..EN|
000027E0: 54 45 52 20 41 4E 4F 54 48 45 52 20 4E 55 4D 42 |TER ANOTHER NUMB|
000027F0: 45 52 20 28 30 2D 36 35 35 33 35 29 22 3B 42 3A |ER (0-65535)";B:|
00002800: 8B 42 B1 36 35 35 33 35 B0 42 B3 30 A7 36 34 36 |.B.65535.B.0.646|
00002810: 30 00 39 30 46 19 99 22 11 81 22 41 22 20 45 58 |0.90F..".."A" EX|
00002820: 43 4C 55 53 49 56 45 2D 4F 52 20 22 42 22 20 3D |CLUSIVE-OR "B" =|
00002830: 20 22 45 B0 28 41 2C 42 29 00 50 30 50 19 99 22 | "E.(A,B).P0P.."|
00002840: 11 05 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 |..PRESS ANY KEY"|
00002850: 00 64 30 5A 19 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.d0Z..A$:.A$."".|
00002860: 36 34 39 30 00 8E 30 64 19 99 22 93 05 11 1D 1D |6490..0d..".....|
00002870: 1D 1D 1D 1D 1D 1D 1D 44 45 4D 4F 4E 53 54 52 41 |.......DEMONSTRA|
00002880: 54 49 4F 4E 20 46 49 4E 49 53 48 45 44 22 00 B5 |TION FINISHED"..|
00002890: 30 6E 19 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 |0n.."...........|
000028A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000028B0: C3 C3 C3 C3 22 00 E1 30 78 19 99 22 11 44 4F 20 |...."..0x..".DO |
000028C0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 12 52 92 55 |YOU WANT TO .R.U|
000028D0: 4E 20 54 48 45 20 44 45 4D 4F 20 41 47 41 49 4E |N THE DEMO AGAIN|
000028E0: 22 00 00 31 82 19 99 22 11 4F 52 20 44 49 53 50 |"..1...".OR DISP|
000028F0: 4C 41 59 20 54 48 45 20 12 4D 92 45 4E 55 2E 22 |LAY THE .M.ENU."|
00002900: 00 15 31 8C 19 A1 41 24 3A 8B 41 24 B2 22 52 22 |..1...A$:.A$."R"|
00002910: A7 36 30 30 30 00 27 31 96 19 8B 41 24 B3 B1 22 |.6000.'1...A$.."|
00002920: 4D 22 A7 36 35 34 30 00 2F 31 A0 19 89 31 30 00 |M".6540./1...10.|
00002930: 5B 31 C8 19 99 22 93 05 11 1D 1D 1D 1D 1D 1D 1D |[1..."..........|
00002940: 1D 4E 55 4D 45 52 49 43 20 26 20 53 54 52 49 4E |.NUMERIC & STRIN|
00002950: 47 20 46 55 4E 43 54 49 4F 4E 22 00 84 31 D2 19 |G FUNCTION"..1..|
00002960: 99 22 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 C3 C3 C3 |."..............|
00002970: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00002980: C3 C3 C3 22 00 A8 31 DC 19 99 22 11 1D 1D 1D 1D |..."..1...".....|
00002990: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 44 45 4D 4F 4E 53 |..........DEMONS|
000029A0: 54 52 41 54 49 4F 4E 22 00 CB 31 E6 19 99 22 1D |TRATION"..1...".|
000029B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 |................|
000029C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 FD 31 F0 19 |.........."..1..|
000029D0: 99 22 11 11 9E 20 20 53 55 50 41 42 41 53 49 43 |."... SUPABASIC|
000029E0: 20 41 4C 53 4F 20 41 44 44 53 20 37 20 4E 45 57 | ALSO ADDS 7 NEW|
000029F0: 20 4E 55 4D 45 52 49 43 20 41 4E 44 22 00 2B 32 | NUMERIC AND".+2|
00002A00: FA 19 99 22 53 54 52 49 4E 47 20 46 55 4E 43 54 |..."STRING FUNCT|
00002A10: 49 4F 4E 53 20 54 4F 20 54 48 45 20 45 58 49 53 |IONS TO THE EXIS|
00002A20: 54 49 4E 47 20 4F 4E 45 53 2C 22 00 56 32 04 1A |TING ONES,".V2..|
00002A30: 99 22 53 55 43 48 20 41 53 20 48 45 58 2D 44 45 |."SUCH AS HEX-DE|
00002A40: 43 49 4D 41 4C 20 41 4E 44 20 44 45 43 49 4D 41 |CIMAL AND DECIMA|
00002A50: 4C 2D 48 45 58 22 00 6A 32 0E 1A 99 22 43 4F 4E |L-HEX".j2..."CON|
00002A60: 56 45 52 53 49 4F 4E 53 2E 22 00 7F 32 18 1A 99 |VERSIONS."..2...|
00002A70: 22 9F 11 11 54 48 45 53 45 20 41 52 45 3A 22 00 |"...THESE ARE:".|
00002A80: AF 32 22 1A 99 22 81 11 11 1D 1D 1D 24 2C 48 45 |.2".."......$,HE|
00002A90: 58 24 2C 4D 4F 44 2C 44 49 56 2C 45 4F 52 2C 53 |X$,MOD,DIV,EOR,S|
00002AA0: 54 52 49 4E 47 24 2C 46 55 4E 4B 45 59 2E 22 00 |TRING$,FUNKEY.".|
00002AB0: C6 32 2C 1A 99 22 11 05 50 52 45 53 53 20 41 4E |.2,.."..PRESS AN|
00002AC0: 59 20 4B 45 59 22 00 DA 32 36 1A A1 41 24 3A 8B |Y KEY"..26..A$:.|
00002AD0: 41 24 B2 22 22 A7 36 37 31 30 00 E0 32 40 1A 8E |A$."".6710..2@..|
00002AE0: 00 F3 32 40 1F 43 4F 4C 4F 55 52 30 2C 30 3A 49 |..2@.COLOUR0,0:I|
00002AF0: 4E 4B 31 00 FD 32 4A 1F 8D 38 36 33 30 00 2F 33 |NK1..2J..8630./3|
00002B00: 54 1F 99 22 93 11 20 20 54 48 45 20 27 53 43 52 |T..".. THE 'SCR|
00002B10: 4F 4C 4C 27 20 43 4F 4D 4D 41 4E 44 20 4D 4F 56 |OLL' COMMAND MOV|
00002B20: 45 53 20 54 45 58 54 20 4F 4E 20 54 48 45 22 00 |ES TEXT ON THE".|
00002B30: 5C 33 5E 1F 99 22 53 43 52 45 45 4E 20 49 4E 20 |\3^.."SCREEN IN |
00002B40: 41 4E 59 20 4F 46 20 54 48 45 20 46 4F 55 52 20 |ANY OF THE FOUR |
00002B50: 44 49 52 45 43 54 49 4F 4E 53 2E 22 00 88 33 68 |DIRECTIONS."..3h|
00002B60: 1F 99 22 11 54 4F 20 44 45 4D 4F 4E 53 54 52 41 |..".TO DEMONSTRA|
00002B70: 54 45 20 54 48 49 53 20 55 53 45 20 54 48 45 20 |TE THIS USE THE |
00002B80: 42 55 54 54 4F 4E 53 22 00 C7 33 72 1F 99 22 11 |BUTTONS"..3r..".|
00002B90: 27 9F 12 4C 92 05 27 2C 27 81 12 52 92 05 27 2C |'..L..','..R..',|
00002BA0: 27 9E 12 55 92 05 27 20 41 4E 44 20 27 12 1E 44 |'..U..' AND '..D|
00002BB0: 92 05 27 20 54 4F 20 4D 4F 56 45 20 54 48 45 20 |..' TO MOVE THE |
00002BC0: 53 43 52 45 45 4E 22 00 E7 33 7C 1F 99 22 11 41 |SCREEN"..3|..".A|
00002BD0: 42 4F 55 54 20 28 50 55 53 48 20 2A 20 54 4F 20 |BOUT (PUSH * TO |
00002BE0: 53 54 4F 50 29 2E 22 00 FF 33 86 1F 41 B2 C2 28 |STOP)."..3..A..(|
00002BF0: 31 39 37 29 3A 8B 41 B2 34 39 A7 38 31 34 30 00 |197):.A.49.8140.|
00002C00: 14 34 90 1F 8B 41 B2 34 32 A7 3A 53 43 52 4F 4C |.4...A.42.:SCROL|
00002C10: 4C 4C 2C 57 00 29 34 9A 1F 8B 41 B2 31 37 A7 3A |LL,W.)4...A.17.:|
00002C20: 53 43 52 4F 4C 4C 52 2C 57 00 3E 34 A4 1F 8B 41 |SCROLLR,W.>4...A|
00002C30: B2 33 30 A7 3A 53 43 52 4F 4C 4C 55 2C 57 00 53 |.30.:SCROLLU,W.S|
00002C40: 34 AE 1F 8B 41 B2 31 38 A7 3A 53 43 52 4F 4C 4C |4...A.18.:SCROLL|
00002C50: 44 2C 57 00 5D 34 B8 1F 89 38 30 37 30 00 72 34 |D,W.]4...8070.r4|
00002C60: CC 1F A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 38 31 |...A$:.A$.."".81|
00002C70: 34 30 00 9E 34 D6 1F 99 22 93 11 20 20 54 48 45 |40..4...".. THE|
00002C80: 20 27 43 4F 4C 4F 55 52 27 20 43 4F 4D 4D 41 4E | 'COLOUR' COMMAN|
00002C90: 44 20 43 48 41 4E 47 45 53 20 54 48 45 22 00 C5 |D CHANGES THE"..|
00002CA0: 34 E0 1F 99 22 11 42 4F 52 44 45 52 20 41 4E 44 |4...".BORDER AND|
00002CB0: 20 42 41 43 4B 47 52 4F 55 4E 44 20 43 4F 4C 4F | BACKGROUND COLO|
00002CC0: 55 52 53 2E 22 00 DC 34 EA 1F 99 22 11 50 52 45 |URS."..4...".PRE|
00002CD0: 53 53 20 41 4E 59 20 4B 45 59 2E 22 00 F0 34 F4 |SS ANY KEY."..4.|
00002CE0: 1F A1 41 24 3A 8B 41 24 B2 22 22 A7 38 31 38 30 |..A$:.A$."".8180|
00002CF0: 00 1D 35 FE 1F 81 41 B2 31 A4 31 30 30 3A 81 42 |..5...A.1.100:.B|
00002D00: B2 30 A4 31 35 3A 43 4F 4C 4F 55 52 42 2C 42 3A |.0.15:COLOURB,B:|
00002D10: 82 3A 82 3A 43 4F 4C 4F 55 52 30 2C 30 00 34 35 |.:.:COLOUR0,0.45|
00002D20: 08 20 99 22 11 11 50 52 45 53 53 20 41 4E 59 20 |. ."..PRESS ANY |
00002D30: 4B 45 59 22 00 48 35 12 20 A1 41 24 3A 8B 41 24 |KEY".H5. .A$:.A$|
00002D40: B2 22 22 A7 38 32 31 30 00 75 35 1C 20 99 22 93 |."".8210.u5. .".|
00002D50: 11 20 54 45 58 54 20 43 41 4E 20 41 4C 53 4F 20 |. TEXT CAN ALSO |
00002D60: 42 45 20 49 4E 56 45 52 54 45 44 20 57 49 54 48 |BE INVERTED WITH|
00002D70: 20 54 48 45 22 00 9F 35 26 20 99 22 11 27 49 4E | THE"..5& .".'IN|
00002D80: 56 45 52 54 27 20 43 4F 4D 4D 41 4E 44 2C 20 41 |VERT' COMMAND, A|
00002D90: 53 20 53 48 4F 57 4E 20 49 4E 20 54 48 45 22 00 |S SHOWN IN THE".|
00002DA0: BF 35 30 20 99 22 11 46 4F 4C 4F 57 49 4E 47 20 |.50 .".FOLOWING |
00002DB0: 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 2E 22 00 |DEMONSTRATION.".|
00002DC0: D8 35 3A 20 99 22 81 11 11 50 52 45 53 53 20 41 |.5: ."...PRESS A|
00002DD0: 4E 59 20 4B 45 59 2E 22 00 EC 35 44 20 A1 41 24 |NY KEY."..5D .A$|
00002DE0: 3A 8B 41 24 B2 22 22 A7 38 32 36 30 00 03 36 4E |:.A$."".8260..6N|
00002DF0: 20 81 41 B2 31 A4 31 30 30 3A 49 4E 56 45 52 54 | .A.1.100:INVERT|
00002E00: 30 3A 82 00 1B 36 58 20 99 22 11 11 50 52 45 53 |0:...6X ."..PRES|
00002E10: 53 20 41 4E 59 20 4B 45 59 2E 22 00 2F 36 62 20 |S ANY KEY."./6b |
00002E20: A1 41 24 3A 8B 41 24 B2 22 22 A7 38 32 39 30 00 |.A$:.A$."".8290.|
00002E30: 61 36 6C 20 99 22 05 93 20 20 54 48 45 20 27 44 |a6l .".. THE 'D|
00002E40: 45 4C 41 59 27 20 43 4F 4D 4D 41 4E 44 20 43 4F |ELAY' COMMAND CO|
00002E50: 4E 54 52 4F 4C 53 20 54 48 45 20 53 50 45 45 44 |NTROLS THE SPEED|
00002E60: 22 00 89 36 76 20 99 22 41 54 20 57 48 49 43 48 |"..6v ."AT WHICH|
00002E70: 20 43 48 41 52 41 43 54 45 52 53 20 41 52 45 20 | CHARACTERS ARE |
00002E80: 50 52 49 4E 54 45 44 2E 22 00 A6 36 80 20 85 22 |PRINTED."..6. ."|
00002E90: 11 11 9F 45 4E 54 45 52 20 53 4F 4D 45 20 54 45 |...ENTER SOME TE|
00002EA0: 58 54 22 3B 41 24 00 C5 36 8A 20 44 45 4C 41 59 |XT";A$..6. DELAY|
00002EB0: 32 32 30 3A 81 41 B2 30 A4 31 30 3A 99 22 11 11 |220:.A.0.10:."..|
00002EC0: 22 41 24 3A 82 00 DE 36 94 20 99 22 11 11 05 50 |"A$:...6. ."...P|
00002ED0: 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 00 F2 |RESS ANY KEY."..|
00002EE0: 36 9E 20 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 33 |6. .A$:.A$."".83|
00002EF0: 35 30 00 2D 37 A8 20 44 45 4C 41 59 32 35 35 3A |50.-7. DELAY255:|
00002F00: 99 22 93 11 1D 20 54 4F 20 43 52 45 41 54 45 20 |."... TO CREATE |
00002F10: 53 50 45 43 49 41 4C 20 45 46 46 45 43 54 53 20 |SPECIAL EFFECTS |
00002F20: 54 48 45 20 27 42 46 4C 41 53 48 27 22 00 59 37 |THE 'BFLASH'".Y7|
00002F30: B2 20 99 22 49 4E 53 54 52 55 43 54 49 4F 4E 20 |. ."INSTRUCTION |
00002F40: 57 49 4C 4C 20 46 4C 41 53 48 20 54 48 45 20 42 |WILL FLASH THE B|
00002F50: 4F 52 44 45 52 20 49 4E 22 00 86 37 BC 20 99 22 |ORDER IN"..7. ."|
00002F60: 11 54 57 4F 20 44 49 46 46 45 52 45 4E 54 20 43 |.TWO DIFFERENT C|
00002F70: 4F 4C 4F 55 52 53 20 41 54 20 41 20 53 50 45 43 |OLOURS AT A SPEC|
00002F80: 49 46 49 45 44 22 00 95 37 C6 20 99 22 11 53 50 |IFIED"..7. .".SP|
00002F90: 45 45 44 2E 22 00 C6 37 D0 20 85 22 11 11 81 49 |EED."..7. ."...I|
00002FA0: 4E 50 55 54 20 41 20 43 4F 4C 4F 55 52 20 28 30 |NPUT A COLOUR (0|
00002FB0: 2D 31 35 29 22 3B 41 3A 8B 41 B1 31 35 B0 41 B3 |-15)";A:.A.15.A.|
00002FC0: 30 A7 38 34 30 30 00 EF 37 DA 20 85 22 11 9F 41 |0.8400..7. ."..A|
00002FD0: 4E 4F 54 48 45 52 20 43 4F 4C 4F 55 52 22 3B 42 |NOTHER COLOUR";B|
00002FE0: 3A 8B 42 B1 31 35 B0 42 B3 30 A7 38 34 31 30 00 |:.B.15.B.0.8410.|
00002FF0: 25 38 E4 20 85 22 11 9E 41 4E 44 20 54 48 45 20 |%8. ."..AND THE |
00003000: 46 4C 41 53 48 20 52 41 54 45 20 28 30 2D 32 35 |FLASH RATE (0-25|
00003010: 35 29 22 3B 43 3A 8B 43 B1 32 35 35 B0 43 B3 30 |5)";C:.C.255.C.0|
00003020: A7 38 34 32 30 00 35 38 EE 20 42 46 4C 41 53 48 |.8420.58. BFLASH|
00003030: 41 2C 42 2C 43 00 4C 38 F8 20 99 22 11 05 50 52 |A,B,C.L8. ."..PR|
00003040: 45 53 53 20 41 4E 59 20 4B 45 59 22 00 60 38 02 |ESS ANY KEY".`8.|
00003050: 21 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 34 35 30 |!.A$:.A$."".8450|
00003060: 00 92 38 0C 21 99 22 93 11 1D 20 20 54 48 45 20 |..8.!."... THE |
00003070: 27 42 46 4C 41 53 48 27 20 43 4F 4D 4D 41 4E 44 |'BFLASH' COMMAND|
00003080: 20 49 53 20 44 49 53 41 42 4C 45 44 20 57 49 54 | IS DISABLED WIT|
00003090: 48 22 00 B0 38 16 21 99 22 54 48 45 20 27 4F 46 |H"..8.!."THE 'OF|
000030A0: 46 27 20 49 4E 53 54 52 55 43 54 49 4F 4E 2E 22 |F' INSTRUCTION."|
000030B0: 00 E0 38 20 21 85 22 11 9F 45 4E 54 45 52 20 41 |..8 !."..ENTER A|
000030C0: 20 43 4F 4C 4F 55 52 20 28 30 2D 31 35 29 22 3B | COLOUR (0-15)";|
000030D0: 41 3A 8B 41 B1 31 35 B0 41 B3 30 A7 38 34 38 30 |A:.A.15.A.0.8480|
000030E0: 00 E9 38 2A 21 4F 46 46 41 00 00 39 34 21 99 22 |..8*!OFFA..94!."|
000030F0: 11 05 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 |..PRESS ANY KEY"|
00003100: 00 14 39 3E 21 A1 41 24 3A 8B 41 24 B2 22 22 A7 |..9>!.A$:.A$."".|
00003110: 38 35 31 30 00 1E 39 48 21 8D 38 38 30 30 00 48 |8510..9H!.8800.H|
00003120: 39 52 21 99 22 93 05 11 1D 1D 1D 1D 1D 1D 1D 1D |9R!."...........|
00003130: 1D 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 46 |.DEMONSTRATION F|
00003140: 49 4E 49 53 48 45 44 22 00 6F 39 5C 21 99 22 1D |INISHED".o9\!.".|
00003150: 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003160: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 |..............".|
00003170: 9E 39 66 21 99 22 11 44 4F 20 59 4F 55 20 57 41 |.9f!.".DO YOU WA|
00003180: 4E 54 20 54 4F 20 12 52 92 55 4E 20 54 48 45 20 |NT TO .R.UN THE |
00003190: 50 52 4F 47 52 41 4D 20 41 47 41 49 4E 22 00 BD |PROGRAM AGAIN"..|
000031A0: 39 70 21 99 22 11 4F 52 20 44 49 53 50 4C 41 59 |9p!.".OR DISPLAY|
000031B0: 20 54 48 45 20 12 4D 92 45 4E 55 2E 22 00 D2 39 | THE .M.ENU."..9|
000031C0: 7A 21 A1 41 24 3A 8B 41 24 B2 22 52 22 A7 38 30 |z!.A$:.A$."R".80|
000031D0: 30 30 00 E4 39 84 21 8B 41 24 B3 B1 22 4D 22 A7 |00..9.!.A$.."M".|
000031E0: 38 35 37 30 00 EC 39 8E 21 89 31 30 00 14 3A B6 |8570..9.!.10..:.|
000031F0: 21 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |!.".............|
00003200: 53 43 52 45 45 4E 20 4D 41 4E 49 50 55 4C 41 54 |SCREEN MANIPULAT|
00003210: 49 4F 4E 22 00 3A 3A C0 21 99 22 1D 1D 1D 1D 1D |ION".::.!.".....|
00003220: 1D 1D 1D 1D 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003230: C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 5E 3A CA 21 99 |.........".^:.!.|
00003240: 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00003250: 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 22 00 81 |DEMONSTRATION"..|
00003260: 3A D4 21 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |:.!."...........|
00003270: 1D 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003280: 22 00 AF 3A DE 21 99 22 11 11 9E 20 20 54 48 45 |"..:.!."... THE|
00003290: 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 48 41 | COMMODORE 64 HA|
000032A0: 53 20 41 4E 20 45 58 54 52 45 4D 45 4C 59 22 00 |S AN EXTREMELY".|
000032B0: DA 3A E8 21 99 22 56 45 52 53 41 54 49 4C 45 20 |.:.!."VERSATILE |
000032C0: 53 43 52 45 45 4E 2C 4D 41 4B 49 4E 47 20 49 54 |SCREEN,MAKING IT|
000032D0: 20 41 4E 44 20 49 54 53 20 22 00 08 3B F2 21 99 | AND ITS "..;.!.|
000032E0: 22 43 4F 4E 54 45 4E 54 53 20 45 41 53 59 20 54 |"CONTENTS EASY T|
000032F0: 4F 20 43 4F 4E 54 52 4F 4C 2E 54 48 45 20 53 55 |O CONTROL.THE SU|
00003300: 50 41 42 41 53 49 43 22 00 37 3B FC 21 99 22 53 |PABASIC".7;.!."S|
00003310: 43 52 45 45 4E 20 43 4F 4D 4D 41 4E 44 53 20 41 |CREEN COMMANDS A|
00003320: 4C 4C 4F 57 20 59 4F 55 20 54 4F 20 4D 41 4E 49 |LLOW YOU TO MANI|
00003330: 50 55 4C 41 54 45 22 00 66 3B 06 22 99 22 54 48 |PULATE".f;."."TH|
00003340: 45 20 53 43 52 45 45 4E 20 57 49 54 48 20 54 45 |E SCREEN WITH TE|
00003350: 4E 20 43 4F 4D 4D 41 4E 44 53 20 45 53 50 45 43 |N COMMANDS ESPEC|
00003360: 49 41 4C 4C 59 22 00 93 3B 10 22 99 22 46 4F 52 |IALLY"..;."."FOR|
00003370: 20 54 48 49 53 20 50 55 52 50 4F 53 45 2C 53 55 | THIS PURPOSE,SU|
00003380: 43 48 20 41 53 20 27 53 43 52 4F 4C 4C 27 20 41 |CH AS 'SCROLL' A|
00003390: 4E 44 22 00 A1 3B 1A 22 99 22 27 56 44 55 27 2E |ND"..;."."'VDU'.|
000033A0: 22 00 B5 3B 24 22 99 22 9F 11 54 48 45 53 45 20 |"..;$"."..THESE |
000033B0: 41 52 45 3A 22 00 E5 3B 2E 22 99 22 11 81 20 20 |ARE:"..;.".".. |
000033C0: 43 4F 4C 4F 55 52 2C 49 4E 56 45 52 54 2C 44 45 |COLOUR,INVERT,DE|
000033D0: 4C 41 59 2C 42 46 4C 41 53 48 2C 4F 46 46 2C 42 |LAY,BFLASH,OFF,B|
000033E0: 43 4F 4C 2C 22 00 03 3C 38 22 99 22 53 43 52 4F |COL,"..<8"."SCRO|
000033F0: 4C 4C 2C 43 55 52 53 4F 52 2C 49 4E 4B 2C 56 44 |LL,CURSOR,INK,VD|
00003400: 55 2E 22 00 26 3C 42 22 99 22 11 05 50 52 45 53 |U.".&<B"."..PRES|
00003410: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
00003420: 54 49 4E 55 45 22 00 3A 3C 4C 22 A1 41 24 3A 8B |TINUE".:<L".A$:.|
00003430: 41 24 B2 22 22 A7 38 37 38 30 00 40 3C 56 22 8E |A$."".8780.@<V".|
00003440: 00 73 3C 60 22 99 22 93 05 11 20 20 54 48 45 20 |.s<`"."... THE |
00003450: 27 43 55 52 53 4F 52 27 20 43 4F 4D 4D 41 4E 44 |'CURSOR' COMMAND|
00003460: 20 57 49 4C 4C 20 50 4F 53 49 54 49 4F 4E 20 54 | WILL POSITION T|
00003470: 48 45 22 00 A0 3C 6A 22 99 22 43 55 52 53 4F 52 |HE"..<j"."CURSOR|
00003480: 20 41 54 20 54 48 45 20 43 4F 2D 4F 52 44 49 4E | AT THE CO-ORDIN|
00003490: 41 54 45 53 20 53 50 45 43 49 46 49 45 44 2E 22 |ATES SPECIFIED."|
000034A0: 00 D2 3C 74 22 85 22 11 9F 45 4E 54 45 52 20 52 |..<t"."..ENTER R|
000034B0: 4F 57 20 43 4F 2D 4F 52 44 20 28 30 2D 32 34 29 |OW CO-ORD (0-24)|
000034C0: 22 3B 41 3A 8B 41 B1 32 34 B0 41 B3 30 A7 38 38 |";A:.A.24.A.0.88|
000034D0: 32 30 00 07 3D 7E 22 85 22 11 9E 45 4E 54 45 52 |20..=~"."..ENTER|
000034E0: 20 43 4F 4C 55 4D 4E 20 43 4F 2D 4F 52 44 20 28 | COLUMN CO-ORD (|
000034F0: 30 2D 33 39 29 22 3B 42 3A 8B 42 B1 33 39 B0 42 |0-39)";B:.B.39.B|
00003500: B3 30 A7 38 38 33 30 00 27 3D 88 22 85 22 11 81 |.0.8830.'=."."..|
00003510: 4E 4F 57 20 45 4E 54 45 52 20 53 4F 4D 45 20 54 |NOW ENTER SOME T|
00003520: 45 58 54 22 3B 41 24 00 38 3D 92 22 43 55 52 53 |EXT";A$.8=."CURS|
00003530: B0 41 2C 42 3A 99 41 24 00 4F 3D 9C 22 99 22 11 |.A,B:.A$.O=.".".|
00003540: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 00 |PRESS ANY KEY.".|
00003550: 63 3D A6 22 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 |c=.".A$:.A$."".8|
00003560: 38 37 30 00 69 3D B0 22 8E 00 74 3D 10 27 8D 31 |870.i=."..t=.'.1|
00003570: 30 32 32 30 00 7E 3D 1A 27 56 4F 4C 31 35 00 90 |0220.~=.'VOL15..|
00003580: 3D 24 27 45 4E 56 31 2C 30 2C 33 2C 31 33 2C 30 |=$'ENV1,0,3,13,0|
00003590: 00 A2 3D 2E 27 45 4E 56 32 2C 32 2C 35 2C 31 31 |..=.'ENV2,2,5,11|
000035A0: 2C 37 00 B5 3D 38 27 45 4E 56 33 2C 32 2C 31 31 |,7..=8'ENV3,2,11|
000035B0: 2C 31 35 2C 33 00 C1 3D 42 27 57 41 56 45 31 2C |,15,3..=B'WAVE1,|
000035C0: 32 00 CD 3D 4C 27 57 41 56 45 32 2C 33 00 D9 3D |2..=L'WAVE2,3..=|
000035D0: 56 27 57 41 56 45 33 2C 32 00 E9 3D 60 27 50 55 |V'WAVE3,2..=`'PU|
000035E0: 4C 53 45 32 2C 32 30 34 38 00 0B 3E 6A 27 81 42 |LSE2,2048..>j'.B|
000035F0: B2 31 A4 33 3A 8C 3A 81 41 B2 31 A4 32 36 3A 87 |.1.3:.:.A.1.26:.|
00003600: 58 3A 82 3A 81 41 B2 31 A4 35 32 00 1A 3E 74 27 |X:.:.A.1.52..>t'|
00003610: 81 53 B2 31 A4 31 30 30 3A 82 00 21 3E 7E 27 87 |.S.1.100:..!>~'.|
00003620: 58 00 28 3E 88 27 87 59 00 2F 3E 92 27 87 5A 00 |X.(>.'.Y./>.'.Z.|
00003630: 3B 3E 9C 27 50 4C 41 59 31 2C 58 00 47 3E A6 27 |;>.'PLAY1,X.G>.'|
00003640: 50 4C 41 59 32 2C 59 00 53 3E B0 27 50 4C 41 59 |PLAY2,Y.S>.'PLAY|
00003650: 33 2C 5A 00 59 3E BA 27 82 00 5F 3E C4 27 82 00 |3,Z.Y>.'.._>.'..|
00003660: 65 3E CE 27 8E 00 B0 3E D8 27 83 32 31 34 35 2C |e>.'...>.'.2145,|
00003670: 32 32 37 33 2C 32 34 30 38 2C 32 35 35 31 2C 32 |2273,2408,2551,2|
00003680: 37 30 33 2C 32 38 36 34 2C 33 30 33 34 2C 33 32 |703,2864,3034,32|
00003690: 31 35 2C 33 34 30 36 2C 33 36 30 38 2C 33 38 32 |15,3406,3608,382|
000036A0: 33 2C 34 30 35 30 2C 34 32 39 31 2C 34 35 34 37 |3,4050,4291,4547|
000036B0: 00 F1 3E E2 27 83 34 38 31 37 2C 35 31 30 33 2C |..>.'.4817,5103,|
000036C0: 35 34 30 37 2C 35 37 32 38 2C 36 30 36 39 2C 36 |5407,5728,6069,6|
000036D0: 34 33 30 2C 36 38 31 32 2C 37 32 31 37 2C 37 36 |430,6812,7217,76|
000036E0: 34 37 2C 38 31 30 31 2C 38 35 38 33 2C 39 30 39 |47,8101,8583,909|
000036F0: 34 00 0B 3F EC 27 43 4F 4C 4F 55 52 30 2C 30 3A |4..?.'COLOUR0,0:|
00003700: 56 44 55 31 34 37 3A 49 4E 4B 31 00 37 3F F6 27 |VDU147:INK1.7?.'|
00003710: 99 22 11 1D 1D 1D 1D 1D 53 55 50 41 42 41 53 49 |."......SUPABASI|
00003720: 43 20 53 4F 55 4E 44 20 44 45 4D 4F 4E 53 54 52 |C SOUND DEMONSTR|
00003730: 41 54 49 4F 4E 2E 22 00 62 3F 00 28 99 22 1D 1D |ATION.".b?.(."..|
00003740: 1D 1D 1D C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00003750: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00003760: C4 22 00 8F 3F 0A 28 99 22 11 11 53 55 50 41 42 |."..?.(."..SUPAB|
00003770: 41 53 49 43 20 55 54 49 4C 49 53 45 53 20 54 4F |ASIC UTILISES TO|
00003780: 20 54 48 45 20 46 55 4C 4C 20 54 48 45 20 22 00 | THE FULL THE ".|
00003790: BD 3F 14 28 99 22 45 58 43 45 4C 4C 45 4E 54 20 |.?.(."EXCELLENT |
000037A0: 53 4F 55 4E 44 20 46 41 43 49 4C 49 54 49 45 53 |SOUND FACILITIES|
000037B0: 20 4F 46 20 54 48 45 20 27 36 34 27 22 00 EC 3F | OF THE '64'"..?|
000037C0: 1E 28 99 22 54 48 45 20 45 58 54 45 4E 53 49 4F |.(."THE EXTENSIO|
000037D0: 4E 20 50 52 4F 56 49 44 45 53 20 35 20 53 4F 55 |N PROVIDES 5 SOU|
000037E0: 4E 44 20 43 4F 4D 4D 41 4E 44 53 22 00 1B 40 28 |ND COMMANDS"..@(|
000037F0: 28 99 22 46 4F 52 20 45 41 53 59 20 43 4F 4E 54 |(."FOR EASY CONT|
00003800: 52 4F 4C 20 4F 56 45 52 20 54 48 45 20 43 4F 4D |ROL OVER THE COM|
00003810: 50 55 54 45 52 53 20 53 49 44 22 00 33 40 32 28 |PUTERS SID".3@2(|
00003820: 99 22 43 48 49 50 2E 54 48 45 53 45 20 41 52 45 |."CHIP.THESE ARE|
00003830: 20 3A 22 00 56 40 3C 28 99 22 81 11 11 56 4F 4C | :".V@<(."...VOL|
00003840: 2C 57 41 56 45 2C 45 4E 56 2C 50 55 4C 53 45 2C |,WAVE,ENV,PULSE,|
00003850: 50 4C 41 59 2E 22 00 81 40 46 28 99 22 11 9F 50 |PLAY."..@F(."..P|
00003860: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 46 4F 52 |RESS ANY KEY FOR|
00003870: 20 41 20 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E | A DEMONSTRATION|
00003880: 22 00 97 40 50 28 A1 41 24 3A 8B 41 24 B3 B1 22 |"..@P(.A$:.A$.."|
00003890: 22 A7 31 30 33 32 30 00 AC 40 5A 28 A1 41 24 3A |".10320..@Z(.A$:|
000038A0: 8B 41 24 B2 22 22 A7 31 30 33 33 30 00 D8 40 64 |.A$."".10330..@d|
000038B0: 28 56 44 55 31 34 37 3A 99 22 11 11 1D 1D 1D 1D |(VDU147:."......|
000038C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 4B 45 59 42 4F 41 52 |.........KEYBOAR|
000038D0: 44 20 53 59 4E 54 48 22 00 FB 40 6E 28 99 22 1D |D SYNTH"..@n(.".|
000038E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C4 C4 C4 C4 |................|
000038F0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 26 41 78 28 |..........".&Ax(|
00003900: 99 22 11 11 11 1E 50 55 53 48 20 44 4F 57 4E 20 |."....PUSH DOWN |
00003910: 41 20 4B 45 59 20 54 4F 20 50 4C 41 59 20 41 20 |A KEY TO PLAY A |
00003920: 4E 4F 54 45 2E 22 00 41 41 82 28 99 22 11 9F 50 |NOTE.".AA.(."..P|
00003930: 55 53 48 20 27 2A 27 20 54 4F 20 53 54 4F 50 2E |USH '*' TO STOP.|
00003940: 22 00 7A 41 8C 28 81 41 B2 35 34 32 37 32 A4 35 |".zA.(.A.54272.5|
00003950: 34 32 37 32 AA 32 34 3A 97 41 2C 30 3A 82 3A 45 |4272.24:.A,0:.:E|
00003960: 4E 56 31 2C 30 2C 30 2C 31 35 2C 30 3A 57 41 56 |NV1,0,0,15,0:WAV|
00003970: 45 31 2C 31 3A 56 4F 4C 31 35 00 8F 41 96 28 A1 |E1,1:VOL15..A.(.|
00003980: 41 24 3A 8B 41 24 B2 22 22 A7 31 30 33 39 30 00 |A$:.A$."".10390.|
00003990: A1 41 A0 28 8B 41 24 B2 22 2A 22 A7 31 30 34 36 |.A.(.A$."*".1046|
000039A0: 30 00 BA 41 AA 28 8B 41 24 B3 22 41 22 B0 41 24 |0..A.(.A$."A".A$|
000039B0: B1 22 5A 22 A7 31 30 33 39 30 00 C9 41 B4 28 41 |."Z".10390..A.(A|
000039C0: B2 C6 28 41 24 29 AB 36 34 00 DB 41 BE 28 8C 3A |..(A$).64..A.(.:|
000039D0: 81 42 B2 31 A4 41 3A 87 4E 3A 82 00 F8 41 C8 28 |.B.1.A:.N:...A.(|
000039E0: 50 4C 41 59 31 2C 4E 3A A1 41 24 3A 8B 41 24 B2 |PLAY1,N:.A$:.A$.|
000039F0: 22 22 A7 31 30 33 39 30 00 03 42 D2 28 89 31 30 |"".10390..B.(.10|
00003A00: 34 30 30 00 31 42 DC 28 56 44 55 31 34 37 3A 99 |400.1B.(VDU147:.|
00003A10: 22 05 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4D 55 53 |"............MUS|
00003A20: 49 43 20 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E |IC DEMONSTRATION|
00003A30: 22 00 56 42 E6 28 99 22 1D 1D 1D 1D 1D 1D 1D 1D |".VB.(."........|
00003A40: 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003A50: C3 C3 C3 C3 C3 22 00 88 42 F0 28 99 22 11 11 11 |....."..B.(."...|
00003A60: 9E 41 44 41 50 54 45 44 20 42 59 20 54 2E 47 49 |.ADAPTED BY T.GI|
00003A70: 42 53 4F 4E 20 57 49 54 48 20 54 48 45 20 53 55 |BSON WITH THE SU|
00003A80: 50 41 42 41 53 49 43 22 00 A1 42 FA 28 99 22 11 |PABASIC"..B.(.".|
00003A90: 53 4F 55 4E 44 20 43 4F 4D 4D 41 4E 44 53 2E 05 |SOUND COMMANDS..|
00003AA0: 22 00 B1 42 04 29 8D 31 30 30 31 30 3A 56 4F 4C |"..B.).10010:VOL|
00003AB0: 30 00 DD 42 0E 29 99 22 93 11 11 9F 1D 1D 1D 1D |0..B.)."........|
00003AC0: 1D 1D 1D 1D 1D 44 45 4D 4F 4E 53 54 52 41 54 49 |.....DEMONSTRATI|
00003AD0: 4F 4E 20 46 49 4E 49 53 48 45 44 2E 22 00 05 43 |ON FINISHED."..C|
00003AE0: 18 29 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 |.)."............|
00003AF0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003B00: C3 C3 C3 C3 22 00 33 43 22 29 99 22 11 11 11 44 |....".3C")."...D|
00003B10: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 12 52 |O YOU WANT TO .R|
00003B20: 92 55 4E 20 54 48 45 20 44 45 4D 4F 20 41 47 41 |.UN THE DEMO AGA|
00003B30: 49 4E 22 00 52 43 2C 29 99 22 11 4F 52 20 44 49 |IN".RC,).".OR DI|
00003B40: 53 50 4C 41 59 20 54 48 45 20 12 4D 92 45 4E 55 |SPLAY THE .M.ENU|
00003B50: 22 3B 00 68 43 36 29 A1 41 24 3A 8B 41 24 B2 22 |";.hC6).A$:.A$."|
00003B60: 52 22 A7 31 30 30 30 30 00 7A 43 40 29 8B 41 24 |R".10000.zC@).A$|
00003B70: B2 22 4D 22 A7 31 30 35 38 30 00 85 43 4A 29 89 |."M".10580..CJ).|
00003B80: 31 30 35 35 30 00 8D 43 54 29 89 31 30 00 B0 43 |10550..CT).10..C|
00003B90: 7C 29 83 37 32 31 37 2C 35 34 30 37 2C 34 32 39 ||).7217,5407,429|
00003BA0: 31 2C 38 31 30 31 2C 35 34 30 37 2C 34 32 39 31 |1,8101,5407,4291|
00003BB0: 00 D6 43 86 29 83 38 35 38 33 2C 30 2C 30 2C 38 |..C.).8583,0,0,8|
00003BC0: 31 30 31 2C 30 2C 30 2C 37 32 31 37 2C 35 34 30 |101,0,0,7217,540|
00003BD0: 37 2C 34 32 39 31 00 FC 43 90 29 83 37 32 31 37 |7,4291..C.).7217|
00003BE0: 2C 35 34 30 37 2C 34 32 39 31 2C 37 32 31 37 2C |,5407,4291,7217,|
00003BF0: 30 2C 30 2C 37 32 31 37 2C 30 2C 30 00 1F 44 9A |0,0,7217,0,0..D.|
00003C00: 29 83 37 32 31 37 2C 35 34 30 37 2C 34 32 39 31 |).7217,5407,4291|
00003C10: 2C 38 31 30 31 2C 35 34 30 37 2C 34 32 39 31 00 |,8101,5407,4291.|
00003C20: 41 44 A4 29 83 38 35 38 33 2C 30 2C 30 2C 39 36 |AD.).8583,0,0,96|
00003C30: 33 34 2C 30 2C 30 2C 31 30 38 31 34 2C 35 34 30 |34,0,0,10814,540|
00003C40: 37 00 63 44 AE 29 83 34 32 39 31 2C 31 30 38 31 |7.cD.).4291,1081|
00003C50: 34 2C 35 34 30 37 2C 34 32 39 31 2C 31 30 38 31 |4,5407,4291,1081|
00003C60: 34 2C 30 00 74 44 B8 29 83 30 2C 31 30 38 31 34 |4,0.tD.).0,10814|
00003C70: 2C 30 2C 30 00 98 44 C2 29 83 39 36 33 34 2C 34 |,0,0..D.).9634,4|
00003C80: 38 31 37 2C 35 37 32 38 2C 31 30 38 31 34 2C 34 |817,5728,10814,4|
00003C90: 38 31 37 2C 35 37 32 38 00 BC 44 CC 29 83 31 31 |817,5728..D.).11|
00003CA0: 34 35 37 2C 30 2C 30 2C 31 32 38 36 30 2C 30 2C |457,0,0,12860,0,|
00003CB0: 30 2C 31 34 34 33 35 2C 34 38 31 37 00 E0 44 D6 |0,14435,4817..D.|
00003CC0: 29 83 35 37 32 38 2C 31 34 34 33 35 2C 34 38 31 |).5728,14435,481|
00003CD0: 37 2C 35 37 32 38 2C 31 34 34 33 35 2C 30 2C 30 |7,5728,14435,0,0|
00003CE0: 00 EF 44 E0 29 83 31 34 34 33 35 2C 30 2C 30 00 |..D.).14435,0,0.|
00003CF0: 14 45 EA 29 83 31 34 34 33 35 2C 35 34 30 37 2C |.E.).14435,5407,|
00003D00: 34 32 39 31 2C 31 36 32 30 33 2C 35 34 30 37 2C |4291,16203,5407,|
00003D10: 34 32 39 31 00 38 45 F4 29 83 31 37 31 36 37 2C |4291.8E.).17167,|
00003D20: 30 2C 30 2C 31 36 32 30 33 2C 30 2C 30 2C 31 34 |0,0,16203,0,0,14|
00003D30: 34 33 35 2C 35 34 30 37 00 5C 45 FE 29 83 34 32 |435,5407.\E.).42|
00003D40: 39 31 2C 31 34 34 33 35 2C 35 34 30 37 2C 34 32 |91,14435,5407,42|
00003D50: 39 31 2C 31 34 34 33 35 2C 30 2C 30 00 6B 45 08 |91,14435,0,0.kE.|
00003D60: 2A 83 31 34 34 33 35 2C 30 2C 30 00 90 45 12 2A |*.14435,0,0..E.*|
00003D70: 83 31 30 38 31 34 2C 33 34 30 36 2C 33 34 30 36 |.10814,3406,3406|
00003D80: 2C 31 30 38 31 34 2C 33 36 30 38 2C 33 36 30 38 |,10814,3608,3608|
00003D90: 00 B5 45 1C 2A 83 31 30 38 31 34 2C 34 30 35 30 |..E.*.10814,4050|
00003DA0: 2C 34 30 35 30 2C 31 30 38 31 34 2C 33 36 30 38 |,4050,10814,3608|
00003DB0: 2C 33 36 30 38 00 DA 45 26 2A 83 31 30 38 31 34 |,3608..E&*.10814|
00003DC0: 2C 33 34 30 36 2C 33 34 30 36 2C 31 30 38 31 34 |,3406,3406,10814|
00003DD0: 2C 33 34 30 36 2C 33 34 30 36 00 FD 45 30 2A 83 |,3406,3406..E0*.|
00003DE0: 38 31 30 31 2C 33 34 30 36 2C 33 34 30 36 2C 38 |8101,3406,3406,8|
00003DF0: 31 30 31 2C 33 34 30 36 2C 33 34 30 36 00 20 46 |101,3406,3406. F|
00003E00: 3A 2A 83 38 35 38 33 2C 33 36 30 38 2C 33 36 30 |:*.8583,3608,360|
00003E10: 38 2C 38 35 38 33 2C 34 30 35 30 2C 34 30 35 30 |8,8583,4050,4050|
00003E20: 00 43 46 44 2A 83 38 35 38 33 2C 34 32 39 31 2C |.CFD*.8583,4291,|
00003E30: 34 32 39 31 2C 38 35 38 33 2C 34 38 31 37 2C 34 |4291,8583,4817,4|
00003E40: 38 31 37 00 66 46 4E 2A 83 38 35 38 33 2C 35 34 |817.fFN*.8583,54|
00003E50: 30 37 2C 35 34 30 37 2C 38 35 38 33 2C 35 34 30 |07,5407,8583,540|
00003E60: 37 2C 35 34 30 37 00 89 46 58 2A 83 37 32 31 37 |7,5407..FX*.7217|
00003E70: 2C 35 34 30 37 2C 35 34 30 37 2C 37 32 31 37 2C |,5407,5407,7217,|
00003E80: 35 34 30 37 2C 35 34 30 37 00 AE 46 62 2A 83 31 |5407,5407..Fb*.1|
00003E90: 30 38 31 34 2C 33 34 30 36 2C 33 34 30 36 2C 31 |0814,3406,3406,1|
00003EA0: 30 38 31 34 2C 33 36 30 38 2C 33 36 30 38 00 D3 |0814,3608,3608..|
00003EB0: 46 6C 2A 83 31 30 38 31 34 2C 34 30 35 30 2C 34 |Fl*.10814,4050,4|
00003EC0: 30 35 30 2C 31 30 38 31 34 2C 33 36 30 38 2C 33 |050,10814,3608,3|
00003ED0: 36 30 38 00 E5 46 E0 2E 8D 31 32 38 35 30 3A 8D |608..F...12850:.|
00003EE0: 31 32 37 32 30 00 F2 46 EA 2E 56 44 55 31 34 37 |12720..F..VDU147|
00003EF0: 2C 35 00 15 47 F4 2E 85 22 11 11 48 41 56 45 20 |,5..G..."..HAVE |
00003F00: 59 4F 55 20 41 20 44 49 53 4B 20 44 52 49 56 45 |YOU A DISK DRIVE|
00003F10: 20 22 3B 44 24 00 52 47 FE 2E 8B 44 24 B3 B1 22 | ";D$.RG...D$.."|
00003F20: 59 22 A7 31 32 31 30 30 3A 99 3A 99 22 54 48 49 |Y".12100:.:."THI|
00003F30: 53 20 44 45 4D 4F 4E 53 54 52 41 54 45 53 20 54 |S DEMONSTRATES T|
00003F40: 48 45 20 27 43 41 54 27 20 43 4F 4D 4D 41 4E 44 |HE 'CAT' COMMAND|
00003F50: 2E 22 00 80 47 08 2F 99 3A 99 22 54 48 49 53 20 |."..G./.:."THIS |
00003F60: 44 45 4D 4F 4E 53 54 52 41 54 45 53 20 54 48 45 |DEMONSTRATES THE|
00003F70: 20 27 43 41 54 27 20 43 4F 4D 4D 41 4E 44 2E 22 | 'CAT' COMMAND."|
00003F80: 00 AE 47 12 2F 99 22 11 49 4E 53 45 52 54 20 41 |..G./.".INSERT A|
00003F90: 20 44 49 53 4B 20 41 4E 44 20 54 48 45 4E 20 50 | DISK AND THEN P|
00003FA0: 55 53 48 20 27 53 50 41 43 45 27 22 3A 99 00 C5 |USH 'SPACE'":...|
00003FB0: 47 1C 2F A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 |G./.A$:.A$.." ".|
00003FC0: 31 32 30 36 30 00 DF 47 26 2F 43 41 54 30 3A 99 |12060..G&/CAT0:.|
00003FD0: 22 11 50 55 53 48 20 41 4E 59 20 4B 45 59 22 00 |".PUSH ANY KEY".|
00003FE0: F4 47 30 2F A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.G0/.A$:.A$."".1|
00003FF0: 32 30 38 30 00 FF 47 3A 2F 56 44 55 31 34 37 00 |2080..G:/VDU147.|
00004000: 25 48 44 2F 85 22 11 11 48 41 56 45 20 59 4F 55 |%HD/."..HAVE YOU|
00004010: 20 41 20 43 41 53 53 45 54 54 45 20 44 52 49 56 | A CASSETTE DRIV|
00004020: 45 22 3B 54 24 00 38 48 4E 2F 8B 54 24 B3 B1 22 |E";T$.8HN/.T$.."|
00004030: 59 22 A7 31 32 31 39 30 00 6C 48 58 2F 99 3A 99 |Y".12190.lHX/.:.|
00004040: 22 54 48 45 20 27 49 4E 46 4F 27 20 43 4F 4D 4D |"THE 'INFO' COMM|
00004050: 41 4E 44 20 47 49 56 45 53 20 54 48 45 20 53 54 |AND GIVES THE ST|
00004060: 41 52 54 20 41 4E 44 20 22 3A 99 3A 00 99 48 62 |ART AND ":.:..Hb|
00004070: 2F 99 22 45 4E 44 20 41 44 44 52 45 53 53 45 53 |/."END ADDRESSES|
00004080: 20 4F 46 20 41 20 50 52 4F 47 52 41 4D 20 4F 4E | OF A PROGRAM ON|
00004090: 20 54 41 50 45 2E 22 3A 99 00 D5 48 6C 2F 99 22 | TAPE.":...Hl/."|
000040A0: 52 45 57 49 4E 44 20 41 20 43 41 53 53 45 54 54 |REWIND A CASSETT|
000040B0: 45 20 54 4F 20 54 48 45 20 53 54 41 52 54 20 41 |E TO THE START A|
000040C0: 4E 44 20 50 55 53 48 22 3A 99 3A 99 22 27 53 50 |ND PUSH":.:."'SP|
000040D0: 41 43 45 27 22 00 EB 48 76 2F A1 41 24 3A 8B 41 |ACE'"..Hv/.A$:.A|
000040E0: 24 B3 B1 22 22 A7 31 32 31 35 30 00 F4 48 80 2F |$.."".12150..H./|
000040F0: 49 4E 46 4F 00 0C 49 8A 2F 99 3A 99 22 11 50 52 |INFO..I./.:.".PR|
00004100: 45 53 53 20 41 4E 59 20 4B 45 59 22 00 21 49 94 |ESS ANY KEY".!I.|
00004110: 2F A1 41 24 3A 8B 41 24 B2 22 22 A7 31 32 31 38 |/.A$:.A$."".1218|
00004120: 30 00 3C 49 9E 2F 8B 54 24 B3 B1 22 59 22 AF 44 |0.<I./.T$.."Y".D|
00004130: 24 B3 B1 22 59 22 A7 31 32 34 39 30 00 75 49 A8 |$.."Y".12490.uI.|
00004140: 2F 56 44 55 31 34 37 3A 99 22 11 11 54 48 45 52 |/VDU147:."..THER|
00004150: 45 20 41 52 45 20 41 4C 53 4F 20 43 4F 4D 4D 41 |E ARE ALSO COMMA|
00004160: 4E 44 53 20 54 4F 20 4C 4F 41 44 20 41 4E 44 20 |NDS TO LOAD AND |
00004170: 53 41 56 45 22 00 A5 49 B2 2F 99 22 42 4C 4F 43 |SAVE"..I./."BLOC|
00004180: 4B 53 20 4F 46 20 4D 45 4D 4F 52 59 20 46 52 4F |KS OF MEMORY FRO|
00004190: 4D 2F 54 4F 20 44 49 53 4B 20 4F 52 20 54 41 50 |M/TO DISK OR TAP|
000041A0: 45 2E 22 3A 99 00 D5 49 BC 2F 99 22 11 28 49 46 |E.":...I./.".(IF|
000041B0: 20 59 4F 55 20 44 4F 20 4E 4F 54 20 57 49 53 48 | YOU DO NOT WISH|
000041C0: 20 54 4F 20 53 41 56 45 20 54 59 50 45 20 27 58 | TO SAVE TYPE 'X|
000041D0: 27 20 49 4E 22 00 F2 49 C6 2F 99 22 11 52 45 50 |' IN"..I./.".REP|
000041E0: 4C 59 20 54 4F 20 54 48 45 20 49 4E 50 55 54 2E |LY TO THE INPUT.|
000041F0: 29 22 00 0F 4A D0 2F 85 22 11 11 12 44 92 49 53 |)"..J./."...D.IS|
00004200: 4B 20 4F 52 20 12 54 92 41 50 45 22 3B 41 24 00 |K OR .T.APE";A$.|
00004210: 27 4A DA 2F 8B 41 24 B2 22 54 22 A7 44 45 B2 31 |'J./.A$."T".DE.1|
00004220: 3A 89 31 32 32 39 30 00 3F 4A E4 2F 8B 41 24 B2 |:.12290.?J./.A$.|
00004230: 22 44 22 A7 44 45 B2 38 3A 89 31 32 32 39 30 00 |"D".DE.8:.12290.|
00004240: 51 4A EE 2F 8B 41 24 B2 22 58 22 A7 31 32 33 34 |QJ./.A$."X".1234|
00004250: 30 00 5C 4A F8 2F 89 31 32 32 34 30 00 82 4A 02 |0.\J./.12240..J.|
00004260: 30 85 22 11 46 49 4C 45 4E 41 4D 45 22 3B 46 24 |0.".FILENAME";F$|
00004270: 3A 8B 46 24 B2 22 22 AF 44 45 B2 38 A7 31 32 32 |:.F$."".DE.8.122|
00004280: 39 30 00 9B 4A 0C 30 85 22 11 53 54 41 52 54 20 |90..J.0.".START |
00004290: 41 44 44 52 45 53 53 22 3B 53 41 00 B2 4A 16 30 |ADDRESS";SA..J.0|
000042A0: 85 22 11 45 4E 44 20 41 44 44 52 45 53 53 22 3B |.".END ADDRESS";|
000042B0: 45 41 00 C4 4A 20 30 8B 53 41 B1 45 41 A7 89 31 |EA..J 0.SA.EA..1|
000042C0: 32 33 31 30 00 D8 4A 2A 30 40 94 46 24 2C 44 45 |2310..J*0@.F$,DE|
000042D0: 2C 30 2C 53 41 2C 45 41 00 EF 4A 34 30 99 3A 99 |,0,SA,EA..J40.:.|
000042E0: 22 11 50 55 53 48 20 41 4E 59 20 4B 45 59 22 00 |".PUSH ANY KEY".|
000042F0: 04 4B 3E 30 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.K>0.A$:.A$."".1|
00004300: 32 33 35 30 00 39 4B 48 30 56 44 55 31 34 37 3A |2350.9KH0VDU147:|
00004310: 99 22 11 11 54 48 45 52 45 20 49 53 20 41 4C 53 |."..THERE IS ALS|
00004320: 4F 20 41 20 27 53 43 53 56 27 20 43 4F 4D 4D 41 |O A 'SCSV' COMMA|
00004330: 4E 44 20 46 4F 52 22 3A 99 00 76 4B 52 30 99 22 |ND FOR":..vKR0."|
00004340: 53 41 56 45 49 4E 47 20 54 48 45 20 53 54 4F 52 |SAVEING THE STOR|
00004350: 45 44 20 48 49 52 45 53 20 53 43 52 45 45 4E 20 |ED HIRES SCREEN |
00004360: 54 4F 20 44 49 53 4B 22 3A 99 3A 99 22 4F 52 20 |TO DISK":.:."OR |
00004370: 54 41 50 45 2E 22 00 A5 4B 5C 30 99 22 11 28 49 |TAPE."..K\0.".(I|
00004380: 46 20 59 4F 55 20 44 4F 20 4E 4F 54 20 57 49 53 |F YOU DO NOT WIS|
00004390: 48 20 54 4F 20 53 41 56 45 20 54 48 45 20 53 43 |H TO SAVE THE SC|
000043A0: 52 45 45 4E 22 00 C5 4B 66 30 99 22 11 54 59 50 |REEN"..Kf0.".TYP|
000043B0: 45 20 27 58 27 20 54 4F 20 54 48 45 20 49 4E 50 |E 'X' TO THE INP|
000043C0: 55 54 2E 29 22 00 E2 4B 70 30 85 22 11 11 12 44 |UT.)"..Kp0."...D|
000043D0: 92 49 53 4B 20 4F 52 20 12 54 92 41 50 45 22 3B |.ISK OR .T.APE";|
000043E0: 41 24 00 FA 4B 7A 30 8B 41 24 B2 22 54 22 A7 44 |A$..Kz0.A$."T".D|
000043F0: 45 B2 31 3A 89 31 32 34 35 30 00 12 4C 84 30 8B |E.1:.12450..L.0.|
00004400: 41 24 B2 22 44 22 A7 44 45 B2 38 3A 89 31 32 34 |A$."D".DE.8:.124|
00004410: 35 30 00 24 4C 8E 30 8B 41 24 B2 22 58 22 A7 31 |50.$L.0.A$."X".1|
00004420: 32 34 39 30 00 2F 4C 98 30 89 31 32 34 30 30 00 |2490./L.0.12400.|
00004430: 55 4C A2 30 85 22 11 46 49 4C 45 4E 41 4D 45 22 |UL.0.".FILENAME"|
00004440: 3B 46 24 3A 8B 46 24 B2 22 22 AF 44 45 B2 38 A7 |;F$:.F$."".DE.8.|
00004450: 31 32 34 35 30 00 63 4C AC 30 53 43 53 56 46 24 |12450.cL.0SCSVF$|
00004460: 2C 44 45 00 79 4C B6 30 99 22 11 11 50 55 53 48 |,DE.yL.0."..PUSH|
00004470: 20 41 4E 59 20 4B 45 59 22 00 8E 4C C0 30 A1 41 | ANY KEY"..L.0.A|
00004480: 24 3A 8B 41 24 B2 22 22 A7 31 32 34 38 30 00 99 |$:.A$."".12480..|
00004490: 4C CA 30 56 44 55 31 34 37 00 BA 4C D4 30 85 22 |L.0VDU147..L.0."|
000044A0: 11 11 05 48 41 56 45 20 59 4F 55 20 41 20 4A 4F |...HAVE YOU A JO|
000044B0: 59 53 54 49 43 4B 22 3B 41 24 00 CC 4C DE 30 8B |YSTICK";A$..L.0.|
000044C0: 41 24 B2 22 4E 22 A7 31 32 36 30 30 00 DF 4C E8 |A$."N".12600..L.|
000044D0: 30 8B 41 24 B3 B1 22 59 22 A7 31 32 35 30 30 00 |0.A$.."Y".12500.|
000044E0: 11 4D F2 30 99 22 11 11 50 4C 55 47 20 49 54 20 |.M.0."..PLUG IT |
000044F0: 49 4E 54 4F 20 50 4F 52 54 20 23 31 20 41 4E 44 |INTO PORT #1 AND|
00004500: 20 4D 4F 56 45 20 49 54 20 41 52 4F 55 4E 44 2E | MOVE IT AROUND.|
00004510: 22 00 2B 4D FC 30 99 22 50 55 53 48 20 46 49 52 |".+M.0."PUSH FIR|
00004520: 45 20 54 4F 20 53 54 4F 50 2E 22 00 40 4D 06 31 |E TO STOP.".@M.1|
00004530: 99 22 11 11 11 44 49 52 45 43 54 49 4F 4E 3A 22 |."...DIRECTION:"|
00004540: 00 5A 4D 10 31 4A B2 4A 4F 59 28 31 29 3A 8B 4A |.ZM.1J.JOY(1):.J|
00004550: B1 31 32 37 A7 31 32 36 30 30 00 7F 4D 24 31 99 |.127.12600..M$1.|
00004560: 22 13 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D |"...............|
00004570: 1D 1D 1D 1D 1D 1D 1D 22 49 24 28 4A AA 31 29 00 |......."I$(J.1).|
00004580: 8A 4D 2E 31 89 31 32 35 36 30 00 BA 4D 38 31 56 |.M.1.12560..M81V|
00004590: 44 55 31 34 37 3A 99 22 05 11 1D 1D 1D 1D 1D 1D |DU147:."........|
000045A0: 1D 1D 1D 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E |...DEMONSTRATION|
000045B0: 20 46 49 4E 49 53 48 45 44 22 00 E1 4D 42 31 99 | FINISHED"..MB1.|
000045C0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 C3 C3 C3 |"...............|
000045D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000045E0: 22 00 0F 4E 4C 31 99 22 11 11 11 44 4F 20 59 4F |"..NL1."...DO YO|
000045F0: 55 20 57 41 4E 54 20 54 4F 20 12 52 92 55 4E 20 |U WANT TO .R.UN |
00004600: 54 48 45 20 44 45 4D 4F 20 41 47 41 49 4E 22 00 |THE DEMO AGAIN".|
00004610: 2F 4E 56 31 99 22 11 4F 52 20 44 49 53 50 4C 41 |/NV1.".OR DISPLA|
00004620: 59 20 54 48 45 20 12 4D 92 45 4E 55 2E 22 3B 00 |Y THE .M.ENU.";.|
00004630: 45 4E 60 31 A1 41 24 3A 8B 41 24 B2 22 52 22 A7 |EN`1.A$:.A$."R".|
00004640: 31 32 30 30 30 00 57 4E 6A 31 8B 41 24 B2 22 4D |12000.WNj1.A$."M|
00004650: 22 A7 31 32 36 37 30 00 62 4E 74 31 89 31 32 36 |".12670.bNt1.126|
00004660: 34 30 00 6A 4E 7E 31 89 31 30 00 80 4E B0 31 43 |40.jN~1.10..N.1C|
00004670: 2E 30 2C 30 3A 49 4E 4B 31 3A 56 44 55 31 34 37 |.0,0:INK1:VDU147|
00004680: 00 AA 4E BA 31 99 22 11 1D 1D 1D 1D 1D 1D 1D 49 |..N.1."........I|
00004690: 4E 50 55 54 2F 4F 55 54 50 55 54 20 44 45 4D 4F |NPUT/OUTPUT DEMO|
000046A0: 4E 53 54 52 41 54 49 4F 4E 22 00 D3 4E C4 31 99 |NSTRATION"..N.1.|
000046B0: 22 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 |"...............|
000046C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000046D0: C3 C3 22 00 04 4F CE 31 99 22 11 11 9E 20 20 54 |.."..O.1."... T|
000046E0: 48 49 53 20 44 45 4D 4F 4E 53 54 52 41 54 49 4F |HIS DEMONSTRATIO|
000046F0: 4E 20 53 48 4F 57 53 20 59 4F 55 20 48 4F 57 20 |N SHOWS YOU HOW |
00004700: 54 48 45 22 00 32 4F D8 31 99 22 53 55 50 41 42 |THE".2O.1."SUPAB|
00004710: 41 53 49 43 20 49 2F 4F 20 43 4F 4D 4D 41 4E 44 |ASIC I/O COMMAND|
00004720: 53 20 4C 45 54 20 59 4F 55 20 43 4F 4E 54 52 4F |S LET YOU CONTRO|
00004730: 4C 22 00 60 4F E2 31 99 22 48 4F 57 20 54 48 45 |L".`O.1."HOW THE|
00004740: 20 43 4F 4D 50 55 54 45 52 20 43 4F 4D 4D 55 4E | COMPUTER COMMUN|
00004750: 49 43 41 54 45 53 20 57 49 54 48 20 54 48 45 22 |ICATES WITH THE"|
00004760: 00 8E 4F EC 31 99 22 4F 55 54 53 49 44 45 20 57 |..O.1."OUTSIDE W|
00004770: 4F 52 4C 44 20 28 45 2E 47 2E 20 57 49 54 48 20 |ORLD (E.G. WITH |
00004780: 54 41 50 45 20 41 4E 44 20 44 49 53 4B 22 00 A5 |TAPE AND DISK"..|
00004790: 4F F6 31 99 22 41 4E 44 20 4A 4F 59 53 54 49 43 |O.1."AND JOYSTIC|
000047A0: 4B 53 2E 29 22 00 C5 4F 00 32 99 22 11 11 11 54 |KS.)"..O.2."...T|
000047B0: 48 45 20 49 2F 4F 20 43 4F 4D 4D 41 4E 44 53 20 |HE I/O COMMANDS |
000047C0: 41 52 45 3A 22 00 F4 4F 0A 32 99 22 11 11 20 20 |ARE:"..O.2.".. |
000047D0: 20 40 4C 4F 41 44 2C 40 53 41 56 45 2C 49 4E 46 | @LOAD,@SAVE,INF|
000047E0: 4F 2C 43 41 54 2C 53 43 53 56 20 41 4E 44 20 4A |O,CAT,SCSV AND J|
000047F0: 4F 59 2E 22 00 19 50 14 32 99 22 11 11 81 50 52 |OY."..P.2."...PR|
00004800: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
00004810: 4F 4E 54 49 4E 55 45 2E 22 00 2E 50 1E 32 A1 41 |ONTINUE."..P.2.A|
00004820: 24 3A 8B 41 24 B2 22 22 A7 31 32 38 33 30 00 39 |$:.A$."".12830.9|
00004830: 50 28 32 89 31 32 30 31 30 00 7C 50 32 32 49 24 |P(2.12010.|P22I$|
00004840: 28 31 29 B2 22 53 54 41 54 49 4F 4E 41 52 59 20 |(1)."STATIONARY |
00004850: 20 22 3A 49 24 28 32 29 B2 22 55 50 20 20 20 20 | ":I$(2)."UP |
00004860: 20 20 20 20 20 20 22 3A 49 24 28 33 29 B2 22 55 | ":I$(3)."U|
00004870: 50 20 26 20 52 49 47 48 54 20 20 22 00 BF 50 3C |P & RIGHT "..P<|
00004880: 32 49 24 28 34 29 B2 22 52 49 47 48 54 20 20 20 |2I$(4)."RIGHT |
00004890: 20 20 20 20 22 3A 49 24 28 35 29 B2 22 44 4F 57 | ":I$(5)."DOW|
000048A0: 4E 20 26 20 52 49 47 48 54 22 3A 49 24 28 36 29 |N & RIGHT":I$(6)|
000048B0: B2 22 44 4F 57 4E 20 20 20 20 20 20 20 20 22 00 |."DOWN ".|
000048C0: 04 51 46 32 49 24 28 37 29 B2 22 44 4F 57 4E 20 |.QF2I$(7)."DOWN |
000048D0: 26 20 4C 45 46 54 20 22 3A 49 24 28 38 29 B2 22 |& LEFT ":I$(8)."|
000048E0: 4C 45 46 54 20 20 20 20 20 20 20 20 22 3A 49 24 |LEFT ":I$|
000048F0: 28 39 29 B2 22 55 50 20 26 20 4C 45 46 54 20 20 |(9)."UP & LEFT |
00004900: 20 22 3A 8E 00 0F 51 B0 36 8D 31 34 38 32 30 00 | ":...Q.6.14820.|
00004910: 28 51 BA 36 56 44 55 31 34 37 3A 48 2E 30 2C 30 |(Q.6VDU147:H.0,0|
00004920: 3A 57 49 2E 30 3A 54 2E 00 36 51 C4 36 43 4F 4C |:WI.0:T..6Q.6COL|
00004930: 4F 55 52 30 2C 30 00 46 51 CE 36 47 52 41 50 48 |OUR0,0.FQ.6GRAPH|
00004940: 3A 4D 4F 44 45 30 00 82 51 D8 36 43 48 41 52 30 |:MODE0..Q.6CHAR0|
00004950: 2C 31 34 2C 22 41 20 53 49 4E 45 20 43 55 52 56 |,14,"A SINE CURV|
00004960: 45 22 2C 31 2C 30 3A 43 48 41 52 31 2C 31 34 2C |E",1,0:CHAR1,14,|
00004970: 22 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 2C 37 |"............",7|
00004980: 2C 30 00 BC 51 E2 36 43 48 41 52 32 31 2C 31 2C |,0..Q.6CHAR21,1,|
00004990: 22 54 48 49 53 20 44 45 4D 4F 4E 53 54 52 41 54 |"THIS DEMONSTRAT|
000049A0: 45 53 20 54 48 45 20 56 45 52 53 41 54 49 4C 45 |ES THE VERSATILE|
000049B0: 20 27 50 4C 4F 54 27 22 2C 31 2C 30 00 F1 51 EC | 'PLOT'",1,0..Q.|
000049C0: 36 43 48 41 52 32 33 2C 34 2C 22 41 4E 44 20 27 |6CHAR23,4,"AND '|
000049D0: 44 52 41 57 27 20 43 4F 4D 4D 41 4E 44 53 20 4F |DRAW' COMMANDS O|
000049E0: 4E 20 53 55 50 41 42 41 53 49 43 2E 22 2C 31 2C |N SUPABASIC.",1,|
000049F0: 30 00 02 52 F6 36 50 4C 4F 54 33 33 2C 31 36 30 |0..R.6PLOT33,160|
00004A00: 2C 37 00 14 52 00 37 44 52 41 57 31 38 36 2C 31 |,7..R.7DRAW186,1|
00004A10: 36 30 2C 37 00 24 52 0A 37 50 4C 4F 54 31 31 36 |60,7.$R.7PLOT116|
00004A20: 2C 30 2C 37 00 36 52 14 37 44 52 41 57 31 31 36 |,0,7.6R.7DRAW116|
00004A30: 2C 33 31 39 2C 37 00 5F 52 1E 37 81 41 B2 30 A4 |,319,7._R.7.A.0.|
00004A40: 33 31 39 A9 38 3A 50 4C 4F 54 31 31 36 2C 41 2C |319.8:PLOT116,A,|
00004A50: 37 3A 44 52 41 57 31 31 39 2C 41 2C 37 3A 82 00 |7:DRAW119,A,7:..|
00004A60: 89 52 28 37 81 41 B2 33 33 A4 31 38 36 A9 38 3A |.R(7.A.33.186.8:|
00004A70: 50 4C 4F 54 41 2C 31 36 30 2C 37 3A 44 52 41 57 |PLOTA,160,7:DRAW|
00004A80: 41 2C 31 36 33 2C 37 3A 82 00 C3 52 32 37 81 41 |A,163,7:...R27.A|
00004A90: B2 30 A4 36 33 39 AC 32 3A 44 45 B2 28 41 AA 38 |.0.639.2:DE.(A.8|
00004AA0: 33 29 AC 28 FF AD 31 38 30 29 3A 50 4C 4F 54 BF |3).(..180):PLOT.|
00004AB0: 28 44 45 29 AC 37 35 AA 31 31 36 2C 41 AD 34 2C |(DE).75.116,A.4,|
00004AC0: 37 3A 82 00 D5 52 3C 37 8D 31 34 37 39 30 3A 56 |7:...R<7.14790:V|
00004AD0: 44 55 31 34 37 00 08 53 46 37 54 2E 3A 99 22 11 |DU147..SF7T.:.".|
00004AE0: 11 20 54 48 45 52 45 20 49 53 20 41 4C 53 4F 20 |. THERE IS ALSO |
00004AF0: 41 20 43 4F 4D 4D 41 4E 44 20 54 4F 20 50 52 49 |A COMMAND TO PRI|
00004B00: 4E 54 20 54 45 58 54 22 00 25 53 50 37 99 22 11 |NT TEXT".%SP7.".|
00004B10: 4F 4E 20 54 48 45 20 48 49 52 45 53 20 53 43 52 |ON THE HIRES SCR|
00004B20: 45 45 4E 2E 22 00 51 53 5A 37 85 22 11 11 45 4E |EEN.".QSZ7."..EN|
00004B30: 54 45 52 20 53 4F 4D 45 20 54 45 58 54 22 3B 41 |TER SOME TEXT";A|
00004B40: 24 3A 8B C3 28 41 24 29 B1 34 30 A7 31 34 31 37 |$:..(A$).40.1417|
00004B50: 30 00 61 53 64 37 48 2E 30 2C 30 3A 47 52 41 50 |0.aSd7H.0,0:GRAP|
00004B60: 48 00 6E 53 6E 37 81 41 B2 31 A4 31 30 30 00 AE |H.nSn7.A.1.100..|
00004B70: 53 78 37 43 B2 B5 28 BB 28 31 29 AC 31 36 29 3A |Sx7C..(.(1).16):|
00004B80: 4D B2 B5 28 BB 28 31 29 AC 34 29 3A 58 B2 BB 28 |M..(.(1).4):X..(|
00004B90: 31 29 AC 32 34 3A 59 B2 BB 28 31 29 AC 33 39 3A |1).24:Y..(1).39:|
00004BA0: 43 48 41 52 58 2C 59 2C 41 24 2C 43 2C 4D 00 B4 |CHARX,Y,A$,C,M..|
00004BB0: 53 82 37 82 00 BF 53 8C 37 8D 31 34 37 39 30 00 |S.7...S.7.14790.|
00004BC0: F7 53 96 37 56 44 55 31 34 37 3A 54 2E 3A 99 3A |.S.7VDU147:T.:.:|
00004BD0: 99 22 11 59 4F 55 20 43 41 4E 20 41 4C 53 4F 20 |.".YOU CAN ALSO |
00004BE0: 43 48 41 4E 47 45 20 41 4E 59 54 48 49 4E 47 20 |CHANGE ANYTHING |
00004BF0: 49 4E 20 4F 4E 45 22 00 23 54 A0 37 99 22 11 43 |IN ONE".#T.7.".C|
00004C00: 4F 4C 4F 55 52 20 54 4F 20 41 4E 4F 54 48 45 52 |OLOUR TO ANOTHER|
00004C10: 20 43 4F 4C 4F 55 52 20 57 49 54 48 20 54 48 45 | COLOUR WITH THE|
00004C20: 22 3A 99 00 3B 54 AA 37 99 22 27 41 4C 54 45 52 |":..;T.7."'ALTER|
00004C30: 27 20 43 4F 4D 4D 41 4E 44 2E 22 00 5D 54 B4 37 |' COMMAND.".]T.7|
00004C40: 99 22 11 11 50 55 53 48 20 41 4E 59 20 4B 45 59 |."..PUSH ANY KEY|
00004C50: 20 46 4F 52 20 41 20 44 45 4D 4F 2E 22 00 7F 54 | FOR A DEMO."..T|
00004C60: BE 37 43 48 41 52 32 34 2C 32 36 2C 22 20 20 20 |.7CHAR24,26," |
00004C70: 20 20 20 20 20 20 20 20 20 20 22 2C 31 2C 30 00 | ",1,0.|
00004C80: C0 54 C8 37 8D 31 34 38 30 30 3A 47 52 41 50 48 |.T.7.14800:GRAPH|
00004C90: 3A 81 41 B2 31 A4 32 30 3A 81 42 B2 30 A4 31 35 |:.A.1.20:.B.0.15|
00004CA0: 3A 41 4C 54 45 52 42 2C 4D 4F 44 28 42 AA 31 2C |:ALTERB,MOD(B.1,|
00004CB0: 31 36 29 3A 82 3A 82 3A 41 4C 54 45 52 30 2C 31 |16):.:.:ALTER0,1|
00004CC0: 00 CB 54 D2 37 8D 31 34 37 39 30 00 02 55 DC 37 |..T.7.14790..U.7|
00004CD0: 56 44 55 31 34 37 3A 54 2E 3A 99 22 11 11 59 4F |VDU147:T.:."..YO|
00004CE0: 55 20 43 41 4E 20 41 4C 53 4F 20 44 52 41 57 20 |U CAN ALSO DRAW |
00004CF0: 50 52 45 44 45 46 49 4E 45 44 20 53 48 41 50 45 |PREDEFINED SHAPE|
00004D00: 53 22 00 2E 55 E6 37 99 22 11 49 4E 20 44 49 46 |S"..U.7.".IN DIF|
00004D10: 46 45 52 45 4E 54 20 53 49 5A 45 53 20 57 49 54 |FERENT SIZES WIT|
00004D20: 48 20 54 48 45 20 27 53 48 41 50 45 27 22 00 3F |H THE 'SHAPE'".?|
00004D30: 55 F0 37 99 22 11 43 4F 4D 4D 41 4E 44 2E 22 00 |U.7.".COMMAND.".|
00004D40: 4A 55 FA 37 8D 31 34 37 39 30 00 8D 55 04 38 48 |JU.7.14790..U.8H|
00004D50: 2E 30 2C 30 3A 47 52 41 2E 3A 81 41 B2 31 A4 31 |.0,0:GRA.:.A.1.1|
00004D60: 30 30 3A 53 B2 B5 28 BB 28 31 29 AC 39 29 AA 31 |00:S..(.(1).9).1|
00004D70: 3A 43 B2 B5 28 BB 28 31 29 AC 31 35 29 AA 31 3A |:C..(.(1).15).1:|
00004D80: 58 B2 BB 28 31 29 AC 31 38 39 AA 31 30 00 B7 55 |X..(1).189.10..U|
00004D90: 0E 38 59 B2 B5 28 BB 28 31 29 AC 33 30 39 29 AA |.8Y..(.(1).309).|
00004DA0: 31 30 3A 8B 59 B1 33 31 39 AB 53 AC 33 A7 59 B2 |10:.Y.319.S.3.Y.|
00004DB0: 59 AB 53 AC 33 AB 31 00 D0 55 18 38 8B 58 B1 31 |Y.S.3.1..U.8.X.1|
00004DC0: 39 39 AB 53 AC 33 A7 58 B2 58 AB 53 AC 33 AB 31 |99.S.3.X.X.S.3.1|
00004DD0: 00 EE 55 22 38 53 48 41 50 45 58 2C 59 2C 43 2C |..U"8SHAPEX,Y,C,|
00004DE0: 53 2C 22 31 32 33 34 35 36 37 38 22 3A 82 00 F9 |S,"12345678":...|
00004DF0: 55 2C 38 8D 31 34 37 39 30 00 33 56 36 38 56 44 |U,8.14790.3V68VD|
00004E00: 55 31 34 37 3A 54 2E 3A 99 22 11 11 49 54 20 49 |U147:T.:."..IT I|
00004E10: 53 20 41 4C 53 4F 20 50 4F 53 53 49 42 4C 45 20 |S ALSO POSSIBLE |
00004E20: 54 4F 20 43 48 41 4E 47 45 20 54 48 45 20 54 59 |TO CHANGE THE TY|
00004E30: 50 45 22 00 64 56 40 38 99 22 11 4F 46 20 50 4F |PE".dV@8.".OF PO|
00004E40: 49 4E 54 20 50 4C 4F 54 54 45 44 20 57 49 54 48 |INT PLOTTED WITH|
00004E50: 20 54 48 45 27 4D 4F 44 45 27 20 43 4F 4D 4D 41 | THE'MODE' COMMA|
00004E60: 4E 44 2E 22 00 6F 56 4A 38 8D 31 34 37 39 30 00 |ND.".oVJ8.14790.|
00004E70: 7F 56 54 38 48 2E 30 2C 30 3A 47 52 41 50 48 00 |.VT8H.0,0:GRAPH.|
00004E80: BF 56 5E 38 4D 4F 44 45 32 3A 81 41 B2 30 A4 39 |.V^8MODE2:.A.0.9|
00004E90: 39 3A 50 4C 4F 54 30 2C 30 2C 31 3A 44 52 41 57 |9:PLOT0,0,1:DRAW|
00004EA0: 41 2C 33 31 39 2C 31 3A 50 4C 4F 54 30 2C 33 31 |A,319,1:PLOT0,31|
00004EB0: 39 2C 31 3A 44 52 41 57 41 2C 30 2C 31 3A 82 00 |9,1:DRAWA,0,1:..|
00004EC0: 03 57 68 38 81 41 B2 31 39 39 A4 31 30 30 A9 AB |.Wh8.A.199.100..|
00004ED0: 31 3A 50 4C 4F 54 31 39 39 2C 30 2C 31 3A 44 52 |1:PLOT199,0,1:DR|
00004EE0: 41 57 41 2C 33 31 39 2C 31 3A 50 4C 4F 54 31 39 |AWA,319,1:PLOT19|
00004EF0: 39 2C 33 31 39 2C 31 3A 44 52 41 57 41 2C 30 2C |9,319,1:DRAWA,0,|
00004F00: 31 3A 82 00 0B 57 72 38 41 B2 30 00 50 57 7C 38 |1:...Wr8A.0.PW|8|
00004F10: 50 4C 4F 54 31 30 30 2C 31 36 30 2C 38 3A 44 52 |PLOT100,160,8:DR|
00004F20: 41 57 BF 28 41 29 AC 34 30 AA 31 30 30 2C BE 28 |AW.(A).40.100,.(|
00004F30: 41 29 AC 34 30 AA 31 36 30 2C 38 3A 41 B2 41 AA |A).40.160,8:A.A.|
00004F40: 2E 30 32 3A 8B 41 B3 36 2E 33 A7 31 34 34 36 30 |.02:.A.6.3.14460|
00004F50: 00 5B 57 86 38 8D 31 34 37 39 30 00 97 57 90 38 |.[W.8.14790..W.8|
00004F60: 56 44 55 31 34 37 3A 54 2E 3A 99 22 11 11 59 4F |VDU147:T.:."..YO|
00004F70: 55 20 41 4C 53 4F 20 4E 45 45 44 20 4E 4F 54 20 |U ALSO NEED NOT |
00004F80: 50 4C 4F 54 20 49 4E 20 4F 4E 45 20 42 41 43 4B |PLOT IN ONE BACK|
00004F90: 47 52 4F 55 4E 44 22 00 D8 57 9A 38 99 22 43 4F |GROUND"..W.8."CO|
00004FA0: 4C 4F 55 52 2E 59 4F 55 20 43 41 4E 20 50 4C 4F |LOUR.YOU CAN PLO|
00004FB0: 54 20 49 4E 20 4D 41 4E 59 20 57 49 54 48 20 54 |T IN MANY WITH T|
00004FC0: 48 45 22 3A 99 22 11 27 50 41 50 45 52 27 20 43 |HE":.".'PAPER' C|
00004FD0: 4F 4D 4D 41 4E 44 2E 22 00 E3 57 A4 38 8D 31 34 |OMMAND."..W.8.14|
00004FE0: 37 39 30 00 F3 57 AE 38 48 2E 30 2C 30 3A 47 52 |790..W.8H.0,0:GR|
00004FF0: 41 50 48 00 34 58 B8 38 81 41 B2 31 A4 31 30 30 |APH.4X.8.A.1.100|
00005000: 3A 58 B2 BB 28 31 29 AC 31 39 30 AA 38 3A 59 B2 |:X..(1).190.8:Y.|
00005010: BB 28 31 29 AC 33 31 39 3A 50 41 50 45 52 B5 28 |.(1).319:PAPER.(|
00005020: BB 28 31 29 AC 31 35 29 AA 31 3A 50 4C 4F 54 58 |.(1).15).1:PLOTX|
00005030: 2C 59 2C 30 00 5C 58 C2 38 58 B2 BB 28 31 29 AC |,Y,0.\X.8X..(1).|
00005040: 31 39 30 AA 38 3A 59 B2 BB 28 31 29 AC 33 31 39 |190.8:Y..(1).319|
00005050: 3A 44 52 41 57 58 2C 59 2C 30 3A 82 00 67 58 CC |:DRAWX,Y,0:..gX.|
00005060: 38 8D 31 34 37 39 30 00 9F 58 D6 38 56 44 55 31 |8.14790..X.8VDU1|
00005070: 34 37 3A 54 2E 3A 99 22 11 11 49 54 20 49 53 20 |47:T.:."..IT IS |
00005080: 41 4C 53 4F 20 50 4F 53 53 49 42 4C 45 20 54 4F |ALSO POSSIBLE TO|
00005090: 20 43 52 45 41 54 45 20 41 20 54 45 58 54 22 00 | CREATE A TEXT".|
000050A0: DF 58 E0 38 99 22 11 57 49 4E 44 4F 57 20 4F 4E |.X.8.".WINDOW ON|
000050B0: 20 41 20 48 49 52 45 53 20 53 43 52 45 45 4E 20 | A HIRES SCREEN |
000050C0: 57 49 54 48 20 54 48 45 22 3A 99 22 11 27 57 49 |WITH THE":.".'WI|
000050D0: 4E 44 4F 57 27 20 43 4F 4D 4D 41 4E 44 2E 22 00 |NDOW' COMMAND.".|
000050E0: EA 58 EA 38 8D 31 34 37 39 30 00 00 59 F4 38 57 |.X.8.14790..Y.8W|
000050F0: 49 4E 44 4F 57 33 32 3A 57 49 4E 44 4F 57 33 32 |INDOW32:WINDOW32|
00005100: 00 3A 59 FE 38 43 55 52 53 B0 32 32 2C 30 3A 99 |.:Y.8CURS.22,0:.|
00005110: 22 20 54 48 49 53 20 44 45 4D 4F 4E 53 54 52 41 |" THIS DEMONSTRA|
00005120: 54 45 53 20 54 48 45 20 53 45 4C 45 43 54 41 42 |TES THE SELECTAB|
00005130: 4C 45 20 54 45 58 54 20 20 22 00 64 59 08 39 99 |LE TEXT ".dY.9.|
00005140: 22 20 20 20 20 20 20 57 49 4E 44 4F 57 20 46 45 |" WINDOW FE|
00005150: 41 54 55 52 45 20 4F 4E 20 53 55 50 41 42 41 53 |ATURE ON SUPABAS|
00005160: 49 43 2E 22 00 87 59 12 39 81 41 B2 31 A4 32 34 |IC."..Y.9.A.1.24|
00005170: 30 3A 81 42 B2 31 A4 32 30 3A 82 3A 53 43 52 4F |0:.B.1.20:.:SCRO|
00005180: 4C 4C 52 2C 57 3A 82 00 9A 59 1C 39 57 49 2E 30 |LLR,W:...Y.9WI.0|
00005190: 3A 56 44 55 31 34 37 3A 54 2E 00 C9 59 26 39 99 |:VDU147:T...Y&9.|
000051A0: 22 11 11 54 48 45 20 48 49 52 45 53 20 53 43 52 |"..THE HIRES SCR|
000051B0: 45 45 4E 20 43 41 4E 20 41 4C 53 4F 20 42 45 20 |EEN CAN ALSO BE |
000051C0: 49 4E 56 45 52 54 45 44 22 00 EC 59 30 39 99 22 |INVERTED"..Y09."|
000051D0: 11 57 49 54 48 20 54 48 45 20 27 49 4E 56 45 52 |.WITH THE 'INVER|
000051E0: 54 27 20 43 4F 4D 4D 41 4E 44 2E 22 00 1B 5A 3A |T' COMMAND."..Z:|
000051F0: 39 8D 31 34 37 39 30 3A 43 48 41 52 32 34 2C 32 |9.14790:CHAR24,2|
00005200: 36 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |6," |
00005210: 22 2C 31 2C 30 3A 47 52 41 50 48 00 31 5A 44 39 |",1,0:GRAPH.1ZD9|
00005220: 81 41 B2 31 A4 35 32 3A 49 4E 56 45 52 54 31 3A |.A.1.52:INVERT1:|
00005230: 82 00 46 5A 4E 39 8D 31 34 37 39 30 3A 56 44 55 |..FZN9.14790:VDU|
00005240: 31 34 37 3A 54 2E 00 71 5A 58 39 99 22 05 11 11 |147:T..qZX9."...|
00005250: 1D 1D 1D 1D 1D 1D 1D 1D 1D 44 45 4D 4F 4E 53 54 |.........DEMONST|
00005260: 52 41 54 49 4F 4E 20 46 49 4E 49 53 48 45 44 2E |RATION FINISHED.|
00005270: 22 00 99 5A 62 39 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"..Zb9."........|
00005280: 1D C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00005290: C3 C3 C3 C3 C3 C3 C3 C3 22 00 C6 5A 6C 39 99 22 |........"..Zl9."|
000052A0: 11 11 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |..DO YOU WANT TO|
000052B0: 20 12 52 92 55 4E 20 54 48 45 20 44 45 4D 4F 20 | .R.UN THE DEMO |
000052C0: 41 47 41 49 4E 22 00 E6 5A 76 39 99 22 11 4F 52 |AGAIN"..Zv9.".OR|
000052D0: 20 44 49 53 50 4C 41 59 20 54 48 45 20 12 4D 92 | DISPLAY THE .M.|
000052E0: 45 4E 55 2E 22 3B 00 FC 5A 80 39 A1 41 24 3A 8B |ENU.";..Z.9.A$:.|
000052F0: 41 24 B2 22 52 22 A7 31 34 30 30 30 00 0E 5B 8A |A$."R".14000..[.|
00005300: 39 8B 41 24 B2 22 4D 22 A7 31 34 37 35 30 00 19 |9.A$."M".14750..|
00005310: 5B 94 39 89 31 34 37 32 30 00 21 5B 9E 39 89 31 |[.9.14720.![.9.1|
00005320: 30 00 56 5B C6 39 99 3A 99 22 50 52 45 53 53 20 |0.V[.9.:."PRESS |
00005330: 41 4E 59 20 4B 45 59 22 3A 43 48 41 52 32 34 2C |ANY KEY":CHAR24,|
00005340: 32 36 2C 22 50 52 45 53 53 20 41 4E 59 20 4B 45 |26,"PRESS ANY KE|
00005350: 59 22 2C 31 2C 30 00 6B 5B D0 39 A1 41 24 3A 8B |Y",1,0.k[.9.A$:.|
00005360: 41 24 B2 22 22 A7 31 34 38 30 30 00 71 5B DA 39 |A$."".14800.q[.9|
00005370: 8E 00 8B 5B E4 39 43 4F 4C 4F 55 52 30 2C 30 3A |...[.9COLOUR0,0:|
00005380: 56 44 55 31 34 37 3A 49 4E 4B 31 00 B3 5B EE 39 |VDU147:INK1..[.9|
00005390: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 47 52 41 50 |."..........GRAP|
000053A0: 48 49 43 53 20 44 45 4D 4F 4E 53 54 52 41 54 49 |HICS DEMONSTRATI|
000053B0: 4F 4E 22 00 DA 5B F8 39 99 22 1D 1D 1D 1D 1D 1D |ON"..[.9."......|
000053C0: 1D 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000053D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 0F 5C 02 3A 99 |........."..\.:.|
000053E0: 22 11 11 11 9E 20 20 54 48 45 20 43 4F 4D 4D 4F |".... THE COMMO|
000053F0: 44 4F 52 45 20 36 34 20 48 41 52 44 57 41 52 45 |DORE 64 HARDWARE|
00005400: 20 50 52 4F 56 49 44 45 53 20 46 4F 52 22 3B 00 | PROVIDES FOR";.|
00005410: 3D 5C 0C 3A 99 22 41 20 48 49 47 48 20 52 45 53 |=\.:."A HIGH RES|
00005420: 4F 4C 55 54 49 4F 4E 20 53 43 52 45 45 4E 2C 41 |OLUTION SCREEN,A|
00005430: 4C 54 48 4F 55 47 48 20 54 48 49 53 22 00 6C 5C |LTHOUGH THIS".l\|
00005440: 16 3A 99 22 49 53 20 44 49 46 46 49 43 55 4C 54 |.:."IS DIFFICULT|
00005450: 20 54 4F 20 4D 41 4E 49 50 55 4C 41 54 45 20 46 | TO MANIPULATE F|
00005460: 52 4F 4D 20 4E 4F 52 4D 41 4C 20 22 00 9D 5C 20 |ROM NORMAL "..\ |
00005470: 3A 99 22 42 41 53 49 43 2E 46 4F 52 20 54 48 49 |:."BASIC.FOR THI|
00005480: 53 20 52 45 41 53 4F 4E 2C 53 55 50 41 42 41 53 |S REASON,SUPABAS|
00005490: 49 43 20 49 4E 43 4C 55 44 45 53 22 3B 00 CB 5C |IC INCLUDES";..\|
000054A0: 2A 3A 99 22 31 35 20 48 49 52 45 53 20 47 52 41 |*:."15 HIRES GRA|
000054B0: 50 48 49 43 20 43 4F 4D 4D 41 4E 44 53 2C 53 55 |PHIC COMMANDS,SU|
000054C0: 43 48 20 41 53 20 50 4C 4F 54 22 00 F7 5C 34 3A |CH AS PLOT"..\4:|
000054D0: 99 22 41 4E 44 20 44 52 41 57 2C 54 4F 20 45 4E |."AND DRAW,TO EN|
000054E0: 41 42 4C 45 20 45 41 53 49 45 52 20 55 53 45 20 |ABLE EASIER USE |
000054F0: 4F 46 20 54 48 45 22 00 20 5D 3E 3A 99 22 43 4F |OF THE". ]>:."CO|
00005500: 4D 50 55 54 45 52 53 20 48 49 47 48 20 52 45 53 |MPUTERS HIGH RES|
00005510: 4F 4C 55 54 49 4F 4E 20 47 52 41 50 48 49 43 22 |OLUTION GRAPHIC"|
00005520: 00 35 5D 48 3A 99 22 43 41 50 41 42 49 4C 49 54 |.5]H:."CAPABILIT|
00005530: 49 45 53 2E 22 00 4A 5D 52 3A 99 22 11 11 9F 54 |IES.".J]R:."...T|
00005540: 48 45 53 45 20 41 52 45 3A 22 00 7D 5D 5C 3A 99 |HESE ARE:".}]\:.|
00005550: 22 11 11 20 20 20 47 52 41 50 48 2C 54 45 58 54 |".. GRAPH,TEXT|
00005560: 2C 50 4C 4F 54 2C 44 52 41 57 2C 4D 4F 44 45 2C |,PLOT,DRAW,MODE,|
00005570: 48 49 52 45 53 2C 43 48 41 52 2C 22 3B 00 AE 5D |HIRES,CHAR,";..]|
00005580: 66 3A 99 22 57 49 4E 44 4F 57 2C 50 4F 49 4E 54 |f:."WINDOW,POINT|
00005590: 2C 53 48 41 50 45 2C 42 4C 41 4E 4B 2C 50 41 50 |,SHAPE,BLANK,PAP|
000055A0: 45 52 2C 41 4C 54 45 52 20 41 4E 44 22 3B 00 BB |ER,ALTER AND";..|
000055B0: 5D 70 3A 99 22 4D 4F 56 45 2E 22 00 EE 5D 7A 3A |]p:."MOVE."..]z:|
000055C0: 99 3A 99 22 81 50 52 45 53 53 20 41 4E 59 20 4B |.:.".PRESS ANY K|
000055D0: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 |EY TO CONTINUE."|
000055E0: 3A 8D 31 34 38 30 30 3A 89 31 34 30 31 30 00 03 |:.14800:.14010..|
000055F0: 5E 80 3E 43 4F 4C 4F 55 52 30 2C 30 3A 8D 31 36 |^.>COLOUR0,0:.16|
00005600: 36 37 30 00 35 5E 8A 3E 99 22 93 11 9F 20 20 54 |670.5^.>."... T|
00005610: 48 45 20 46 49 52 53 54 20 4F 46 20 54 48 45 53 |HE FIRST OF THES|
00005620: 45 20 43 4F 4D 4D 41 4E 44 53 20 49 53 20 27 44 |E COMMANDS IS 'D|
00005630: 45 45 4B 27 22 00 5C 5E 94 3E 99 22 11 57 48 49 |EEK'".\^.>.".WHI|
00005640: 43 48 20 52 45 50 4C 41 43 45 53 20 54 48 45 20 |CH REPLACES THE |
00005650: 42 41 53 49 43 20 43 4F 44 45 3A 22 00 81 5E 9E |BASIC CODE:"..^.|
00005660: 3E 99 22 9E 11 11 50 52 49 4E 54 50 45 45 4B 28 |>."...PRINTPEEK(|
00005670: 41 29 2B 50 45 45 4B 28 41 2B 31 29 2A 32 35 36 |A)+PEEK(A+1)*256|
00005680: 22 00 B1 5E A8 3E 99 22 11 9F 20 57 48 45 52 45 |"..^.>.".. WHERE|
00005690: 20 27 41 27 20 49 53 20 41 4E 20 41 44 44 52 45 | 'A' IS AN ADDRE|
000056A0: 53 53 20 42 45 54 57 45 45 4E 20 30 20 41 4E 44 |SS BETWEEN 0 AND|
000056B0: 22 00 E0 5E B2 3E 99 22 11 36 35 35 33 35 2E 54 |"..^.>.".65535.T|
000056C0: 48 49 53 20 43 4F 4D 4D 41 4E 44 20 49 53 20 55 |HIS COMMAND IS U|
000056D0: 53 45 44 20 46 4F 52 20 4C 4F 4F 4B 49 4E 47 22 |SED FOR LOOKING"|
000056E0: 00 0B 5F BC 3E 99 22 11 41 54 20 41 4E 20 41 44 |.._.>.".AT AN AD|
000056F0: 44 52 45 53 53 20 53 54 4F 52 45 44 20 49 4E 20 |DRESS STORED IN |
00005700: 32 20 42 59 54 45 53 20 4F 46 22 00 1B 5F C6 3E |2 BYTES OF".._.>|
00005710: 99 22 11 4D 45 4D 4F 52 59 2E 22 00 32 5F D0 3E |.".MEMORY.".2_.>|
00005720: 99 22 11 11 05 50 55 53 48 20 41 4E 59 20 4B 45 |."...PUSH ANY KE|
00005730: 59 22 00 47 5F DA 3E A1 41 24 3A 8B 41 24 B2 22 |Y".G_.>.A$:.A$."|
00005740: 22 A7 31 36 30 39 30 00 7A 5F E4 3E 99 22 93 11 |".16090.z_.>."..|
00005750: 81 20 53 4F 20 54 4F 20 46 49 4E 44 20 57 48 45 |. SO TO FIND WHE|
00005760: 52 45 20 54 48 45 20 49 4E 54 45 52 52 55 50 54 |RE THE INTERRUPT|
00005770: 20 49 53 20 47 4F 49 4E 47 22 00 88 5F EE 3E 99 | IS GOING".._.>.|
00005780: 22 54 59 50 45 20 3A 22 00 A0 5F F8 3E 99 22 11 |"TYPE :".._.>.".|
00005790: 9E 50 52 49 4E 54 44 45 45 4B 28 37 38 38 29 22 |.PRINTDEEK(788)"|
000057A0: 00 CF 5F 02 3F 99 22 11 81 41 4E 44 20 59 4F 55 |.._.?."..AND YOU|
000057B0: 20 53 48 4F 55 4C 44 20 47 45 54 20 54 48 45 20 | SHOULD GET THE |
000057C0: 41 4E 53 57 45 52 20 27 33 38 30 30 30 27 22 00 |ANSWER '38000'".|
000057D0: 08 60 0C 3F 85 22 9F 11 49 4E 50 55 54 20 41 4E |.`.?."..INPUT AN|
000057E0: 20 41 44 44 52 45 53 53 20 28 30 2D 36 35 35 33 | ADDRESS (0-6553|
000057F0: 35 29 22 3B 41 3A 8B 41 B1 36 35 35 33 35 B0 41 |5)";A:.A.65535.A|
00005800: B3 30 A7 31 36 31 34 30 00 36 60 16 3F 99 22 11 |.0.16140.6`.?.".|
00005810: 54 48 45 20 27 44 45 45 4B 27 20 4F 46 20 54 48 |THE 'DEEK' OF TH|
00005820: 49 53 20 41 44 44 52 45 53 53 20 49 53 3A 22 44 |IS ADDRESS IS:"D|
00005830: 45 45 4B 28 41 29 00 4E 60 20 3F 99 22 05 11 11 |EEK(A).N` ?."...|
00005840: 50 55 53 48 20 41 4E 59 20 4B 45 59 2E 22 00 63 |PUSH ANY KEY.".c|
00005850: 60 2A 3F A1 41 24 3A 8B 41 24 B2 22 22 A7 31 36 |`*?.A$:.A$."".16|
00005860: 31 37 30 00 94 60 34 3F 99 22 93 9F 11 20 20 54 |170..`4?."... T|
00005870: 48 45 20 27 44 4F 4B 45 27 20 43 4F 4D 4D 41 4E |HE 'DOKE' COMMAN|
00005880: 44 20 41 43 54 53 20 4F 4E 20 54 57 4F 20 42 59 |D ACTS ON TWO BY|
00005890: 54 45 53 22 00 C3 60 3E 3F 99 22 11 4C 49 4B 45 |TES"..`>?.".LIKE|
000058A0: 20 54 48 45 20 27 44 45 45 4B 27 20 49 4E 53 54 | THE 'DEEK' INST|
000058B0: 52 55 43 54 49 4F 4E 2C 42 55 54 20 27 44 4F 4B |RUCTION,BUT 'DOK|
000058C0: 45 27 22 00 F4 60 48 3F 99 22 11 43 48 41 4E 47 |E'"..`H?.".CHANG|
000058D0: 45 53 20 54 48 45 20 42 59 54 45 53 20 41 4E 44 |ES THE BYTES AND|
000058E0: 20 52 45 50 4C 41 43 45 53 20 54 48 45 20 42 41 | REPLACES THE BA|
000058F0: 53 49 43 22 00 01 61 52 3F 99 22 43 4F 44 45 3A |SIC"..aR?."CODE:|
00005900: 22 00 27 61 5C 3F 99 22 9E 11 50 4F 4B 45 41 2C |".'a\?."..POKEA,|
00005910: 28 42 2F 32 35 36 2D 49 4E 54 28 42 2F 32 35 36 |(B/256-INT(B/256|
00005920: 29 29 2A 32 35 36 22 00 3D 61 66 3F 99 22 11 50 |))*256".=af?.".P|
00005930: 4F 4B 45 41 2B 31 2C 42 2F 32 35 36 22 00 6D 61 |OKEA+1,B/256".ma|
00005940: 70 3F 99 22 11 1D 9F 20 57 48 45 52 45 20 27 41 |p?."... WHERE 'A|
00005950: 27 20 49 53 20 41 4E 20 41 44 44 52 45 53 53 20 |' IS AN ADDRESS |
00005960: 41 4E 44 20 27 42 27 20 49 53 20 41 22 00 9C 61 |AND 'B' IS A"..a|
00005970: 7A 3F 99 22 11 54 57 4F 20 42 59 54 45 20 56 41 |z?.".TWO BYTE VA|
00005980: 4C 55 45 20 28 30 2D 36 35 35 33 35 29 2E 54 48 |LUE (0-65535).TH|
00005990: 45 20 53 41 4D 45 20 43 4F 44 45 22 00 BA 61 84 |E SAME CODE"..a.|
000059A0: 3F 99 22 11 43 41 4E 20 42 45 20 52 45 50 4C 41 |?.".CAN BE REPLA|
000059B0: 43 45 44 20 57 49 54 48 3A 22 00 CB 61 8E 3F 99 |CED WITH:"..a.?.|
000059C0: 22 11 9E 44 4F 4B 45 41 2C 42 22 00 E4 61 98 3F |"..DOKEA,B"..a.?|
000059D0: 99 22 05 11 11 50 52 45 53 53 20 41 4E 59 20 4B |."...PRESS ANY K|
000059E0: 45 59 2E 22 00 F9 61 A2 3F A1 41 24 3A 8B 41 24 |EY."..a.?.A$:.A$|
000059F0: B2 22 22 A7 31 36 32 39 30 00 29 62 AC 3F 99 22 |."".16290.)b.?."|
00005A00: 93 9E 11 1D 53 4F 20 54 4F 20 53 45 54 20 54 48 |....SO TO SET TH|
00005A10: 45 20 49 4E 54 45 52 52 55 50 54 20 54 4F 20 33 |E INTERRUPT TO 3|
00005A20: 38 30 30 30 20 59 4F 55 22 00 3D 62 B6 3F 99 22 |8000 YOU".=b.?."|
00005A30: 11 57 4F 55 4C 44 20 54 59 50 45 3A 22 00 54 62 |.WOULD TYPE:".Tb|
00005A40: C0 3F 99 22 11 81 44 4F 4B 45 37 38 38 2C 33 38 |.?."..DOKE788,38|
00005A50: 30 30 30 22 00 82 62 CA 3F 99 22 11 05 20 28 44 |000"..b.?.".. (D|
00005A60: 4F 20 4E 4F 54 20 43 48 41 4E 47 45 20 54 48 45 |O NOT CHANGE THE|
00005A70: 20 49 4E 54 45 52 52 55 50 54 20 54 4F 20 41 4E | INTERRUPT TO AN|
00005A80: 59 22 00 B3 62 D4 3F 99 22 11 4F 54 48 45 52 20 |Y"..b.?.".OTHER |
00005A90: 56 41 4C 55 45 20 4F 52 20 54 48 45 20 43 4F 4D |VALUE OR THE COM|
00005AA0: 50 55 54 45 52 20 4D 49 47 48 54 20 43 52 41 53 |PUTER MIGHT CRAS|
00005AB0: 48 29 22 00 C9 62 DE 3F 99 22 05 11 50 55 53 48 |H)"..b.?."..PUSH|
00005AC0: 20 41 4E 59 20 4B 45 59 22 00 DE 62 E8 3F A1 41 | ANY KEY"..b.?.A|
00005AD0: 24 3A 8B 41 24 B2 22 22 A7 31 36 33 36 30 00 0D |$:.A$."".16360..|
00005AE0: 63 F2 3F 99 22 93 11 1D 05 20 54 48 45 20 27 43 |c.?.".... THE 'C|
00005AF0: 45 45 4B 27 20 49 4E 53 54 52 55 43 54 49 4F 4E |EEK' INSTRUCTION|
00005B00: 20 49 53 20 55 53 45 44 20 46 4F 52 22 00 37 63 | IS USED FOR".7c|
00005B10: FC 3F 99 22 11 27 50 45 45 4B 49 4E 47 27 20 43 |.?.".'PEEKING' C|
00005B20: 48 41 52 41 43 54 45 52 53 20 46 52 4F 4D 20 4D |HARACTERS FROM M|
00005B30: 45 4D 4F 52 59 2E 22 00 67 63 06 40 99 22 11 20 |EMORY.".gc.@.". |
00005B40: 20 20 54 4F 20 44 45 4D 4F 4E 53 54 52 41 54 45 | TO DEMONSTRATE|
00005B50: 20 54 48 49 53 20 54 48 45 20 4E 45 58 54 20 4C | THIS THE NEXT L|
00005B60: 49 4E 45 20 4F 46 22 00 80 63 10 40 99 22 11 54 |INE OF"..c.@.".T|
00005B70: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 3A 22 |HIS PROGRAM IS:"|
00005B80: 00 A2 63 1A 40 99 22 11 81 33 39 30 20 50 52 49 |..c.@."..390 PRI|
00005B90: 4E 54 43 45 45 4B 28 33 32 38 38 30 2C 32 35 35 |NTCEEK(32880,255|
00005BA0: 29 22 00 BB 63 24 40 99 22 11 9E 22 43 45 45 4B |)"..c$@.".."CEEK|
00005BB0: 28 33 32 38 38 30 2C 32 35 35 29 00 EB 63 2E 40 |(32880,255)..c.@|
00005BC0: 99 22 11 1D 1D 54 48 45 20 4C 4F 43 41 54 49 4F |."...THE LOCATIO|
00005BD0: 4E 20 33 32 38 38 30 20 49 53 20 57 48 45 52 45 |N 32880 IS WHERE|
00005BE0: 20 54 48 45 20 57 4F 52 44 53 22 00 0C 64 38 40 | THE WORDS"..d8@|
00005BF0: 99 22 46 4F 52 20 53 55 50 41 42 41 53 49 43 20 |."FOR SUPABASIC |
00005C00: 41 52 45 20 53 54 4F 52 45 44 2E 22 00 23 64 42 |ARE STORED.".#dB|
00005C10: 40 99 22 11 05 50 52 45 53 53 20 41 4E 59 20 4B |@."..PRESS ANY K|
00005C20: 45 59 22 00 38 64 4C 40 A1 41 24 3A 8B 41 24 B2 |EY".8dL@.A$:.A$.|
00005C30: 22 22 A7 31 36 34 36 30 00 67 64 56 40 99 22 93 |"".16460.gdV@.".|
00005C40: 11 05 20 46 49 4E 41 4C 4C 59 20 54 48 45 20 27 |.. FINALLY THE '|
00005C50: 43 4F 4B 45 27 20 43 4F 4D 4D 41 4E 44 20 50 4F |COKE' COMMAND PO|
00005C60: 4B 45 53 20 41 20 22 00 83 64 60 40 99 22 11 53 |KES A "..d`@.".S|
00005C70: 54 52 49 4E 47 20 49 4E 54 4F 20 4D 45 4D 4F 52 |TRING INTO MEMOR|
00005C80: 59 2E 22 00 AF 64 6A 40 99 22 11 9F 20 20 46 4F |Y."..dj@.".. FO|
00005C90: 52 20 45 58 41 4D 50 4C 45 20 49 46 20 59 4F 55 |R EXAMPLE IF YOU|
00005CA0: 20 57 45 52 45 20 54 4F 20 54 59 50 45 3A 22 00 | WERE TO TYPE:".|
00005CB0: D8 64 74 40 99 22 11 9E 43 4F 4B 45 33 32 38 38 |.dt@."..COKE3288|
00005CC0: 30 2C 22 AA C7 28 33 34 29 AA 22 31 32 33 34 35 |0,"..(34)."12345|
00005CD0: B6 22 AA C7 28 33 34 29 00 08 65 7E 40 99 22 11 |."..(34)..e~@.".|
00005CE0: 9F 20 54 48 45 4E 20 54 48 45 20 43 4F 4D 4D 41 |. THEN THE COMMA|
00005CF0: 4E 44 20 27 43 4F 4C 4F 55 52 27 20 57 49 4C 4C |ND 'COLOUR' WILL|
00005D00: 20 43 48 41 4E 47 45 22 00 37 65 88 40 99 22 11 | CHANGE".7e.@.".|
00005D10: 43 48 41 4E 47 45 20 54 4F 20 27 31 32 33 34 35 |CHANGE TO '12345|
00005D20: 36 27 20 28 54 48 45 20 4C 41 53 54 20 43 48 41 |6' (THE LAST CHA|
00005D30: 52 41 43 54 45 52 22 00 68 65 92 40 99 22 11 4D |RACTER".he.@.".M|
00005D40: 55 53 54 20 48 41 56 45 20 31 32 38 20 41 44 44 |UST HAVE 128 ADD|
00005D50: 45 44 20 54 4F 20 49 54 2C 48 45 4E 43 45 20 54 |ED TO IT,HENCE T|
00005D60: 48 45 20 27 B6 27 29 22 00 7E 65 9C 40 99 22 11 |HE '.')".~e.@.".|
00005D70: 11 50 55 53 48 20 41 4E 59 20 4B 45 59 22 00 93 |.PUSH ANY KEY"..|
00005D80: 65 A6 40 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 36 |e.@.A$:.A$."".16|
00005D90: 35 35 30 00 BD 65 B0 40 99 22 93 05 11 1D 1D 1D |550..e.@."......|
00005DA0: 1D 1D 1D 1D 1D 1D 44 45 4D 4F 4E 53 54 52 41 54 |......DEMONSTRAT|
00005DB0: 49 4F 4E 20 46 49 4E 49 53 48 45 44 22 00 E4 65 |ION FINISHED"..e|
00005DC0: BA 40 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 |.@."............|
00005DD0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00005DE0: C3 C3 C3 22 00 10 66 C4 40 99 22 11 44 4F 20 59 |..."..f.@.".DO Y|
00005DF0: 4F 55 20 57 41 4E 54 20 54 4F 20 12 52 92 55 4E |OU WANT TO .R.UN|
00005E00: 20 54 48 45 20 44 45 4D 4F 20 41 47 41 49 4E 22 | THE DEMO AGAIN"|
00005E10: 00 2F 66 CE 40 99 22 11 4F 52 20 44 49 53 50 4C |./f.@.".OR DISPL|
00005E20: 41 59 20 54 48 45 20 12 4D 92 45 4E 55 2E 22 00 |AY THE .M.ENU.".|
00005E30: 45 66 D8 40 A1 41 24 3A 8B 41 24 B2 22 52 22 A7 |Ef.@.A$:.A$."R".|
00005E40: 31 36 30 30 30 00 58 66 E2 40 8B 41 24 B3 B1 22 |16000.Xf.@.A$.."|
00005E50: 4D 22 A7 31 36 36 30 30 00 60 66 EC 40 89 31 30 |M".16600.`f.@.10|
00005E60: 00 6B 66 14 41 99 22 05 22 3A 80 00 91 66 1E 41 |.kf.A.".":...f.A|
00005E70: 99 22 93 05 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00005E80: 1D 1D 4D 45 4D 4F 52 59 20 43 4F 4E 54 52 4F 4C |..MEMORY CONTROL|
00005E90: 22 00 B4 66 28 41 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"..f(A."........|
00005EA0: 1D 1D 1D 1D 1D C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00005EB0: C3 C3 C3 22 00 D8 66 32 41 99 22 11 1D 1D 1D 1D |..."..f2A.".....|
00005EC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 44 45 4D 4F 4E 53 54 |.........DEMONST|
00005ED0: 52 41 54 49 4F 4E 2E 22 00 FB 66 3C 41 99 22 1D |RATION."..f<A.".|
00005EE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 C3 C3 |................|
00005EF0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 28 67 46 41 |..........".(gFA|
00005F00: 99 22 9E 11 11 20 20 54 48 45 20 43 4F 4D 4D 4F |."... THE COMMO|
00005F10: 44 4F 52 45 20 36 34 20 41 4C 52 45 41 44 59 20 |DORE 64 ALREADY |
00005F20: 48 41 53 20 54 57 4F 22 00 56 67 50 41 99 22 49 |HAS TWO".VgPA."I|
00005F30: 4E 53 54 52 55 43 54 49 4F 4E 53 20 46 4F 52 20 |NSTRUCTIONS FOR |
00005F40: 43 4F 4E 54 52 4F 4C 4C 49 4E 47 20 49 54 27 53 |CONTROLLING IT'S|
00005F50: 20 56 41 53 54 22 00 87 67 5A 41 99 22 36 34 4B | VAST"..gZA."64K|
00005F60: 20 4F 46 20 4D 45 4D 4F 52 59 2E 54 48 45 53 45 | OF MEMORY.THESE|
00005F70: 20 41 52 45 2C 4F 46 20 43 4F 55 52 53 45 2C 27 | ARE,OF COURSE,'|
00005F80: 50 45 45 4B 27 22 3B 00 B5 67 64 41 99 22 41 4E |PEEK'";..gdA."AN|
00005F90: 44 20 27 50 4F 4B 45 27 2E 53 55 50 41 42 41 53 |D 'POKE'.SUPABAS|
00005FA0: 49 43 20 41 44 44 53 20 41 4E 4F 54 48 45 52 20 |IC ADDS ANOTHER |
00005FB0: 46 4F 55 52 22 00 E2 67 6E 41 99 22 4B 45 59 57 |FOUR"..gnA."KEYW|
00005FC0: 4F 52 44 53 20 54 4F 20 41 4C 4C 4F 57 20 45 56 |ORDS TO ALLOW EV|
00005FD0: 45 4E 20 45 41 53 49 45 52 20 43 4F 4E 54 52 4F |EN EASIER CONTRO|
00005FE0: 4C 22 00 0B 68 78 41 99 22 4F 46 20 4D 45 4D 4F |L"..hxA."OF MEMO|
00005FF0: 52 59 2C 57 48 49 43 48 20 41 52 45 20 4C 49 53 |RY,WHICH ARE LIS|
00006000: 54 45 44 20 42 45 4C 4F 57 2E 22 00 1F 68 82 41 |TED BELOW."..h.A|
00006010: 99 22 11 81 54 48 45 53 45 20 41 52 45 3A 22 00 |."..THESE ARE:".|
00006020: 3F 68 8C 41 99 22 11 9F 20 20 44 45 45 4B 2C 44 |?h.A.".. DEEK,D|
00006030: 4F 4B 45 2C 43 45 45 4B 2C 43 4F 4B 45 2E 22 00 |OKE,CEEK,COKE.".|
00006040: 61 68 96 41 99 22 11 11 05 50 55 53 48 20 41 4E |ah.A."...PUSH AN|
00006050: 59 20 4B 45 59 20 46 4F 52 20 41 20 44 45 4D 4F |Y KEY FOR A DEMO|
00006060: 22 00 76 68 A0 41 A1 41 24 3A 8B 41 24 B2 22 22 |".vh.A.A$:.A$.""|
00006070: A7 31 36 38 30 30 00 7C 68 AA 41 8E 00 00 00 91 |.16800.|h.A.....|
.......A..3.A.3:."SP.DATA",8,1.8...VDU14
7:INK1:COLOUR0,0._...."...........WELCOM
E TO SUPABASIC"......"..........DDDDDDDD
DDDDDDDDDDDD"...(.."......COPYRIGHT 1984
INTERCEPTOR MICROS"...2.."...DDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDD"...<..".........
...WRITTEN BY RICHARD DAWSON".5.F.."....
...DDDDDDDDDDDDDDDDDDDDDDDDD".C.P.."....
............PRESS ANY KEY FOR MENU".U.Z.
.A$:.A$."".90...D.VDU147...N.."......SUP
ABASIC DEMONSTRATION PROGRAM"...S.....X.
.".....DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD".
....."....CHOOSE:"....... . ..". 1
. PROGRAMMING AIDS.".@...."..
2. SPRITES.".R....".. 3. N
UMERIC & STRING FUNCTIONS"......".
4. SCREEN MANIPULATION.".C.H.."..
5. SOUND & MUSIC."...R.."..
6. I/O."......".. 7. GR
APHICS.".'....".. 8. MEMORY CO
NTROL.".O....".. 9. RETURN TO
BASIC.".C....A$:.A$.."".250.V....A$:.A$.
"".260......A$."1".A$."9".270......A$."9
".......JUMPE(A$).2000...P.COLOUR0,0.K.Z
.ERR.:.2740.U....3100......"....THE 'OLD
' INSTRUCTION WILL RETRIEVE".-....".A PR
OGRAM THAT HAS BEEN 'NEWED'.".P...."..HE
RE IS A SAMPLE PROGRAM."._....".":.3250.
.....".....IF THIS PROGRAM WAS 'NEWED' A
ND THEN".A. .."YOU REALISE YOU HADN'T SA
VED IT,THEN THE";...*.."'OLD' COMMAND WI
LL RETRIEVE THE PROGRAM"...4.."INTACT.".
..>.."...PRESS ANY KEY".+.H..A$:.A$."".2
120.].R.."....THE 'RENUMBER' COMMAND WIL
L NUMBER THE"...\..".LINE NUMBERS OF YOU
R PROGRAM IN NEAT"...F..".STEPS."...P.."
.FOR EXAMPLE THE PROGRAM:"...Z.."... 1 P
RINT".G(34)."THIS IS A TEST".G(34)......
" 4 FORA=1TO10:FORB=0TO15:COLOURB,B:NEXT
:NEXT.F...." 7 PRINT".G(34)."TEST OVER."
.G(34).U...." 11 END"......".......CAN B
E NEATLY LINE NUMBERED WITH THE"......"'
RENUMBER' COMMAND.".K....".PUSH ANY KEY
TO SEE THE CHANGE."......A$:.A$."".2240.
..J.."..":.3250...T.."..SEE THE DIFFEREN
CE ?".%...."..PRESS ANY KEY.".9....A$:.A
$."".2280.K....".... THE 'DUMP' INSTRUC
TION WILL LIST THE"......".VALUES OF ALL
DEFINED VARIABLES.".F...."..TO DEMONSTR
ATE THIS ENTER THE FOLLOWING."......"...
A DECIMAL VALUE (E.G. 6.32424)";A.....I%
.32767. .$..".A STRING (E.G. HELLO )";A$
.<....".. NOW PUSH ANY KEY.".P.8..K$:.K$
."".2360.A.B.K$."":.:DUMP.W.L..".PUSH AN
Y KEY."...V..A$:.A$."".2390...`.."... WI
TH THE 'KEY' COMMAND THE FUNCTION"...J..
".KEYS CAN BE MADE TO PERFORM TASKS.THIS
"...T..".IS IDEAL FOR REPETITIVE COMMAND
S SUCH AS".2.~.."'LIST' OR 'RUN'.".M....
"...ENTER A MAX. OF NINE CHARACTERS";X$:
.C(X$).9.2440.Y...KEY1,X$......"..NOW PU
SH 'F1' AND THEN RETURN.";A$.T...."..RET
URN CHARACTERS CAN ALSO BE ENTERED."....
.KEY1,X$.G(13)......".PUSH 'F1' AGAIN NO
W.";A$.A.D..".SEE HOW THE RETURN CHARACT
ER ENDED THE":.".INPUT ?".X.N.."..PRESS
ANY KEY".L.X..A$:.A$."".2520......".. T
HE 'JUMP' COMMAND WILL ALLOW YOU TO".I..
..".'GOTO' A CALCULATED LINE NUMBER.THIS
"......".MEANS THAT THE THE LINE NUMBER
MAY BE".#....".GIVEN AS A VARIABLE OR AS
A NUMERIC".S....".EXPRESSION.THE FOLLOW
ING STATEMENTS ARE".F....".ALL VALID:".{
...."...G=20:JUMPG"...(..".JUMP10/2"...2
..".JUMP$64"...<..".JUMPA*3-100".I.F..".
..PRESS ANY KEY."...P..A$:.A$."".2640...
Z..".. THE 'ERROR' COMMAND WILL INTERCE
PT ALL".>.D.."ERRORS IN A PROGRAM.TO DEM
ONSTRATE THIS".D.N..".LINE 2730 OF THIS
PROGRAM IS:"...X..".2730 PINT".G(34)."HE
LLO".G(34)......".THE ERROR COMMAND WILL
INTERCEPT IT AND"......".JUMP TO LINE 2
740 AND REPORT THE ERROR."......".PRESS
ANY KEY"... ..A$:.A$."".2720."...P."HELL
O".S....".THERE IS A ";:REP.T:." ERROR I
N LINE "ERL......"..THE 'REPORT' COMMAND
WILL RETURN THE"...H.."LAST ERROR AND E
RL AND ERN RETURN THE".L.R.."LINE AND ER
ROR NUMBER."......"..PRESS ANY KEY."....
..A$:.A$."".2790.)...."... THE 'REPEAT'
COMMAND SIMPLY SWITCHES".H....".AUTO RE
PEAT ON OR OFF.".O....".PUSH ANY KEY AND
HOLD IT DOWN.".{...REPEAT1......"..(PRE
SS RETURN TO FINISH.)";A$...".."..PRESS
ANY KEY.".M.,..A$:.A$."".2860...6.."..
FINALLY,MANY PROGRAMMERS WANT TO".&.@.."
.DISABLE OR USE THE 'RUN/STOP' BUTTON".W
.J..".FOR OTHER USES (E.G. DISPLAYING A
MENU)."...T.."THE 'BREAK' COMMAND WILL A
LLOW YOU TO"...^..".MAKE THE PROGRAM JUM
P TO ANOTHER LINE"...H..".WHEN THE RUN/S
TOP BUTTON IS PUSHED."...R.."..TO SEE TH
IS IN ACTION PUSH THE RUN/STOP".<.|..".B
UTTON A FEW TIMES (PUSH * TO STOP).".Z..
..:BREAK:."IT WON'T WORK.".P....A$:.A$..
"*".2960.....BREAK.:."..PRESS ANY KEY"..
....A$:.A$."".2980.M...."............DEM
ONSTRATION FINISHED."......".........CCC
CCCCCCCCCCCCCCCCCCCC".!.B..".DO YOU WANT
TO .R.UN THE DEMO AGAIN".@.L..".OR DISP
LAY THE .M.ENU.".U.V..A$:.A$."R".2000.G.
...A$.."M".3030.O....10.Z....".":.......
"...............PROGRAMMING AIDS".E.&.."
............CCCCCCCCCCCCCCCC"...0.."....
..........DEMONSTRATION"...:..".........
....CCCCCCCCCCCCC".6.D..".....SUPABASIC
ALSO PROVIDES FOR THE".B.N.."SERIOUS PRO
GRAMMER.IT CONTAINS A SET"...X.."OF COMM
ANDS TO ALLOW EASIER ENTRY AND"...B.."DE
BUGGING OF PROGRAMS,SUCH AS 'RENUMBER'";
.X.L.."'OLD' AND 'KEY'."...V..".....THES
E ARE:".!...."......OLD,KEY,RENUMBER,DUM
P,BREAK,BYE,ERN,".F...."ERL,REPEAT,JUMP,
ERROR,REPORT.".K...."...PRESS ANY KEY TO
CONTINUE.".....A$:.A$."".3230......203
0......". 10 PRINT".G(34)."THIS IS A TES
T".G(34)......" 20 FORA=1TO10:FORB=0TO15
:COLOURB,B:NEXT:NEXT...F.." 30 PRINT".G(
34)."TEST OVER.".G(34).%.P.." 40 END".+.
Z...B. .VDU142,8:CSET"@",0.U...CBIT"..XX
XX..".H...CBIT".X....X.".{...CBIT"X..XX.
.X"...H.CBIT"X.X....X"...R.CBIT"X.X....X
".....CBIT"X..XX..X".G...CBIT".X....X.".
Z...CBIT"..XXXX.."......4860.....VDU147:
INK1.$...."...THIS DEMONSTRATES THE SPRI
TE COMMANDS".:."..".OF SUPABASIC.".Y.,.S
PRITE0,34,7,0,0:SIZE0,1,1.|.6.SPRITE1,32
,8,0,1,1,4:SIZE1,1,1...@.SPRITE2,33,3,0,
0:SIZE2,1,1:PLACE2,125,280:DI.2,1:C.0.S.
J.Y.0:PLACE0,0,0:PLACE1,0,0...T.DI.1,1:D
I.0,1...^..X.70.280.3:PLACE1,125,Y:PLACE
0,125,X:Y.Y.3:C.C.1.A.H.A.E.(B(50168),1)
:.50168,A:.C..9...X.R..C.9.:INVSP2:C.1:.
...|.DI.2,0:.50168,36:SPRITE1,32,6,0,1,1
,4.I....X.280.171..3.5:PLACE0,125,X:PLAC
E1,125,Y:Y.Y.1.5:A.E.(B(50168),7).X....5
0168,A:......SPRITE2,37,1,0,0:PLACE2,133
,171:SIZE2,0,0:DI.2,1.&...SPRITE1,32,0,0
,1,1,4.^...DD.4.5:.X.168.0..3:PLACE0,125
,X:PLACE1,125,Y:Y.Y.DD.....A.E.(B(50168)
,7):.50168,A:.Y..0.Y.0:DD.0:DI.1,0...B..
...L.DI.1,0:DI.2,0:DI.0,0.I.V.."..PRESS
ANY KEY."......A$:.A$."".4320.. ..."....
SPRITE TO SPRITE COLLISIONS ARE ALSO"./
...".CATERED FOR BY SUPABASIC.".< ..VDU1
3,13.[ ..SPRITE0,38,7,0,0:SIZE0,1,1.Z ..
SPRITE1,39,5,0,0:SIZE1,1,1.. ..SPRITE2,3
9,9,0,0:SIZE2,1,1.E &.."PUT A JOYSTICK I
N PORT #1 OR USE THE".. 0..".KEYS 'A' AN
D 'S' TO MOVE YOUR SHIP.PUSH"..!:..".SPA
CE OR FIRE TO ABORT.".,!D.."..PUSH ANY K
EY.".@!N..A$:.A$."".4430.K!X.VDU147..!B.
.A.1.50:CURS..(1).24,.(1).39:INK.(1).16:
.".":.:INK1..!L.X.155:DI.0,1:DI.1,1:DI.2
,1..!V.Y..(1).220:Z..(1).220.99.."...A.1
0.230.4:PLACE0,205,X:PLACE1,A,Y:PLACE2,A
.10,Z:Z.Z.1:Y.Y.1.B"..DU.CHECK(0,1):.CHE
CK(0,1).CHECK(0,2).:SPRITE0,40,1,0,0:.45
40.O"..B.B(197).."..J.JOY(1):.J.128.X.X.
4.((J.3.B.13).X.305).4.((J.7.B.10).X.20)
:..."...J.127.4540.."...4470.."..DI.1,0:
DI.2,0:.A.1.10:.B.1.15:SPRITE0,40,B,0,0:
.:..."F..A.1.10:.A$:.:DI.0,0.+#P.."..CHA
RACTERS CAN ALSO BE REDEFINED WITH".P#Z.
.".SUPABASIC.AN EXAMPLE IS '@'."..#...".
.INPUT A CHARACTER";A$:.A$."".C(A$)..1.4
580..#...".":.1,0..#...".."A$:A.B(49152)
:.49152,32:."........"..#..C.A.8.53248:.
56334,B(56334).254:.1,B(1).251..$...N.0.
7:C(N).B(C.N):..'$...1,B(1).4:.56334,B(5
6334).1.?$ ..N.0.7:.N;:W$(N)."".E$*..Q.7
.0..1:Q$.".":.C(N).2.Q.Q$."X"..$4.W$(N).
W$(N).Q$:.:.W$(N):.:."END"..$>..".......
..";.G$H..198,3:.631,29:.632,29:.633,29:
.1,E$:..Z$R..E$."END".4710..$\.W.E(H(E$,
3))..%A..C(J(E$,3)).7.W$(W).J(E$,3):.468
0..%C..4680.(%F.CSETA$,0.?%P..A.0.7:CBIT
W$(A):..W%Z.."...PRESS ANY KEY".K%...A$:
.A$."".4740..%..VDU147:."..........DEMON
STRATION FINISHED".A%...".........CCCCCC
CCCCCCCCCCCCCCCC"..%..."..DO YOU WANT TO
.R.UN THE DEMO AGAIN"..&...".OR DISPLAY
THE .M.ENU.";.#&...A$:.A$."R".4000.4&..
.A$."M".4820.>&J..4790.F&T..10.\&..VDU14
7:C.0,0:INK1..&..."...SPRITE AND USER-DE
FINABLE CHARACTERS"..&..."..CCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCC"..&..."........
......DEMONSTRATION"..&$..".............
CCCCCCCCCCCCC"..'..."... THE COMMODORE
'64' HAS A VIDEO CHIP"._'8.."CALLED THE
'VIC II'.IT IS THIS CHIP THAT";..'B.."CO
NTROLS THE SPRITE GENERATOR ON THE"..'L.
."'64'.HOWEVER,IT WAS NECESSARY TO USE".
.'V.."POKES TO ACCESS THESE SPRITES.SUPA
BASIC"..(`.."OBLIVIATES THE NEED FOR SUC
H POKES AS IT";.F(J.."PROVIDES 13 NEW CO
MMANDS FOR DESIGNING,".S(T.."POSITIONING
AND ANIMATING SPRITES AND"..(~.."USER D
EFINABLE CHARACTERS."..(..."..THESE ARE:
".W(...". SPRITE,BIT,GRID,SIZE,PLACE,DI
SPLAY,"..)..."SET,INVSP,CHECK,CSET,CBIT,
MEM AND NUM.".))..."..PRESS ANY KEY TO C
ONTINUE.".3)...5070.9)....N)D.."PUSH ANY
KEY.".B)N..A$:.A$."".5070.H)X...|)P.COL
OUR0,0:.6600..)Z..".. THE 'HEX$' FUNCTIO
N WILL CONVERT A".V)...".DECIMAL NUMBER
TO A HEXADECIMAL ONE."..*..."..INPUT A D
ECIMAL NUMBER (0-65535)";A:.A.65535.A.0.
6030.:*..."...DECIMAL "A" = "HEX$(A)" HE
X".S*..."...PRESS ANY KEY.".G*...A$:.A$.
"".6060..*...". THE FUNCTION KEYS CAN AL
SO BE TESTED"..*...".WITH THE 'FUNKEY' F
UNCTION."..*J.."..PRESS ANY OF THE FUNCT
ION KEYS (PUSH *"..*T..".TO STOP)."..+..
."..FUNCTION KEY =".(+...A$:.A$."*".6150
.B+..X.FUNKEY:."..............."X". ":.
X..0.:OFFMOD(X,16).L+...6120..+..."..PRE
SS ANY KEY"..+...A$:.A$."".6160..+..COLO
UR0,0.W+$.."..THE 'MOD' FUNCTION RETURNS
THE REMAINDER"..,..."OF A DIVISION BETW
EEN TWO NUMBERS.".8,8.."...ENTER A NUMBE
R (0-65535)";A:.A.65535.A.0.6200.T,B..".
.ENTER ANOTHER NUMBER (0-65535)";B:.B.65
535.B.1.6210..,L.."..THE REMAINDER OF TH
E DIVISON BETWEEN".A,V.."."A" AND "B" =
"MOD(A,B).Y,`.."...PRESS ANY KEY"..,J..A
$:.A$."".6250..-T.."... THE 'DIV' FUNCTI
ON PERFORMS THE SAME".K-~..".OPERATION A
S 'MOD' BUT IT RETURNS THE".S-...".INTEG
ER RESULT,I.E. WITHOUT THE"..-...".REMAI
NDER."..-..."..INPUT A NUMBER (0-65535)"
;A:.A.65535.A.0.6300..-..."..INPUT ANOTH
ER NUMBER (0-65535)";B:.B.65535.B.1.6310
.$...."..THE INTEGER RESULT OF THE DIVIS
ION".K....".BETWEEN "A" AND "B" = "DIV(A
,B).C.D.."...PRESS ANY KEY".W.N..A$:.A$.
"".6350...X.."... THE 'EOR' FUNCTION IS
A LOGICAL".S....".OPERATOR LIKE 'AND' &
'OR'.IT SPLITS THE"......"NUMBERS GIVEN
INTO BINARY AND THEN".-/...".PERFORMS TH
E FOLLOWING OPERATION ON THE".;/...".BIT
S.".V/..."............0 0 1 1".N/..."...
......0 1 0 1"../...".........CCCCCCC"..
/(.."..........0 1 1 0".U/2.."..ENTER A
NUMBER (0-65535)";A:.A.65535.A.0.6450..0
<.."..ENTER ANOTHER NUMBER (0-65535)";B:
.B.65535.B.0.6460.90F..".."A" EXCLUSIVE-
OR "B" = "E.(A,B).P0P.."..PRESS ANY KEY"
.D0Z..A$:.A$."".6490..0D.."............D
EMONSTRATION FINISHED"..0N..".........CC
CCCCCCCCCCCCCCCCCCCC"..0X..".DO YOU WANT
TO .R.UN THE DEMO AGAIN"..1...".OR DISP
LAY THE .M.ENU."..1...A$:.A$."R".6000.'1
...A$.."M".6540./1 ..10.[1H.."..........
.NUMERIC & STRING FUNCTION"..1R.."......
..CCCCCCCCCCCCCCCCCCCCCCCCC"..1...".....
..........DEMONSTRATION".K1...".........
.....CCCCCCCCCCCCC"..1..."... SUPABASIC
ALSO ADDS 7 NEW NUMERIC AND".+2..."STRI
NG FUNCTIONS TO THE EXISTING ONES,".V2..
."SUCH AS HEX-DECIMAL AND DECIMAL-HEX".J
2..."CONVERSIONS.".2..."...THESE ARE:".
.2".."......$,HEX$,MOD,DIV,EOR,STRING$,F
UNKEY.".F2,.."..PRESS ANY KEY".Z26..A$:.
A$."".6710..2@....2@.COLOUR0,0:INK1..2J.
.8630./3T..".. THE 'SCROLL' COMMAND MOV
ES TEXT ON THE".\3^.."SCREEN IN ANY OF T
HE FOUR DIRECTIONS."..3H..".TO DEMONSTRA
TE THIS USE THE BUTTONS".G3R..".'..L..',
'..R..','..U..' AND '..D..' TO MOVE THE
SCREEN"..3|..".ABOUT (PUSH * TO STOP).".
.3..A.B(197):.A.49.8140..4...A.42.:SCROL
LL,W.)4...A.17.:SCROLLR,W.>4...A.30.:SCR
OLLU,W.S4...A.18.:SCROLLD,W.]4...8070.R4
L..A$:.A$.."".8140..4V..".. THE 'COLOUR
' COMMAND CHANGES THE".E4...".BORDER AND
BACKGROUND COLOURS."..4...".PRESS ANY K
EY."..4...A$:.A$."".8180..5...A.1.100:.B
.0.15:COLOURB,B:.:.:COLOUR0,0.45. ."..PR
ESS ANY KEY".H5. .A$:.A$."".8210.U5. .".
. TEXT CAN ALSO BE INVERTED WITH THE"..5
& .".'INVERT' COMMAND, AS SHOWN IN THE".
.50 .".FOLOWING DEMONSTRATION.".X5: ."..
.PRESS ANY KEY."..5D .A$:.A$."".8260..6N
.A.1.100:INVERT0:...6X ."..PRESS ANY KE
Y."./6B .A$:.A$."".8290.A6L .".. THE 'D
ELAY' COMMAND CONTROLS THE SPEED"..6V ."
AT WHICH CHARACTERS ARE PRINTED."..6. ."
...ENTER SOME TEXT";A$.E6. DELAY220:.A.0
.10:.".."A$:...6. ."...PRESS ANY KEY."..
6. .A$:.A$."".8350.-7. DELAY255:."... TO
CREATE SPECIAL EFFECTS THE 'BFLASH'".Y7
. ."INSTRUCTION WILL FLASH THE BORDER IN
"..7. .".TWO DIFFERENT COLOURS AT A SPEC
IFIED"..7F .".SPEED.".F7P ."...INPUT A C
OLOUR (0-15)";A:.A.15.A.0.8400..7Z ."..A
NOTHER COLOUR";B:.B.15.B.0.8410.%8. ."..
AND THE FLASH RATE (0-255)";C:.C.255.C.0
.8420.58. BFLASHA,B,C.L8. ."..PRESS ANY
KEY".`8.!.A$:.A$."".8450..8.!."... THE
'BFLASH' COMMAND IS DISABLED WITH"..8.!.
"THE 'OFF' INSTRUCTION."..8 !."..ENTER A
COLOUR (0-15)";A:.A.15.A.0.8480..8*!OFF
A..94!."..PRESS ANY KEY"..9>!.A$:.A$."".
8510..9H!.8800.H9R!."............DEMONST
RATION FINISHED".O9\!.".........CCCCCCCC
CCCCCCCCCCCCCC"..9F!.".DO YOU WANT TO .R
.UN THE PROGRAM AGAIN"..9P!.".OR DISPLAY
THE .M.ENU.".R9Z!.A$:.A$."R".8000..9.!.
A$.."M".8570..9.!.10..:.!.".............
SCREEN MANIPULATION".::.!."...........CC
CCCCCCCCCCCCCCCCC".^:J!."...............
DEMONSTRATION"..:T!."..............CCCCC
CCCCCCCC"..:.!."... THE COMMODORE 64 HA
S AN EXTREMELY".Z:.!."VERSATILE SCREEN,M
AKING IT AND ITS "..;.!."CONTENTS EASY T
O CONTROL.THE SUPABASIC".7;.!."SCREEN CO
MMANDS ALLOW YOU TO MANIPULATE".F;."."TH
E SCREEN WITH TEN COMMANDS ESPECIALLY"..
;."."FOR THIS PURPOSE,SUCH AS 'SCROLL' A
ND"..;."."'VDU'."..;$"."..THESE ARE:"..;
.".".. COLOUR,INVERT,DELAY,BFLASH,OFF,B
COL,"..<8"."SCROLL,CURSOR,INK,VDU.".&<B"
."..PRESS ANY KEY TO CONTINUE".:<L".A$:.
A$."".8780.@<V"..S<`"."... THE 'CURSOR'
COMMAND WILL POSITION THE". <J"."CURSOR
AT THE CO-ORDINATES SPECIFIED.".R<T".".
.ENTER ROW CO-ORD (0-24)";A:.A.24.A.0.88
20..=~"."..ENTER COLUMN CO-ORD (0-39)";B
:.B.39.B.0.8830.'=."."..NOW ENTER SOME T
EXT";A$.8=."CURS.A,B:.A$.O=.".".PRESS AN
Y KEY.".C=.".A$:.A$."".8870.I=."..T=.'.1
0220.~=.'VOL15..=$'ENV1,0,3,13,0..=.'ENV
2,2,5,11,7..=8'ENV3,2,11,15,3.A=B'WAVE1,
2.M=L'WAVE2,3.Y=V'WAVE3,2..=`'PULSE2,204
8..>J'.B.1.3:.:.A.1.26:.X:.:.A.1.52..>T'
.S.1.100:..!>~'.X.(>.'.Y./>.'.Z.;>.'PLAY
1,X.G>.'PLAY2,Y.S>.'PLAY3,Z.Y>.'.._>D'..
E>N'...>X'.2145,2273,2408,2551,2703,2864
,3034,3215,3406,3608,3823,4050,4291,4547
..>.'.4817,5103,5407,5728,6069,6430,6812
,7217,7647,8101,8583,9094..?.'COLOUR0,0:
VDU147:INK1.7?.'."......SUPABASIC SOUND
DEMONSTRATION.".B?.(.".....DDDDDDDDDDDDD
DDDDDDDDDDDDDDDDD"..?.(."..SUPABASIC UTI
LISES TO THE FULL THE "..?.(."EXCELLENT
SOUND FACILITIES OF THE '64'"..?.(."THE
EXTENSION PROVIDES 5 SOUND COMMANDS"..@(
(."FOR EASY CONTROL OVER THE COMPUTERS S
ID".3@2(."CHIP.THESE ARE :".V@<(."...VOL
,WAVE,ENV,PULSE,PLAY."..@F(."..PRESS ANY
KEY FOR A DEMONSTRATION"..@P(.A$:.A$.."
".10320..@Z(.A$:.A$."".10330.X@D(VDU147:
."...............KEYBOARD SYNTH"..@N(.".
............DDDDDDDDDDDDDD".&AX(."....PU
SH DOWN A KEY TO PLAY A NOTE.".AA.(."..P
USH '*' TO STOP.".ZA.(.A.54272.54272.24:
.A,0:.:ENV1,0,0,15,0:WAVE1,1:VOL15..A.(.
A$:.A$."".10390..A (.A$."*".10460..A.(.A
$."A".A$."Z".10390.IA.(A.F(A$).64..A.(.:
.B.1.A:.N:...AH(PLAY1,N:.A$:.A$."".10390
..BR(.10400.1B.(VDU147:."............MUS
IC DEMONSTRATION".VB.(."..........CCCCCC
CCCCCCCCCCCCC"..B.(."....ADAPTED BY T.GI
BSON WITH THE SUPABASIC"..B.(.".SOUND CO
MMANDS.."..B.).10010:VOL0..B.)."........
.....DEMONSTRATION FINISHED."..C.)."....
.....CCCCCCCCCCCCCCCCCCCCCCC".3C")."...D
O YOU WANT TO .R.UN THE DEMO AGAIN".RC,)
.".OR DISPLAY THE .M.ENU";.HC6).A$:.A$."
R".10000.ZC@).A$."M".10580..CJ).10550..C
T).10..C|).7217,5407,4291,8101,5407,4291
.VC.).8583,0,0,8101,0,0,7217,5407,4291..
C.).7217,5407,4291,7217,0,0,7217,0,0..D.
).7217,5407,4291,8101,5407,4291.AD.).858
3,0,0,9634,0,0,10814,5407.CD.).4291,1081
4,5407,4291,10814,0.TD.).0,10814,0,0..DB
).9634,4817,5728,10814,4817,5728..DL).11
457,0,0,12860,0,0,14435,4817..DV).5728,1
4435,4817,5728,14435,0,0..D.).14435,0,0.
.E.).14435,5407,4291,16203,5407,4291.8E.
).17167,0,0,16203,0,0,14435,5407.\E.).42
91,14435,5407,4291,14435,0,0.KE.*.14435,
0,0..E.*.10814,3406,3406,10814,3608,3608
..E.*.10814,4050,4050,10814,3608,3608.ZE
&*.10814,3406,3406,10814,3406,3406..E0*.
8101,3406,3406,8101,3406,3406. F:*.8583,
3608,3608,8583,4050,4050.CFD*.8583,4291,
4291,8583,4817,4817.FFN*.8583,5407,5407,
8583,5407,5407..FX*.7217,5407,5407,7217,
5407,5407..FB*.10814,3406,3406,10814,360
8,3608.SFL*.10814,4050,4050,10814,3608,3
608..F...12850:.12720..F..VDU147,5..G...
"..HAVE YOU A DISK DRIVE ";D$.RG...D$.."
Y".12100:.:."THIS DEMONSTRATES THE 'CAT'
COMMAND."..G./.:."THIS DEMONSTRATES THE
'CAT' COMMAND."..G./.".INSERT A DISK AN
D THEN PUSH 'SPACE'":..EG./.A$:.A$.." ".
12060..G&/CAT0:.".PUSH ANY KEY"..G0/.A$:
.A$."".12080..G:/VDU147.%HD/."..HAVE YOU
A CASSETTE DRIVE";T$.8HN/.T$.."Y".12190
.LHX/.:."THE 'INFO' COMMAND GIVES THE ST
ART AND ":.:..HB/."END ADDRESSES OF A PR
OGRAM ON TAPE.":..UHL/."REWIND A CASSETT
E TO THE START AND PUSH":.:."'SPACE'"..H
V/.A$:.A$.."".12150..H./INFO..I./.:.".PR
ESS ANY KEY".!I./.A$:.A$."".12180.<I./.T
$.."Y".D$.."Y".12490.UI./VDU147:."..THER
E ARE ALSO COMMANDS TO LOAD AND SAVE"..I
./."BLOCKS OF MEMORY FROM/TO DISK OR TAP
E.":..UI./.".(IF YOU DO NOT WISH TO SAVE
TYPE 'X' IN"..IF/.".REPLY TO THE INPUT.
)"..JP/."...D.ISK OR .T.APE";A$.'JZ/.A$.
"T".DE.1:.12290.?J./.A$."D".DE.8:.12290.
QJ./.A$."X".12340.\J./.12240..J.0.".FILE
NAME";F$:.F$."".DE.8.12290..J.0.".START
ADDRESS";SA..J.0.".END ADDRESS";EA.DJ 0.
SA.EA..12310.XJ*0@.F$,DE,0,SA,EA..J40.:.
".PUSH ANY KEY"..K>0.A$:.A$."".12350.9KH
0VDU147:."..THERE IS ALSO A 'SCSV' COMMA
ND FOR":..VKR0."SAVEING THE STORED HIRES
SCREEN TO DISK":.:."OR TAPE."..K\0.".(I
F YOU DO NOT WISH TO SAVE THE SCREEN".EK
F0.".TYPE 'X' TO THE INPUT.)"..KP0."...D
.ISK OR .T.APE";A$..KZ0.A$."T".DE.1:.124
50..L.0.A$."D".DE.8:.12450.$L.0.A$."X".1
2490./L.0.12400.UL.0.".FILENAME";F$:.F$.
"".DE.8.12450.CL.0SCSVF$,DE.YL.0."..PUSH
ANY KEY"..L.0.A$:.A$."".12480..LJ0VDU14
7..LT0."...HAVE YOU A JOYSTICK";A$.LL.0.
A$."N".12600..L.0.A$.."Y".12500..M.0."..
PLUG IT INTO PORT #1 AND MOVE IT AROUND.
".+M.0."PUSH FIRE TO STOP.".@M.1."...DIR
ECTION:".ZM.1J.JOY(1):.J.127.12600.M$1.
"......................"I$(J.1)..M.1.125
60..M81VDU147:."...........DEMONSTRATION
FINISHED"..MB1.".........CCCCCCCCCCCCCC
CCCCCCCC"..NL1."...DO YOU WANT TO .R.UN
THE DEMO AGAIN"./NV1.".OR DISPLAY THE .M
.ENU.";.EN`1.A$:.A$."R".12000.WNJ1.A$."M
".12670.BNT1.12640.JN~1.10..N.1C.0,0:INK
1:VDU147..N.1."........INPUT/OUTPUT DEMO
NSTRATION".SND1.".......CCCCCCCCCCCCCCCC
CCCCCCCCCC"..ON1."... THIS DEMONSTRATIO
N SHOWS YOU HOW THE".2OX1."SUPABASIC I/O
COMMANDS LET YOU CONTROL".`O.1."HOW THE
COMPUTER COMMUNICATES WITH THE"..O.1."O
UTSIDE WORLD (E.G. WITH TAPE AND DISK"..
O.1."AND JOYSTICKS.)".EO.2."...THE I/O C
OMMANDS ARE:"..O.2.".. @LOAD,@SAVE,INF
O,CAT,SCSV AND JOY."..P.2."...PRESS ANY
KEY TO CONTINUE."..P.2.A$:.A$."".12830.9
P(2.12010.|P22I$(1)."STATIONARY ":I$(2)
."UP ":I$(3)."UP & RIGHT "..P<
2I$(4)."RIGHT ":I$(5)."DOWN & RIGH
T":I$(6)."DOWN "..QF2I$(7)."DOWN
& LEFT ":I$(8)."LEFT ":I$(9)."UP
& LEFT ":...Q.6.14820.(Q.6VDU147:H.0,0
:WI.0:T..6QD6COLOUR0,0.FQN6GRAPH:MODE0..
QX6CHAR0,14,"A SINE CURVE",1,0:CHAR1,14,
"DDDDDDDDDDDD",7,0..Q.6CHAR21,1,"THIS DE
MONSTRATES THE VERSATILE 'PLOT'",1,0..Q.
6CHAR23,4,"AND 'DRAW' COMMANDS ON SUPABA
SIC.",1,0..R.6PLOT33,160,7..R.7DRAW186,1
60,7.$R.7PLOT116,0,7.6R.7DRAW116,319,7._
R.7.A.0.319.8:PLOT116,A,7:DRAW119,A,7:..
.R(7.A.33.186.8:PLOTA,160,7:DRAWA,163,7:
..CR27.A.0.639.2:DE.(A.83).(..180):PLOT.
(DE).75.116,A.4,7:..UR<7.14790:VDU147..S
F7T.:.".. THERE IS ALSO A COMMAND TO PRI
NT TEXT".%SP7.".ON THE HIRES SCREEN.".QS
Z7."..ENTER SOME TEXT";A$:.C(A$).40.1417
0.ASD7H.0,0:GRAPH.NSN7.A.1.100..SX7C..(.
(1).16):M..(.(1).4):X..(1).24:Y..(1).39:
CHARX,Y,A$,C,M..S.7...S.7.14790..S.7VDU1
47:T.:.:.".YOU CAN ALSO CHANGE ANYTHING
IN ONE".#T 7.".COLOUR TO ANOTHER COLOUR
WITH THE":..;T.7."'ALTER' COMMAND.".]T.7
."..PUSH ANY KEY FOR A DEMO.".T.7CHAR24
,26," ",1,0..TH7.14800:GRAPH
:.A.1.20:.B.0.15:ALTERB,MOD(B.1,16):.:.:
ALTER0,1.KTR7.14790..U.7VDU147:T.:."..YO
U CAN ALSO DRAW PREDEFINED SHAPES"..U.7.
".IN DIFFERENT SIZES WITH THE 'SHAPE'".?
U.7.".COMMAND.".JU.7.14790..U.8H.0,0:GRA
.:.A.1.100:S..(.(1).9).1:C..(.(1).15).1:
X..(1).189.10..U.8Y..(.(1).309).10:.Y.31
9.S.3.Y.Y.S.3.1.PU.8.X.199.S.3.X.X.S.3.1
..U"8SHAPEX,Y,C,S,"12345678":...U,8.1479
0.3V68VDU147:T.:."..IT IS ALSO POSSIBLE
TO CHANGE THE TYPE".DV@8.".OF POINT PLOT
TED WITH THE'MODE' COMMAND.".OVJ8.14790.
VT8H.0,0:GRAPH..V^8MODE2:.A.0.99:PLOT0,
0,1:DRAWA,319,1:PLOT0,319,1:DRAWA,0,1:..
.WH8.A.199.100..1:PLOT199,0,1:DRAWA,319,
1:PLOT199,319,1:DRAWA,0,1:...WR8A.0.PW|8
PLOT100,160,8:DRAW.(A).40.100,.(A).40.16
0,8:A.A..02:.A.6.3.14460.[W.8.14790..W.8
VDU147:T.:."..YOU ALSO NEED NOT PLOT IN
ONE BACKGROUND".XW.8."COLOUR.YOU CAN PLO
T IN MANY WITH THE":.".'PAPER' COMMAND."
..W.8.14790..W.8H.0,0:GRAPH.4X.8.A.1.100
:X..(1).190.8:Y..(1).319:PAPER.(.(1).15)
.1:PLOTX,Y,0.\XB8X..(1).190.8:Y..(1).319
:DRAWX,Y,0:..GXL8.14790..XV8VDU147:T.:."
..IT IS ALSO POSSIBLE TO CREATE A TEXT".
.X.8.".WINDOW ON A HIRES SCREEN WITH THE
":.".'WINDOW' COMMAND."..X.8.14790..Y.8W
INDOW32:WINDOW32.:Y.8CURS.22,0:." THIS D
EMONSTRATES THE SELECTABLE TEXT ".DY.9.
" WINDOW FEATURE ON SUPABASIC."..Y.
9.A.1.240:.B.1.20:.:SCROLLR,W:...Y.9WI.0
:VDU147:T..IY&9."..THE HIRES SCREEN CAN
ALSO BE INVERTED"..Y09.".WITH THE 'INVER
T' COMMAND."..Z:9.14790:CHAR24,26,"
",1,0:GRAPH.1ZD9.A.1.52:INVERT1:
..FZN9.14790:VDU147:T..QZX9."...........
.DEMONSTRATION FINISHED."..ZB9."........
.CCCCCCCCCCCCCCCCCCCCCCC".FZL9."..DO YOU
WANT TO .R.UN THE DEMO AGAIN"..ZV9.".OR
DISPLAY THE .M.ENU.";..Z.9.A$:.A$."R".1
4000..[.9.A$."M".14750..[.9.14720.![.9.1
0.V[F9.:."PRESS ANY KEY":CHAR24,26,"PRES
S ANY KEY",1,0.K[P9.A$:.A$."".14800.Q[Z9
...[.9COLOUR0,0:VDU147:INK1..[.9."......
....GRAPHICS DEMONSTRATION".Z[.9."......
...CCCCCCCCCCCCCCCCCCCCCC"..\.:.".... T
HE COMMODORE 64 HARDWARE PROVIDES FOR";.
=\.:."A HIGH RESOLUTION SCREEN,ALTHOUGH
THIS".L\.:."IS DIFFICULT TO MANIPULATE F
ROM NORMAL "..\ :."BASIC.FOR THIS REASON
,SUPABASIC INCLUDES";.K\*:."15 HIRES GRA
PHIC COMMANDS,SUCH AS PLOT"..\4:."AND DR
AW,TO ENABLE EASIER USE OF THE". ]>:."CO
MPUTERS HIGH RESOLUTION GRAPHIC".5]H:."C
APABILITIES.".J]R:."...THESE ARE:".}]\:.
".. GRAPH,TEXT,PLOT,DRAW,MODE,HIRES,CH
AR,";..]F:."WINDOW,POINT,SHAPE,BLANK,PAP
ER,ALTER AND";..]P:."MOVE."..]Z:.:.".PRE
SS ANY KEY TO CONTINUE.":.14800:.14010..
^.>COLOUR0,0:.16670.5^.>."... THE FIRST
OF THESE COMMANDS IS 'DEEK'".\^.>.".WHI
CH REPLACES THE BASIC CODE:"..^.>."...PR
INTPEEK(A)+PEEK(A+1)*256"..^.>.".. WHERE
'A' IS AN ADDRESS BETWEEN 0 AND"..^.>."
.65535.THIS COMMAND IS USED FOR LOOKING"
.._.>.".AT AN ADDRESS STORED IN 2 BYTES
OF".._F>.".MEMORY.".2_P>."...PUSH ANY KE
Y".G_Z>.A$:.A$."".16090.Z_.>."... SO TO
FIND WHERE THE INTERRUPT IS GOING".._.>.
"TYPE :". _.>."..PRINTDEEK(788)".O_.?.".
.AND YOU SHOULD GET THE ANSWER '38000'".
.`.?."..INPUT AN ADDRESS (0-65535)";A:.A
.65535.A.0.16140.6`.?.".THE 'DEEK' OF TH
IS ADDRESS IS:"DEEK(A).N` ?."...PUSH ANY
KEY.".C`*?.A$:.A$."".16170..`4?."... T
HE 'DOKE' COMMAND ACTS ON TWO BYTES".C`>
?.".LIKE THE 'DEEK' INSTRUCTION,BUT 'DOK
E'"..`H?.".CHANGES THE BYTES AND REPLACE
S THE BASIC"..AR?."CODE:".'A\?."..POKEA,
(B/256-INT(B/256))*256".=AF?.".POKEA+1,B
/256".MAP?."... WHERE 'A' IS AN ADDRESS
AND 'B' IS A"..AZ?.".TWO BYTE VALUE (0-6
5535).THE SAME CODE"..A.?.".CAN BE REPLA
CED WITH:".KA.?."..DOKEA,B"..A.?."...PRE
SS ANY KEY."..A.?.A$:.A$."".16290.)B.?."
....SO TO SET THE INTERRUPT TO 38000 YOU
".=B.?.".WOULD TYPE:".TB.?."..DOKE788,38
000"..BJ?.".. (DO NOT CHANGE THE INTERRU
PT TO ANY"..BT?.".OTHER VALUE OR THE COM
PUTER MIGHT CRASH)".IB.?."..PUSH ANY KEY
"..B.?.A$:.A$."".16360..C.?.".... THE 'C
EEK' INSTRUCTION IS USED FOR".7C.?.".'PE
EKING' CHARACTERS FROM MEMORY.".GC.@.".
TO DEMONSTRATE THIS THE NEXT LINE OF".
.C.@.".THIS PROGRAM IS:"..C.@."..390 PRI
NTCEEK(32880,255)"..C$@.".."CEEK(32880,2
55)..C.@."...THE LOCATION 32880 IS WHERE
THE WORDS"..D8@."FOR SUPABASIC ARE STOR
ED.".#DB@."..PRESS ANY KEY".8DL@.A$:.A$.
"".16460.GDV@."... FINALLY THE 'COKE' CO
MMAND POKES A "..D`@.".STRING INTO MEMOR
Y."..DJ@.".. FOR EXAMPLE IF YOU WERE TO
TYPE:".XDT@."..COKE32880,".G(34)."12345
.".G(34)..E~@.".. THEN THE COMMAND 'COLO
UR' WILL CHANGE".7E.@.".CHANGE TO '12345
6' (THE LAST CHARACTER".HE.@.".MUST HAVE
128 ADDED TO IT,HENCE THE '.')".~E.@.".
.PUSH ANY KEY"..E.@.A$:.A$."".16550..E.@
."............DEMONSTRATION FINISHED"..E
.@.".........CCCCCCCCCCCCCCCCCCCCCC"..FD
@.".DO YOU WANT TO .R.UN THE DEMO AGAIN"
./FN@.".OR DISPLAY THE .M.ENU.".EFX@.A$:
.A$."R".16000.XF.@.A$.."M".16600.`F.@.10
.KF.A.".":...F.A."................MEMORY
CONTROL"..F(A.".............CCCCCCCCCCC
CCC".XF2A."..............DEMONSTRATION."
..F<A.".............CCCCCCCCCCCCCC".(GFA
."... THE COMMODORE 64 ALREADY HAS TWO"
.VGPA."INSTRUCTIONS FOR CONTROLLING IT'S
VAST"..GZA."64K OF MEMORY.THESE ARE,OF
COURSE,'PEEK'";..GDA."AND 'POKE'.SUPABAS
IC ADDS ANOTHER FOUR"..GNA."KEYWORDS TO
ALLOW EVEN EASIER CONTROL"..HXA."OF MEMO
RY,WHICH ARE LISTED BELOW."..H.A."..THES
E ARE:".?H.A.".. DEEK,DOKE,CEEK,COKE.".
AH.A."...PUSH ANY KEY FOR A DEMO".VH A.A
$:.A$."".16800.|H.A.....
> CLICK IMAGE PREVIEW FOR FULL MODAL