UBTUTOR2
FILE INFORMATION
FILENAME(S): UBTUTOR2
FILE TYPE(S): PRG
FILE SIZE: 11.6K
FIRST SEEN: 2025-11-30 16:18:14
APPEARS ON: 1 disk(s)
FILE HASH
4973f1db7bb99f59899f22497e4ac6d0c4e2c22bd5847a05a30f243ea6181ee7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TOOLS | UBTUTOR2 | PRG | BrainSkull, Leopold Zyka | 8 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 0B 00 8F 20 43 4F 4E 54 52 4F 4C 20 |....... CONTROL |
00000010: 52 4F 55 54 49 4E 45 53 00 23 08 32 00 9C 3A 89 |ROUTINES.#.2..:.|
00000020: 31 30 30 00 40 08 3C 00 99 22 12 11 50 52 45 53 |100.@.<.."..PRES|
00000030: 53 20 43 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |S C TO CONTINUE"|
00000040: 00 55 08 3E 00 A1 43 24 3A 8B 20 43 24 B3 B1 22 |.U.>..C$:. C$.."|
00000050: 43 22 A7 36 32 00 5B 08 40 00 8E 00 6D 08 46 00 |C".62.[.@...m.F.|
00000060: 81 49 B2 31 A4 32 30 30 30 3A 82 3A 8E 00 80 08 |.I.1.2000:.:....|
00000070: 64 00 8F 20 54 55 54 4F 52 20 50 41 52 54 20 32 |d.. TUTOR PART 2|
00000080: 00 AB 08 6E 00 99 22 93 11 55 4C 54 52 41 42 41 |...n.."..ULTRABA|
00000090: 53 49 43 2D 36 34 20 54 55 52 54 4C 45 20 47 52 |SIC-64 TURTLE GR|
000000A0: 41 50 48 49 43 53 20 4D 41 4B 45 00 D6 08 78 00 |APHICS MAKE...x.|
000000B0: 99 22 41 4E 20 45 41 53 59 20 57 41 59 20 54 4F |."AN EASY WAY TO|
000000C0: 20 44 52 41 57 2C 20 55 53 49 4E 47 20 54 48 45 | DRAW, USING THE|
000000D0: 20 54 52 41 49 4C 00 FE 08 82 00 99 22 4C 45 46 | TRAIL......"LEF|
000000E0: 54 20 42 59 20 41 4E 20 49 4D 41 47 49 4E 41 52 |T BY AN IMAGINAR|
000000F0: 59 20 54 55 52 54 4C 45 20 41 53 20 48 45 00 1B |Y TURTLE AS HE..|
00000100: 09 8C 00 99 22 46 4F 4C 4C 4F 57 53 20 59 4F 55 |...."FOLLOWS YOU|
00000110: 52 20 43 4F 4D 4D 41 4E 44 53 2E 00 47 09 96 00 |R COMMANDS..G...|
00000120: 99 22 54 48 45 20 43 4F 4D 4D 41 4E 44 53 20 41 |."THE COMMANDS A|
00000130: 52 45 20 53 49 4D 50 4C 45 2C 20 4C 49 4B 45 20 |RE SIMPLE, LIKE |
00000140: 12 4D 4F 56 45 92 2C 00 73 09 A0 00 99 22 57 48 |.MOVE.,.s...."WH|
00000150: 49 43 48 20 54 45 4C 4C 53 20 54 48 45 20 54 55 |ICH TELLS THE TU|
00000160: 52 54 4C 45 20 54 4F 20 4D 4F 56 45 20 41 48 45 |RTLE TO MOVE AHE|
00000170: 41 44 2E 00 A1 09 AA 00 99 22 59 4F 55 20 43 41 |AD......."YOU CA|
00000180: 4E 20 54 55 52 4E 20 54 48 45 20 54 55 52 54 4C |N TURN THE TURTL|
00000190: 45 20 55 53 49 4E 47 20 54 48 45 20 12 54 55 52 |E USING THE .TUR|
000001A0: 4E 00 C8 09 B4 00 99 22 43 4F 4D 4D 41 4E 44 2C |N......"COMMAND,|
000001B0: 53 50 45 43 49 46 59 49 4E 47 20 54 48 45 20 4E |SPECIFYING THE N|
000001C0: 55 4D 42 45 52 20 4F 46 00 E6 09 BE 00 99 22 44 |UMBER OF......"D|
000001D0: 45 47 52 45 45 53 20 49 54 20 53 48 4F 55 4C 44 |EGREES IT SHOULD|
000001E0: 20 54 55 52 4E 2E 00 0F 0A C8 00 99 22 54 48 45 | TURN......."THE|
000001F0: 20 54 55 52 54 4C 45 20 4E 4F 52 4D 41 4C 4C 59 | TURTLE NORMALLY|
00000200: 20 4C 45 41 56 45 53 20 41 20 54 52 41 49 4C 00 | LEAVES A TRAIL.|
00000210: 39 0A D2 00 99 22 42 55 54 20 59 4F 55 20 43 41 |9...."BUT YOU CA|
00000220: 4E 20 4D 4F 56 45 20 49 54 20 57 49 54 48 4F 55 |N MOVE IT WITHOU|
00000230: 54 20 41 20 54 52 41 49 4C 00 65 0A DC 00 99 22 |T A TRAIL.e...."|
00000240: 42 59 20 27 4C 49 46 54 49 4E 47 27 20 49 54 20 |BY 'LIFTING' IT |
00000250: 57 49 54 48 20 41 20 12 54 55 50 92 20 43 4F 4D |WITH A .TUP. COM|
00000260: 4D 41 4E 44 2C 00 92 0A E6 00 99 22 41 4E 44 20 |MAND,......"AND |
00000270: 50 55 54 54 49 4E 47 20 49 54 20 44 4F 57 4E 20 |PUTTING IT DOWN |
00000280: 41 47 41 49 4E 20 41 46 54 45 52 20 4D 4F 56 49 |AGAIN AFTER MOVI|
00000290: 4E 47 00 B3 0A F0 00 99 22 49 54 20 57 49 54 48 |NG......"IT WITH|
000002A0: 20 41 20 12 54 44 4F 57 4E 92 20 43 4F 4D 4D 41 | A .TDOWN. COMMA|
000002B0: 4E 44 2E 00 DD 0A FA 00 99 22 11 55 4C 54 52 41 |ND.......".ULTRA|
000002C0: 42 41 53 49 43 2D 36 34 20 49 4E 43 4C 44 45 53 |BASIC-64 INCLDES|
000002D0: 20 41 20 50 49 43 54 55 52 45 20 4F 46 00 0A 0B | A PICTURE OF...|
000002E0: 04 01 99 22 54 48 45 20 54 55 52 54 4C 45 20 41 |..."THE TURTLE A|
000002F0: 53 20 59 4F 55 20 44 52 41 57 2C 20 4D 41 4B 49 |S YOU DRAW, MAKI|
00000300: 4E 47 20 49 54 20 45 41 53 59 00 29 0B 0E 01 99 |NG IT EASY.)....|
00000310: 22 54 4F 20 53 45 45 20 57 48 41 54 27 53 20 48 |"TO SEE WHAT'S H|
00000320: 41 50 50 45 4E 49 4E 47 2E 00 31 0B 18 01 8D 36 |APPENING..1....6|
00000330: 30 00 5D 0B 22 01 99 22 93 11 54 48 45 20 54 55 |0.].".."..THE TU|
00000340: 52 54 4C 45 20 49 53 20 53 54 41 52 54 45 44 20 |RTLE IS STARTED |
00000350: 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 00 7E 0B |ON THE SCREEN.~.|
00000360: 2C 01 99 22 57 49 54 48 20 54 48 45 20 12 54 55 |,.."WITH THE .TU|
00000370: 52 54 4C 45 92 20 43 4F 4D 4D 41 4E 44 3A 00 99 |RTLE. COMMAND:..|
00000380: 0B 36 01 99 22 11 20 20 20 12 54 55 52 54 4C 45 |.6..". .TURTLE|
00000390: 20 43 20 5B 2C 58 2C 59 5D 00 BA 0B 40 01 99 22 | C [,X,Y]...@.."|
000003A0: 11 20 20 20 20 43 3D 43 4F 4C 4F 52 20 4F 46 20 |. C=COLOR OF |
000003B0: 54 48 45 20 54 55 52 54 4C 45 00 E5 0B 4A 01 99 |THE TURTLE...J..|
000003C0: 22 11 49 46 20 4F 4E 4C 59 20 54 48 45 20 43 4F |".IF ONLY THE CO|
000003D0: 4C 4F 52 20 28 43 29 20 49 53 20 47 49 56 45 4E |LOR (C) IS GIVEN|
000003E0: 2C 20 54 48 45 00 0E 0C 54 01 99 22 54 55 52 54 |, THE...T.."TURT|
000003F0: 4C 45 20 57 49 4C 4C 20 53 54 41 52 54 20 41 54 |LE WILL START AT|
00000400: 20 54 48 45 20 43 45 4E 54 45 52 20 4F 46 00 2E | THE CENTER OF..|
00000410: 0C 5E 01 99 22 54 48 45 20 53 43 52 45 45 4E 20 |.^.."THE SCREEN |
00000420: 28 58 3D 31 36 30 2C 59 3D 31 30 30 29 2E 00 59 |(X=160,Y=100)..Y|
00000430: 0C 68 01 99 22 49 46 20 59 4F 55 20 57 41 4E 54 |.h.."IF YOU WANT|
00000440: 20 49 54 20 54 4F 20 53 54 41 52 54 20 41 54 20 | IT TO START AT |
00000450: 41 4E 59 20 4F 54 48 45 52 00 87 0C 72 01 99 22 |ANY OTHER...r.."|
00000460: 50 4F 53 49 54 49 4F 4E 2C 20 47 49 56 45 20 54 |POSITION, GIVE T|
00000470: 48 45 20 58 20 41 4E 44 20 59 20 43 4F 4F 52 44 |HE X AND Y COORD|
00000480: 49 4E 41 54 45 53 2E 00 B4 0C 7C 01 99 22 11 54 |INATES....|..".T|
00000490: 48 45 20 54 55 52 54 4C 45 20 41 4C 57 41 59 53 |HE TURTLE ALWAYS|
000004A0: 20 43 4F 4D 45 53 20 4F 4E 20 54 48 45 20 53 43 | COMES ON THE SC|
000004B0: 52 45 45 4E 00 CF 0C 86 01 99 22 50 4F 49 4E 54 |REEN......"POINT|
000004C0: 49 4E 47 20 55 50 20 28 4E 4F 52 54 48 29 2E 00 |ING UP (NORTH)..|
000004D0: D7 0C 90 01 8D 36 30 00 02 0D 9A 01 99 22 93 11 |.....60......"..|
000004E0: 20 54 48 45 20 4D 4F 56 45 20 43 4F 4D 4D 41 4E | THE MOVE COMMAN|
000004F0: 44 20 54 45 4C 4C 53 20 54 48 45 20 54 55 52 54 |D TELLS THE TURT|
00000500: 4C 45 00 2F 0D A4 01 99 22 54 48 45 20 4E 55 4D |LE./...."THE NUM|
00000510: 42 45 52 20 4F 46 20 50 4F 53 49 54 49 4F 4E 53 |BER OF POSITIONS|
00000520: 20 54 4F 20 4D 4F 56 45 20 49 4E 20 54 48 45 00 | TO MOVE IN THE.|
00000530: 5B 0D AE 01 99 22 44 49 52 45 43 54 49 4F 4E 20 |[...."DIRECTION |
00000540: 49 54 20 49 53 20 50 4F 49 4E 54 49 4E 47 20 41 |IT IS POINTING A|
00000550: 54 20 54 48 45 20 54 49 4D 45 2E 00 71 0D B8 01 |T THE TIME..q...|
00000560: 99 22 54 48 45 20 43 4F 4D 4D 41 4E 44 20 49 53 |."THE COMMAND IS|
00000570: 3A 00 83 0D C2 01 99 22 11 20 20 12 4D 4F 56 45 |:......". .MOVE|
00000580: 20 44 92 00 AA 0D CC 01 99 22 11 20 20 44 3D 4E | D.......". D=N|
00000590: 55 4D 42 45 52 20 4F 46 20 50 4F 53 49 54 49 4F |UMBER OF POSITIO|
000005A0: 4E 53 20 54 4F 20 4D 4F 56 45 00 B2 0D D6 01 8D |NS TO MOVE......|
000005B0: 36 30 00 DD 0D E0 01 99 22 93 11 20 54 48 45 20 |60......".. THE |
000005C0: 54 55 52 4E 20 43 4F 4D 4D 41 4E 44 20 54 45 4C |TURN COMMAND TEL|
000005D0: 4C 53 20 54 48 45 20 54 55 52 54 4C 45 00 02 0E |LS THE TURTLE...|
000005E0: EA 01 99 22 54 48 45 20 4E 55 4D 42 45 52 20 4F |..."THE NUMBER O|
000005F0: 46 20 44 45 47 52 45 45 53 20 54 4F 20 54 55 52 |F DEGREES TO TUR|
00000600: 4E 2E 00 18 0E F4 01 99 22 54 48 45 20 43 4F 4D |N......."THE COM|
00000610: 4D 41 4E 44 20 49 53 3A 00 29 0E FE 01 99 22 11 |MAND IS:.)....".|
00000620: 20 12 54 55 52 4E 20 4E 92 00 4E 0E 08 02 99 22 | .TURN N..N...."|
00000630: 11 20 20 4E 3D 4E 55 4D 42 45 52 20 4F 46 20 44 |. N=NUMBER OF D|
00000640: 45 47 52 45 45 53 20 54 4F 20 54 55 52 4E 00 76 |EGREES TO TURN.v|
00000650: 0E 12 02 99 22 11 20 54 48 45 20 44 45 47 52 45 |....". THE DEGRE|
00000660: 45 53 20 41 52 45 20 54 48 45 20 53 41 4D 45 20 |ES ARE THE SAME |
00000670: 41 53 20 54 48 45 00 99 0E 1C 02 99 22 54 48 45 |AS THE......"THE|
00000680: 20 44 45 47 52 45 45 53 20 4F 4E 20 54 48 45 20 | DEGREES ON THE |
00000690: 43 4F 4D 50 41 53 53 2D 2D 00 B3 0E 26 02 99 22 |COMPASS--...&.."|
000006A0: 11 20 20 20 20 20 20 20 20 20 30 20 44 45 47 52 |. 0 DEGR|
000006B0: 45 45 53 00 C4 0E 30 02 99 22 20 20 20 20 20 20 |EES...0.." |
000006C0: 20 20 20 4E 00 D5 0E 3A 02 99 22 20 20 20 20 20 | N...:.." |
000006D0: 20 20 20 20 2B 00 EE 0E 44 02 99 22 32 37 30 20 | +...D.."270 |
000006E0: 20 57 20 2B 20 2A 20 2B 20 45 20 20 39 30 00 FF | W + * + E 90..|
000006F0: 0E 4E 02 99 22 20 20 20 20 20 20 20 20 20 2B 00 |.N.." +.|
00000700: 10 0F 58 02 99 22 20 20 20 20 20 20 20 20 20 53 |..X.." S|
00000710: 00 22 0F 62 02 99 22 20 20 20 20 20 20 20 20 31 |.".b.." 1|
00000720: 38 30 00 4D 0F 76 02 99 22 54 48 45 52 45 46 4F |80.M.v.."THEREFO|
00000730: 52 45 2C 20 50 4F 53 49 54 49 56 45 20 44 45 47 |RE, POSITIVE DEG|
00000740: 52 45 45 53 20 54 55 52 4E 20 54 48 45 00 76 0F |REES TURN THE.v.|
00000750: 80 02 99 22 54 48 45 20 54 55 52 54 4C 45 20 43 |..."THE TURTLE C|
00000760: 4C 4F 43 4B 57 49 53 45 2C 20 41 4E 44 20 4E 45 |LOCKWISE, AND NE|
00000770: 47 41 54 49 56 45 00 9B 0F 8A 02 99 22 44 45 47 |GATIVE......"DEG|
00000780: 52 45 45 53 20 54 55 52 4E 20 49 54 20 54 48 45 |REES TURN IT THE|
00000790: 20 4F 54 48 45 52 20 57 41 59 2E 00 A3 0F 94 02 | OTHER WAY......|
000007A0: 8D 36 30 00 D0 0F 9E 02 99 22 93 11 46 4F 52 20 |.60......"..FOR |
000007B0: 45 58 41 4D 50 4C 45 2C 20 41 20 42 4F 58 20 43 |EXAMPLE, A BOX C|
000007C0: 41 4E 20 42 45 20 43 52 45 41 54 45 44 20 42 59 |AN BE CREATED BY|
000007D0: 00 EC 0F A8 02 99 22 46 4F 55 52 20 4D 4F 56 45 |......"FOUR MOVE|
000007E0: 53 20 41 4E 44 20 54 55 52 4E 53 3A 00 FB 0F B2 |S AND TURNS:....|
000007F0: 02 99 22 20 4D 4F 56 45 20 35 30 00 0A 10 BC 02 |.." MOVE 50.....|
00000800: 99 22 20 54 55 52 4E 20 39 30 00 19 10 C6 02 99 |." TURN 90......|
00000810: 22 20 4D 4F 56 45 20 35 30 00 28 10 D0 02 99 22 |" MOVE 50.(...."|
00000820: 20 54 55 52 4E 20 39 30 00 37 10 DA 02 99 22 20 | TURN 90.7...." |
00000830: 4D 4F 56 45 20 35 30 00 46 10 E4 02 99 22 20 54 |MOVE 50.F...." T|
00000840: 55 52 4E 20 39 30 00 55 10 EE 02 99 22 20 4D 4F |URN 90.U...." MO|
00000850: 56 45 20 35 30 00 64 10 F8 02 99 22 20 54 55 52 |VE 50.d...." TUR|
00000860: 4E 20 39 30 00 84 10 02 03 8D 36 30 3A DB 31 2C |N 90......60:.1,|
00000870: 37 3A F4 32 3A F5 35 30 3A F0 39 30 3A F5 35 30 |7:.2:.50:.90:.50|
00000880: 3A F0 39 30 00 A2 10 0C 03 F5 35 30 3A F0 39 30 |:.90......50:.90|
00000890: 3A F5 35 30 3A F0 39 30 3A 8D 37 30 3A D4 3A 8D |:.50:.90:.70:.:.|
000008A0: 36 30 00 CE 10 16 03 99 22 93 11 4F 46 20 43 4F |60......"..OF CO|
000008B0: 55 52 53 45 2C 20 41 20 42 45 54 54 45 52 20 57 |URSE, A BETTER W|
000008C0: 41 59 20 49 53 20 54 4F 20 55 53 45 20 41 00 DF |AY IS TO USE A..|
000008D0: 10 20 03 99 22 46 4F 52 20 4C 4F 4F 50 2D 2D 00 |. .."FOR LOOP--.|
000008E0: F4 10 2A 03 99 22 20 20 46 4F 52 20 41 3D 31 20 |..*.." FOR A=1 |
000008F0: 54 4F 20 34 00 04 11 34 03 99 22 20 20 4D 4F 56 |TO 4...4.." MOV|
00000900: 45 20 35 30 00 14 11 3E 03 99 22 20 20 54 55 52 |E 50...>.." TUR|
00000910: 4E 20 39 30 00 21 11 48 03 99 22 20 20 4E 45 58 |N 90.!.H.." NEX|
00000920: 54 00 29 11 52 03 8D 36 30 00 52 11 5C 03 99 22 |T.).R..60.R.\.."|
00000930: 93 11 41 53 20 59 4F 55 20 43 41 4E 20 53 45 45 |..AS YOU CAN SEE|
00000940: 2C 20 54 48 45 20 54 55 52 4E 20 43 4F 4D 4D 41 |, THE TURN COMMA|
00000950: 4E 44 00 7A 11 66 03 99 22 54 55 52 4E 53 20 54 |ND.z.f.."TURNS T|
00000960: 48 45 20 54 55 52 54 4C 45 20 46 52 4F 4D 20 49 |HE TURTLE FROM I|
00000970: 54 53 20 50 52 45 53 45 4E 54 00 A6 11 70 03 99 |TS PRESENT...p..|
00000980: 22 48 45 41 44 49 4E 47 2E 20 54 48 45 20 54 55 |"HEADING. THE TU|
00000990: 52 4E 54 4F 20 43 4F 4D 4D 41 4E 44 20 54 55 52 |RNTO COMMAND TUR|
000009A0: 4E 53 20 54 48 45 00 D2 11 7A 03 99 22 54 55 52 |NS THE...z.."TUR|
000009B0: 54 4C 45 20 54 4F 20 41 20 53 50 45 43 49 46 49 |TLE TO A SPECIFI|
000009C0: 43 20 44 49 52 45 43 54 49 4F 4E 2C 20 55 53 49 |C DIRECTION, USI|
000009D0: 4E 47 00 F4 11 84 03 99 22 54 48 45 20 44 45 47 |NG......"THE DEG|
000009E0: 52 45 45 53 20 4F 46 20 54 48 45 20 43 4F 4D 50 |REES OF THE COMP|
000009F0: 41 53 53 2E 00 07 12 8E 03 99 22 11 20 12 54 55 |ASS.......". .TU|
00000A00: 52 4E 54 4F 20 4E 92 00 23 12 98 03 99 22 11 20 |RNTO N..#....". |
00000A10: 20 20 4E 3D 43 4F 4D 50 41 53 53 20 48 45 41 44 | N=COMPASS HEAD|
00000A20: 49 4E 47 00 2B 12 A2 03 8D 36 30 00 53 12 AC 03 |ING.+....60.S...|
00000A30: 99 22 93 11 54 48 45 20 54 55 52 54 4C 45 20 49 |."..THE TURTLE I|
00000A40: 53 20 27 4C 49 46 54 45 44 27 20 46 52 4F 4D 20 |S 'LIFTED' FROM |
00000A50: 54 48 45 00 80 12 B6 03 99 22 50 41 50 45 52 20 |THE......"PAPER |
00000A60: 53 4F 20 49 54 20 43 41 4E 20 4D 4F 56 45 20 57 |SO IT CAN MOVE W|
00000A70: 49 54 48 4F 55 54 20 4C 45 41 56 49 4E 47 20 41 |ITHOUT LEAVING A|
00000A80: 00 9F 12 C0 03 99 22 4C 49 4E 45 20 42 59 20 54 |......"LINE BY T|
00000A90: 48 45 20 54 55 50 20 43 4F 4D 4D 41 4E 44 2D 00 |HE TUP COMMAND-.|
00000AA0: AD 12 CA 03 99 22 11 20 20 12 54 55 50 00 D9 12 |.....". .TUP...|
00000AB0: D4 03 99 22 11 54 48 45 20 54 55 52 54 4C 45 20 |...".THE TURTLE |
00000AC0: 49 53 20 50 55 54 20 42 41 43 4B 20 44 4F 57 4E |IS PUT BACK DOWN|
00000AD0: 20 57 49 54 48 20 54 48 45 00 EA 12 DE 03 99 22 | WITH THE......"|
00000AE0: 11 20 20 12 54 44 4F 57 4E 92 00 F9 12 E8 03 99 |. .TDOWN.......|
00000AF0: 22 11 43 4F 4D 4D 41 4E 44 00 01 13 F2 03 8D 36 |".COMMAND......6|
00000B00: 30 00 21 13 FC 03 99 22 93 11 41 4E 20 45 58 41 |0.!...."..AN EXA|
00000B10: 4D 50 4C 45 20 4F 46 20 54 48 45 53 45 20 49 53 |MPLE OF THESE IS|
00000B20: 3A 00 38 13 06 04 99 22 20 54 55 52 54 4C 45 36 |:.8...." TURTLE6|
00000B30: 2C 31 30 30 2C 31 30 30 00 48 13 10 04 99 22 20 |,100,100.H...." |
00000B40: 54 55 52 4E 54 4F 37 35 00 56 13 1A 04 99 22 20 |TURNTO75.V...." |
00000B50: 4D 4F 56 45 35 30 00 61 13 24 04 99 22 20 54 55 |MOVE50.a.$.." TU|
00000B60: 50 00 6F 13 2E 04 99 22 20 54 55 52 4E 37 35 00 |P.o...." TURN75.|
00000B70: 7D 13 38 04 99 22 20 4D 4F 56 45 35 30 00 8C 13 |}.8.." MOVE50...|
00000B80: 3A 04 99 22 20 54 55 52 4E 2D 37 35 00 99 13 42 |:.." TURN-75...B|
00000B90: 04 99 22 20 54 44 4F 57 4E 00 A7 13 4C 04 99 22 |.." TDOWN...L.."|
00000BA0: 20 4D 4F 56 45 35 30 00 D3 13 56 04 8D 36 30 3A | MOVE50...V..60:|
00000BB0: F4 36 2C 31 30 30 2C 31 30 30 3A EF 37 35 3A F5 |.6,100,100:.75:.|
00000BC0: 35 30 3A F1 3A F0 37 35 3A F5 35 30 3A F0 AB 37 |50:.:.75:.50:..7|
00000BD0: 35 3A F2 00 E5 13 60 04 F5 35 30 3A 8D 37 30 3A |5:....`..50:.70:|
00000BE0: D4 3A 8D 36 30 00 0F 14 B0 04 99 22 93 11 54 48 |.:.60......"..TH|
00000BF0: 45 20 43 4F 4C 4F 52 20 4F 46 20 54 48 45 20 54 |E COLOR OF THE T|
00000C00: 55 52 54 4C 45 27 53 20 4C 49 4E 45 20 49 53 00 |URTLE'S LINE IS.|
00000C10: 34 14 BA 04 99 22 43 48 41 4E 47 45 44 20 42 59 |4...."CHANGED BY|
00000C20: 20 54 48 45 20 54 43 4F 4C 4F 52 20 43 4F 4D 4D | THE TCOLOR COMM|
00000C30: 41 4E 44 3A 00 47 14 C4 04 99 22 11 20 20 12 54 |AND:.G....". .T|
00000C40: 43 4F 4C 4F 52 20 43 00 64 14 CE 04 99 22 11 20 |COLOR C.d....". |
00000C50: 20 43 3D 43 4F 4C 4F 52 20 4F 46 20 54 48 45 20 | C=COLOR OF THE |
00000C60: 4C 49 4E 45 00 79 14 D8 04 99 22 11 46 4F 52 20 |LINE.y....".FOR |
00000C70: 45 58 41 4D 50 4C 45 20 2D 00 8E 14 E2 04 99 22 |EXAMPLE -......"|
00000C80: 20 54 55 52 54 4C 45 35 2C 32 30 2C 32 30 00 9C | TURTLE5,20,20..|
00000C90: 14 E7 04 99 22 20 54 55 52 4E 39 30 00 AB 14 EC |...." TURN90....|
00000CA0: 04 99 22 20 4D 4F 56 45 20 35 30 00 C4 14 F6 04 |.." MOVE 50.....|
00000CB0: 99 22 20 54 43 4F 4C 4F 52 20 38 20 28 59 45 4C |." TCOLOR 8 (YEL|
00000CC0: 4C 4F 57 29 00 D3 14 00 05 99 22 20 4D 4F 56 45 |LOW)......" MOVE|
00000CD0: 20 35 30 00 FD 14 0A 05 8D 36 30 3A F4 35 2C 32 | 50......60:.5,2|
00000CE0: 30 2C 32 30 3A F0 39 30 3A F5 35 30 3A F3 38 3A |0,20:.90:.50:.8:|
00000CF0: F5 35 30 3A 8D 37 30 3A D4 3A 8D 36 30 00 29 15 |.50:.70:.:.60.).|
00000D00: 14 05 99 22 93 11 54 48 45 20 54 55 52 54 4C 45 |..."..THE TURTLE|
00000D10: 20 43 41 4E 20 42 45 20 4D 41 44 45 20 54 4F 20 | CAN BE MADE TO |
00000D20: 44 49 53 41 50 50 45 41 52 00 46 15 1E 05 99 22 |DISAPPEAR.F...."|
00000D30: 57 49 54 48 20 54 48 45 20 27 42 59 45 20 43 4F |WITH THE 'BYE CO|
00000D40: 4D 4D 41 4E 44 2E 00 55 15 28 05 99 22 11 20 20 |MMAND..U.(..". |
00000D50: 12 42 59 45 92 00 81 15 32 05 99 22 11 20 41 4C |.BYE....2..". AL|
00000D60: 54 48 4F 55 47 48 20 54 48 45 20 54 55 52 54 4C |THOUGH THE TURTL|
00000D70: 45 20 44 49 53 41 50 50 45 41 52 53 2C 20 59 4F |E DISAPPEARS, YO|
00000D80: 55 00 AA 15 3C 05 99 22 43 41 4E 20 53 54 49 4C |U...<.."CAN STIL|
00000D90: 4C 20 43 4F 4E 54 49 4E 55 45 20 54 4F 20 44 52 |L CONTINUE TO DR|
00000DA0: 41 57 20 57 49 54 48 20 49 54 00 D0 15 46 05 99 |AW WITH IT...F..|
00000DB0: 22 28 41 4E 44 20 49 54 20 41 43 54 55 41 4C 4C |"(AND IT ACTUALL|
00000DC0: 59 20 44 52 41 57 53 20 46 41 53 54 45 52 21 29 |Y DRAWS FASTER!)|
00000DD0: 00 EF 15 50 05 8D 36 30 3A F6 3A F0 AB 34 35 3A |...P..60:.:..45:|
00000DE0: F5 31 35 30 3A F0 AB 31 32 30 3A F5 31 35 30 00 |.150:..120:.150.|
00000DF0: FD 15 5A 05 8D 37 30 3A D4 3A 8D 36 30 00 28 16 |..Z..70:.:.60.(.|
00000E00: 64 05 99 22 93 11 54 48 45 20 56 41 4C 55 45 53 |d.."..THE VALUES|
00000E10: 20 4F 46 20 54 48 45 20 58 20 41 4E 44 20 59 20 | OF THE X AND Y |
00000E20: 50 4F 53 49 54 49 4F 4E 00 50 16 6E 05 99 22 41 |POSITION.P.n.."A|
00000E30: 4E 44 20 54 48 45 20 44 49 52 45 43 54 49 4F 4E |ND THE DIRECTION|
00000E40: 20 28 49 4E 20 44 45 47 52 45 45 53 29 20 49 4E | (IN DEGREES) IN|
00000E50: 00 7A 16 78 05 99 22 57 48 49 43 48 20 54 48 45 |.z.x.."WHICH THE|
00000E60: 20 54 55 52 54 4C 45 20 49 53 20 50 4F 49 4E 54 | TURTLE IS POINT|
00000E70: 49 4E 47 20 43 41 4E 20 42 45 00 98 16 82 05 99 |ING CAN BE......|
00000E80: 22 52 45 41 44 20 49 4E 54 4F 20 59 4F 55 52 20 |"READ INTO YOUR |
00000E90: 50 52 4F 47 52 41 4D 2E 00 B9 16 8C 05 99 22 54 |PROGRAM......."T|
00000EA0: 48 45 52 45 20 41 52 45 20 54 48 52 45 45 20 46 |HERE ARE THREE F|
00000EB0: 55 4E 43 54 49 4F 4E 53 3A 00 E1 16 96 05 99 22 |UNCTIONS:......"|
00000EC0: 11 20 20 12 54 50 4F 53 28 58 29 92 20 47 49 56 |. .TPOS(X). GIV|
00000ED0: 45 53 20 54 48 45 20 58 20 50 4F 53 49 54 49 4F |ES THE X POSITIO|
00000EE0: 4E 00 09 17 A0 05 99 22 11 20 20 12 54 50 4F 53 |N......". .TPOS|
00000EF0: 28 59 29 92 20 47 49 56 45 53 20 54 48 45 20 59 |(Y). GIVES THE Y|
00000F00: 20 50 4F 53 49 54 49 4F 4E 00 30 17 AA 05 99 22 | POSITION.0...."|
00000F10: 11 20 20 12 54 50 4F 53 28 41 29 92 20 47 49 56 |. .TPOS(A). GIV|
00000F20: 45 53 20 54 48 45 20 44 49 52 45 43 54 49 4F 4E |ES THE DIRECTION|
00000F30: 00 54 17 B4 05 99 22 20 20 20 20 20 20 20 20 20 |.T...." |
00000F40: 20 20 20 20 20 20 20 20 28 49 4E 20 44 45 47 52 | (IN DEGR|
00000F50: 45 45 53 29 00 7D 17 BE 05 99 22 54 48 45 53 45 |EES).}...."THESE|
00000F60: 20 46 55 4E 43 54 49 4F 4E 53 20 4D 41 59 20 42 | FUNCTIONS MAY B|
00000F70: 45 20 55 53 45 44 20 54 4F 20 53 45 54 00 A2 17 |E USED TO SET...|
00000F80: C8 05 99 22 41 4E 4F 54 48 45 52 20 56 41 52 49 |..."ANOTHER VARI|
00000F90: 41 42 4C 45 20 5B 20 45 3D 54 50 4F 53 28 58 29 |ABLE [ E=TPOS(X)|
00000FA0: 20 5D 00 BA 17 D2 05 99 22 4F 52 20 49 4E 20 41 | ]......"OR IN A|
00000FB0: 20 43 4F 4E 44 49 54 49 4F 4E 00 E2 17 DC 05 99 | CONDITION......|
00000FC0: 22 20 5B 20 49 46 20 54 50 4F 53 20 28 41 29 20 |" [ IF TPOS (A) |
00000FD0: 3E 20 31 38 30 20 54 48 45 4E 20 2E 2E 2E 2E 2E |> 180 THEN .....|
00000FE0: 20 5D 00 10 18 E6 05 99 22 4F 52 20 49 4E 20 41 | ]......"OR IN A|
00000FF0: 20 50 52 49 4E 54 20 43 4F 4D 4D 41 4E 44 20 5B | PRINT COMMAND [|
00001000: 20 50 52 49 4E 54 20 54 50 4F 53 28 41 29 20 5D | PRINT TPOS(A) ]|
00001010: 00 18 18 F0 05 8D 36 30 00 45 18 FA 05 99 22 93 |......60.E....".|
00001020: 11 49 4E 20 4F 52 44 45 52 20 54 4F 20 4D 41 4B |.IN ORDER TO MAK|
00001030: 45 20 49 54 20 45 41 53 49 45 52 20 54 4F 20 52 |E IT EASIER TO R|
00001040: 45 50 45 41 54 00 6E 18 04 06 99 22 47 52 4F 55 |EPEAT.n...."GROU|
00001050: 50 53 20 4F 46 20 54 55 52 54 4C 45 20 47 52 41 |PS OF TURTLE GRA|
00001060: 50 48 49 43 20 43 4F 4D 4D 41 4E 44 53 2C 00 94 |PHIC COMMANDS,..|
00001070: 18 0E 06 99 22 27 52 45 50 45 41 54 27 20 43 4F |...."'REPEAT' CO|
00001080: 4D 4D 41 4E 44 53 20 41 52 45 20 49 4E 43 4C 55 |MMANDS ARE INCLU|
00001090: 44 45 44 2E 00 C0 18 18 06 99 22 54 48 45 20 43 |DED......."THE C|
000010A0: 4F 4D 4D 41 4E 44 20 57 48 49 43 48 20 53 48 4F |OMMAND WHICH SHO|
000010B0: 57 53 20 54 48 45 20 42 45 47 49 4E 4E 49 4E 47 |WS THE BEGINNING|
000010C0: 00 EA 18 22 06 99 22 4F 46 20 54 48 45 20 43 4F |...".."OF THE CO|
000010D0: 4D 4D 4E 41 4E 44 53 20 54 4F 20 42 45 20 52 45 |MMNANDS TO BE RE|
000010E0: 50 45 41 54 45 44 20 41 4E 44 00 13 19 2C 06 99 |PEATED AND...,..|
000010F0: 22 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 54 |"THE NUMBER OF T|
00001100: 49 4D 45 53 20 54 48 45 59 20 41 52 45 20 54 4F |IMES THEY ARE TO|
00001110: 20 42 45 00 3A 19 36 06 99 22 52 45 50 45 41 54 | BE.:.6.."REPEAT|
00001120: 45 44 20 49 53 20 54 48 45 20 4C 45 46 54 20 42 |ED IS THE LEFT B|
00001130: 52 41 43 4B 45 54 20 12 5B 92 00 65 19 40 06 99 |RACKET .[..e.@..|
00001140: 22 49 54 20 4D 55 53 54 20 42 45 20 46 4F 4C 4C |"IT MUST BE FOLL|
00001150: 4F 57 45 44 20 42 59 20 54 48 45 20 4E 55 4D 42 |OWED BY THE NUMB|
00001160: 45 52 20 4F 46 00 7F 19 4A 06 99 22 52 45 50 45 |ER OF...J.."REPE|
00001170: 41 54 53 20 41 4E 44 20 41 20 43 4F 4C 4F 4E 00 |ATS AND A COLON.|
00001180: A4 19 54 06 99 22 46 4F 52 20 45 58 41 4D 50 4C |..T.."FOR EXAMPL|
00001190: 45 20 2D 20 12 5B 33 3A 92 20 57 49 4C 4C 20 43 |E - .[3:. WILL C|
000011A0: 41 55 53 45 00 D0 19 5E 06 99 22 54 48 45 20 46 |AUSE...^.."THE F|
000011B0: 4F 4C 4C 4F 57 49 4E 47 20 43 4F 4D 4D 41 4E 44 |OLLOWING COMMAND|
000011C0: 53 20 54 4F 20 42 45 20 52 45 50 45 41 54 45 44 |S TO BE REPEATED|
000011D0: 00 DF 19 68 06 99 22 33 20 54 49 4D 45 53 2E 00 |...h.."3 TIMES..|
000011E0: E7 19 72 06 8D 36 30 00 13 1A 7C 06 99 22 93 11 |..r..60...|.."..|
000011F0: 54 48 45 20 45 4E 44 20 4F 46 20 54 48 45 20 47 |THE END OF THE G|
00001200: 52 4F 55 50 20 4F 46 20 43 4F 4D 4D 41 4E 44 53 |ROUP OF COMMANDS|
00001210: 20 49 53 00 39 1A 86 06 99 22 4D 41 52 4B 45 44 | IS.9...."MARKED|
00001220: 20 42 59 20 41 20 43 4F 4C 4F 4E 20 41 4E 44 20 | BY A COLON AND |
00001230: 54 48 45 20 52 49 47 48 54 00 4D 1A 90 06 99 22 |THE RIGHT.M...."|
00001240: 42 52 41 43 4B 45 54 20 12 5D 92 20 2E 00 7A 1A |BRACKET .]. ..z.|
00001250: 9A 06 99 22 54 48 45 20 43 4F 4D 4D 41 4E 44 53 |..."THE COMMANDS|
00001260: 20 4D 41 59 20 42 45 20 41 4E 59 20 42 41 53 49 | MAY BE ANY BASI|
00001270: 43 20 43 4F 4D 4D 41 4E 44 53 00 A4 1A A4 06 99 |C COMMANDS......|
00001280: 22 41 4E 44 20 4D 41 59 20 53 50 41 4E 20 4D 41 |"AND MAY SPAN MA|
00001290: 4E 59 20 4C 49 4E 45 53 20 4F 46 20 50 52 4F 47 |NY LINES OF PROG|
000012A0: 52 41 4D 2E 00 B7 1A AE 06 99 22 46 4F 52 20 45 |RAM......."FOR E|
000012B0: 58 41 4D 50 4C 45 3A 00 D9 1A B8 06 99 22 20 5B |XAMPLE:......" [|
000012C0: 32 3A 50 52 49 4E 54 27 41 42 43 27 3A 5D 20 57 |2:PRINT'ABC':] W|
000012D0: 49 4C 4C 20 50 52 49 4E 54 00 E3 1A C2 06 99 22 |ILL PRINT......"|
000012E0: 41 42 43 00 ED 1A CC 06 99 22 41 42 43 00 17 1B |ABC......"ABC...|
000012F0: D6 06 99 22 49 4E 20 54 55 52 54 4C 45 20 47 52 |..."IN TURTLE GR|
00001300: 41 50 48 49 43 53 2C 20 59 4F 55 20 43 41 4E 20 |APHICS, YOU CAN |
00001310: 44 52 41 57 20 41 4E 00 3A 1B E0 06 99 22 45 49 |DRAW AN.:...."EI|
00001320: 47 48 54 20 53 49 44 45 44 20 46 49 47 55 52 45 |GHT SIDED FIGURE|
00001330: 20 28 4F 43 54 41 47 4F 4E 29 00 5D 1B EA 06 99 | (OCTAGON).]....|
00001340: 22 54 55 52 54 4C 45 32 20 3A 20 5B 38 3A 4D 4F |"TURTLE2 : [8:MO|
00001350: 56 45 33 30 3A 54 55 52 4E 34 35 3A 5D 00 84 1B |VE30:TURN45:]...|
00001360: F4 06 8D 36 30 3A DB 31 2C 37 3A F4 32 3A FB 38 |...60:.1,7:.2:.8|
00001370: 3A F5 33 30 3A F0 34 35 3A FC 3A 8D 37 30 3A D4 |:.30:.45:.:.70:.|
00001380: 3A 8D 36 30 00 B2 1B FE 06 99 22 93 11 4F 52 20 |:.60......"..OR |
00001390: 54 4F 20 44 52 41 57 20 41 20 46 49 47 55 45 20 |TO DRAW A FIGUE |
000013A0: 57 49 54 48 20 41 4E 59 20 4E 55 4D 42 45 52 20 |WITH ANY NUMBER |
000013B0: 4F 46 00 D5 1B 08 07 99 22 53 49 44 45 53 2C 20 |OF......"SIDES, |
000013C0: 55 53 45 20 56 41 52 49 41 42 4C 45 53 20 46 4F |USE VARIABLES FO|
000013D0: 52 20 54 48 45 00 00 1C 12 07 99 22 4E 55 4D 42 |R THE......"NUMB|
000013E0: 45 52 20 4F 46 20 52 45 50 45 41 54 53 20 41 4E |ER OF REPEATS AN|
000013F0: 44 20 54 4F 20 43 4F 4D 50 55 54 45 20 54 48 45 |D TO COMPUTE THE|
00001400: 00 0C 1C 1C 07 99 22 41 4E 47 4C 45 00 2B 1C 26 |......"ANGLE.+.&|
00001410: 07 99 22 49 4E 50 55 54 27 4E 55 4D 42 45 52 20 |.."INPUT'NUMBER |
00001420: 4F 46 20 53 49 44 45 53 27 3B 4E 00 42 1C 30 07 |OF SIDES';N.B.0.|
00001430: 99 22 48 49 52 45 53 31 2C 37 3A 54 55 52 54 4C |."HIRES1,7:TURTL|
00001440: 45 32 00 5E 1C 3A 07 99 22 5B 4E 3A 4D 4F 56 45 |E2.^.:.."[N:MOVE|
00001450: 33 30 3A 54 55 52 4E 33 36 30 2F 4E 3A 5D 00 7B |30:TURN360/N:].{|
00001460: 1C 44 07 8D 36 30 3A 85 22 4E 55 4D 42 45 52 20 |.D..60:."NUMBER |
00001470: 4F 46 20 53 49 44 45 53 22 3B 4E 00 A1 1C 4E 07 |OF SIDES";N...N.|
00001480: DB 31 2C 37 3A F4 32 3A FB 4E 3A F5 33 30 3A F0 |.1,7:.2:.N:.30:.|
00001490: 33 36 30 AD 4E 3A FC 3A 8D 37 30 3A D4 3A 8D 36 |360.N:.:.70:.:.6|
000014A0: 30 00 CA 1C 58 07 99 22 93 11 49 46 20 59 4F 55 |0...X.."..IF YOU|
000014B0: 20 4E 45 45 44 20 54 4F 20 47 45 54 20 4F 55 54 | NEED TO GET OUT|
000014C0: 20 4F 46 20 4F 4E 45 20 4F 46 00 F3 1C 62 07 99 | OF ONE OF...b..|
000014D0: 22 54 48 45 53 45 20 52 45 50 45 41 54 53 20 42 |"THESE REPEATS B|
000014E0: 45 46 4F 52 45 20 54 48 45 20 53 50 45 43 49 46 |EFORE THE SPECIF|
000014F0: 49 45 44 00 18 1D 6C 07 99 22 4E 55 4D 42 45 52 |IED...l.."NUMBER|
00001500: 20 4F 46 20 54 49 4D 45 53 20 49 53 20 55 50 2C | OF TIMES IS UP,|
00001510: 20 55 53 45 20 54 48 45 00 33 1D 76 07 99 22 11 | USE THE.3.v..".|
00001520: 20 20 12 3A 45 58 49 54 92 20 43 4F 4D 4D 4E 41 | .:EXIT. COMMNA|
00001530: 4E 44 2E 00 47 1D 80 07 99 22 11 46 4F 52 20 45 |ND..G....".FOR E|
00001540: 58 41 4D 50 4C 45 3A 00 6F 1D 8A 07 99 22 5B 32 |XAMPLE:.o...."[2|
00001550: 30 3A 54 55 52 4E 33 30 3A 49 46 54 50 4F 53 28 |0:TURN30:IFTPOS(|
00001560: 41 29 3E 31 38 30 54 48 45 4E 3A 45 58 49 54 00 |A)>180THEN:EXIT.|
00001570: 77 1D 94 07 99 22 5D 00 7F 1D 9E 07 8D 36 30 00 |w...."]......60.|
00001580: A8 1D A8 07 99 22 93 11 41 4E 59 20 47 52 41 50 |....."..ANY GRAP|
00001590: 48 49 43 20 50 49 43 54 55 52 45 20 53 48 4F 57 |HIC PICTURE SHOW|
000015A0: 4E 20 4F 4E 20 54 48 45 00 D0 1D B2 07 99 22 53 |N ON THE......"S|
000015B0: 43 52 45 45 4E 20 4D 41 59 20 42 45 20 44 55 4D |CREEN MAY BE DUM|
000015C0: 50 45 44 20 54 4F 20 41 20 50 52 49 4E 54 45 52 |PED TO A PRINTER|
000015D0: 00 F2 1D BC 07 99 22 45 58 43 45 50 54 20 46 4F |......"EXCEPT FO|
000015E0: 52 20 53 50 52 49 54 45 20 50 41 54 54 45 52 4E |R SPRITE PATTERN|
000015F0: 53 2E 00 08 1E C6 07 99 22 54 48 45 20 43 4F 4D |S......."THE COM|
00001600: 4D 41 4E 44 20 49 53 3A 00 1C 1E D0 07 99 22 11 |MAND IS:......".|
00001610: 20 20 12 48 41 52 44 20 5B 44 5D 92 00 41 1E DA | .HARD [D]..A..|
00001620: 07 99 22 11 20 20 44 3D 49 53 20 4F 50 54 49 4F |..". D=IS OPTIO|
00001630: 4E 41 4C 20 44 45 56 49 43 45 20 4E 55 4D 42 45 |NAL DEVICE NUMBE|
00001640: 52 00 67 1E E4 07 99 22 20 20 20 44 45 56 49 43 |R.g...." DEVIC|
00001650: 45 20 34 20 49 53 20 41 53 53 55 4D 45 44 20 49 |E 4 IS ASSUMED I|
00001660: 46 20 4E 4F 4E 45 2E 00 92 1E EE 07 99 22 4D 55 |F NONE......."MU|
00001670: 4C 54 49 43 4F 4C 4F 52 20 53 43 52 45 45 4E 53 |LTICOLOR SCREENS|
00001680: 20 53 48 4F 57 20 50 41 49 4E 54 42 52 55 53 48 | SHOW PAINTBRUSH|
00001690: 20 31 00 BF 1E F8 07 99 22 41 52 45 41 53 20 49 | 1......"AREAS I|
000016A0: 4E 20 54 48 45 20 44 41 52 4B 45 53 54 20 54 4F |N THE DARKEST TO|
000016B0: 4E 45 53 2C 20 50 41 49 4E 54 42 52 55 53 48 00 |NES, PAINTBRUSH.|
000016C0: EA 1E 02 08 99 22 32 20 49 4E 20 4D 45 44 49 55 |....."2 IN MEDIU|
000016D0: 4D 20 44 45 4E 53 49 54 59 20 41 4E 44 20 50 41 |M DENSITY AND PA|
000016E0: 49 4E 54 42 52 55 53 48 20 32 00 0B 1F 0C 08 99 |INTBRUSH 2......|
000016F0: 22 49 4E 20 4C 49 47 48 54 45 53 54 20 44 45 4E |"IN LIGHTEST DEN|
00001700: 53 49 54 59 20 50 52 49 4E 54 2E 00 13 1F 16 08 |SITY PRINT......|
00001710: 8D 36 30 00 40 1F 20 08 99 22 93 11 55 4C 54 52 |.60.@. .."..ULTR|
00001720: 41 42 41 53 49 43 2D 36 34 20 49 4E 43 4C 55 44 |ABASIC-64 INCLUD|
00001730: 45 53 20 4D 41 4E 59 20 43 4F 4D 4D 41 4E 44 53 |ES MANY COMMANDS|
00001740: 00 6D 1F 2A 08 99 22 46 4F 52 20 49 4E 50 55 54 |.m.*.."FOR INPUT|
00001750: 2C 20 46 52 4F 4D 20 4A 4F 59 53 54 49 43 4B 53 |, FROM JOYSTICKS|
00001760: 2C 20 50 41 44 44 4C 45 53 20 41 4E 44 00 96 1F |, PADDLES AND...|
00001770: 34 08 99 22 4C 49 47 48 54 50 45 4E 2E 20 41 4C |4.."LIGHTPEN. AL|
00001780: 4C 20 4F 46 20 54 48 45 53 45 20 44 45 56 49 43 |L OF THESE DEVIC|
00001790: 45 53 20 41 52 45 00 C4 1F 3E 08 99 22 41 54 54 |ES ARE...>.."ATT|
000017A0: 41 43 48 45 44 20 54 4F 20 54 48 45 20 50 4F 52 |ACHED TO THE POR|
000017B0: 54 53 20 4F 4E 20 54 48 45 20 52 49 47 48 54 20 |TS ON THE RIGHT |
000017C0: 53 49 44 45 00 EF 1F 48 08 99 22 4F 46 20 59 4F |SIDE...H.."OF YO|
000017D0: 55 52 20 43 4F 4D 50 55 54 45 52 2E 20 54 48 45 |UR COMPUTER. THE|
000017E0: 20 4C 49 47 48 54 20 50 45 4E 20 4D 55 53 54 00 | LIGHT PEN MUST.|
000017F0: 1B 20 52 08 99 22 42 45 20 41 54 54 41 43 48 45 |. R.."BE ATTACHE|
00001800: 44 20 54 4F 20 50 4F 52 54 20 31 2C 20 42 55 54 |D TO PORT 1, BUT|
00001810: 20 54 48 45 20 4F 54 48 45 52 53 00 3D 20 5C 08 | THE OTHERS.= \.|
00001820: 99 22 4D 41 59 20 42 45 20 50 4C 55 47 47 45 44 |."MAY BE PLUGGED|
00001830: 20 49 4E 54 4F 20 45 49 54 48 45 52 2E 00 6A 20 | INTO EITHER..j |
00001840: 66 08 99 22 11 41 4C 4C 20 4F 46 20 54 48 45 53 |f..".ALL OF THES|
00001850: 45 20 44 45 56 49 43 45 53 20 41 52 45 20 52 45 |E DEVICES ARE RE|
00001860: 41 44 20 54 48 52 4F 55 47 48 00 86 20 70 08 99 |AD THROUGH.. p..|
00001870: 22 55 4C 54 52 41 42 41 53 49 43 20 46 55 4E 43 |"ULTRABASIC FUNC|
00001880: 54 49 4F 4E 53 2E 00 8E 20 7A 08 8D 36 30 00 BA |TIONS... z..60..|
00001890: 20 84 08 99 22 93 11 54 48 45 20 4A 4F 59 53 54 | ..."..THE JOYST|
000018A0: 49 43 4B 53 20 41 52 45 20 52 45 41 44 20 57 49 |ICKS ARE READ WI|
000018B0: 54 48 20 54 48 45 20 4A 4F 59 00 CA 20 8E 08 99 |TH THE JOY.. ...|
000018C0: 22 46 55 4E 43 54 49 4F 4E 3A 00 DC 20 98 08 99 |"FUNCTION:.. ...|
000018D0: 22 11 20 20 12 4A 4F 59 28 50 29 92 00 F5 20 A2 |". .JOY(P)... .|
000018E0: 08 99 22 11 20 20 50 3D 50 4F 52 54 20 28 31 20 |..". P=PORT (1 |
000018F0: 4F 52 20 32 29 00 1E 21 AC 08 99 22 20 54 48 45 |OR 2)..!..." THE|
00001900: 20 56 41 4C 55 45 20 52 45 54 55 52 4E 45 44 20 | VALUE RETURNED |
00001910: 49 53 20 54 48 45 20 53 55 4D 20 4F 46 3A 00 30 |IS THE SUM OF:.0|
00001920: 21 B6 08 99 22 20 20 20 20 31 3D 4E 4F 52 54 48 |!..." 1=NORTH|
00001930: 00 42 21 C0 08 99 22 20 20 20 20 32 3D 53 4F 55 |.B!..." 2=SOU|
00001940: 54 48 00 53 21 CA 08 99 22 20 20 20 20 34 3D 57 |TH.S!..." 4=W|
00001950: 45 53 54 00 64 21 D4 08 99 22 20 20 20 20 38 3D |EST.d!..." 8=|
00001960: 45 41 53 54 00 7C 21 DE 08 99 22 20 20 20 31 36 |EAST.|!..." 16|
00001970: 3D 46 49 52 45 20 42 55 54 54 4F 4E 00 A9 21 E8 |=FIRE BUTTON..!.|
00001980: 08 99 22 11 46 4F 52 20 45 58 41 4D 50 4C 45 2C |..".FOR EXAMPLE,|
00001990: 20 54 4F 20 54 45 53 54 20 46 4F 52 20 54 48 45 | TO TEST FOR THE|
000019A0: 20 4A 4F 59 53 54 49 43 4B 00 D1 21 F2 08 99 22 | JOYSTICK..!..."|
000019B0: 42 45 49 4E 47 20 50 55 53 48 45 44 20 45 41 53 |BEING PUSHED EAS|
000019C0: 54 20 4F 4E 20 50 4F 52 54 20 31 2C 20 55 53 45 |T ON PORT 1, USE|
000019D0: 3A 00 F0 21 FC 08 99 22 20 20 49 46 20 4A 4F 59 |:..!..." IF JOY|
000019E0: 28 31 29 3D 38 20 54 48 45 4E 2E 2E 2E 2E 2E 2E |(1)=8 THEN......|
000019F0: 00 1B 22 06 09 99 22 42 45 43 41 55 53 45 20 54 |.."..."BECAUSE T|
00001A00: 48 45 52 45 20 57 49 4C 4C 20 42 45 20 54 49 4D |HERE WILL BE TIM|
00001A10: 45 53 20 4D 55 4C 54 49 50 4C 45 00 47 22 10 09 |ES MULTIPLE.G"..|
00001A20: 99 22 4C 49 4E 45 53 20 57 49 4C 4C 20 42 45 20 |."LINES WILL BE |
00001A30: 4F 4E 2C 20 41 20 42 45 54 54 45 52 20 54 45 53 |ON, A BETTER TES|
00001A40: 54 20 49 53 20 54 4F 00 6C 22 24 09 99 22 55 53 |T IS TO.l"$.."US|
00001A50: 45 3A 20 20 49 46 20 4A 4F 59 28 31 29 20 41 4E |E: IF JOY(1) AN|
00001A60: 44 20 38 20 54 48 45 4E 2E 2E 2E 2E 00 97 22 2E |D 8 THEN......".|
00001A70: 09 99 22 54 48 49 53 20 45 58 50 52 45 53 53 49 |.."THIS EXPRESSI|
00001A80: 4F 4E 20 57 49 4C 4C 20 42 45 20 54 52 55 45 20 |ON WILL BE TRUE |
00001A90: 45 56 45 4E 20 49 46 00 B8 22 38 09 99 22 4C 49 |EVEN IF.."8.."LI|
00001AA0: 4E 45 53 20 4F 54 48 45 52 20 54 48 41 4E 20 38 |NES OTHER THAN 8|
00001AB0: 20 41 52 45 20 4F 4E 2E 00 C0 22 42 09 8D 36 30 | ARE ON..."B..60|
00001AC0: 00 ED 22 4C 09 99 22 93 11 54 48 45 52 45 20 4D |.."L.."..THERE M|
00001AD0: 41 59 20 42 45 20 54 57 4F 20 50 41 44 44 4C 45 |AY BE TWO PADDLE|
00001AE0: 53 20 41 54 54 41 43 48 45 44 20 54 4F 00 1A 23 |S ATTACHED TO..#|
00001AF0: 56 09 99 22 45 41 43 48 20 50 4F 52 54 2E 20 54 |V.."EACH PORT. T|
00001B00: 48 45 20 50 4F 53 49 54 49 4F 4E 20 4F 46 20 41 |HE POSITION OF A|
00001B10: 20 50 41 44 44 4C 45 20 49 53 00 29 23 60 09 99 | PADDLE IS.)#`..|
00001B20: 22 52 45 41 44 20 42 59 3A 00 3F 23 6A 09 99 22 |"READ BY:.?#j.."|
00001B30: 20 12 50 41 44 44 4C 45 28 50 2C 50 44 29 92 00 | .PADDLE(P,PD)..|
00001B40: 58 23 74 09 99 22 11 20 20 50 3D 50 4F 52 54 20 |X#t..". P=PORT |
00001B50: 28 31 20 4F 52 20 32 29 00 73 23 7E 09 99 22 20 |(1 OR 2).s#~.." |
00001B60: 20 50 44 3D 50 41 44 44 4C 45 20 28 58 20 4F 52 | PD=PADDLE (X OR|
00001B70: 20 59 29 00 86 23 88 09 99 22 46 4F 52 20 45 58 | Y)..#..."FOR EX|
00001B80: 41 4D 50 4C 45 3A 00 B2 23 92 09 99 22 20 20 51 |AMPLE:..#..." Q|
00001B90: 3D 50 41 44 44 4C 45 28 32 2C 59 29 20 50 55 54 |=PADDLE(2,Y) PUT|
00001BA0: 53 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 54 |S THE VALUE OF T|
00001BB0: 48 45 00 DB 23 9C 09 99 22 20 20 59 20 50 41 44 |HE..#..." Y PAD|
00001BC0: 44 4C 45 20 41 54 54 41 43 48 45 44 20 54 4F 20 |DLE ATTACHED TO |
00001BD0: 50 4F 52 54 20 32 20 49 4E 54 4F 00 EE 23 A6 09 |PORT 2 INTO..#..|
00001BE0: 99 22 20 20 56 41 52 49 41 42 4C 45 20 51 00 0C |." VARIABLE Q..|
00001BF0: 24 B0 09 99 22 11 54 48 45 20 56 41 4C 55 45 20 |$...".THE VALUE |
00001C00: 49 53 20 30 20 54 4F 20 32 35 35 2E 00 38 24 BA |IS 0 TO 255..8$.|
00001C10: 09 99 22 11 20 45 41 43 48 20 50 41 44 44 4C 45 |..". EACH PADDLE|
00001C20: 20 48 41 53 20 41 20 46 49 52 45 20 42 55 54 54 | HAS A FIRE BUTT|
00001C30: 4F 4E 20 57 48 49 43 48 00 5D 24 C4 09 99 22 49 |ON WHICH.]$..."I|
00001C40: 53 20 52 45 41 44 20 55 53 49 4E 47 20 54 48 45 |S READ USING THE|
00001C50: 20 4A 4F 59 20 46 55 4E 43 54 49 4F 4E 00 87 24 | JOY FUNCTION..$|
00001C60: CE 09 99 22 54 48 45 20 46 49 52 45 20 42 55 54 |..."THE FIRE BUT|
00001C70: 54 4F 4E 20 4F 46 20 54 48 45 20 58 20 50 41 44 |TON OF THE X PAD|
00001C80: 44 4C 45 20 3D 20 34 00 A9 24 D8 09 99 22 41 4E |DLE = 4..$..."AN|
00001C90: 44 20 54 48 45 20 46 42 20 4F 4E 20 59 20 50 41 |D THE FB ON Y PA|
00001CA0: 44 44 4C 45 20 3D 20 38 2E 00 B1 24 E2 09 8D 36 |DDLE = 8...$...6|
00001CB0: 30 00 DD 24 EC 09 99 22 93 11 54 48 45 20 4C 49 |0..$..."..THE LI|
00001CC0: 47 48 54 20 50 45 4E 20 58 20 41 4E 44 20 59 20 |GHT PEN X AND Y |
00001CD0: 50 4F 53 49 54 49 4F 4E 53 20 41 52 45 00 00 25 |POSITIONS ARE..%|
00001CE0: F6 09 99 22 52 45 41 44 20 55 53 49 4E 47 20 54 |..."READ USING T|
00001CF0: 48 45 20 50 45 4E 20 46 55 4E 43 54 49 4F 4E 3A |HE PEN FUNCTION:|
00001D00: 00 11 25 00 0A 99 22 11 20 12 50 45 4E 28 44 29 |..%...". .PEN(D)|
00001D10: 92 00 2E 25 0A 0A 99 22 11 20 20 44 3D 44 49 52 |...%...". D=DIR|
00001D20: 45 43 54 4F 4E 20 28 58 20 4F 52 20 59 29 00 41 |ECTON (X OR Y).A|
00001D30: 25 14 0A 99 22 46 4F 52 20 45 58 41 4D 50 4C 45 |%..."FOR EXAMPLE|
00001D40: 3A 00 6B 25 1E 0A 99 22 20 20 57 57 3D 50 45 4E |:.k%..." WW=PEN|
00001D50: 28 58 29 20 53 45 54 53 20 54 48 45 20 56 41 52 |(X) SETS THE VAR|
00001D60: 49 41 42 4C 45 20 57 57 20 54 4F 00 98 25 28 0A |IABLE WW TO..%(.|
00001D70: 99 22 20 20 54 48 45 20 43 55 52 52 45 4E 54 20 |." THE CURRENT |
00001D80: 58 2D 43 4F 4F 52 44 49 4E 41 54 45 20 4F 46 20 |X-COORDINATE OF |
00001D90: 54 48 45 20 50 45 4E 2E 00 C3 25 32 0A 99 22 11 |THE PEN...%2..".|
00001DA0: 54 48 45 52 45 20 49 53 20 41 20 54 49 50 20 53 |THERE IS A TIP S|
00001DB0: 57 49 54 43 48 20 49 4E 20 54 48 45 20 50 45 4E |WITCH IN THE PEN|
00001DC0: 20 54 4F 00 ED 25 3C 0A 99 22 49 4E 44 49 43 41 | TO..%<.."INDICA|
00001DD0: 54 45 20 57 48 45 4E 20 49 54 20 49 53 20 50 52 |TE WHEN IT IS PR|
00001DE0: 45 53 53 45 44 20 41 47 41 49 4E 53 54 00 15 26 |ESSED AGAINST..&|
00001DF0: 46 0A 99 22 53 43 52 45 45 4E 2E 20 49 54 20 49 |F.."SCREEN. IT I|
00001E00: 53 20 54 45 53 54 45 44 20 57 49 54 48 20 54 48 |S TESTED WITH TH|
00001E10: 45 20 4A 4F 59 00 3B 26 50 0A 99 22 46 55 4E 43 |E JOY.;&P.."FUNC|
00001E20: 54 49 4F 4E 2E 20 49 54 53 20 56 41 4C 55 45 20 |TION. ITS VALUE |
00001E30: 49 53 20 31 20 49 46 20 4F 4E 2E 00 67 26 5A 0A |IS 1 IF ON..g&Z.|
00001E40: 99 22 54 48 45 20 4E 4F 52 4D 41 4C 20 4C 49 47 |."THE NORMAL LIG|
00001E50: 48 54 20 50 45 4E 20 54 45 53 54 20 52 4F 55 54 |HT PEN TEST ROUT|
00001E60: 49 4E 45 20 49 53 3A 00 8F 26 64 0A 99 22 49 46 |INE IS:..&d.."IF|
00001E70: 4A 4F 59 28 31 29 3D 31 54 48 45 4E 58 50 3D 50 |JOY(1)=1THENXP=P|
00001E80: 45 4E 28 58 29 3A 59 50 3D 50 45 4E 28 59 29 00 |EN(X):YP=PEN(Y).|
00001E90: 97 26 6E 0A 8D 36 30 00 BD 26 78 0A 99 22 93 11 |.&n..60..&x.."..|
00001EA0: 43 4F 4C 4C 49 53 49 4F 4E 53 20 42 45 54 57 45 |COLLISIONS BETWE|
00001EB0: 45 4E 20 53 50 52 49 54 45 53 20 4F 52 00 EA 26 |EN SPRITES OR..&|
00001EC0: 82 0A 99 22 42 45 54 57 45 45 4E 20 53 50 52 49 |..."BETWEEN SPRI|
00001ED0: 54 45 53 20 41 4E 44 20 54 48 45 20 42 41 43 4B |TES AND THE BACK|
00001EE0: 47 52 4F 55 4E 44 20 4D 41 59 00 02 27 8C 0A 99 |GROUND MAY..'...|
00001EF0: 22 42 45 20 54 45 53 54 45 44 20 45 41 53 49 4C |"BE TESTED EASIL|
00001F00: 59 2E 00 1B 27 96 0A 99 22 54 48 45 20 46 55 4E |Y...'..."THE FUN|
00001F10: 43 54 49 4F 4E 53 20 41 52 45 3A 00 3B 27 A0 0A |CTIONS ARE:.;'..|
00001F20: 99 22 11 20 12 53 43 4F 4C 4C 28 53 31 2C 53 32 |.". .SCOLL(S1,S2|
00001F30: 5B 2C 53 33 2E 2E 2E 2E 5D 29 92 00 59 27 AA 0A |[,S3....])..Y'..|
00001F40: 99 22 20 20 12 42 43 4F 4C 4C 28 53 31 5B 2C 53 |." .BCOLL(S1[,S|
00001F50: 32 2E 2E 2E 2E 2E 5D 29 92 00 78 27 B4 0A 99 22 |2.....])..x'..."|
00001F60: 11 20 53 31 3D 46 49 52 53 54 20 53 50 52 49 54 |. S1=FIRST SPRIT|
00001F70: 45 20 4E 55 4D 42 45 52 00 9D 27 BE 0A 99 22 20 |E NUMBER..'..." |
00001F80: 20 53 32 3D 53 45 43 4F 4E 44 20 53 50 52 49 54 | S2=SECOND SPRIT|
00001F90: 45 20 4E 55 4D 42 45 52 2C 20 45 54 43 00 CA 27 |E NUMBER, ETC..'|
00001FA0: D2 0A 99 22 54 48 45 20 53 43 4F 4C 4C 20 46 55 |..."THE SCOLL FU|
00001FB0: 4E 43 54 49 4F 4E 20 49 53 20 54 52 55 45 20 4F |NCTION IS TRUE O|
00001FC0: 4E 4C 59 20 49 46 20 41 4C 4C 00 F8 27 DC 0A 99 |NLY IF ALL..'...|
00001FD0: 22 4F 46 20 54 48 45 20 53 50 45 43 49 46 49 45 |"OF THE SPECIFIE|
00001FE0: 44 20 53 50 52 49 54 45 53 20 41 52 45 20 43 4F |D SPRITES ARE CO|
00001FF0: 4C 4C 49 44 49 4E 47 2E 00 23 28 E6 0A 99 22 54 |LLIDING..#(..."T|
00002000: 48 45 20 42 43 4F 4C 4C 20 46 55 4E 43 54 49 4F |HE BCOLL FUNCTIO|
00002010: 4E 20 49 53 20 54 52 55 45 20 49 46 20 41 4E 59 |N IS TRUE IF ANY|
00002020: 20 4F 46 00 48 28 F0 0A 99 22 53 50 52 49 54 45 | OF.H(..."SPRITE|
00002030: 53 20 41 52 45 20 43 4F 4C 4C 49 44 49 4E 47 20 |S ARE COLLIDING |
00002040: 57 49 54 48 20 54 48 45 00 5A 28 FA 0A 99 22 42 |WITH THE.Z(..."B|
00002050: 41 43 4B 47 52 4F 55 4E 44 2E 00 6F 28 04 0B 99 |ACKGROUND..o(...|
00002060: 22 11 20 46 4F 52 20 45 58 41 4D 50 4C 45 3A 00 |". FOR EXAMPLE:.|
00002070: 9A 28 0E 0B 99 22 20 49 46 20 53 43 4F 4C 4C 28 |.(..." IF SCOLL(|
00002080: 34 2C 36 29 20 57 49 4C 4C 20 42 45 20 54 52 55 |4,6) WILL BE TRU|
00002090: 45 20 49 44 20 34 20 26 20 36 00 AC 28 18 0B 99 |E ID 4 & 6..(...|
000020A0: 22 20 20 20 43 4F 4C 4C 49 44 45 2E 00 D8 28 22 |" COLLIDE...("|
000020B0: 0B 99 22 20 49 46 20 42 43 4F 4C 4C 28 33 29 20 |.." IF BCOLL(3) |
000020C0: 57 49 4C 4C 20 42 45 20 54 52 55 45 20 49 46 20 |WILL BE TRUE IF |
000020D0: 53 50 52 49 54 45 20 33 00 FD 28 2C 0B 99 22 20 |SPRITE 3..(,.." |
000020E0: 20 48 49 54 53 20 54 48 45 20 42 41 43 4B 47 52 | HITS THE BACKGR|
000020F0: 4F 55 4E 44 20 50 41 54 54 45 52 4E 2E 00 05 29 |OUND PATTERN...)|
00002100: 36 0B 8D 36 30 00 2E 29 40 0B 99 22 93 11 55 4C |6..60..)@.."..UL|
00002110: 54 52 41 42 41 53 49 43 2D 36 34 20 45 4E 41 42 |TRABASIC-64 ENAB|
00002120: 4C 45 53 20 59 4F 55 20 54 4F 20 55 53 45 00 5C |LES YOU TO USE.\|
00002130: 29 4A 0B 99 22 54 48 45 20 53 4F 55 4E 44 20 47 |)J.."THE SOUND G|
00002140: 45 4E 45 52 41 54 4F 52 53 20 49 4E 20 54 48 45 |ENERATORS IN THE|
00002150: 20 27 36 34 20 45 41 53 49 4C 59 21 00 80 29 54 | '64 EASILY!..)T|
00002160: 0B 99 22 54 48 45 20 54 48 52 45 45 20 54 4F 4E |.."THE THREE TON|
00002170: 45 20 47 45 4E 45 52 41 54 4F 52 53 20 41 52 45 |E GENERATORS ARE|
00002180: 00 9F 29 5E 0B 99 22 44 45 53 49 47 4E 41 54 45 |..)^.."DESIGNATE|
00002190: 44 20 41 53 20 31 2C 32 20 41 4E 44 20 33 2E 00 |D AS 1,2 AND 3..|
000021A0: C1 29 68 0B 99 22 54 48 45 59 20 41 52 45 20 53 |.)h.."THEY ARE S|
000021B0: 45 54 20 55 50 20 41 53 20 46 4F 4C 4C 4F 57 53 |ET UP AS FOLLOWS|
000021C0: 3A 00 E5 29 72 0B 99 22 20 20 31 3D 53 51 55 41 |:..)r.." 1=SQUA|
000021D0: 52 45 20 57 41 56 45 20 28 46 4C 55 54 59 20 53 |RE WAVE (FLUTY S|
000021E0: 4F 55 4E 44 29 00 0B 2A 7C 0B 99 22 20 20 32 3D |OUND)..*|.." 2=|
000021F0: 53 41 57 54 4F 4F 54 48 20 57 41 56 45 20 28 52 |SAWTOOTH WAVE (R|
00002200: 45 45 44 59 20 53 4F 55 4E 44 29 00 1B 2A 86 0B |EEDY SOUND)..*..|
00002210: 99 22 20 20 33 3D 4E 4F 49 53 45 00 48 2A 90 0B |." 3=NOISE.H*..|
00002220: 99 22 54 48 45 53 45 20 43 41 4E 20 42 45 20 43 |."THESE CAN BE C|
00002230: 4F 4E 54 52 4F 4C 4C 45 44 20 42 59 20 54 48 45 |ONTROLLED BY THE|
00002240: 20 43 4F 4D 4D 41 4E 44 00 5F 2A 9A 0B 99 22 11 | COMMAND._*...".|
00002250: 20 20 12 53 4F 55 4E 44 20 47 2C 50 2C 44 92 00 | .SOUND G,P,D..|
00002260: 7D 2A A4 0B 99 22 11 20 20 20 20 20 47 3D 47 45 |}*...". G=GE|
00002270: 4E 45 52 41 54 4F 52 20 28 31 2D 33 29 00 98 2A |NERATOR (1-3)..*|
00002280: AE 0B 99 22 20 20 20 20 20 50 3D 50 49 54 43 48 |..." P=PITCH|
00002290: 20 28 31 2D 32 35 35 29 00 C6 2A B8 0B 99 22 20 | (1-255)..*..." |
000022A0: 20 20 20 20 44 3D 44 55 52 41 54 49 4F 4E 20 28 | D=DURATION (|
000022B0: 49 4E 20 36 30 27 54 48 53 20 4F 46 20 41 20 53 |IN 60'THS OF A S|
000022C0: 45 43 4F 4E 44 29 00 F2 2A C2 0B 99 22 41 20 43 |ECOND)..*..."A C|
000022D0: 4F 4D 50 4C 45 54 45 20 53 45 54 20 4F 46 20 50 |OMPLETE SET OF P|
000022E0: 49 54 43 48 45 53 20 49 53 20 47 49 56 45 4E 20 |ITCHES IS GIVEN |
000022F0: 49 4E 00 1A 2B CC 0B 99 22 54 48 45 20 4D 41 4E |IN..+..."THE MAN|
00002300: 55 41 4C 2E 20 41 20 43 4F 55 50 4C 45 20 4F 46 |UAL. A COUPLE OF|
00002310: 20 4B 45 59 20 4F 4E 45 53 3A 00 3B 2B D6 0B 99 | KEY ONES:.;+...|
00002320: 22 4D 49 44 44 4C 45 20 43 3D 31 37 2C 45 3D 32 |"MIDDLE C=17,E=2|
00002330: 31 2C 47 3D 32 35 2C 43 3D 33 34 00 63 2B E0 0B |1,G=25,C=34.c+..|
00002340: 99 22 54 4F 20 53 4F 55 4E 44 20 41 20 4D 49 44 |."TO SOUND A MID|
00002350: 44 4C 45 20 43 20 46 4F 52 20 31 20 53 45 43 4F |DLE C FOR 1 SECO|
00002360: 4E 44 3A 00 77 2B EA 0B 99 22 20 53 4F 55 4E 44 |ND:.w+..." SOUND|
00002370: 32 2C 31 37 2C 36 30 00 8C 2B F4 0B 8D 36 30 3A |2,17,60..+...60:|
00002380: EB 32 2C 31 37 2C 36 30 3A 8D 36 30 00 B8 2B FE |.2,17,60:.60..+.|
00002390: 0B 99 22 93 11 54 4F 20 4D 41 4B 45 20 41 20 4E |.."..TO MAKE A N|
000023A0: 4F 49 53 45 20 53 4F 55 4E 44 20 46 4F 52 20 31 |OISE SOUND FOR 1|
000023B0: 20 53 45 43 4F 4E 44 3A 00 CC 2B 08 0C 99 22 20 | SECOND:..+..." |
000023C0: 53 4F 55 4E 44 33 2C 35 30 2C 36 30 00 E1 2B 12 |SOUND3,50,60..+.|
000023D0: 0C 8D 36 30 3A EB 33 2C 35 30 2C 36 30 3A 8D 36 |..60:.3,50,60:.6|
000023E0: 30 00 0D 2C 13 0C 99 22 93 11 54 4F 20 53 54 4F |0..,..."..TO STO|
000023F0: 50 20 54 48 45 20 53 4F 55 4E 44 2C 20 50 52 45 |P THE SOUND, PRE|
00002400: 53 53 20 54 48 45 20 46 31 20 4B 45 59 00 15 2C |SS THE F1 KEY..,|
00002410: 14 0C 8D 36 30 00 40 2C 1C 0C 99 22 93 11 54 48 |...60.@,..."..TH|
00002420: 45 20 43 48 41 52 41 43 54 45 52 49 53 54 49 43 |E CHARACTERISTIC|
00002430: 53 20 4F 46 20 45 41 43 48 20 4F 46 20 54 48 45 |S OF EACH OF THE|
00002440: 00 6C 2C 26 0C 99 22 54 48 52 45 45 20 47 45 4E |.l,&.."THREE GEN|
00002450: 45 52 41 54 4F 52 53 20 4D 41 59 20 42 45 20 56 |ERATORS MAY BE V|
00002460: 41 52 49 45 44 20 42 59 20 54 48 45 00 8D 2C 30 |ARIED BY THE..,0|
00002470: 0C 99 22 47 45 4E 45 52 41 54 4F 52 20 43 4F 4E |.."GENERATOR CON|
00002480: 54 52 4F 4C 20 43 4F 4D 4D 41 4E 44 3A 00 AC 2C |TROL COMMAND:..,|
00002490: 3A 0C 99 22 11 20 12 47 45 4E 20 41 2C 42 2C 43 |:..". .GEN A,B,C|
000024A0: 2C 44 2C 45 2C 46 2C 47 2C 48 2C 49 00 CC 2C 44 |,D,E,F,G,H,I..,D|
000024B0: 0C 99 22 20 41 3D 47 45 4E 45 52 41 54 4F 52 20 |.." A=GENERATOR |
000024C0: 4E 55 4D 42 45 52 20 28 31 2D 33 29 00 DF 2C 4E |NUMBER (1-3)..,N|
000024D0: 0C 99 22 20 42 3D 57 41 56 45 46 4F 52 4D 3A 00 |.." B=WAVEFORM:.|
000024E0: F3 2C 58 0C 99 22 20 20 20 31 3D 54 52 49 41 4E |.,X.." 1=TRIAN|
000024F0: 47 4C 45 00 07 2D 62 0C 99 22 20 20 20 32 3D 53 |GLE..-b.." 2=S|
00002500: 41 57 54 4F 4F 54 48 00 21 2D 6C 0C 99 22 20 20 |AWTOOTH.!-l.." |
00002510: 20 34 3D 50 55 4C 53 45 20 28 53 51 55 41 52 45 | 4=PULSE (SQUARE|
00002520: 29 00 32 2D 76 0C 99 22 20 20 20 38 3D 4E 4F 49 |).2-v.." 8=NOI|
00002530: 53 45 00 5A 2D 80 0C 99 22 20 43 3D 41 54 54 41 |SE.Z-..." C=ATTA|
00002540: 43 4B 20 53 50 45 45 44 20 28 30 2D 46 41 53 54 |CK SPEED (0-FAST|
00002550: 45 53 54 20 54 4F 20 31 35 29 00 81 2D 8A 0C 99 |EST TO 15)..-...|
00002560: 22 20 44 3D 44 45 43 41 59 20 53 50 45 45 44 20 |" D=DECAY SPEED |
00002570: 28 30 2D 46 41 53 54 45 53 54 20 54 4F 20 31 35 |(0-FASTEST TO 15|
00002580: 29 00 A7 2D 94 0C 99 22 20 45 3D 53 55 53 54 41 |)..-..." E=SUSTA|
00002590: 49 4E 20 4C 45 56 45 4C 20 28 30 2D 4E 4F 4E 45 |IN LEVEL (0-NONE|
000025A0: 20 54 4F 20 31 35 29 00 D0 2D 9E 0C 99 22 20 46 | TO 15)..-..." F|
000025B0: 3D 52 45 4C 45 41 53 45 20 53 50 45 45 44 20 28 |=RELEASE SPEED (|
000025C0: 30 2D 46 41 53 54 45 53 54 20 54 4F 20 31 35 29 |0-FASTEST TO 15)|
000025D0: 00 F8 2D A8 0C 99 22 20 47 3D 44 55 54 59 20 43 |..-..." G=DUTY C|
000025E0: 59 43 4C 45 20 46 4F 52 20 50 4C 55 53 45 20 57 |YCLE FOR PLUSE W|
000025F0: 41 56 45 46 4F 52 4D 53 00 19 2E B2 0C 99 22 20 |AVEFORMS......" |
00002600: 20 20 28 30 20 54 4F 20 31 35 29 20 38 3D 53 51 | (0 TO 15) 8=SQ|
00002610: 55 41 52 45 20 57 41 56 45 00 42 2E BC 0C 99 22 |UARE WAVE.B...."|
00002620: 20 48 3D 53 59 4E 43 48 52 4F 4E 49 5A 41 54 49 | H=SYNCHRONIZATI|
00002630: 4F 4E 20 43 4F 4E 54 52 4F 4C 20 28 30 2D 4F 46 |ON CONTROL (0-OF|
00002640: 46 29 00 6A 2E C6 0C 99 22 20 49 3D 52 49 4E 47 |F).j...." I=RING|
00002650: 20 4D 4F 44 55 4C 41 54 4F 52 20 43 4F 4E 54 52 | MODULATOR CONTR|
00002660: 4F 4C 20 28 30 2D 4F 46 46 29 00 91 2E D0 0C 99 |OL (0-OFF)......|
00002670: 22 20 5B 53 45 45 20 50 52 4F 47 20 52 45 46 20 |" [SEE PROG REF |
00002680: 4D 41 4E 55 41 4C 20 46 4F 52 20 48 20 26 20 49 |MANUAL FOR H & I|
00002690: 5D 00 99 2E DA 0C 8D 36 30 00 C2 2E E4 0C 99 22 |]......60......"|
000026A0: 93 11 54 48 45 20 4F 56 45 52 41 4C 4C 20 56 4F |..THE OVERALL VO|
000026B0: 4C 55 4D 45 20 4C 45 56 45 4C 20 41 4E 44 20 54 |LUME LEVEL AND T|
000026C0: 48 45 00 EE 2E EE 0C 99 22 46 49 4C 54 45 52 20 |HE......"FILTER |
000026D0: 43 4F 4E 54 52 4F 4C 53 20 41 52 45 20 43 4F 4E |CONTROLS ARE CON|
000026E0: 54 52 4F 4C 4C 45 44 20 42 59 20 54 48 45 00 0F |TROLLED BY THE..|
000026F0: 2F F8 0C 99 22 20 20 12 56 4F 4C 20 41 2C 42 2C |/..." .VOL A,B,|
00002700: 43 2C 44 2C 45 92 20 43 4F 4D 4D 41 4E 44 2E 00 |C,D,E. COMMAND..|
00002710: 3C 2F 02 0D 99 22 20 20 41 3D 4F 56 45 52 41 4C |</..." A=OVERAL|
00002720: 4C 20 53 4F 55 4E 44 20 4C 45 56 45 4C 20 28 30 |L SOUND LEVEL (0|
00002730: 2D 4E 4F 4E 45 20 54 4F 20 31 35 29 00 53 2F 0C |-NONE TO 15).S/.|
00002740: 0D 99 22 20 20 42 3D 46 49 4C 54 45 52 20 4D 4F |.." B=FILTER MO|
00002750: 44 45 3A 00 68 2F 16 0D 99 22 20 20 20 20 31 3D |DE:.h/..." 1=|
00002760: 4C 4F 57 20 50 41 53 53 00 7D 2F 20 0D 99 22 20 |LOW PASS.}/ .." |
00002770: 20 20 20 32 3D 42 41 4E 44 50 41 53 53 00 93 2F | 2=BANDPASS../|
00002780: 2A 0D 99 22 20 20 20 20 34 3D 48 49 47 48 20 50 |*.." 4=HIGH P|
00002790: 41 53 53 00 B3 2F 34 0D 99 22 20 20 20 20 38 3D |ASS../4.." 8=|
000027A0: 4E 4F 20 53 4F 55 4E 44 20 46 52 4F 4D 20 47 45 |NO SOUND FROM GE|
000027B0: 4E 20 33 00 D7 2F 3E 0D 99 22 20 20 20 20 20 20 |N 3../>.." |
000027C0: 28 54 48 45 53 45 20 4D 41 59 20 42 45 20 43 4F |(THESE MAY BE CO|
000027D0: 4D 42 49 4E 45 44 29 00 F0 2F 48 0D 99 22 20 20 |MBINED)../H.." |
000027E0: 43 3D 46 49 4C 54 45 52 20 43 4F 4E 54 52 4F 4C |C=FILTER CONTROL|
000027F0: 00 16 30 52 0D 99 22 20 20 20 20 31 3D 53 45 4E |..0R.." 1=SEN|
00002800: 44 20 31 20 4F 55 54 50 55 54 20 54 48 52 55 20 |D 1 OUTPUT THRU |
00002810: 46 49 4C 54 45 52 00 3C 30 5C 0D 99 22 20 20 20 |FILTER.<0\.." |
00002820: 20 32 3D 53 45 4E 44 20 32 20 4F 55 54 50 55 54 | 2=SEND 2 OUTPUT|
00002830: 20 54 48 52 55 20 46 49 4C 54 45 52 00 62 30 66 | THRU FILTER.b0f|
00002840: 0D 99 22 20 20 20 20 34 3D 53 45 4E 44 20 33 20 |.." 4=SEND 3 |
00002850: 4F 55 54 50 55 54 20 54 48 52 55 20 46 49 4C 54 |OUTPUT THRU FILT|
00002860: 45 52 00 8E 30 70 0D 99 22 20 20 20 20 38 3D 53 |ER..0p.." 8=S|
00002870: 45 4E 44 20 45 58 54 45 52 4E 41 4C 20 53 4F 55 |END EXTERNAL SOU|
00002880: 4E 44 20 54 48 52 55 20 46 49 4C 54 45 52 00 AF |ND THRU FILTER..|
00002890: 30 7A 0D 99 22 20 20 20 20 20 20 28 54 48 45 53 |0z.." (THES|
000028A0: 45 20 4D 41 59 20 42 45 20 41 44 44 45 44 29 00 |E MAY BE ADDED).|
000028B0: DB 30 84 0D 99 22 20 20 44 3D 46 49 4C 54 45 52 |.0..." D=FILTER|
000028C0: 20 46 52 45 51 55 45 4E 43 59 20 28 30 2D 4C 4F | FREQUENCY (0-LO|
000028D0: 57 45 53 54 20 54 4F 20 31 35 29 00 05 31 8E 0D |WEST TO 15)..1..|
000028E0: 99 22 20 20 45 3D 46 49 4C 54 45 52 20 52 45 53 |." E=FILTER RES|
000028F0: 4F 4E 41 4E 43 45 20 28 30 2D 46 4C 41 54 20 54 |ONANCE (0-FLAT T|
00002900: 4F 20 31 35 29 00 32 31 98 0D 99 22 49 54 20 49 |O 15).21..."IT I|
00002910: 53 20 4E 4F 54 20 4E 45 43 45 53 53 41 52 59 20 |S NOT NECESSARY |
00002920: 54 4F 20 46 49 4C 4C 20 49 4E 20 41 4C 4C 20 54 |TO FILL IN ALL T|
00002930: 48 45 00 54 31 A2 0D 99 22 56 41 4C 55 45 53 20 |HE.T1..."VALUES |
00002940: 4F 4E 20 45 41 43 48 20 56 4F 4C 20 43 4F 4D 4D |ON EACH VOL COMM|
00002950: 41 4E 44 2E 00 7B 31 AC 0D 99 22 54 4F 20 43 48 |AND..{1..."TO CH|
00002960: 41 4E 47 45 20 4F 4E 4C 59 20 54 48 45 20 56 4F |ANGE ONLY THE VO|
00002970: 4C 2C 20 4A 55 53 54 20 55 53 45 00 8A 31 B6 0D |L, JUST USE..1..|
00002980: 99 22 20 56 4F 4C 31 30 91 22 00 92 31 C0 0D 8D |." VOL10."..1...|
00002990: 36 30 00 BF 31 CA 0D 99 22 93 11 55 4C 54 52 41 |60..1..."..ULTRA|
000029A0: 42 41 53 49 43 2D 36 34 20 41 4C 53 4F 20 43 41 |BASIC-64 ALSO CA|
000029B0: 4E 20 27 50 52 4F 47 52 41 4D 27 20 54 48 45 00 |N 'PROGRAM' THE.|
000029C0: E5 31 D4 0D 99 22 50 49 54 43 48 45 53 20 4F 46 |.1..."PITCHES OF|
000029D0: 20 54 48 45 20 54 4F 4E 45 20 47 45 4E 45 52 41 | THE TONE GENERA|
000029E0: 54 4F 52 53 2E 00 0E 32 DE 0D 99 22 54 48 45 20 |TORS...2..."THE |
000029F0: 45 58 50 4C 41 4E 41 54 49 4F 4E 20 4F 46 20 54 |EXPLANATION OF T|
00002A00: 48 45 20 53 45 54 2C 20 54 44 41 54 41 2C 00 36 |HE SET, TDATA,.6|
00002A10: 32 E8 0D 99 22 41 4E 44 20 54 55 4E 45 20 43 4F |2..."AND TUNE CO|
00002A20: 4D 4D 41 4E 44 53 20 49 53 20 47 49 56 45 4E 20 |MMANDS IS GIVEN |
00002A30: 49 4E 20 54 48 45 00 61 32 E9 0D 99 22 4D 41 4E |IN THE.a2..."MAN|
00002A40: 55 41 4C 2E 20 54 48 45 20 52 45 53 55 4C 54 53 |UAL. THE RESULTS|
00002A50: 20 43 41 4E 20 53 4F 55 4E 44 20 4C 49 4B 45 3A | CAN SOUND LIKE:|
00002A60: 22 00 71 32 EA 0D 8D 36 30 3A EE 33 2C 33 35 36 |".q2...60:.3,356|
00002A70: 34 00 7C 32 EB 0D EC 33 2C 32 30 30 00 8C 32 EC |4.|2...3,200..2.|
00002A80: 0D ED 22 30 31 30 31 30 31 46 46 22 00 94 32 F2 |.."010101FF"..2.|
00002A90: 0D 8D 36 30 00 A7 32 F3 0D EE 32 2C 33 35 37 32 |..60..2...2,3572|
00002AA0: 3A EC 32 2C 32 35 34 00 C7 32 F4 0D ED 22 39 30 |:.2,254..2..."90|
00002AB0: 32 30 30 31 32 30 46 46 32 30 32 30 30 31 30 30 |200120FF20200100|
00002AC0: 31 30 45 30 30 31 22 00 CF 32 F5 0D 8D 36 30 00 |10E001"..2...60.|
00002AD0: F6 32 FC 0D 99 22 93 11 54 48 45 52 45 20 41 52 |.2..."..THERE AR|
00002AE0: 45 20 35 20 27 4A 49 46 46 59 27 A0 28 31 2F 36 |E 5 'JIFFY'.(1/6|
00002AF0: 30 20 53 45 43 29 00 22 33 06 0E 99 22 41 4E 44 |0 SEC)."3..."AND|
00002B00: 20 35 20 53 45 43 4F 4E 44 20 54 49 4D 45 52 53 | 5 SECOND TIMERS|
00002B10: 20 49 4E 20 55 4C 54 52 41 42 41 53 49 43 2D 36 | IN ULTRABASIC-6|
00002B20: 34 2E 00 4D 33 10 0E 99 22 45 41 43 48 20 4F 46 |4..M3..."EACH OF|
00002B30: 20 54 48 45 53 45 20 49 53 20 4C 49 4B 45 20 41 | THESE IS LIKE A|
00002B40: 4E 20 4F 56 45 4E 20 54 49 4D 45 52 2C 00 78 33 |N OVEN TIMER,.x3|
00002B50: 1A 0E 99 22 57 48 45 52 45 20 59 4F 55 20 53 45 |..."WHERE YOU SE|
00002B60: 54 20 49 54 20 54 4F 20 41 20 56 41 4C 55 45 20 |T IT TO A VALUE |
00002B70: 41 4E 44 20 54 48 45 4E 00 9D 33 24 0E 99 22 49 |AND THEN..3$.."I|
00002B80: 54 20 43 4F 55 4E 54 53 20 44 4F 57 4E 20 54 4F |T COUNTS DOWN TO|
00002B90: 20 30 20 41 4E 44 20 53 54 4F 50 53 2E 00 C7 33 | 0 AND STOPS...3|
00002BA0: 2E 0E 99 22 54 48 45 20 54 49 4D 45 52 53 20 41 |..."THE TIMERS A|
00002BB0: 52 45 20 4E 55 4D 42 45 52 45 44 20 30 2D 34 20 |RE NUMBERED 0-4 |
00002BC0: 46 4F 52 20 54 48 45 00 F1 33 38 0E 99 22 4A 49 |FOR THE..38.."JI|
00002BD0: 46 46 59 20 54 49 4D 45 52 53 20 41 4E 44 20 35 |FFY TIMERS AND 5|
00002BE0: 2D 39 20 46 4F 52 20 54 48 45 20 53 45 43 4F 4E |-9 FOR THE SECON|
00002BF0: 44 00 13 34 42 0E 99 22 54 49 4D 45 52 53 2E 20 |D..4B.."TIMERS. |
00002C00: 54 48 45 59 20 41 52 45 20 53 45 54 20 42 59 20 |THEY ARE SET BY |
00002C10: 54 48 45 00 2F 34 4C 0E 99 22 11 20 12 53 43 54 |THE./4L..". .SCT|
00002C20: 52 20 54 2C 56 92 20 43 4F 4D 4D 41 4E 44 2E 00 |R T,V. COMMAND..|
00002C30: 48 34 56 0E 99 22 11 20 20 20 54 3D 54 49 4D 45 |H4V..". T=TIME|
00002C40: 52 20 4E 55 4D 42 45 52 00 6E 34 60 0E 99 22 20 |R NUMBER.n4`.." |
00002C50: 20 20 20 56 3D 56 41 4C 55 45 20 54 4F 20 42 45 | V=VALUE TO BE|
00002C60: 20 53 45 54 20 28 31 2D 36 35 30 30 30 29 00 76 | SET (1-65000).v|
00002C70: 34 6A 0E 8D 36 30 00 A1 34 74 0E 99 22 93 11 54 |4j..60..4t.."..T|
00002C80: 48 45 20 54 49 4D 45 52 53 20 41 52 45 20 52 45 |HE TIMERS ARE RE|
00002C90: 41 44 20 42 59 20 41 20 46 55 4E 43 54 49 4F 4E |AD BY A FUNCTION|
00002CA0: 3A 00 B3 34 7E 0E 99 22 11 20 20 12 43 54 52 A0 |:..4~..". .CTR.|
00002CB0: 28 54 29 00 CD 34 88 0E 99 22 11 20 20 20 20 54 |(T)..4...". T|
00002CC0: 3D 54 49 4D 45 52 20 4E 55 4D 42 45 52 00 E1 34 |=TIMER NUMBER..4|
00002CD0: 92 0E 99 22 11 46 4F 52 20 45 58 41 4D 50 4C 45 |...".FOR EXAMPLE|
00002CE0: 3A 00 0F 35 9C 0E 99 22 20 20 20 53 43 54 52 20 |:..5..." SCTR |
00002CF0: 33 2C 35 30 20 28 53 45 54 20 54 49 4D 45 52 20 |3,50 (SET TIMER |
00002D00: 33 20 54 4F 20 35 30 2F 36 30 20 53 45 43 29 00 |3 TO 50/60 SEC).|
00002D10: 31 35 A6 0E 99 22 20 20 20 49 46 20 43 54 52 20 |15..." IF CTR |
00002D20: 28 33 29 20 3C 3E 30 20 54 48 45 4E 20 2E 2E 2E |(3) <>0 THEN ...|
00002D30: 2E 00 39 35 B0 0E 8D 36 30 00 67 35 BA 0E 99 22 |..95...60.g5..."|
00002D40: 93 11 20 20 4E 4F 57 20 59 4F 55 27 52 45 20 41 |.. NOW YOU'RE A|
00002D50: 4E 20 41 44 56 41 4E 43 45 44 20 50 52 41 43 54 |N ADVANCED PRACT|
00002D60: 49 54 49 4F 4E 45 52 00 92 35 C4 0E 99 22 20 20 |ITIONER..5..." |
00002D70: 20 4F 46 20 54 48 45 20 46 49 4E 45 20 41 52 54 | OF THE FINE ART|
00002D80: 20 4F 46 20 55 4C 54 52 41 42 41 53 49 43 2D 36 | OF ULTRABASIC-6|
00002D90: 34 21 00 C4 35 CE 0E 99 22 11 11 20 05 4D 41 59 |4!..5...".. .MAY|
00002DA0: 20 54 48 45 20 55 4C 54 52 41 42 41 53 49 43 20 | THE ULTRABASIC |
00002DB0: 46 4F 52 43 45 20 42 45 20 57 49 54 48 20 59 4F |FORCE BE WITH YO|
00002DC0: 55 21 1F 11 00 F5 35 CF 0E EE 31 2C 33 37 39 39 |U!....5...1,3799|
00002DD0: 3A EE 32 2C 33 37 39 38 3A EE 33 2C 33 37 39 37 |:.2,3798:.3,3797|
00002DE0: 3A EC 31 2C 32 35 34 3A EC 32 2C 32 35 34 3A EC |:.1,254:.2,254:.|
00002DF0: 33 2C 32 35 34 00 09 36 D4 0E ED 22 31 30 30 31 |3,254..6..."1001|
00002E00: 38 30 30 35 30 30 31 30 22 00 1D 36 D5 0E ED 22 |80050010"..6..."|
00002E10: 46 46 30 31 46 41 30 31 38 30 30 36 22 00 31 36 |FF01FA018006".16|
00002E20: D6 0E ED 22 31 30 30 35 30 35 31 30 30 42 31 30 |..."100505100B10|
00002E30: 22 00 41 36 D7 0E ED 22 38 30 30 31 30 31 46 46 |".A6..."800101FF|
00002E40: 22 00 00 00 00 00 FF 22 |"......" |
....... CONTROL ROUTINES.#.2..:.100.@.<.
."..PRESS C TO CONTINUE".U.>..C$:. C$.."
C".62.[.@...M.F..I.1.2000:.:....D.. TUTO
R PART 2...N.."..ULTRABASIC-64 TURTLE GR
APHICS MAKE.V.X.."AN EASY WAY TO DRAW, U
SING THE TRAIL......"LEFT BY AN IMAGINAR
Y TURTLE AS HE......"FOLLOWS YOUR COMMAN
DS..G...."THE COMMANDS ARE SIMPLE, LIKE
.MOVE.,.S. .."WHICH TELLS THE TURTLE TO
MOVE AHEAD......."YOU CAN TURN THE TURTL
E USING THE .TURN.H...."COMMAND,SPECIFYI
NG THE NUMBER OF......"DEGREES IT SHOULD
TURN....H.."THE TURTLE NORMALLY LEAVES
A TRAIL.9.R.."BUT YOU CAN MOVE IT WITHOU
T A TRAIL.E...."BY 'LIFTING' IT WITH A .
TUP. COMMAND,......"AND PUTTING IT DOWN
AGAIN AFTER MOVING......"IT WITH A .TDOW
N. COMMAND.......".ULTRABASIC-64 INCLDES
A PICTURE OF......"THE TURTLE AS YOU DR
AW, MAKING IT EASY.)...."TO SEE WHAT'S H
APPENING..1....60.].".."..THE TURTLE IS
STARTED ON THE SCREEN.~.,.."WITH THE .TU
RTLE. COMMAND:...6..". .TURTLE C [,X,Y
]...@..". C=COLOR OF THE TURTLE...J..
".IF ONLY THE COLOR (C) IS GIVEN, THE...
T.."TURTLE WILL START AT THE CENTER OF..
.^.."THE SCREEN (X=160,Y=100)..Y.H.."IF
YOU WANT IT TO START AT ANY OTHER...R.."
POSITION, GIVE THE X AND Y COORDINATES..
..|..".THE TURTLE ALWAYS COMES ON THE SC
REEN.O...."POINTING UP (NORTH)..W....60.
.....".. THE MOVE COMMAND TELLS THE TURT
LE./...."THE NUMBER OF POSITIONS TO MOVE
IN THE.[...."DIRECTION IT IS POINTING A
T THE TIME..Q...."THE COMMAND IS:...B.."
. .MOVE D....L..". D=NUMBER OF POSITIO
NS TO MOVE...V..60......".. THE TURN COM
MAND TELLS THE TURTLE......"THE NUMBER O
F DEGREES TO TURN......."THE COMMAND IS:
.)....". .TURN N..N....". N=NUMBER OF D
EGREES TO TURN.V....". THE DEGREES ARE T
HE SAME AS THE......"THE DEGREES ON THE
COMPASS--...&..". 0 DEGREES.D.0.
." N.U.:.." +...D.."270
W + * + E 90...N.." +...X.."
S.".B.." 180.M.V.."THEREFO
RE, POSITIVE DEGREES TURN THE.V...."THE
TURTLE CLOCKWISE, AND NEGATIVE......"DEG
REES TURN IT THE OTHER WAY.......60.P...
."..FOR EXAMPLE, A BOX CAN BE CREATED BY
......"FOUR MOVES AND TURNS:......" MOVE
50......" TURN 90...F.." MOVE 50.(.P.."
TURN 90.7.Z.." MOVE 50.F...." TURN 90.U
...." MOVE 50.D...." TURN 90......60:.1,
7:.2:.50:.90:.50:.90......50:.90:.50:.90
:.70:T:.60.N...."..OF COURSE, A BETTER W
AY IS TO USE A... .."FOR LOOP--...*.."
FOR A=1 TO 4...4.." MOVE 50...>.." TUR
N 90.!.H.." NEXT.).R..60.R.\.."..AS YOU
CAN SEE, THE TURN COMMAND.Z.F.."TURNS T
HE TURTLE FROM ITS PRESENT...P.."HEADING
. THE TURNTO COMMAND TURNS THE.R.Z.."TUR
TLE TO A SPECIFIC DIRECTION, USING......
"THE DEGREES OF THE COMPASS.......". .TU
RNTO N..#....". N=COMPASS HEADING.+...
.60.S...."..THE TURTLE IS 'LIFTED' FROM
THE......"PAPER SO IT CAN MOVE WITHOUT L
EAVING A......"LINE BY THE TUP COMMAND-.
..J..". .TUP.Y.T..".THE TURTLE IS PUT B
ACK DOWN WITH THE......". .TDOWN.......
".COMMAND......60.!...."..AN EXAMPLE OF
THESE IS:.8...." TURTLE6,100,100.H...."
TURNTO75.V...." MOVE50.A.$.." TUP.O...."
TURN75.}.8.." MOVE50...:.." TURN-75...B
.." TDOWN...L.." MOVE50.S.V..60:.6,100,1
00:.75:.50:.:.75:.50:..75:....`..50:.70:
T:.60......"..THE COLOR OF THE TURTLE'S
LINE IS.4...."CHANGED BY THE TCOLOR COMM
AND:.G.D..". .TCOLOR C.D.N..". C=COLOR
OF THE LINE.Y.X..".FOR EXAMPLE -......"
TURTLE5,20,20......" TURN90......" MOVE
50.D...." TCOLOR 8 (YELLOW).S...." MOVE
50......60:.5,20,20:.90:.50:.8:.50:.70:
T:.60.)...."..THE TURTLE CAN BE MADE TO
DISAPPEAR.F...."WITH THE 'BYE COMMAND..U
.(..". .BYE....2..". ALTHOUGH THE TURTL
E DISAPPEARS, YOU...<.."CAN STILL CONTIN
UE TO DRAW WITH IT.P.F.."(AND IT ACTUALL
Y DRAWS FASTER!)...P..60:.:..45:.150:..1
20:.150...Z..70:T:.60.(.D.."..THE VALUES
OF THE X AND Y POSITION.P.N.."AND THE D
IRECTION (IN DEGREES) IN.Z.X.."WHICH THE
TURTLE IS POINTING CAN BE......"READ IN
TO YOUR PROGRAM......."THERE ARE THREE F
UNCTIONS:......". .TPOS(X). GIVES THE X
POSITION... ..". .TPOS(Y). GIVES THE Y
POSITION.0....". .TPOS(A). GIVES THE D
IRECTION.T...." (IN DEGR
EES).}...."THESE FUNCTIONS MAY BE USED T
O SET...H.."ANOTHER VARIABLE [ E=TPOS(X)
]...R.."OR IN A CONDITION......" [ IF T
POS (A) > 180 THEN ..... ]......"OR IN A
PRINT COMMAND [ PRINT TPOS(A) ]......60
.E...."..IN ORDER TO MAKE IT EASIER TO R
EPEAT.N...."GROUPS OF TURTLE GRAPHIC COM
MANDS,......"'REPEAT' COMMANDS ARE INCLU
DED......."THE COMMAND WHICH SHOWS THE B
EGINNING...".."OF THE COMMNANDS TO BE RE
PEATED AND...,.."THE NUMBER OF TIMES THE
Y ARE TO BE.:.6.."REPEATED IS THE LEFT B
RACKET .[..E.@.."IT MUST BE FOLLOWED BY
THE NUMBER OF..J.."REPEATS AND A COLON.
..T.."FOR EXAMPLE - .[3:. WILL CAUSE.P.^
.."THE FOLLOWING COMMANDS TO BE REPEATED
...H.."3 TIMES....R..60...|.."..THE END
OF THE GROUP OF COMMANDS IS.9...."MARKED
BY A COLON AND THE RIGHT.M...."BRACKET
.]. ..Z...."THE COMMANDS MAY BE ANY BASI
C COMMANDS......"AND MAY SPAN MANY LINES
OF PROGRAM......."FOR EXAMPLE:.Y...." [
2:PRINT'ABC':] WILL PRINT...B.."ABC...L.
."ABC...V.."IN TURTLE GRAPHICS, YOU CAN
DRAW AN.:...."EIGHT SIDED FIGURE (OCTAGO
N).]...."TURTLE2 : [8:MOVE30:TURN45:]...
...60:.1,7:.2:.8:.30:.45:.:.70:T:.60....
.."..OR TO DRAW A FIGUE WITH ANY NUMBER
OF.U...."SIDES, USE VARIABLES FOR THE...
..."NUMBER OF REPEATS AND TO COMPUTE THE
......"ANGLE.+.&.."INPUT'NUMBER OF SIDES
';N.B.0.."HIRES1,7:TURTLE2.^.:.."[N:MOVE
30:TURN360/N:].{.D..60:."NUMBER OF SIDES
";N...N..1,7:.2:.N:.30:.360.N:.:.70:T:.6
0.J.X.."..IF YOU NEED TO GET OUT OF ONE
OF...B.."THESE REPEATS BEFORE THE SPECIF
IED...L.."NUMBER OF TIMES IS UP, USE THE
.3.V..". .:EXIT. COMMNAND..G....".FOR E
XAMPLE:.O...."[20:TURN30:IFTPOS(A)>180TH
EN:EXIT.W...."].....60......"..ANY GRAP
HIC PICTURE SHOWN ON THE.P...."SCREEN MA
Y BE DUMPED TO A PRINTER......"EXCEPT FO
R SPRITE PATTERNS....F.."THE COMMAND IS:
...P..". .HARD [D]..A.Z..". D=IS OPTIO
NAL DEVICE NUMBER.G...." DEVICE 4 IS A
SSUMED IF NONE......."MULTICOLOR SCREENS
SHOW PAINTBRUSH 1......"AREAS IN THE DA
RKEST TONES, PAINTBRUSH......"2 IN MEDIU
M DENSITY AND PAINTBRUSH 2......"IN LIGH
TEST DENSITY PRINT.......60.@. .."..ULTR
ABASIC-64 INCLUDES MANY COMMANDS.M.*.."F
OR INPUT, FROM JOYSTICKS, PADDLES AND...
4.."LIGHTPEN. ALL OF THESE DEVICES ARE.D
.>.."ATTACHED TO THE PORTS ON THE RIGHT
SIDE...H.."OF YOUR COMPUTER. THE LIGHT P
EN MUST.. R.."BE ATTACHED TO PORT 1, BUT
THE OTHERS.= \.."MAY BE PLUGGED INTO EI
THER..J F..".ALL OF THESE DEVICES ARE RE
AD THROUGH.. P.."ULTRABASIC FUNCTIONS...
Z..60.. ..."..THE JOYSTICKS ARE READ WI
TH THE JOY.J ..."FUNCTION:.. ...". .JOY
(P)... ...". P=PORT (1 OR 2)..!..." THE
VALUE RETURNED IS THE SUM OF:.0!..."
1=NORTH.B!..." 2=SOUTH.S!J.." 4=W
EST.D!T.." 8=EAST.|!..." 16=FIRE BU
TTON..!...".FOR EXAMPLE, TO TEST FOR THE
JOYSTICK.Q!..."BEING PUSHED EAST ON POR
T 1, USE:..!..." IF JOY(1)=8 THEN......
.."..."BECAUSE THERE WILL BE TIMES MULTI
PLE.G"..."LINES WILL BE ON, A BETTER TES
T IS TO.L"$.."USE: IF JOY(1) AND 8 THEN
......"..."THIS EXPRESSION WILL BE TRUE
EVEN IF.."8.."LINES OTHER THAN 8 ARE ON.
.."B..60.."L.."..THERE MAY BE TWO PADDLE
S ATTACHED TO..#V.."EACH PORT. THE POSIT
ION OF A PADDLE IS.)#`.."READ BY:.?#J.."
.PADDLE(P,PD)..X#T..". P=PORT (1 OR 2)
.S#~.." PD=PADDLE (X OR Y)..#..."FOR EX
AMPLE:..#..." Q=PADDLE(2,Y) PUTS THE VA
LUE OF THE..#..." Y PADDLE ATTACHED TO
PORT 2 INTO..#..." VARIABLE Q..$...".TH
E VALUE IS 0 TO 255..8$...". EACH PADDLE
HAS A FIRE BUTTON WHICH.]$D.."IS READ U
SING THE JOY FUNCTION..$N.."THE FIRE BUT
TON OF THE X PADDLE = 4..$X.."AND THE FB
ON Y PADDLE = 8...$...60..$..."..THE LI
GHT PEN X AND Y POSITIONS ARE..%..."READ
USING THE PEN FUNCTION:..%...". .PEN(D)
...%...". D=DIRECTON (X OR Y).A%..."FOR
EXAMPLE:.K%..." WW=PEN(X) SETS THE VAR
IABLE WW TO..%(.." THE CURRENT X-COORDI
NATE OF THE PEN..C%2..".THERE IS A TIP S
WITCH IN THE PEN TO..%<.."INDICATE WHEN
IT IS PRESSED AGAINST..&F.."SCREEN. IT I
S TESTED WITH THE JOY.;&P.."FUNCTION. IT
S VALUE IS 1 IF ON..G&Z.."THE NORMAL LIG
HT PEN TEST ROUTINE IS:..&D.."IFJOY(1)=1
THENXP=PEN(X):YP=PEN(Y)..&N..60..&X.."..
COLLISIONS BETWEEN SPRITES OR..&..."BETW
EEN SPRITES AND THE BACKGROUND MAY..'...
"BE TESTED EASILY...'..."THE FUNCTIONS A
RE:.;' ..". .SCOLL(S1,S2[,S3....])..Y'..
." .BCOLL(S1[,S2.....])..X'...". S1=FIR
ST SPRITE NUMBER..'..." S2=SECOND SPRIT
E NUMBER, ETC.J'R.."THE SCOLL FUNCTION I
S TRUE ONLY IF ALL..'..."OF THE SPECIFIE
D SPRITES ARE COLLIDING..#(..."THE BCOLL
FUNCTION IS TRUE IF ANY OF.H(..."SPRITE
S ARE COLLIDING WITH THE.Z(..."BACKGROUN
D..O(...". FOR EXAMPLE:..(..." IF SCOLL(
4,6) WILL BE TRUE ID 4 & 6..(..." COLL
IDE..X(".." IF BCOLL(3) WILL BE TRUE IF
SPRITE 3..(,.." HITS THE BACKGROUND PAT
TERN...)6..60..)@.."..ULTRABASIC-64 ENAB
LES YOU TO USE.\)J.."THE SOUND GENERATOR
S IN THE '64 EASILY!..)T.."THE THREE TON
E GENERATORS ARE..)^.."DESIGNATED AS 1,2
AND 3..A)H.."THEY ARE SET UP AS FOLLOWS
:..)R.." 1=SQUARE WAVE (FLUTY SOUND)..*
|.." 2=SAWTOOTH WAVE (REEDY SOUND)..*..
." 3=NOISE.H*..."THESE CAN BE CONTROLLE
D BY THE COMMAND._*...". .SOUND G,P,D..
}*...". G=GENERATOR (1-3)..*..."
P=PITCH (1-255).F*..." D=DURATION (
IN 60'THS OF A SECOND)..*B.."A COMPLETE
SET OF PITCHES IS GIVEN IN..+L.."THE MAN
UAL. A COUPLE OF KEY ONES:.;+V.."MIDDLE
C=17,E=21,G=25,C=34.C+..."TO SOUND A MID
DLE C FOR 1 SECOND:.W+..." SOUND2,17,60.
.+...60:.2,17,60:.60..+..."..TO MAKE A N
OISE SOUND FOR 1 SECOND:.L+..." SOUND3,5
0,60..+...60:.3,50,60:.60..,..."..TO STO
P THE SOUND, PRESS THE F1 KEY..,...60.@,
..."..THE CHARACTERISTICS OF EACH OF THE
.L,&.."THREE GENERATORS MAY BE VARIED BY
THE..,0.."GENERATOR CONTROL COMMAND:..,
:..". .GEN A,B,C,D,E,F,G,H,I.L,D.." A=GE
NERATOR NUMBER (1-3)..,N.." B=WAVEFORM:.
.,X.." 1=TRIANGLE..-B.." 2=SAWTOOTH.
!-L.." 4=PULSE (SQUARE).2-V.." 8=NOI
SE.Z-..." C=ATTACK SPEED (0-FASTEST TO 1
5)..-..." D=DECAY SPEED (0-FASTEST TO 15
)..-..." E=SUSTAIN LEVEL (0-NONE TO 15).
P-..." F=RELEASE SPEED (0-FASTEST TO 15)
..-..." G=DUTY CYCLE FOR PLUSE WAVEFORMS
......" (0 TO 15) 8=SQUARE WAVE.B...."
H=SYNCHRONIZATION CONTROL (0-OFF).J.F..
" I=RING MODULATOR CONTROL (0-OFF)...P..
" [SEE PROG REF MANUAL FOR H & I]...Z..6
0.B...."..THE OVERALL VOLUME LEVEL AND T
HE......"FILTER CONTROLS ARE CONTROLLED
BY THE../..." .VOL A,B,C,D,E. COMMAND..
</..." A=OVERALL SOUND LEVEL (0-NONE TO
15).S/..." B=FILTER MODE:.H/..." 1=
LOW PASS.}/ .." 2=BANDPASS../*.."
4=HIGH PASS../4.." 8=NO SOUND FROM GE
N 3.W/>.." (THESE MAY BE COMBINED).
./H.." C=FILTER CONTROL..0R.." 1=SEN
D 1 OUTPUT THRU FILTER.<0\.." 2=SEND
2 OUTPUT THRU FILTER.B0F.." 4=SEND 3
OUTPUT THRU FILTER..0P.." 8=SEND EXTE
RNAL SOUND THRU FILTER..0Z.." (THES
E MAY BE ADDED)..0..." D=FILTER FREQUEN
CY (0-LOWEST TO 15)..1..." E=FILTER RES
ONANCE (0-FLAT TO 15).21..."IT IS NOT NE
CESSARY TO FILL IN ALL THE.T1..."VALUES
ON EACH VOL COMMAND..{1..."TO CHANGE ONL
Y THE VOL, JUST USE..1..." VOL10."..1...
60..1J.."..ULTRABASIC-64 ALSO CAN 'PROGR
AM' THE..1T.."PITCHES OF THE TONE GENERA
TORS...2..."THE EXPLANATION OF THE SET,
TDATA,.62..."AND TUNE COMMANDS IS GIVEN
IN THE.A2..."MANUAL. THE RESULTS CAN SOU
ND LIKE:".Q2...60:.3,3564.|2...3,200..2.
.."010101FF"..2...60..2...2,3572:.2,254.
G2..."90200120FF2020010010E001".O2...60.
.2..."..THERE ARE 5 'JIFFY' (1/60 SEC)."
3..."AND 5 SECOND TIMERS IN ULTRABASIC-6
4..M3..."EACH OF THESE IS LIKE AN OVEN T
IMER,.X3..."WHERE YOU SET IT TO A VALUE
AND THEN..3$.."IT COUNTS DOWN TO 0 AND S
TOPS..G3..."THE TIMERS ARE NUMBERED 0-4
FOR THE..38.."JIFFY TIMERS AND 5-9 FOR T
HE SECOND..4B.."TIMERS. THEY ARE SET BY
THE./4L..". .SCTR T,V. COMMAND..H4V..".
T=TIMER NUMBER.N4`.." V=VALUE TO BE
SET (1-65000).V4J..60..4T.."..THE TIMER
S ARE READ BY A FUNCTION:..4~..". .CTR
(T).M4...". T=TIMER NUMBER..4...".FOR
EXAMPLE:..5..." SCTR 3,50 (SET TIMER
3 TO 50/60 SEC).15..." IF CTR (3) <>0
THEN .....95...60.G5...".. NOW YOU'RE A
N ADVANCED PRACTITIONER..5D.." OF THE
FINE ART OF ULTRABASIC-64!.D5N..".. .MAY
THE ULTRABASIC FORCE BE WITH YOU!....5O
..1,3799:.2,3798:.3,3797:.1,254:.2,254:.
3,254..6T.."100180050010"..6U.."FF01FA01
8006".16V.."100505100B10".A6W.."800101FF
"......"
> CLICK IMAGE PREVIEW FOR FULL MODAL