UBTUTOR2 (T)
FILE INFORMATION
FILENAME(S): UBTUTOR2 (T)
FILE TYPE(S): PRG
FILE SIZE: 11.6K
FIRST SEEN: 2025-11-02 16:54:33
APPEARS ON: 1 disk(s)
FILE HASH
58f1f32b5a15b1380d628c9f0e63707c04e06ffa5278b05244b05fa81848b927
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL ORIG | UBTUTOR2 (T) | PRG | Treasure Chest - Reamigation | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 2C 18 2C 0B 00 8F 20 43 4F 4E 54 52 4F 4C 20 |.,.,... CONTROL |
00000010: 52 4F 55 54 49 4E 45 53 00 23 2C 32 00 9C 3A 89 |ROUTINES.#,2..:.|
00000020: 31 30 30 00 40 2C 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 2C 3E 00 A1 43 24 3A 8B 20 43 24 B3 B1 22 |.U,>..C$:. C$.."|
00000050: 43 22 A7 36 32 00 5B 2C 40 00 8E 00 6D 2C 46 00 |C".62.[,@...m,F.|
00000060: 81 49 B2 31 A4 32 30 30 30 3A 82 3A 8E 00 80 2C |.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 2C 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 2C 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 2C 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: 2D 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 2D 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 2D 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 2D 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 2D 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 2D 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 2E 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 2E 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 2E 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 2E 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 2E 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 2E 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 2F | 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 2F 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 2F 18 01 8D 36 |APPENING..1/...6|
00000330: 30 00 5D 2F 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 2F |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: 2F 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 2F 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 2F 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 30 54 01 99 22 54 55 52 54 |, THE..0T.."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: 30 5E 01 99 22 54 48 45 20 53 43 52 45 45 4E 20 |0^.."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: 30 68 01 99 22 49 46 20 59 4F 55 20 57 41 4E 54 |0h.."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 30 72 01 99 22 |ANY OTHER..0r.."|
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 30 7C 01 99 22 11 54 |INATES...0|..".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 30 86 01 99 22 50 4F 49 4E 54 |REEN..0..."POINT|
000004C0: 49 4E 47 20 55 50 20 28 4E 4F 52 54 48 29 2E 00 |ING UP (NORTH)..|
000004D0: D7 30 90 01 8D 36 30 00 02 31 9A 01 99 22 93 11 |.0...60..1..."..|
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 31 A4 01 99 22 54 48 45 20 4E 55 4D |LE./1..."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 31 AE 01 99 22 44 49 52 45 43 54 49 4F 4E 20 |[1..."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 31 B8 01 |T THE TIME..q1..|
00000560: 99 22 54 48 45 20 43 4F 4D 4D 41 4E 44 20 49 53 |."THE COMMAND IS|
00000570: 3A 00 83 31 C2 01 99 22 11 20 20 12 4D 4F 56 45 |:..1...". .MOVE|
00000580: 20 44 92 00 AA 31 CC 01 99 22 11 20 20 44 3D 4E | D...1...". 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 31 D6 01 8D |NS TO MOVE..1...|
000005B0: 36 30 00 DD 31 E0 01 99 22 93 11 20 54 48 45 20 |60..1...".. 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 32 |LS THE TURTLE..2|
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 32 F4 01 99 22 54 48 45 20 43 4F 4D |N...2..."THE COM|
00000610: 4D 41 4E 44 20 49 53 3A 00 29 32 FE 01 99 22 11 |MAND IS:.)2...".|
00000620: 20 12 54 55 52 4E 20 4E 92 00 4E 32 08 02 99 22 | .TURN N..N2..."|
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: 32 12 02 99 22 11 20 54 48 45 20 44 45 47 52 45 |2...". 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 32 1C 02 99 22 54 48 45 |AS THE..2..."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 32 26 02 99 22 |COMPASS--..2&.."|
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 32 30 02 99 22 20 20 20 20 20 20 |EES..20.." |
000006C0: 20 20 20 4E 00 D5 32 3A 02 99 22 20 20 20 20 20 | N..2:.." |
000006D0: 20 20 20 20 2B 00 EE 32 44 02 99 22 32 37 30 20 | +..2D.."270 |
000006E0: 20 57 20 2B 20 2A 20 2B 20 45 20 20 39 30 00 FF | W + * + E 90..|
000006F0: 32 4E 02 99 22 20 20 20 20 20 20 20 20 20 2B 00 |2N.." +.|
00000700: 10 33 58 02 99 22 20 20 20 20 20 20 20 20 20 53 |.3X.." S|
00000710: 00 22 33 62 02 99 22 20 20 20 20 20 20 20 20 31 |."3b.." 1|
00000720: 38 30 00 4D 33 76 02 99 22 54 48 45 52 45 46 4F |80.M3v.."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 33 |REES TURN THE.v3|
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 33 8A 02 99 22 44 45 47 |GATIVE..3..."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 33 94 02 | OTHER WAY...3..|
000007A0: 8D 36 30 00 D0 33 9E 02 99 22 93 11 46 4F 52 20 |.60..3..."..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 33 A8 02 99 22 46 4F 55 52 20 4D 4F 56 45 |..3..."FOUR MOVE|
000007E0: 53 20 41 4E 44 20 54 55 52 4E 53 3A 00 FB 33 B2 |S AND TURNS:..3.|
000007F0: 02 99 22 20 4D 4F 56 45 20 35 30 00 0A 34 BC 02 |.." MOVE 50..4..|
00000800: 99 22 20 54 55 52 4E 20 39 30 00 19 34 C6 02 99 |." TURN 90..4...|
00000810: 22 20 4D 4F 56 45 20 35 30 00 28 34 D0 02 99 22 |" MOVE 50.(4..."|
00000820: 20 54 55 52 4E 20 39 30 00 37 34 DA 02 99 22 20 | TURN 90.74..." |
00000830: 4D 4F 56 45 20 35 30 00 46 34 E4 02 99 22 20 54 |MOVE 50.F4..." T|
00000840: 55 52 4E 20 39 30 00 55 34 EE 02 99 22 20 4D 4F |URN 90.U4..." MO|
00000850: 56 45 20 35 30 00 64 34 F8 02 99 22 20 54 55 52 |VE 50.d4..." TUR|
00000860: 4E 20 39 30 00 84 34 02 03 8D 36 30 3A DB 31 2C |N 90..4...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 34 0C 03 F5 35 30 3A F0 39 30 |:.90..4...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 34 16 03 99 22 93 11 4F 46 20 43 4F |60..4..."..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: 34 20 03 99 22 46 4F 52 20 4C 4F 4F 50 2D 2D 00 |4 .."FOR LOOP--.|
000008E0: F4 34 2A 03 99 22 20 20 46 4F 52 20 41 3D 31 20 |.4*.." FOR A=1 |
000008F0: 54 4F 20 34 00 04 35 34 03 99 22 20 20 4D 4F 56 |TO 4..54.." MOV|
00000900: 45 20 35 30 00 14 35 3E 03 99 22 20 20 54 55 52 |E 50..5>.." TUR|
00000910: 4E 20 39 30 00 21 35 48 03 99 22 20 20 4E 45 58 |N 90.!5H.." NEX|
00000920: 54 00 29 35 52 03 8D 36 30 00 52 35 5C 03 99 22 |T.)5R..60.R5\.."|
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 35 66 03 99 22 54 55 52 4E 53 20 54 |ND.z5f.."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 35 70 03 99 |TS PRESENT..5p..|
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 35 7A 03 99 22 54 55 52 |NS THE..5z.."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 35 84 03 99 22 54 48 45 20 44 45 47 |NG..5..."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 36 8E 03 99 22 11 20 12 54 55 |ASS...6...". .TU|
00000A00: 52 4E 54 4F 20 4E 92 00 23 36 98 03 99 22 11 20 |RNTO N..#6...". |
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 36 A2 03 8D 36 30 00 53 36 AC 03 |ING.+6...60.S6..|
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 36 B6 03 99 22 50 41 50 45 52 20 |THE..6..."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 36 C0 03 99 22 4C 49 4E 45 20 42 59 20 54 |..6..."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 36 CA 03 99 22 11 20 20 12 54 55 50 00 D9 36 |.6...". .TUP..6|
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 36 DE 03 99 22 | WITH THE..6..."|
00000AE0: 11 20 20 12 54 44 4F 57 4E 92 00 F9 36 E8 03 99 |. .TDOWN...6...|
00000AF0: 22 11 43 4F 4D 4D 41 4E 44 00 01 37 F2 03 8D 36 |".COMMAND..7...6|
00000B00: 30 00 21 37 FC 03 99 22 93 11 41 4E 20 45 58 41 |0.!7..."..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 37 06 04 99 22 20 54 55 52 54 4C 45 36 |:.87..." TURTLE6|
00000B30: 2C 31 30 30 2C 31 30 30 00 48 37 10 04 99 22 20 |,100,100.H7..." |
00000B40: 54 55 52 4E 54 4F 37 35 00 56 37 1A 04 99 22 20 |TURNTO75.V7..." |
00000B50: 4D 4F 56 45 35 30 00 61 37 24 04 99 22 20 54 55 |MOVE50.a7$.." TU|
00000B60: 50 00 6F 37 2E 04 99 22 20 54 55 52 4E 37 35 00 |P.o7..." TURN75.|
00000B70: 7D 37 38 04 99 22 20 4D 4F 56 45 35 30 00 8C 37 |}78.." MOVE50..7|
00000B80: 3A 04 99 22 20 54 55 52 4E 2D 37 35 00 99 37 42 |:.." TURN-75..7B|
00000B90: 04 99 22 20 54 44 4F 57 4E 00 A7 37 4C 04 99 22 |.." TDOWN..7L.."|
00000BA0: 20 4D 4F 56 45 35 30 00 D3 37 56 04 8D 36 30 3A | MOVE50..7V..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 37 60 04 F5 35 30 3A 8D 37 30 3A |5:...7`..50:.70:|
00000BE0: D4 3A 8D 36 30 00 0F 38 B0 04 99 22 93 11 54 48 |.:.60..8..."..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 38 BA 04 99 22 43 48 41 4E 47 45 44 20 42 59 |48..."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 38 C4 04 99 22 11 20 20 12 54 |AND:.G8...". .T|
00000C40: 43 4F 4C 4F 52 20 43 00 64 38 CE 04 99 22 11 20 |COLOR C.d8...". |
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 38 D8 04 99 22 11 46 4F 52 20 |LINE.y8...".FOR |
00000C70: 45 58 41 4D 50 4C 45 20 2D 00 8E 38 E2 04 99 22 |EXAMPLE -..8..."|
00000C80: 20 54 55 52 54 4C 45 35 2C 32 30 2C 32 30 00 9C | TURTLE5,20,20..|
00000C90: 38 E7 04 99 22 20 54 55 52 4E 39 30 00 AB 38 EC |8..." TURN90..8.|
00000CA0: 04 99 22 20 4D 4F 56 45 20 35 30 00 C4 38 F6 04 |.." MOVE 50..8..|
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 38 00 05 99 22 20 4D 4F 56 45 |LOW)..8..." MOVE|
00000CD0: 20 35 30 00 FD 38 0A 05 8D 36 30 3A F4 35 2C 32 | 50..8...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 39 |.50:.70:.:.60.)9|
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 39 1E 05 99 22 |DISAPPEAR.F9..."|
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 39 28 05 99 22 11 20 20 |MMAND..U9(..". |
00000D50: 12 42 59 45 92 00 81 39 32 05 99 22 11 20 41 4C |.BYE...92..". 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 39 3C 05 99 22 43 41 4E 20 53 54 49 4C |U..9<.."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 39 46 05 99 |AW WITH IT..9F..|
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 39 50 05 8D 36 30 3A F6 3A F0 AB 34 35 3A |..9P..60:.:..45:|
00000DE0: F5 31 35 30 3A F0 AB 31 32 30 3A F5 31 35 30 00 |.150:..120:.150.|
00000DF0: FD 39 5A 05 8D 37 30 3A D4 3A 8D 36 30 00 28 3A |.9Z..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 3A 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 3A 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 3A 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 3A 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 3A 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 3B 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 3B 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 3B 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 3B 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 3B |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 3B 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 3B 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 3C 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 3C F0 05 8D 36 30 00 45 3C 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 3C 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: 3C 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 3C 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 3C 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 3D 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 3D 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 3D 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 3D 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 3D 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 3D 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 3D 68 06 99 22 33 20 54 49 4D 45 53 2E 00 |..=h.."3 TIMES..|
000011E0: E7 3D 72 06 8D 36 30 00 13 3E 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 3E 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 3E 90 06 99 22 |THE RIGHT.M>..."|
00001240: 42 52 41 43 4B 45 54 20 12 5D 92 20 2E 00 7A 3E |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 3E 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 3E AE 06 99 22 46 4F 52 20 45 |RAM...>..."FOR E|
000012B0: 58 41 4D 50 4C 45 3A 00 D9 3E 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 3E C2 06 99 22 |ILL PRINT..>..."|
000012E0: 41 42 43 00 ED 3E CC 06 99 22 41 42 43 00 17 3F |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 3F 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 3F 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 3F |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 3F 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 3F 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 40 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 40 1C 07 99 22 41 4E 47 4C 45 00 2B 40 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 40 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 40 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: 40 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 40 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 40 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 40 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 41 6C 07 99 22 4E 55 4D 42 45 52 |IED..Al.."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 41 76 07 99 22 11 | USE THE.3Av..".|
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 41 80 07 99 22 11 46 4F 52 20 45 |ND..GA...".FOR E|
00001540: 58 41 4D 50 4C 45 3A 00 6F 41 8A 07 99 22 5B 32 |XAMPLE:.oA..."[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 41 94 07 99 22 5D 00 7F 41 9E 07 8D 36 30 00 |wA..."]..A...60.|
00001580: A8 41 A8 07 99 22 93 11 41 4E 59 20 47 52 41 50 |.A..."..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 41 B2 07 99 22 53 |N ON THE..A..."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 41 BC 07 99 22 45 58 43 45 50 54 20 46 4F |..A..."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 42 C6 07 99 22 54 48 45 20 43 4F 4D |S...B..."THE COM|
00001600: 4D 41 4E 44 20 49 53 3A 00 1C 42 D0 07 99 22 11 |MAND IS:..B...".|
00001610: 20 20 12 48 41 52 44 20 5B 44 5D 92 00 41 42 DA | .HARD [D]..AB.|
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 42 E4 07 99 22 20 20 20 44 45 56 49 43 |R.gB..." 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 42 EE 07 99 22 4D 55 |F NONE...B..."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 42 F8 07 99 22 41 52 45 41 53 20 49 | 1..B..."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 42 02 08 99 22 32 20 49 4E 20 4D 45 44 49 55 |.B..."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 43 0C 08 99 |INTBRUSH 2..C...|
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 43 16 08 |SITY PRINT...C..|
00001710: 8D 36 30 00 40 43 20 08 99 22 93 11 55 4C 54 52 |.60.@C .."..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 43 2A 08 99 22 46 4F 52 20 49 4E 50 55 54 |.mC*.."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 43 |, PADDLES AND..C|
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 43 3E 08 99 22 41 54 54 |ES ARE..C>.."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 43 48 08 99 22 4F 46 20 59 4F |SIDE..CH.."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 44 52 08 99 22 42 45 20 41 54 54 41 43 48 45 |.DR.."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 44 5C 08 | THE OTHERS.=D\.|
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 44 | INTO EITHER..jD|
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 44 70 08 99 |AD THROUGH..Dp..|
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 44 7A 08 8D 36 30 00 BA |TIONS...Dz..60..|
00001890: 44 84 08 99 22 93 11 54 48 45 20 4A 4F 59 53 54 |D..."..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 44 8E 08 99 |TH THE JOY..D...|
000018C0: 22 46 55 4E 43 54 49 4F 4E 3A 00 DC 44 98 08 99 |"FUNCTION:..D...|
000018D0: 22 11 20 20 12 4A 4F 59 28 50 29 92 00 F5 44 A2 |". .JOY(P)...D.|
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 45 AC 08 99 22 20 54 48 45 |OR 2)..E..." 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: 45 B6 08 99 22 20 20 20 20 31 3D 4E 4F 52 54 48 |E..." 1=NORTH|
00001930: 00 42 45 C0 08 99 22 20 20 20 20 32 3D 53 4F 55 |.BE..." 2=SOU|
00001940: 54 48 00 53 45 CA 08 99 22 20 20 20 20 34 3D 57 |TH.SE..." 4=W|
00001950: 45 53 54 00 64 45 D4 08 99 22 20 20 20 20 38 3D |EST.dE..." 8=|
00001960: 45 41 53 54 00 7C 45 DE 08 99 22 20 20 20 31 36 |EAST.|E..." 16|
00001970: 3D 46 49 52 45 20 42 55 54 54 4F 4E 00 A9 45 E8 |=FIRE BUTTON..E.|
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 45 F2 08 99 22 | JOYSTICK..E..."|
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 45 FC 08 99 22 20 20 49 46 20 4A 4F 59 |:..E..." 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 46 06 09 99 22 42 45 43 41 55 53 45 20 54 |..F..."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 46 10 09 |ES MULTIPLE.GF..|
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 46 24 09 99 22 55 53 |T IS TO.lF$.."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 46 2E |D 8 THEN......F.|
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 46 38 09 99 22 4C 49 |EVEN IF..F8.."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 46 42 09 8D 36 30 | ARE ON...FB..60|
00001AC0: 00 ED 46 4C 09 99 22 93 11 54 48 45 52 45 20 4D |..FL.."..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 47 |S ATTACHED TO..G|
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 47 60 09 99 | PADDLE IS.)G`..|
00001B20: 22 52 45 41 44 20 42 59 3A 00 3F 47 6A 09 99 22 |"READ BY:.?Gj.."|
00001B30: 20 12 50 41 44 44 4C 45 28 50 2C 50 44 29 92 00 | .PADDLE(P,PD)..|
00001B40: 58 47 74 09 99 22 11 20 20 50 3D 50 4F 52 54 20 |XGt..". P=PORT |
00001B50: 28 31 20 4F 52 20 32 29 00 73 47 7E 09 99 22 20 |(1 OR 2).sG~.." |
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 47 88 09 99 22 46 4F 52 20 45 58 | Y)..G..."FOR EX|
00001B80: 41 4D 50 4C 45 3A 00 B2 47 92 09 99 22 20 20 51 |AMPLE:..G..." 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 47 9C 09 99 22 20 20 59 20 50 41 44 |HE..G..." 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 47 A6 09 |PORT 2 INTO..G..|
00001BE0: 99 22 20 20 56 41 52 49 41 42 4C 45 20 51 00 0C |." VARIABLE Q..|
00001BF0: 48 B0 09 99 22 11 54 48 45 20 56 41 4C 55 45 20 |H...".THE VALUE |
00001C00: 49 53 20 30 20 54 4F 20 32 35 35 2E 00 38 48 BA |IS 0 TO 255..8H.|
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 48 C4 09 99 22 49 |ON WHICH.]H..."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 48 | JOY FUNCTION..H|
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 48 D8 09 99 22 41 4E |DLE = 4..H..."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 48 E2 09 8D 36 |DDLE = 8...H...6|
00001CB0: 30 00 DD 48 EC 09 99 22 93 11 54 48 45 20 4C 49 |0..H..."..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 49 |POSITIONS ARE..I|
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 49 00 0A 99 22 11 20 12 50 45 4E 28 44 29 |..I...". .PEN(D)|
00001D10: 92 00 2E 49 0A 0A 99 22 11 20 20 44 3D 44 49 52 |...I...". 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: 49 14 0A 99 22 46 4F 52 20 45 58 41 4D 50 4C 45 |I..."FOR EXAMPLE|
00001D40: 3A 00 6B 49 1E 0A 99 22 20 20 57 57 3D 50 45 4E |:.kI..." 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 49 28 0A |IABLE WW TO..I(.|
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 49 32 0A 99 22 11 |THE PEN...I2..".|
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 49 3C 0A 99 22 49 4E 44 49 43 41 | TO..I<.."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 4A |ESSED AGAINST..J|
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 4A 50 0A 99 22 46 55 4E 43 |E JOY.;JP.."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 4A 5A 0A |IS 1 IF ON..gJZ.|
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 4A 64 0A 99 22 49 46 |INE IS:..Jd.."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 4A 6E 0A 8D 36 30 00 BD 4A 78 0A 99 22 93 11 |.Jn..60..Jx.."..|
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 4A |EN SPRITES OR..J|
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 4B 8C 0A 99 |GROUND MAY..K...|
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 4B 96 0A 99 22 54 48 45 20 46 55 4E |Y...K..."THE FUN|
00001F10: 43 54 49 4F 4E 53 20 41 52 45 3A 00 3B 4B A0 0A |CTIONS ARE:.;K..|
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 4B AA 0A |[,S3....])..YK..|
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 4B B4 0A 99 22 |2.....])..xK..."|
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 4B BE 0A 99 22 20 |E NUMBER..K..." |
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 4B |E NUMBER, ETC..K|
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 4B DC 0A 99 |NLY IF ALL..K...|
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 4C E6 0A 99 22 54 |LLIDING..#L..."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 4C F0 0A 99 22 53 50 52 49 54 45 | OF.HL..."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 4C FA 0A 99 22 42 |WITH THE.ZL..."B|
00002050: 41 43 4B 47 52 4F 55 4E 44 2E 00 6F 4C 04 0B 99 |ACKGROUND..oL...|
00002060: 22 11 20 46 4F 52 20 45 58 41 4D 50 4C 45 3A 00 |". FOR EXAMPLE:.|
00002070: 9A 4C 0E 0B 99 22 20 49 46 20 53 43 4F 4C 4C 28 |.L..." 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 4C 18 0B 99 |E ID 4 & 6..L...|
000020A0: 22 20 20 20 43 4F 4C 4C 49 44 45 2E 00 D8 4C 22 |" COLLIDE...L"|
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 4C 2C 0B 99 22 20 |SPRITE 3..L,.." |
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 4D |OUND PATTERN...M|
00002100: 36 0B 8D 36 30 00 2E 4D 40 0B 99 22 93 11 55 4C |6..60..M@.."..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: 4D 4A 0B 99 22 54 48 45 20 53 4F 55 4E 44 20 47 |MJ.."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 4D 54 | '64 EASILY!..MT|
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 4D 5E 0B 99 22 44 45 53 49 47 4E 41 54 45 |..M^.."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 4D 68 0B 99 22 54 48 45 59 20 41 52 45 20 53 |.Mh.."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 4D 72 0B 99 22 20 20 31 3D 53 51 55 41 |:..Mr.." 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 4E 7C 0B 99 22 20 20 32 3D |OUND)..N|.." 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 4E 86 0B |EEDY SOUND)..N..|
00002210: 99 22 20 20 33 3D 4E 4F 49 53 45 00 48 4E 90 0B |." 3=NOISE.HN..|
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 4E 9A 0B 99 22 11 | COMMAND._N...".|
00002250: 20 20 12 53 4F 55 4E 44 20 47 2C 50 2C 44 92 00 | .SOUND G,P,D..|
00002260: 7D 4E A4 0B 99 22 11 20 20 20 20 20 47 3D 47 45 |}N...". G=GE|
00002270: 4E 45 52 41 54 4F 52 20 28 31 2D 33 29 00 98 4E |NERATOR (1-3)..N|
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 4E B8 0B 99 22 20 | (1-255)..N..." |
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 4E C2 0B 99 22 41 20 43 |ECOND)..N..."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 4F CC 0B 99 22 54 48 45 20 4D 41 4E |IN..O..."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 4F D6 0B 99 | KEY ONES:.;O...|
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 4F E0 0B |1,G=25,C=34.cO..|
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 4F EA 0B 99 22 20 53 4F 55 4E 44 |ND:.wO..." SOUND|
00002370: 32 2C 31 37 2C 36 30 00 8C 4F F4 0B 8D 36 30 3A |2,17,60..O...60:|
00002380: EB 32 2C 31 37 2C 36 30 3A 8D 36 30 00 B8 4F FE |.2,17,60:.60..O.|
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 4F 08 0C 99 22 20 | SECOND:..O..." |
000023C0: 53 4F 55 4E 44 33 2C 35 30 2C 36 30 00 E1 4F 12 |SOUND3,50,60..O.|
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 50 13 0C 99 22 93 11 54 4F 20 53 54 4F |0..P..."..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 50 |SS THE F1 KEY..P|
00002410: 14 0C 8D 36 30 00 40 50 1C 0C 99 22 93 11 54 48 |...60.@P..."..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 50 26 0C 99 22 54 48 52 45 45 20 47 45 4E |.lP&.."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 50 30 |ARIED BY THE..P0|
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 50 |TROL COMMAND:..P|
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 50 44 |,D,E,F,G,H,I..PD|
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 50 4E |NUMBER (1-3)..PN|
000024D0: 0C 99 22 20 42 3D 57 41 56 45 46 4F 52 4D 3A 00 |.." B=WAVEFORM:.|
000024E0: F3 50 58 0C 99 22 20 20 20 31 3D 54 52 49 41 4E |.PX.." 1=TRIAN|
000024F0: 47 4C 45 00 07 51 62 0C 99 22 20 20 20 32 3D 53 |GLE..Qb.." 2=S|
00002500: 41 57 54 4F 4F 54 48 00 21 51 6C 0C 99 22 20 20 |AWTOOTH.!Ql.." |
00002510: 20 34 3D 50 55 4C 53 45 20 28 53 51 55 41 52 45 | 4=PULSE (SQUARE|
00002520: 29 00 32 51 76 0C 99 22 20 20 20 38 3D 4E 4F 49 |).2Qv.." 8=NOI|
00002530: 53 45 00 5A 51 80 0C 99 22 20 43 3D 41 54 54 41 |SE.ZQ..." 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 51 8A 0C 99 |EST TO 15)..Q...|
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 51 94 0C 99 22 20 45 3D 53 55 53 54 41 |)..Q..." 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 51 9E 0C 99 22 20 46 | TO 15)..Q..." 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 51 A8 0C 99 22 20 47 3D 44 55 54 59 20 43 |..Q..." 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 52 B2 0C 99 22 20 |AVEFORMS..R..." |
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 52 BC 0C 99 22 |UARE WAVE.BR..."|
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 52 C6 0C 99 22 20 49 3D 52 49 4E 47 |F).jR..." 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 52 D0 0C 99 |OL (0-OFF)..R...|
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 52 DA 0C 8D 36 30 00 C2 52 E4 0C 99 22 |]..R...60..R..."|
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 52 EE 0C 99 22 46 49 4C 54 45 52 20 |HE..R..."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: 53 F8 0C 99 22 20 20 12 56 4F 4C 20 41 2C 42 2C |S..." .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 53 02 0D 99 22 20 20 41 3D 4F 56 45 52 41 4C |<S..." 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 53 0C |-NONE TO 15).SS.|
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 53 16 0D 99 22 20 20 20 20 31 3D |DE:.hS..." 1=|
00002760: 4C 4F 57 20 50 41 53 53 00 7D 53 20 0D 99 22 20 |LOW PASS.}S .." |
00002770: 20 20 20 32 3D 42 41 4E 44 50 41 53 53 00 93 53 | 2=BANDPASS..S|
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 53 34 0D 99 22 20 20 20 20 38 3D |ASS..S4.." 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 53 3E 0D 99 22 20 20 20 20 20 20 |N 3..S>.." |
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 53 48 0D 99 22 20 20 |MBINED)..SH.." |
000027E0: 43 3D 46 49 4C 54 45 52 20 43 4F 4E 54 52 4F 4C |C=FILTER CONTROL|
000027F0: 00 16 54 52 0D 99 22 20 20 20 20 31 3D 53 45 4E |..TR.." 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 54 5C 0D 99 22 20 20 20 |FILTER.<T\.." |
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 54 66 | THRU FILTER.bTf|
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 54 70 0D 99 22 20 20 20 20 38 3D 53 |ER..Tp.." 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: 54 7A 0D 99 22 20 20 20 20 20 20 28 54 48 45 53 |Tz.." (THES|
000028A0: 45 20 4D 41 59 20 42 45 20 41 44 44 45 44 29 00 |E MAY BE ADDED).|
000028B0: DB 54 84 0D 99 22 20 20 44 3D 46 49 4C 54 45 52 |.T..." 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 55 8E 0D |WEST TO 15)..U..|
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 55 98 0D 99 22 49 54 20 49 |O 15).2U..."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 55 A2 0D 99 22 56 41 4C 55 45 53 20 |HE.TU..."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 55 AC 0D 99 22 54 4F 20 43 48 |AND..{U..."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 55 B6 0D |L, JUST USE..U..|
00002980: 99 22 20 56 4F 4C 31 30 91 22 00 92 55 C0 0D 8D |." VOL10."..U...|
00002990: 36 30 00 BF 55 CA 0D 99 22 93 11 55 4C 54 52 41 |60..U..."..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 55 D4 0D 99 22 50 49 54 43 48 45 53 20 4F 46 |.U..."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 56 DE 0D 99 22 54 48 45 20 |TORS...V..."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: 56 E8 0D 99 22 41 4E 44 20 54 55 4E 45 20 43 4F |V..."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 56 E9 0D 99 22 4D 41 4E |IN THE.aV..."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 56 EA 0D 8D 36 30 3A EE 33 2C 33 35 36 |".qV...60:.3,356|
00002A70: 34 00 7C 56 EB 0D EC 33 2C 32 30 30 00 8C 56 EC |4.|V...3,200..V.|
00002A80: 0D ED 22 30 31 30 31 30 31 46 46 22 00 94 56 F2 |.."010101FF"..V.|
00002A90: 0D 8D 36 30 00 A7 56 F3 0D EE 32 2C 33 35 37 32 |..60..V...2,3572|
00002AA0: 3A EC 32 2C 32 35 34 00 C7 56 F4 0D ED 22 39 30 |:.2,254..V..."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 56 F5 0D 8D 36 30 00 |10E001"..V...60.|
00002AD0: F6 56 FC 0D 99 22 93 11 54 48 45 52 45 20 41 52 |.V..."..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 57 06 0E 99 22 41 4E 44 |0 SEC)."W..."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 57 10 0E 99 22 45 41 43 48 20 4F 46 |4..MW..."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 57 |N OVEN TIMER,.xW|
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 57 24 0E 99 22 49 |AND THEN..W$.."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 57 | 0 AND STOPS...W|
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 57 38 0E 99 22 4A 49 |FOR THE..W8.."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 58 42 0E 99 22 54 49 4D 45 52 53 2E 20 |D..XB.."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 58 4C 0E 99 22 11 20 12 53 43 54 |THE./XL..". .SCT|
00002C20: 52 20 54 2C 56 92 20 43 4F 4D 4D 41 4E 44 2E 00 |R T,V. COMMAND..|
00002C30: 48 58 56 0E 99 22 11 20 20 20 54 3D 54 49 4D 45 |HXV..". T=TIME|
00002C40: 52 20 4E 55 4D 42 45 52 00 6E 58 60 0E 99 22 20 |R NUMBER.nX`.." |
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: 58 6A 0E 8D 36 30 00 A1 58 74 0E 99 22 93 11 54 |Xj..60..Xt.."..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 58 7E 0E 99 22 11 20 20 12 43 54 52 A0 |:..X~..". .CTR.|
00002CB0: 28 54 29 00 CD 58 88 0E 99 22 11 20 20 20 20 54 |(T)..X...". T|
00002CC0: 3D 54 49 4D 45 52 20 4E 55 4D 42 45 52 00 E1 58 |=TIMER NUMBER..X|
00002CD0: 92 0E 99 22 11 46 4F 52 20 45 58 41 4D 50 4C 45 |...".FOR EXAMPLE|
00002CE0: 3A 00 0F 59 9C 0E 99 22 20 20 20 53 43 54 52 20 |:..Y..." 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 59 A6 0E 99 22 20 20 20 49 46 20 43 54 52 20 |1Y..." 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 59 B0 0E 8D 36 30 00 67 59 BA 0E 99 22 |..9Y...60.gY..."|
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 59 C4 0E 99 22 20 20 |ITIONER..Y..." |
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 59 CE 0E 99 22 11 11 20 05 4D 41 59 |4!..Y...".. .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 59 CF 0E EE 31 2C 33 37 39 39 |U!....Y...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 5A D4 0E ED 22 31 30 30 31 |3,254..Z..."1001|
00002E00: 38 30 30 35 30 30 31 30 22 00 1D 5A D5 0E ED 22 |80050010"..Z..."|
00002E10: 46 46 30 31 46 41 30 31 38 30 30 36 22 00 31 5A |FF01FA018006".1Z|
00002E20: D6 0E ED 22 31 30 30 35 30 35 31 30 30 42 31 30 |..."100505100B10|
00002E30: 22 00 41 5A D7 0E ED 22 38 30 30 31 30 31 46 46 |".AZ..."800101FF|
00002E40: 22 00 00 00 FF |".... |
.,.,... 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..0
T.."TURTLE WILL START AT THE CENTER OF..
0^.."THE SCREEN (X=160,Y=100)..Y0H.."IF
YOU WANT IT TO START AT ANY OTHER..0R.."
POSITION, GIVE THE X AND Y COORDINATES..
.0|..".THE TURTLE ALWAYS COMES ON THE SC
REEN.O0..."POINTING UP (NORTH)..W0...60.
.1...".. THE MOVE COMMAND TELLS THE TURT
LE./1..."THE NUMBER OF POSITIONS TO MOVE
IN THE.[1..."DIRECTION IT IS POINTING A
T THE TIME..Q1..."THE COMMAND IS:..1B.."
. .MOVE D...1L..". D=NUMBER OF POSITIO
NS TO MOVE..1V..60..1...".. THE TURN COM
MAND TELLS THE TURTLE..2..."THE NUMBER O
F DEGREES TO TURN...2..."THE COMMAND IS:
.)2...". .TURN N..N2...". N=NUMBER OF D
EGREES TO TURN.V2...". THE DEGREES ARE T
HE SAME AS THE..2..."THE DEGREES ON THE
COMPASS--..2&..". 0 DEGREES.D20.
." N.U2:.." +..2D.."270
W + * + E 90..2N.." +..3X.."
S."3B.." 180.M3V.."THEREFO
RE, POSITIVE DEGREES TURN THE.V3..."THE
TURTLE CLOCKWISE, AND NEGATIVE..3..."DEG
REES TURN IT THE OTHER WAY...3...60.P3..
."..FOR EXAMPLE, A BOX CAN BE CREATED BY
..3..."FOUR MOVES AND TURNS:..3..." MOVE
50..4..." TURN 90..4F.." MOVE 50.(4P.."
TURN 90.74Z.." MOVE 50.F4..." TURN 90.U
4..." MOVE 50.D4..." TURN 90..4...60:.1,
7:.2:.50:.90:.50:.90..4...50:.90:.50:.90
:.70:T:.60.N4..."..OF COURSE, A BETTER W
AY IS TO USE A..4 .."FOR LOOP--..4*.."
FOR A=1 TO 4..54.." MOVE 50..5>.." TUR
N 90.!5H.." NEXT.)5R..60.R5\.."..AS YOU
CAN SEE, THE TURN COMMAND.Z5F.."TURNS T
HE TURTLE FROM ITS PRESENT..5P.."HEADING
. THE TURNTO COMMAND TURNS THE.R5Z.."TUR
TLE TO A SPECIFIC DIRECTION, USING..5...
"THE DEGREES OF THE COMPASS...6...". .TU
RNTO N..#6...". N=COMPASS HEADING.+6..
.60.S6..."..THE TURTLE IS 'LIFTED' FROM
THE..6..."PAPER SO IT CAN MOVE WITHOUT L
EAVING A..6..."LINE BY THE TUP COMMAND-.
.6J..". .TUP.Y6T..".THE TURTLE IS PUT B
ACK DOWN WITH THE..6...". .TDOWN...6...
".COMMAND..7...60.!7..."..AN EXAMPLE OF
THESE IS:.87..." TURTLE6,100,100.H7..."
TURNTO75.V7..." MOVE50.A7$.." TUP.O7..."
TURN75.}78.." MOVE50..7:.." TURN-75..7B
.." TDOWN..7L.." MOVE50.S7V..60:.6,100,1
00:.75:.50:.:.75:.50:..75:...7`..50:.70:
T:.60..8..."..THE COLOR OF THE TURTLE'S
LINE IS.48..."CHANGED BY THE TCOLOR COMM
AND:.G8D..". .TCOLOR C.D8N..". C=COLOR
OF THE LINE.Y8X..".FOR EXAMPLE -..8..."
TURTLE5,20,20..8..." TURN90..8..." MOVE
50.D8..." TCOLOR 8 (YELLOW).S8..." MOVE
50..8...60:.5,20,20:.90:.50:.8:.50:.70:
T:.60.)9..."..THE TURTLE CAN BE MADE TO
DISAPPEAR.F9..."WITH THE 'BYE COMMAND..U
9(..". .BYE...92..". ALTHOUGH THE TURTL
E DISAPPEARS, YOU..9<.."CAN STILL CONTIN
UE TO DRAW WITH IT.P9F.."(AND IT ACTUALL
Y DRAWS FASTER!)..9P..60:.:..45:.150:..1
20:.150..9Z..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..AL.."NUMBER OF TIMES IS UP, USE THE
.3AV..". .:EXIT. COMMNAND..GA...".FOR E
XAMPLE:.OA..."[20:TURN30:IFTPOS(A)>180TH
EN:EXIT.WA..."].A...60..A..."..ANY GRAP
HIC PICTURE SHOWN ON THE.PA..."SCREEN MA
Y BE DUMPED TO A PRINTER..A..."EXCEPT FO
R SPRITE PATTERNS...BF.."THE COMMAND IS:
..BP..". .HARD [D]..ABZ..". D=IS OPTIO
NAL DEVICE NUMBER.GB..." DEVICE 4 IS A
SSUMED IF NONE...B..."MULTICOLOR SCREENS
SHOW PAINTBRUSH 1..B..."AREAS IN THE DA
RKEST TONES, PAINTBRUSH..B..."2 IN MEDIU
M DENSITY AND PAINTBRUSH 2..C..."IN LIGH
TEST DENSITY PRINT...C...60.@C .."..ULTR
ABASIC-64 INCLUDES MANY COMMANDS.MC*.."F
OR INPUT, FROM JOYSTICKS, PADDLES AND..C
4.."LIGHTPEN. ALL OF THESE DEVICES ARE.D
C>.."ATTACHED TO THE PORTS ON THE RIGHT
SIDE..CH.."OF YOUR COMPUTER. THE LIGHT P
EN MUST..DR.."BE ATTACHED TO PORT 1, BUT
THE OTHERS.=D\.."MAY BE PLUGGED INTO EI
THER..JDF..".ALL OF THESE DEVICES ARE RE
AD THROUGH..DP.."ULTRABASIC FUNCTIONS...
DZ..60..D..."..THE JOYSTICKS ARE READ WI
TH THE JOY.JD..."FUNCTION:..D...". .JOY
(P)...D...". P=PORT (1 OR 2)..E..." THE
VALUE RETURNED IS THE SUM OF:.0E..."
1=NORTH.BE..." 2=SOUTH.SEJ.." 4=W
EST.DET.." 8=EAST.|E..." 16=FIRE BU
TTON..E...".FOR EXAMPLE, TO TEST FOR THE
JOYSTICK.QE..."BEING PUSHED EAST ON POR
T 1, USE:..E..." IF JOY(1)=8 THEN......
..F..."BECAUSE THERE WILL BE TIMES MULTI
PLE.GF..."LINES WILL BE ON, A BETTER TES
T IS TO.LF$.."USE: IF JOY(1) AND 8 THEN
......F..."THIS EXPRESSION WILL BE TRUE
EVEN IF..F8.."LINES OTHER THAN 8 ARE ON.
..FB..60..FL.."..THERE MAY BE TWO PADDLE
S ATTACHED TO..GV.."EACH PORT. THE POSIT
ION OF A PADDLE IS.)G`.."READ BY:.?GJ.."
.PADDLE(P,PD)..XGT..". P=PORT (1 OR 2)
.SG~.." PD=PADDLE (X OR Y)..G..."FOR EX
AMPLE:..G..." Q=PADDLE(2,Y) PUTS THE VA
LUE OF THE..G..." Y PADDLE ATTACHED TO
PORT 2 INTO..G..." VARIABLE Q..H...".TH
E VALUE IS 0 TO 255..8H...". EACH PADDLE
HAS A FIRE BUTTON WHICH.]HD.."IS READ U
SING THE JOY FUNCTION..HN.."THE FIRE BUT
TON OF THE X PADDLE = 4..HX.."AND THE FB
ON Y PADDLE = 8...H...60..H..."..THE LI
GHT PEN X AND Y POSITIONS ARE..I..."READ
USING THE PEN FUNCTION:..I...". .PEN(D)
...I...". D=DIRECTON (X OR Y).AI..."FOR
EXAMPLE:.KI..." WW=PEN(X) SETS THE VAR
IABLE WW TO..I(.." THE CURRENT X-COORDI
NATE OF THE PEN..CI2..".THERE IS A TIP S
WITCH IN THE PEN TO..I<.."INDICATE WHEN
IT IS PRESSED AGAINST..JF.."SCREEN. IT I
S TESTED WITH THE JOY.;JP.."FUNCTION. IT
S VALUE IS 1 IF ON..GJZ.."THE NORMAL LIG
HT PEN TEST ROUTINE IS:..JD.."IFJOY(1)=1
THENXP=PEN(X):YP=PEN(Y)..JN..60..JX.."..
COLLISIONS BETWEEN SPRITES OR..J..."BETW
EEN SPRITES AND THE BACKGROUND MAY..K...
"BE TESTED EASILY...K..."THE FUNCTIONS A
RE:.;K ..". .SCOLL(S1,S2[,S3....])..YK..
." .BCOLL(S1[,S2.....])..XK...". S1=FIR
ST SPRITE NUMBER..K..." S2=SECOND SPRIT
E NUMBER, ETC.JKR.."THE SCOLL FUNCTION I
S TRUE ONLY IF ALL..K..."OF THE SPECIFIE
D SPRITES ARE COLLIDING..#L..."THE BCOLL
FUNCTION IS TRUE IF ANY OF.HL..."SPRITE
S ARE COLLIDING WITH THE.ZL..."BACKGROUN
D..OL...". FOR EXAMPLE:..L..." IF SCOLL(
4,6) WILL BE TRUE ID 4 & 6..L..." COLL
IDE..XL".." IF BCOLL(3) WILL BE TRUE IF
SPRITE 3..L,.." HITS THE BACKGROUND PAT
TERN...M6..60..M@.."..ULTRABASIC-64 ENAB
LES YOU TO USE.\MJ.."THE SOUND GENERATOR
S IN THE '64 EASILY!..MT.."THE THREE TON
E GENERATORS ARE..M^.."DESIGNATED AS 1,2
AND 3..AMH.."THEY ARE SET UP AS FOLLOWS
:..MR.." 1=SQUARE WAVE (FLUTY SOUND)..N
|.." 2=SAWTOOTH WAVE (REEDY SOUND)..N..
." 3=NOISE.HN..."THESE CAN BE CONTROLLE
D BY THE COMMAND._N...". .SOUND G,P,D..
}N...". G=GENERATOR (1-3)..N..."
P=PITCH (1-255).FN..." D=DURATION (
IN 60'THS OF A SECOND)..NB.."A COMPLETE
SET OF PITCHES IS GIVEN IN..OL.."THE MAN
UAL. A COUPLE OF KEY ONES:.;OV.."MIDDLE
C=17,E=21,G=25,C=34.CO..."TO SOUND A MID
DLE C FOR 1 SECOND:.WO..." SOUND2,17,60.
.O...60:.2,17,60:.60..O..."..TO MAKE A N
OISE SOUND FOR 1 SECOND:.LO..." SOUND3,5
0,60..O...60:.3,50,60:.60..P..."..TO STO
P THE SOUND, PRESS THE F1 KEY..P...60.@P
..."..THE CHARACTERISTICS OF EACH OF THE
.LP&.."THREE GENERATORS MAY BE VARIED BY
THE..P0.."GENERATOR CONTROL COMMAND:..P
:..". .GEN A,B,C,D,E,F,G,H,I.LPD.." A=GE
NERATOR NUMBER (1-3)..PN.." B=WAVEFORM:.
.PX.." 1=TRIANGLE..QB.." 2=SAWTOOTH.
!QL.." 4=PULSE (SQUARE).2QV.." 8=NOI
SE.ZQ..." C=ATTACK SPEED (0-FASTEST TO 1
5)..Q..." D=DECAY SPEED (0-FASTEST TO 15
)..Q..." E=SUSTAIN LEVEL (0-NONE TO 15).
PQ..." F=RELEASE SPEED (0-FASTEST TO 15)
..Q..." G=DUTY CYCLE FOR PLUSE WAVEFORMS
..R..." (0 TO 15) 8=SQUARE WAVE.BR..."
H=SYNCHRONIZATION CONTROL (0-OFF).JRF..
" I=RING MODULATOR CONTROL (0-OFF)..RP..
" [SEE PROG REF MANUAL FOR H & I]..RZ..6
0.BR..."..THE OVERALL VOLUME LEVEL AND T
HE..R..."FILTER CONTROLS ARE CONTROLLED
BY THE..S..." .VOL A,B,C,D,E. COMMAND..
<S..." A=OVERALL SOUND LEVEL (0-NONE TO
15).SS..." B=FILTER MODE:.HS..." 1=
LOW PASS.}S .." 2=BANDPASS..S*.."
4=HIGH PASS..S4.." 8=NO SOUND FROM GE
N 3.WS>.." (THESE MAY BE COMBINED).
.SH.." C=FILTER CONTROL..TR.." 1=SEN
D 1 OUTPUT THRU FILTER.<T\.." 2=SEND
2 OUTPUT THRU FILTER.BTF.." 4=SEND 3
OUTPUT THRU FILTER..TP.." 8=SEND EXTE
RNAL SOUND THRU FILTER..TZ.." (THES
E MAY BE ADDED)..T..." D=FILTER FREQUEN
CY (0-LOWEST TO 15)..U..." E=FILTER RES
ONANCE (0-FLAT TO 15).2U..."IT IS NOT NE
CESSARY TO FILL IN ALL THE.TU..."VALUES
ON EACH VOL COMMAND..{U..."TO CHANGE ONL
Y THE VOL, JUST USE..U..." VOL10."..U...
60..UJ.."..ULTRABASIC-64 ALSO CAN 'PROGR
AM' THE..UT.."PITCHES OF THE TONE GENERA
TORS...V..."THE EXPLANATION OF THE SET,
TDATA,.6V..."AND TUNE COMMANDS IS GIVEN
IN THE.AV..."MANUAL. THE RESULTS CAN SOU
ND LIKE:".QV...60:.3,3564.|V...3,200..V.
.."010101FF"..V...60..V...2,3572:.2,254.
GV..."90200120FF2020010010E001".OV...60.
.V..."..THERE ARE 5 'JIFFY' (1/60 SEC)."
W..."AND 5 SECOND TIMERS IN ULTRABASIC-6
4..MW..."EACH OF THESE IS LIKE AN OVEN T
IMER,.XW..."WHERE YOU SET IT TO A VALUE
AND THEN..W$.."IT COUNTS DOWN TO 0 AND S
TOPS..GW..."THE TIMERS ARE NUMBERED 0-4
FOR THE..W8.."JIFFY TIMERS AND 5-9 FOR T
HE SECOND..XB.."TIMERS. THEY ARE SET BY
THE./XL..". .SCTR T,V. COMMAND..HXV..".
T=TIMER NUMBER.NX`.." V=VALUE TO BE
SET (1-65000).VXJ..60..XT.."..THE TIMER
S ARE READ BY A FUNCTION:..X~..". .CTR
(T).MX...". T=TIMER NUMBER..X...".FOR
EXAMPLE:..Y..." SCTR 3,50 (SET TIMER
3 TO 50/60 SEC).1Y..." IF CTR (3) <>0
THEN .....9Y...60.GY...".. NOW YOU'RE A
N ADVANCED PRACTITIONER..YD.." OF THE
FINE ART OF ULTRABASIC-64!.DYN..".. .MAY
THE ULTRABASIC FORCE BE WITH YOU!....YO
..1,3799:.2,3798:.3,3797:.1,254:.2,254:.
3,254..ZT.."100180050010"..ZU.."FF01FA01
8006".1ZV.."100505100B10".AZW.."800101FF
"....
> CLICK IMAGE PREVIEW FOR FULL MODAL