TIPS.C
FILE INFORMATION
FILENAME(S): TIPS.C
FILE TYPE(S): PRG
FILE SIZE: 10K
FIRST SEEN: 2025-11-30 20:14:54
APPEARS ON: 1 disk(s)
FILE HASH
e721f7882f3fd1a82739cae0fba5106fb7d6a23239b7f8785043f34209e177a2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SHADOWSOFT | TIPS.C | PRG | Curtcool, LPN | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 05 00 99 22 93 22 3A 97 35 33 32 38 |.......".":.5328|
00000010: 31 2C 31 3A 97 36 34 36 2C 30 00 4C 08 0A 00 99 |1,1:.646,0.L....|
00000020: 22 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |"...............|
00000030: 1D 1D 1D 1D 1D 1D 1D 54 49 50 53 20 46 4F 52 20 |.......TIPS FOR |
00000040: 42 45 47 49 4E 4E 45 52 53 22 3A 99 00 71 08 14 |BEGINNERS":..q..|
00000050: 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 42 59 |.."...........BY|
00000060: 20 43 4C 49 46 46 4F 52 44 20 4A 41 4E 53 45 4E | CLIFFORD JANSEN|
00000070: 22 00 92 08 15 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"......"........|
00000080: 1D 1D 1D 1D 1D 1D 1D 54 50 55 47 20 23 39 37 34 |.......TPUG #974|
00000090: 33 22 00 A3 08 19 00 81 20 54 B2 31 A4 34 30 30 |3"...... T.1.400|
000000A0: 30 3A 82 00 CC 08 1E 00 99 22 93 59 45 53 2C 20 |0:.......".YES, |
000000B0: 49 20 53 41 49 44 2E 2E 2E 2E 2E 2E 2E 22 3A 81 |I SAID.......":.|
000000C0: 54 B2 31 A4 32 30 30 30 3A 82 3A 99 00 09 09 23 |T.1.2000:.:....#|
000000D0: 00 81 50 B2 31 A4 32 30 3A 99 22 54 49 50 53 20 |..P.1.20:."TIPS |
000000E0: 46 4F 52 20 42 45 47 49 4E 4E 45 52 53 20 20 20 |FOR BEGINNERS |
000000F0: 12 54 49 50 53 20 46 4F 52 20 42 45 47 49 4E 4E |.TIPS FOR BEGINN|
00000100: 45 52 53 92 20 20 20 22 3B 00 24 09 24 00 58 B2 |ERS. ";.$.$.X.|
00000110: B5 28 31 35 AC BB 28 31 29 29 3A 97 36 34 36 2C |.(15..(1)):.646,|
00000120: 58 3A 82 50 00 50 09 28 00 99 A3 34 30 29 22 90 |X:.P.P.(...40)".|
00000130: 20 20 20 20 20 20 20 42 59 2E 2E 2E 2E 2E 2E 2E | BY.......|
00000140: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 |..............."|
00000150: 00 60 09 2D 00 81 4E B2 31 A4 36 30 30 30 3A 82 |.`.-..N.1.6000:.|
00000160: 00 9B 09 2E 00 81 4E B2 31 A4 31 32 3A 99 22 93 |......N.1.12:.".|
00000170: 90 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D |................|
00000180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 4C 49 46 46 |...........CLIFF|
00000190: 4F 52 44 20 4A 41 4E 53 45 4E 22 00 AE 09 2F 00 |ORD JANSEN".../.|
000001A0: 81 50 B2 31 A4 31 30 30 3A 82 50 3A 82 4E 00 E9 |.P.1.100:.P:.N..|
000001B0: 09 32 00 81 4E B2 31 A4 32 30 3A 99 22 93 11 11 |.2..N.1.20:."...|
000001C0: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |................|
000001D0: 1D 1D 1D 1D 1D 1D 1D 1D 43 4C 49 46 46 4F 52 44 |........CLIFFORD|
000001E0: 20 20 4A 41 4E 53 45 4E 22 00 07 0A 34 00 58 B2 | JANSEN"...4.X.|
000001F0: B5 28 31 35 AC BB 28 31 29 29 3A 59 B2 B5 28 31 |.(15..(1)):Y..(1|
00000200: 35 AC BB 28 31 29 29 00 1D 0A 35 00 97 35 33 32 |5..(1))...5..532|
00000210: 38 30 2C 58 3A 97 35 33 32 38 31 2C 59 00 30 0A |80,X:.53281,Y.0.|
00000220: 36 00 81 54 B2 31 A4 31 30 30 3A 82 54 3A 82 4E |6..T.1.100:.T:.N|
00000230: 00 44 0A 37 00 97 35 33 32 38 31 2C 31 3A 97 36 |.D.7..53281,1:.6|
00000240: 34 36 2C 30 00 73 0A 46 00 99 22 93 11 57 4F 55 |46,0.s.F.."..WOU|
00000250: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 4C |LD YOU LIKE TO L|
00000260: 45 41 52 4E 20 41 20 46 45 57 20 54 49 50 53 20 |EARN A FEW TIPS |
00000270: 4F 4E 22 00 A0 0A 4B 00 99 22 48 4F 57 20 54 48 |ON"...K.."HOW TH|
00000280: 49 53 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E 20 |IS INTRODUCTION |
00000290: 57 41 53 20 50 52 4F 47 52 41 4D 4D 45 44 3F 22 |WAS PROGRAMMED?"|
000002A0: 00 B6 0A 50 00 99 3A 99 22 49 54 20 49 4E 43 4C |...P..:."IT INCL|
000002B0: 55 44 45 53 3A 22 00 F9 0A 55 00 99 22 2D 43 48 |UDES:"...U.."-CH|
000002C0: 41 4E 47 49 4E 47 20 53 43 52 45 45 4E 20 43 4F |ANGING SCREEN CO|
000002D0: 4C 4F 55 52 53 22 A3 34 30 29 22 2D 43 48 41 4E |LOURS".40)"-CHAN|
000002E0: 47 49 4E 47 20 54 48 45 20 43 4F 4C 4F 55 52 20 |GING THE COLOUR |
000002F0: 4F 46 20 50 52 49 4E 54 22 00 35 0B 5A 00 99 22 |OF PRINT".5.Z.."|
00000300: 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 22 A3 34 |ON THE SCREEN".4|
00000310: 30 29 3A 99 22 2D 46 49 4C 4C 49 4E 47 20 55 50 |0):."-FILLING UP|
00000320: 20 54 48 45 20 53 43 52 45 45 4E 20 57 49 54 48 | THE SCREEN WITH|
00000330: 20 54 48 45 22 00 49 0B 5F 00 99 22 53 41 4D 45 | THE".I._.."SAME|
00000340: 20 4D 45 53 53 41 47 45 22 00 72 0B 64 00 99 22 | MESSAGE".r.d.."|
00000350: 2D 50 4C 41 43 49 4E 47 20 50 52 49 4E 54 20 49 |-PLACING PRINT I|
00000360: 4E 20 53 50 45 43 49 46 49 43 20 50 4C 41 43 45 |N SPECIFIC PLACE|
00000370: 53 22 00 98 0B 69 00 99 22 2D 46 4C 41 53 48 49 |S"...i.."-FLASHI|
00000380: 4E 47 20 41 20 4E 41 4D 45 20 4F 4E 20 54 48 45 |NG A NAME ON THE|
00000390: 20 53 43 52 45 45 4E 22 00 BE 0B 6E 00 99 22 2D | SCREEN"...n.."-|
000003A0: 49 54 20 57 49 4C 4C 20 41 4C 53 4F 20 53 55 47 |IT WILL ALSO SUG|
000003B0: 47 45 53 54 20 41 20 57 41 59 20 54 4F 22 00 E3 |GEST A WAY TO"..|
000003C0: 0B 6F 00 99 22 53 49 4D 50 4C 49 46 59 20 54 59 |.o.."SIMPLIFY TY|
000003D0: 50 49 4E 47 20 4C 49 4E 45 53 20 4F 46 20 44 41 |PING LINES OF DA|
000003E0: 54 41 22 00 0A 0C 78 00 99 3A 99 22 54 48 45 20 |TA"...x..:."THE |
000003F0: 46 4F 4C 4C 4F 57 49 4E 47 20 57 45 52 45 20 41 |FOLLOWING WERE A|
00000400: 4C 53 4F 20 55 53 45 44 3A 22 00 4E 0C 7D 00 99 |LSO USED:".N.}..|
00000410: 22 31 29 50 4F 4B 45 53 20 20 20 32 29 46 4F 52 |"1)POKES 2)FOR|
00000420: 2E 2E 2E 54 4F 20 20 20 33 29 12 52 45 56 53 20 |...TO 3).REVS |
00000430: 4F 4E 92 20 41 4E 44 20 4F 46 46 20 20 20 20 34 |ON. AND OFF 4|
00000440: 29 43 55 52 53 4F 52 53 20 20 20 20 22 3B 00 6C |)CURSORS ";.l|
00000450: 0C 7E 00 99 22 35 29 52 4E 44 20 20 20 20 36 29 |.~.."5)RND 6)|
00000460: 47 45 54 20 20 20 20 37 29 4F 4E 22 00 8E 0C 81 |GET 7)ON"....|
00000470: 00 99 3A 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |..:."...........|
00000480: 50 52 45 53 53 20 52 45 54 55 52 4E 92 22 00 A1 |PRESS RETURN."..|
00000490: 0C 82 00 A1 41 24 3A 8B 41 24 B2 22 22 89 31 33 |....A$:.A$."".13|
000004A0: 30 00 B4 0C 87 00 8B 41 24 B2 C7 28 31 33 29 A7 |0......A$..(13).|
000004B0: 99 22 93 22 00 01 0D 8C 00 99 3A 99 22 57 48 45 |."."......:."WHE|
000004C0: 52 45 20 50 4F 53 53 49 42 4C 45 2C 20 54 48 45 |RE POSSIBLE, THE|
000004D0: 20 52 45 53 55 4C 54 20 4F 46 20 52 55 4E 4E 49 | RESULT OF RUNNI|
000004E0: 4E 47 20 41 20 50 52 4F 47 52 41 4D 20 57 49 4C |NG A PROGRAM WIL|
000004F0: 4C 20 41 50 50 45 41 52 20 41 54 20 54 48 45 22 |L APPEAR AT THE"|
00000500: 3B 00 4E 0D 91 00 99 22 20 54 4F 50 20 4F 46 20 |;.N...." TOP OF |
00000510: 54 48 45 20 20 20 53 43 52 45 45 4E 2C 20 57 48 |THE SCREEN, WH|
00000520: 49 4C 45 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |ILE THE PROGRAM |
00000530: 4C 49 4E 45 53 20 57 49 4C 4C 20 20 20 20 41 50 |LINES WILL AP|
00000540: 50 45 41 52 20 55 4E 44 45 52 20 49 54 22 00 95 |PEAR UNDER IT"..|
00000550: 0D 96 00 99 3A 99 22 52 45 46 45 52 45 4E 43 45 |....:."REFERENCE|
00000560: 20 54 4F 20 43 4F 4D 4D 4F 44 4F 52 45 20 47 55 | TO COMMODORE GU|
00000570: 49 44 45 53 20 57 49 4C 4C 20 42 45 20 20 20 47 |IDES WILL BE G|
00000580: 49 56 45 4E 2C 20 57 48 45 52 45 20 50 4F 53 53 |IVEN, WHERE POSS|
00000590: 49 42 4C 45 22 00 D7 0D 9B 00 99 3A 99 22 59 4F |IBLE"......:."YO|
000005A0: 55 20 57 49 4C 4C 20 42 45 20 47 49 56 45 4E 20 |U WILL BE GIVEN |
000005B0: 41 20 52 45 46 45 52 45 4E 43 45 20 54 4F 20 54 |A REFERENCE TO T|
000005C0: 48 45 20 20 20 20 4C 49 4E 45 20 4E 4F 2E 20 49 |HE LINE NO. I|
000005D0: 4E 20 54 48 45 22 3B 00 07 0E A0 00 99 22 20 50 |N THE";......" P|
000005E0: 52 4F 47 52 41 4D 20 49 4E 20 43 41 53 45 20 59 |ROGRAM IN CASE Y|
000005F0: 4F 55 27 44 20 20 20 4C 49 4B 45 20 54 4F 20 4C |OU'D LIKE TO L|
00000600: 49 53 54 20 49 54 22 00 25 0E A1 00 99 22 1D 1D |IST IT".%...."..|
00000610: 1D 1D 1D 1D 1D 1D 12 49 4E 20 45 58 41 4D 50 4C |.......IN EXAMPL|
00000620: 45 53 3A 92 22 00 4D 0E A2 00 99 22 11 12 50 52 |ES:.".M...."..PR|
00000630: 49 4E 54 D3 3D 50 52 49 4E 54 27 53 48 49 46 54 |INT.=PRINT'SHIFT|
00000640: 45 44 20 43 4C 52 2F 48 4F 4D 45 27 22 00 78 0E |ED CLR/HOME'".x.|
00000650: A3 00 99 22 11 50 52 49 4E 54 12 53 92 3D 50 52 |...".PRINT.S.=PR|
00000660: 49 4E 54 27 55 4E 53 48 49 46 54 45 44 20 43 4C |INT'UNSHIFTED CL|
00000670: 52 2F 48 4F 4D 45 27 22 00 A5 0E A4 00 99 22 11 |R/HOME'"......".|
00000680: 12 27 20 49 53 20 55 53 45 44 20 46 4F 52 20 57 |.' IS USED FOR W|
00000690: 4F 52 44 53 20 49 4E 20 51 55 4F 54 45 53 2D 2D |ORDS IN QUOTES--|
000006A0: 27 27 20 92 22 00 C7 0E A5 00 99 22 11 11 1D 1D |'' ."......"....|
000006B0: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 52 |.........PRESS R|
000006C0: 45 54 55 52 4E 92 22 00 DA 0E AA 00 A1 41 24 3A |ETURN."......A$:|
000006D0: 8B 41 24 B2 22 22 89 31 37 30 00 EE 0E AF 00 8B |.A$."".170......|
000006E0: 41 24 B2 C7 28 31 33 29 A7 20 99 22 93 22 00 FE |A$..(13). ."."..|
000006F0: 0E B4 00 99 A6 31 38 29 22 4D 45 4E 55 22 00 24 |.....18)"MENU".$|
00000700: 0F B9 00 99 3A 99 A6 37 29 22 31 2E 20 53 43 52 |....:..7)"1. SCR|
00000710: 45 45 4E 20 26 20 50 52 49 4E 54 20 43 4F 4C 4F |EEN & PRINT COLO|
00000720: 55 52 53 22 00 50 0F BE 00 99 3A 99 A6 34 29 22 |URS".P....:..4)"|
00000730: 32 2E 20 50 52 49 4E 54 49 4E 47 20 57 49 54 48 |2. PRINTING WITH|
00000740: 20 54 41 42 2D 2D 3B 2D 2D 2C 2D 2D 53 50 43 22 | TAB--;--,--SPC"|
00000750: 00 72 0F C3 00 99 3A 99 A6 39 29 22 33 2E 20 46 |.r....:..9)"3. F|
00000760: 49 4C 4C 49 4E 47 20 54 48 45 20 53 43 52 45 45 |ILLING THE SCREE|
00000770: 4E 22 00 91 0F C8 00 99 3A 99 A6 38 29 22 34 2E |N"......:..8)"4.|
00000780: 20 46 4C 41 53 48 49 4E 47 20 41 20 4E 41 4D 45 | FLASHING A NAME|
00000790: 22 00 AC 0F CD 00 99 3A 99 A6 31 34 29 22 35 2E |"......:..14)"5.|
000007A0: 20 44 41 54 41 20 4C 49 4E 45 53 22 00 CB 0F D2 | DATA LINES"....|
000007B0: 00 99 3A 99 A6 31 31 29 22 36 2E 20 4F 54 48 45 |..:..11)"6. OTHE|
000007C0: 52 20 4B 45 59 57 4F 52 44 53 22 00 EB 0F D3 00 |R KEYWORDS".....|
000007D0: 99 3A 99 A6 31 30 29 22 37 2E 20 45 4E 44 20 54 |.:..10)"7. END T|
000007E0: 48 45 20 50 52 4F 47 52 41 4D 22 00 0D 10 D7 00 |HE PROGRAM".....|
000007F0: 99 A6 31 34 29 22 11 11 11 11 11 11 12 50 52 45 |..14)".......PRE|
00000800: 53 53 20 41 20 4E 55 4D 42 45 52 92 22 00 20 10 |SS A NUMBER.". .|
00000810: DC 00 A1 41 24 3A 8B 41 24 B2 22 22 89 32 32 30 |...A$:.A$."".220|
00000820: 00 3A 10 E1 00 8B 41 24 B3 22 31 22 B0 41 24 B1 |.:....A$."1".A$.|
00000830: 22 37 22 A7 20 89 20 32 32 30 00 46 10 E6 00 4D |"7". . 220.F...M|
00000840: B2 C5 28 41 24 29 00 70 10 EB 00 91 4D 89 31 30 |..(A$).p....M.10|
00000850: 30 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 30 30 |00,2000,3000,400|
00000860: 30 2C 35 30 30 30 2C 36 30 30 30 2C 37 30 30 30 |0,5000,6000,7000|
00000870: 00 88 10 E8 03 99 22 93 22 A6 31 36 29 22 12 43 |......".".16)".C|
00000880: 4F 4C 4F 55 52 53 92 22 00 C9 10 E9 03 99 3A 99 |OLOURS."......:.|
00000890: 22 49 46 20 59 4F 55 20 44 4F 4E 27 54 20 4C 49 |"IF YOU DON'T LI|
000008A0: 4B 45 20 54 59 50 49 4E 47 20 42 4C 55 45 20 4F |KE TYPING BLUE O|
000008B0: 4E 20 42 4C 55 45 2C 20 20 59 4F 55 20 4D 41 59 |N BLUE, YOU MAY|
000008C0: 20 43 48 41 4E 47 45 22 3B 00 FE 10 ED 03 99 22 | CHANGE";......"|
000008D0: 20 42 4F 54 48 20 42 41 43 4B 47 52 4F 55 4E 44 | BOTH BACKGROUND|
000008E0: 20 26 20 50 52 49 4E 54 20 20 43 4F 4C 4F 55 52 | & PRINT COLOUR|
000008F0: 53 20 42 59 20 52 55 4E 2D 49 4E 47 3A 22 00 2C |S BY RUN-ING:".,|
00000900: 11 F2 03 99 3A 99 22 12 50 4F 4B 45 35 33 32 38 |....:.".POKE5328|
00000910: 31 2C 23 3A 50 4F 4B 45 36 34 36 2C 23 3A 50 52 |1,#:POKE646,#:PR|
00000920: 49 4E 54 27 D3 27 3A 4E 45 57 92 22 00 4D 11 F7 |INT'.':NEW.".M..|
00000930: 03 99 3A 99 22 2D 57 48 45 52 45 3A 20 23 3D 43 |..:."-WHERE: #=C|
00000940: 4F 4C 4F 55 52 20 4E 55 4D 42 45 52 22 00 76 11 |OLOUR NUMBER".v.|
00000950: FC 03 99 22 20 20 20 20 20 20 20 20 50 52 49 4E |..." PRIN|
00000960: 54 D3 3D 53 48 49 46 54 20 43 4C 52 2F 48 4F 4D |T.=SHIFT CLR/HOM|
00000970: 45 20 4B 45 59 22 00 A4 11 01 04 99 22 2D 54 48 |E KEY"......"-TH|
00000980: 45 20 4E 55 4D 42 45 52 53 20 46 4F 52 20 43 4F |E NUMBERS FOR CO|
00000990: 4C 4F 55 52 53 20 41 52 45 20 46 4F 55 4E 44 20 |LOURS ARE FOUND |
000009A0: 49 4E 3A 22 00 E0 11 06 04 99 22 20 55 53 45 52 |IN:"......" USER|
000009B0: 53 20 47 55 49 44 45 3A 50 2E 36 31 20 20 20 41 |S GUIDE:P.61 A|
000009C0: 4E 44 20 20 20 52 45 46 45 52 45 4E 43 45 20 20 |ND REFERENCE |
000009D0: 20 20 20 20 47 55 49 44 45 20 50 2E 33 38 33 22 | GUIDE P.383"|
000009E0: 00 1C 12 0B 04 99 22 2D 54 48 45 20 42 4F 52 44 |......"-THE BORD|
000009F0: 45 52 20 43 4F 4C 4F 55 52 20 49 53 20 43 48 41 |ER COLOUR IS CHA|
00000A00: 4E 47 45 44 20 42 59 20 20 20 20 20 20 20 20 20 |NGED BY |
00000A10: 50 4F 4B 45 35 33 32 38 30 2C 23 22 00 5E 12 10 |POKE53280,#".^..|
00000A20: 04 99 22 2D 54 48 45 20 57 4F 52 44 20 27 4E 45 |.."-THE WORD 'NE|
00000A30: 57 27 20 49 53 20 41 44 44 45 44 2C 20 53 4F 20 |W' IS ADDED, SO |
00000A40: 54 48 41 54 20 54 48 49 53 20 20 20 4C 49 4E 45 |THAT THIS LINE|
00000A50: 20 23 2C 20 57 49 4C 4C 20 4E 4F 54 22 3B 00 97 | #, WILL NOT";..|
00000A60: 12 15 04 99 22 20 41 50 50 45 41 52 20 49 4E 20 |...." APPEAR IN |
00000A70: 50 52 4F 47 52 41 4D 53 20 20 20 20 20 54 48 41 |PROGRAMS THA|
00000A80: 54 20 59 4F 55 20 42 45 47 49 4E 20 54 4F 20 54 |T YOU BEGIN TO T|
00000A90: 59 50 45 2C 20 22 3B 00 C7 12 1A 04 99 22 49 46 |YPE, ";......"IF|
00000AA0: 20 59 4F 55 20 55 53 45 44 20 20 20 20 20 50 52 | YOU USED PR|
00000AB0: 4F 47 52 41 4D 20 28 4E 4F 54 20 44 49 52 45 43 |OGRAM (NOT DIREC|
00000AC0: 54 29 4D 4F 44 45 22 00 F4 12 1B 04 99 22 1D 1D |T)MODE"......"..|
00000AD0: 1D 1D 1D 12 45 58 41 4D 50 4C 45 3A 4C 49 4E 45 |....EXAMPLE:LINE|
00000AE0: 20 35 20 4F 46 20 54 48 49 53 20 50 52 4F 47 52 | 5 OF THIS PROGR|
00000AF0: 41 4D 92 22 00 13 13 1F 04 99 A6 39 29 22 11 1D |AM.".......9)"..|
00000B00: 1D 1D 1D 1D 12 50 52 45 53 53 20 52 45 54 55 52 |.....PRESS RETUR|
00000B10: 4E 92 22 00 27 13 24 04 A1 41 24 3A 8B 41 24 B2 |N.".'.$..A$:.A$.|
00000B20: 22 22 A7 31 30 36 30 00 40 13 29 04 8B 41 24 B2 |"".1060.@.)..A$.|
00000B30: C7 28 31 33 29 A7 99 22 93 22 3A 89 31 30 37 30 |.(13)..".":.1070|
00000B40: 00 81 13 2E 04 99 3A 99 22 48 4F 57 20 44 49 44 |......:."HOW DID|
00000B50: 20 41 4C 4C 20 54 48 45 20 53 43 52 45 45 4E 20 | ALL THE SCREEN |
00000B60: 41 4E 44 20 42 4F 52 44 45 52 20 20 20 20 20 20 |AND BORDER |
00000B70: 20 43 4F 4C 4F 55 52 53 20 43 48 41 4E 47 45 3F | COLOURS CHANGE?|
00000B80: 22 00 BF 13 33 04 99 3A 99 22 53 49 4E 43 45 20 |"...3..:."SINCE |
00000B90: 54 48 45 52 45 20 41 52 45 20 31 36 20 43 4F 4C |THERE ARE 16 COL|
00000BA0: 4F 55 52 53 2C 20 4E 55 4D 42 45 52 45 44 20 20 |OURS, NUMBERED |
00000BB0: 20 20 46 52 4F 4D 20 30 20 54 4F 20 31 35 22 00 | FROM 0 TO 15".|
00000BC0: E9 13 38 04 99 3A 99 22 42 59 20 47 49 56 49 4E |..8..:."BY GIVIN|
00000BD0: 47 20 4C 49 4E 45 20 4E 4F 53 2E 20 41 4E 44 20 |G LINE NOS. AND |
00000BE0: 52 55 4E 2D 49 4E 47 3A 22 00 14 14 3D 04 99 22 |RUN-ING:"...=.."|
00000BF0: 12 58 3D 49 4E 54 28 31 35 2A 52 4E 44 28 31 29 |.X=INT(15*RND(1)|
00000C00: 29 3A 59 3D 49 4E 54 28 31 35 2A 52 4E 44 28 31 |):Y=INT(15*RND(1|
00000C10: 29 29 92 22 00 46 14 42 04 99 22 12 46 4F 52 4E |)).".F.B..".FORN|
00000C20: 3D 31 54 4F 32 30 3A 50 4F 4B 45 35 33 32 38 31 |=1TO20:POKE53281|
00000C30: 2C 58 3A 50 4F 4B 45 35 33 32 38 30 2C 59 3A 4E |,X:POKE53280,Y:N|
00000C40: 45 58 54 4E 92 22 00 92 14 47 04 99 3A 99 22 54 |EXTN."...G..:."T|
00000C50: 48 45 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C |HE COMPUTER WILL|
00000C60: 20 52 41 4E 44 4F 4D 4C 59 20 50 4F 4B 45 20 4E | RANDOMLY POKE N|
00000C70: 55 4D 42 45 52 53 20 42 45 54 57 45 45 4E 20 30 |UMBERS BETWEEN 0|
00000C80: 20 41 4E 44 20 31 35 2C 20 32 30 20 54 49 4D 45 | AND 15, 20 TIME|
00000C90: 53 22 00 B1 14 4C 04 99 22 49 4E 54 4F 20 41 50 |S"...L.."INTO AP|
00000CA0: 50 52 4F 50 52 49 41 54 45 20 50 4C 41 43 45 53 |PROPRIATE PLACES|
00000CB0: 22 00 F9 14 4D 04 99 22 12 45 2E 47 2E 4C 49 4E |"...M..".E.G.LIN|
00000CC0: 45 53 20 35 30 2D 35 34 20 57 48 49 43 48 20 41 |ES 50-54 WHICH A|
00000CD0: 4C 53 4F 20 49 4E 43 4C 55 44 45 20 54 48 45 20 |LSO INCLUDE THE |
00000CE0: 20 46 4C 41 53 48 49 4E 47 20 49 4E 53 54 52 55 | FLASHING INSTRU|
00000CF0: 43 54 49 4F 4E 53 20 22 3B 00 19 15 4E 04 99 22 |CTIONS ";...N.."|
00000D00: 2C 20 54 4F 20 42 45 20 44 49 53 43 55 53 53 45 |, TO BE DISCUSSE|
00000D10: 44 20 4C 41 54 45 52 92 22 00 47 15 51 04 99 22 |D LATER.".G.Q.."|
00000D20: 11 11 11 1D 1D 1D 50 52 45 53 53 20 12 52 45 54 |......PRESS .RET|
00000D30: 55 52 4E 92 20 54 4F 20 52 45 54 55 52 4E 20 54 |URN. TO RETURN T|
00000D40: 4F 20 4D 45 4E 55 22 00 5B 15 56 04 A1 41 24 3A |O MENU".[.V..A$:|
00000D50: 8B 41 24 B2 22 22 A7 31 31 31 30 00 73 15 5B 04 |.A$."".1110.s.[.|
00000D60: 8B 41 24 B2 C7 28 31 33 29 A7 99 22 93 22 3A 89 |.A$..(13)..".":.|
00000D70: 31 38 30 00 A0 15 D0 07 99 22 93 22 3A 99 3A 99 |180......".":.:.|
00000D80: A6 38 29 22 12 50 52 49 4E 54 49 4E 47 2D 2D 54 |.8)".PRINTING--T|
00000D90: 41 42 53 2D 2D 3B 2D 2D 2C 2D 2D 53 50 43 92 22 |ABS--;--,--SPC."|
00000DA0: 00 DC 15 D1 07 99 3A 99 22 54 48 45 20 57 41 59 |......:."THE WAY|
00000DB0: 20 56 41 52 49 41 42 4C 45 53 20 41 4E 44 20 50 | VARIABLES AND P|
00000DC0: 48 52 41 53 45 53 20 41 50 50 45 41 52 20 4F 4E |HRASES APPEAR ON|
00000DD0: 20 41 20 53 43 52 45 45 4E 20 22 3B 00 0C 16 D2 | A SCREEN ";....|
00000DE0: 07 99 22 41 52 45 20 41 46 46 45 43 54 45 44 20 |.."ARE AFFECTED |
00000DF0: 42 59 20 54 48 45 20 55 53 45 20 4F 46 20 3B 20 |BY THE USE OF ; |
00000E00: 20 20 20 20 20 41 4E 44 20 2C 20 22 00 53 16 D3 | AND , ".S..|
00000E10: 07 99 3A 99 22 54 48 45 20 54 4F 50 20 4C 49 4E |..:."THE TOP LIN|
00000E20: 45 20 28 59 4F 55 27 52 45 20 41 42 4F 55 54 20 |E (YOU'RE ABOUT |
00000E30: 54 4F 20 53 45 45 29 20 20 20 20 20 20 4E 55 4D |TO SEE) NUM|
00000E40: 42 45 52 53 20 54 48 45 20 20 20 43 4F 4C 55 4D |BERS THE COLUM|
00000E50: 4E 53 22 00 90 16 D4 07 99 3A 99 22 54 48 45 20 |NS"......:."THE |
00000E60: 50 52 49 4E 54 20 41 42 4F 56 45 2C 20 49 53 20 |PRINT ABOVE, IS |
00000E70: 50 52 4F 44 55 43 45 44 20 42 59 20 54 48 45 20 |PRODUCED BY THE |
00000E80: 20 20 20 20 4C 49 4E 45 53 20 42 45 4C 4F 57 22 | LINES BELOW"|
00000E90: 00 B9 16 D5 07 99 3A 99 22 57 45 20 4D 41 44 45 |......:."WE MADE|
00000EA0: 3A 41 3D 31 2C 42 3D 32 2C 43 3D 33 2C 44 3D 34 |:A=1,B=2,C=3,D=4|
00000EB0: 2C 45 3D 35 2C 46 3D 36 22 00 DD 16 D6 07 99 3A |,E=5,F=6"......:|
00000EC0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |.".............P|
00000ED0: 52 45 53 53 20 52 45 54 55 52 4E 92 22 00 F1 16 |RESS RETURN."...|
00000EE0: D7 07 A1 41 24 3A 8B 41 24 B2 22 22 89 32 30 30 |...A$:.A$."".200|
00000EF0: 37 00 3B 17 D9 07 99 22 93 31 32 33 34 35 36 37 |7.;....".1234567|
00000F00: 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 |8901234567890123|
00000F10: 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 |4567890123456789|
00000F20: 30 12 41 3D 31 2C 42 3D 32 2C 43 3D 33 2C 44 3D |0.A=1,B=2,C=3,D=|
00000F30: 34 2C 45 3D 35 2C 46 3D 36 92 22 00 57 17 DA 07 |4,E=5,F=6.".W...|
00000F40: 41 B2 31 3A 42 B2 32 3A 43 B2 33 3A 44 B2 34 3A |A.1:B.2:C.3:D.4:|
00000F50: 45 B2 35 3A 46 B2 36 00 62 17 DF 07 99 41 3B 42 |E.5:F.6.b....A;B|
00000F60: 2C 43 00 6E 17 E4 07 99 3B 41 3B 42 2C 43 00 7C |,C.n....;A;B,C.||
00000F70: 17 E9 07 99 2C 41 3B 42 2C 43 3A 99 00 8D 17 EE |....,A;B,C:.....|
00000F80: 07 99 41 3B 42 2C 43 2C 44 2C 45 2C 46 00 9D 17 |..A;B,C,D,E,F...|
00000F90: F3 07 99 22 48 49 21 22 41 3B 42 2C 43 00 AB 17 |..."HI!"A;B,C...|
00000FA0: FD 07 99 41 3B 42 3A 99 43 3B 44 00 BA 17 02 08 |...A;B:.C;D.....|
00000FB0: 99 41 3B 42 3B 3A 99 43 3B 44 00 F9 17 08 08 99 |.A;B;:.C;D......|
00000FC0: 22 12 50 52 49 4E 54 41 3B 42 2C 43 92 20 50 55 |".PRINTA;B,C. PU|
00000FD0: 54 53 20 42 20 4E 45 58 54 20 54 4F 20 41 2C 42 |TS B NEXT TO A,B|
00000FE0: 55 54 20 43 2C 31 30 20 20 20 20 53 50 41 43 45 |UT C,10 SPACE|
00000FF0: 53 20 46 52 4F 4D 20 41 22 00 22 18 09 08 99 22 |S FROM A"."...."|
00001000: 12 50 52 49 4E 54 3B 41 3B 42 2C 43 92 20 44 4F |.PRINT;A;B,C. DO|
00001010: 45 53 20 54 48 45 20 53 41 4D 45 20 54 48 49 4E |ES THE SAME THIN|
00001020: 47 22 00 53 18 0A 08 99 22 12 50 52 49 4E 54 2C |G".S....".PRINT,|
00001030: 41 3B 42 2C 43 92 20 50 55 54 53 20 41 20 31 30 |A;B,C. PUTS A 10|
00001040: 20 43 4F 4C 53 2E 41 57 41 59 28 43 4F 4C 2E 31 | COLS.AWAY(COL.1|
00001050: 32 29 22 00 80 18 0B 08 99 22 12 50 52 49 4E 54 |2)"......".PRINT|
00001060: 92 20 42 59 20 49 54 53 45 4C 46 2C 4C 45 41 56 |. BY ITSELF,LEAV|
00001070: 45 53 20 41 20 4C 49 4E 45 20 42 4C 41 4E 4B 22 |ES A LINE BLANK"|
00001080: 00 C1 18 0C 08 99 22 12 50 52 49 4E 54 41 3B 42 |......".PRINTA;B|
00001090: 2C 43 2C 44 2C 45 2C 46 92 20 50 55 54 53 20 42 |,C,D,E,F. PUTS B|
000010A0: 20 4E 45 58 54 20 54 4F 20 41 20 41 4E 44 20 20 | NEXT TO A AND |
000010B0: 20 53 50 41 43 45 53 20 54 48 45 20 52 45 53 54 | SPACES THE REST|
000010C0: 22 00 ED 18 0D 08 99 22 12 50 52 49 4E 54 27 48 |"......".PRINT'H|
000010D0: 49 21 27 41 3B 42 2C 43 92 20 50 55 54 53 20 48 |I!'A;B,C. PUTS H|
000010E0: 49 20 49 4E 20 31 53 54 20 43 4F 4C 2E 00 1C 19 |I IN 1ST COL....|
000010F0: 0E 08 99 22 12 50 52 49 4E 54 41 2C 42 3A 50 52 |...".PRINTA,B:PR|
00001100: 49 4E 54 43 2C 44 92 50 55 54 53 20 54 48 45 4D |INTC,D.PUTS THEM|
00001110: 20 4F 4E 20 32 20 4C 49 4E 45 53 22 00 4B 19 0F | ON 2 LINES".K..|
00001120: 08 99 22 12 50 52 49 4E 54 41 2C 42 3B 3A 50 52 |..".PRINTA,B;:PR|
00001130: 49 4E 54 43 2C 44 92 50 55 54 53 20 54 48 45 4D |INTC,D.PUTS THEM|
00001140: 20 4F 4E 20 31 20 4C 49 4E 45 22 00 6D 19 10 08 | ON 1 LINE".m...|
00001150: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |.".............P|
00001160: 52 45 53 53 20 52 45 54 55 52 4E 92 22 00 81 19 |RESS RETURN."...|
00001170: 11 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 36 |...A$:.A$."".206|
00001180: 35 00 96 19 12 08 8B 41 24 B2 C7 28 31 33 29 A7 |5......A$..(13).|
00001190: 20 89 32 30 37 30 00 D4 19 16 08 99 22 93 11 11 | .2070......"...|
000011A0: 11 11 11 11 11 11 11 11 11 12 54 48 45 53 45 20 |..........THESE |
000011B0: 4C 49 4E 45 53 20 41 52 45 20 49 4E 20 54 48 45 |LINES ARE IN THE|
000011C0: 20 50 52 4F 47 52 41 4D 3A 32 30 31 35 2D 32 30 | PROGRAM:2015-20|
000011D0: 35 30 92 22 00 19 1A 17 08 99 22 11 12 53 45 45 |50."......"..SEE|
000011E0: 3A 55 53 45 52 27 53 20 47 55 49 44 45 20 50 50 |:USER'S GUIDE PP|
000011F0: 2E 32 38 2D 32 39 20 26 20 20 20 20 20 20 20 20 |.28-29 & |
00001200: 20 20 20 20 20 52 45 46 45 52 45 4E 43 45 20 42 | REFERENCE B|
00001210: 4F 4F 4B 20 50 2E 33 92 22 00 5D 1A 18 08 99 22 |OOK P.3.".]...."|
00001220: 11 11 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |..DO YOU WISH TO|
00001230: 20 53 45 45 20 54 48 45 20 43 4F 4D 50 4C 45 54 | SEE THE COMPLET|
00001240: 45 20 54 41 42 4C 45 20 20 20 41 47 41 49 4E 3F |E TABLE AGAIN?|
00001250: 20 20 20 20 28 59 20 4F 52 20 4E 29 22 00 71 1A | (Y OR N)".q.|
00001260: 19 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 37 |...A$:.A$."".207|
00001270: 33 00 82 1A 1A 08 8B 41 24 B2 22 59 22 A7 32 30 |3......A$."Y".20|
00001280: 30 39 00 A6 1A 1B 08 99 22 93 1D 1D 1D 1D 1D 1D |09......".......|
00001290: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 54 41 42 53 20 26 |..........TABS &|
000012A0: 20 53 50 43 92 22 00 D6 1A 20 08 99 22 31 32 33 | SPC."... .."123|
000012B0: 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 |4567890123456789|
000012C0: 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 |0123456789012345|
000012D0: 36 37 38 39 30 22 00 04 1B 25 08 99 22 54 4F 52 |67890"...%.."TOR|
000012E0: 4F 4E 54 4F 22 A3 38 29 22 50 45 54 22 A3 31 32 |ONTO".8)"PET".12|
000012F0: 29 22 55 53 45 52 27 53 22 A3 31 39 29 22 47 52 |)"USER'S".19)"GR|
00001300: 4F 55 50 22 00 32 1B 2A 08 99 3A 99 22 54 4F 52 |OUP".2.*..:."TOR|
00001310: 4F 4E 54 4F 22 A6 33 29 22 50 45 54 22 A6 33 29 |ONTO".3)"PET".3)|
00001320: 22 55 53 45 52 27 53 22 A6 33 29 22 47 52 4F 55 |"USER'S".3)"GROU|
00001330: 50 22 00 6D 1B 2F 08 99 22 11 12 27 54 4F 52 4F |P".m./.."..'TORO|
00001340: 4E 54 4F 27 54 41 42 28 38 29 27 50 45 54 27 54 |NTO'TAB(8)'PET'T|
00001350: 41 42 28 31 32 29 27 55 53 45 52 27 53 27 54 41 |AB(12)'USER'S'TA|
00001360: 42 28 31 39 29 27 47 52 4F 55 50 27 22 00 A6 1B |B(19)'GROUP'"...|
00001370: 34 08 99 22 12 27 54 4F 52 4F 4E 54 4F 27 53 50 |4..".'TORONTO'SP|
00001380: 43 28 33 29 27 50 45 54 27 53 50 43 28 33 29 27 |C(3)'PET'SPC(3)'|
00001390: 55 53 45 52 27 53 27 53 50 43 28 33 29 27 47 52 |USER'S'SPC(3)'GR|
000013A0: 4F 55 50 27 92 22 00 EC 1B 39 08 99 22 11 54 41 |OUP'."...9..".TA|
000013B0: 42 20 50 55 54 53 20 54 48 45 20 42 45 47 49 4E |B PUTS THE BEGIN|
000013C0: 4E 49 4E 47 20 4F 46 20 57 4F 52 44 53 20 49 4E |NING OF WORDS IN|
000013D0: 20 54 48 45 20 20 45 58 41 43 54 20 43 4F 4C 55 | THE EXACT COLU|
000013E0: 4D 4E 20 50 4C 55 53 20 4F 4E 45 22 00 30 1C 3A |MN PLUS ONE".0.:|
000013F0: 08 99 22 54 41 42 20 43 41 4E 20 42 45 20 41 20 |.."TAB CAN BE A |
00001400: 4E 55 4D 42 45 52 20 47 52 45 41 54 45 52 20 54 |NUMBER GREATER T|
00001410: 48 41 4E 20 34 30 20 42 55 54 20 49 54 20 43 41 |HAN 40 BUT IT CA|
00001420: 4E 4E 4F 54 20 45 58 43 45 45 44 20 32 35 35 22 |NNOT EXCEED 255"|
00001430: 00 7C 1C 3B 08 99 22 49 46 20 54 41 42 20 49 53 |.|.;.."IF TAB IS|
00001440: 20 34 30 2D 2D 49 54 20 57 49 4C 4C 20 50 52 49 | 40--IT WILL PRI|
00001450: 4E 54 20 49 4E 20 43 4F 4C 2E 34 31 20 20 20 49 |NT IN COL.41 I|
00001460: 2E 45 2E 49 54 20 57 49 4C 4C 20 53 54 41 52 54 |.E.IT WILL START|
00001470: 20 41 20 4E 45 57 20 4C 49 4E 45 22 00 BA 1C 3E | A NEW LINE"...>|
00001480: 08 99 22 11 53 50 43 20 4C 45 41 56 45 53 20 54 |..".SPC LEAVES T|
00001490: 48 45 20 45 58 41 43 54 20 4E 55 4D 42 45 52 20 |HE EXACT NUMBER |
000014A0: 4F 46 20 53 50 41 43 45 53 20 20 20 42 45 54 57 |OF SPACES BETW|
000014B0: 45 45 4E 20 57 4F 52 44 53 22 00 DC 1C 43 08 99 |EEN WORDS"...C..|
000014C0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |".............PR|
000014D0: 45 53 53 20 52 45 54 55 52 4E 92 22 00 F0 1C 48 |ESS RETURN."...H|
000014E0: 08 A1 41 24 3A 8B 41 24 B2 22 22 89 32 31 32 30 |..A$:.A$."".2120|
000014F0: 00 04 1D 4D 08 8B 41 24 B2 C7 28 31 33 29 A7 89 |...M..A$..(13)..|
00001500: 32 31 33 30 00 46 1D 52 08 99 22 93 11 11 11 11 |2130.F.R..".....|
00001510: 11 53 45 45 20 55 53 45 52 27 53 20 47 55 49 44 |.SEE USER'S GUID|
00001520: 45 20 50 2E 31 32 39 20 52 45 46 45 52 45 4E 43 |E P.129 REFERENC|
00001530: 45 20 47 55 49 44 45 20 20 20 50 50 2E 38 38 20 |E GUIDE PP.88 |
00001540: 26 20 38 33 92 22 00 88 1D 57 08 99 22 11 11 44 |& 83."...W.."..D|
00001550: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 |O YOU WISH TO SE|
00001560: 45 20 54 48 45 20 50 52 45 56 49 4F 55 53 20 54 |E THE PREVIOUS T|
00001570: 41 42 4C 45 20 20 20 41 47 41 49 4E 3F 20 20 28 |ABLE AGAIN? (|
00001580: 59 20 4F 52 20 4E 29 22 00 9C 1D 5C 08 A1 41 24 |Y OR N)"...\..A$|
00001590: 3A 8B 41 24 B2 22 22 89 32 31 34 30 00 AD 1D 61 |:.A$."".2140...a|
000015A0: 08 8B 41 24 B2 22 59 22 A7 32 30 37 35 00 BB 1D |..A$."Y".2075...|
000015B0: 66 08 99 22 93 22 3A 89 31 38 30 00 E2 1D B8 0B |f..".":.180.....|
000015C0: 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 46 |.".............F|
000015D0: 49 4C 4C 49 4E 47 20 54 48 45 20 53 43 52 45 45 |ILLING THE SCREE|
000015E0: 4E 22 00 0A 1E BD 0B 81 50 B2 31 A4 32 30 3A 99 |N"......P.1.20:.|
000015F0: 22 46 49 4C 4C 49 4E 47 20 54 48 45 20 53 43 52 |"FILLING THE SCR|
00001600: 45 45 4E 20 20 22 3B 3A 82 50 00 39 1E C2 0B 99 |EEN ";:.P.9....|
00001610: 3A 99 22 57 45 27 56 45 20 4A 55 53 54 20 46 49 |:."WE'VE JUST FI|
00001620: 4C 4C 45 44 20 48 41 4C 46 20 54 48 45 20 53 43 |LLED HALF THE SC|
00001630: 52 45 45 4E 20 42 59 3A 22 00 6F 1E C7 0B 99 3A |REEN BY:".o....:|
00001640: 99 22 12 46 4F 52 50 3D 31 54 4F 32 30 3A 50 52 |.".FORP=1TO20:PR|
00001650: 49 4E 54 27 46 49 4C 4C 49 4E 47 20 54 48 45 20 |INT'FILLING THE |
00001660: 53 43 52 45 45 4E 27 3B 3A 4E 45 58 54 50 22 00 |SCREEN';:NEXTP".|
00001670: 9C 1E C8 0B 99 3A 99 22 44 4F 4E 27 54 20 46 4F |.....:."DON'T FO|
00001680: 52 47 45 54 20 54 48 45 20 3B 20 41 46 54 45 52 |RGET THE ; AFTER|
00001690: 20 54 48 45 20 51 55 4F 54 45 53 22 00 CF 1E CC | THE QUOTES"....|
000016A0: 0B 99 3A 20 99 22 43 48 41 4E 47 45 20 32 30 20 |..: ."CHANGE 20 |
000016B0: 54 4F 20 34 30 20 54 4F 20 46 49 4C 4C 20 54 48 |TO 40 TO FILL TH|
000016C0: 45 20 57 48 4F 4C 45 20 53 43 52 45 45 4E 22 00 |E WHOLE SCREEN".|
000016D0: F2 1E D1 0B 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |....."..........|
000016E0: 1D 1D 1D 12 50 52 45 53 53 20 52 45 54 55 52 4E |....PRESS RETURN|
000016F0: 92 22 00 07 1F D6 0B A1 20 41 24 3A 8B 41 24 B2 |."...... A$:.A$.|
00001700: 22 22 89 33 30 33 30 00 20 1F DB 0B 8B 41 24 B2 |"".3030. ....A$.|
00001710: C7 28 31 33 29 A7 99 22 93 22 3A 89 33 30 34 30 |.(13)..".":.3040|
00001720: 00 6A 1F E0 0B 99 3A 99 22 54 4F 20 46 49 4C 4C |.j....:."TO FILL|
00001730: 20 54 48 45 20 53 43 52 45 45 4E 20 57 49 54 48 | THE SCREEN WITH|
00001740: 20 59 4F 55 52 20 4E 41 4D 45 20 49 4E 20 20 20 | YOUR NAME IN |
00001750: 20 44 49 46 46 45 52 45 4E 54 20 50 52 49 4E 54 | DIFFERENT PRINT|
00001760: 20 43 4F 4C 4F 55 52 53 3A 22 00 92 1F E5 0B 99 | COLOURS:"......|
00001770: 22 12 46 4F 52 50 3D 31 54 4F 32 30 3A 50 52 49 |".FORP=1TO20:PRI|
00001780: 4E 54 20 27 59 4F 55 52 20 4E 41 4D 45 20 20 27 |NT 'YOUR NAME '|
00001790: 3B 22 00 BC 1F EA 0B 99 22 12 58 3D 49 4E 54 28 |;"......".X=INT(|
000017A0: 31 35 2A 52 4E 44 28 31 29 29 3A 50 4F 4B 45 36 |15*RND(1)):POKE6|
000017B0: 34 36 2C 58 3A 4E 45 58 54 50 92 22 00 EB 1F EF |46,X:NEXTP."....|
000017C0: 0B 99 3A 99 22 54 48 45 20 4E 55 4D 42 45 52 53 |..:."THE NUMBERS|
000017D0: 20 46 4F 52 20 43 4F 4C 4F 55 52 53 20 41 52 45 | FOR COLOURS ARE|
000017E0: 20 46 4F 55 4E 44 20 49 4E 3A 22 00 26 20 F4 0B | FOUND IN:".& ..|
000017F0: 99 22 55 53 45 52 27 53 20 47 55 49 44 45 20 50 |."USER'S GUIDE P|
00001800: 2E 36 31 20 20 20 41 4E 44 20 20 20 52 45 46 45 |.61 AND REFE|
00001810: 52 45 4D 43 45 20 20 20 20 20 47 55 49 44 45 20 |REMCE GUIDE |
00001820: 50 2E 33 38 33 22 00 55 20 F6 0B 99 3A 99 22 53 |P.383".U ...:."S|
00001830: 45 45 20 4C 49 4E 45 53 20 33 30 2C 33 35 2C 33 |EE LINES 30,35,3|
00001840: 36 2C 34 30 20 49 4E 20 54 48 49 53 20 50 52 4F |6,40 IN THIS PRO|
00001850: 47 52 41 4D 22 00 8D 20 F9 0B 99 3A 99 22 12 4E |GRAM".. ...:.".N|
00001860: 4F 54 45 3A 92 54 48 45 20 43 4F 4C 4F 55 52 20 |OTE:.THE COLOUR |
00001870: 4F 46 20 31 20 4C 49 4E 45 20 43 41 4E 20 42 45 |OF 1 LINE CAN BE|
00001880: 20 43 48 41 4E 47 45 44 20 42 59 22 3B 00 B1 20 | CHANGED BY";.. |
00001890: FE 0B 99 22 20 48 4F 4C 44 49 4E 47 20 44 4F 57 |..." HOLDING DOW|
000018A0: 4E 20 12 43 54 52 4C 92 20 4F 52 20 12 43 3C 92 |N .CTRL. OR .C<.|
000018B0: 22 00 D4 20 03 0C 99 22 41 4E 44 20 41 20 4E 55 |".. ..."AND A NU|
000018C0: 4D 42 45 52 20 42 45 54 57 45 45 4E 20 31 20 26 |MBER BETWEEN 1 &|
000018D0: 20 38 22 3B 00 06 21 04 0C 99 22 20 49 4E 53 49 | 8";..!..." INSI|
000018E0: 44 45 20 54 48 45 20 20 20 51 55 4F 54 45 2C 20 |DE THE QUOTE, |
000018F0: 4A 55 53 54 20 42 45 46 4F 52 45 20 59 4F 55 52 |JUST BEFORE YOUR|
00001900: 20 4E 41 4D 45 22 00 3C 21 08 0C 99 3A 99 22 53 | NAME".<!...:."S|
00001910: 45 45 20 41 4C 53 4F 3A 20 55 53 45 52 27 53 20 |EE ALSO: USER'S |
00001920: 47 55 49 44 45 20 50 50 2E 20 31 31 2D 31 32 20 |GUIDE PP. 11-12 |
00001930: 41 4E 44 20 20 20 20 50 2E 35 37 22 00 7E 21 0D |AND P.57".~!.|
00001940: 0C 99 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 |..:."DO YOU WISH|
00001950: 20 54 4F 20 53 45 45 20 54 48 45 20 50 52 45 56 | TO SEE THE PREV|
00001960: 49 4F 55 53 20 54 41 42 4C 45 20 20 20 41 47 41 |IOUS TABLE AGA|
00001970: 49 4E 3F 20 20 28 59 20 4F 52 20 4E 29 22 00 92 |IN? (Y OR N)"..|
00001980: 21 12 0C A1 41 24 3A 8B 41 24 B2 22 22 89 33 30 |!...A$:.A$."".30|
00001990: 39 30 00 A3 21 17 0C 8B 41 24 B2 22 59 22 A7 33 |90..!...A$."Y".3|
000019A0: 30 30 30 00 B1 21 1C 0C 99 22 93 22 3A 89 31 38 |000..!...".":.18|
000019B0: 30 00 E0 21 A0 0F 81 50 B2 31 A4 31 30 30 3A 99 |0..!...P.1.100:.|
000019C0: 22 93 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000019D0: 1D 1D 1D 1D 46 4C 41 53 48 49 4E 47 22 3A 82 50 |....FLASHING":.P|
000019E0: 00 1E 22 AA 0F 81 20 5A B2 31 A4 32 35 3A 99 22 |.."... Z.1.25:."|
000019F0: 93 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001A00: 1D 1D 1D 1D 1D 1D 46 4C 41 53 48 49 4E 47 22 3A |......FLASHING":|
00001A10: 81 54 B2 31 A4 34 30 30 3A 82 54 3A 82 5A 00 40 |.T.1.400:.T:.Z.@|
00001A20: 22 AF 0F 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"..."...........|
00001A30: 1D 1D 1D 1D 1D 12 46 4C 41 53 48 49 4E 47 92 22 |......FLASHING."|
00001A40: 00 66 22 B4 0F 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D |.f"...".........|
00001A50: 1D 1D 1D 41 4E 44 20 54 48 45 20 57 49 4E 4E 45 |...AND THE WINNE|
00001A60: 52 20 49 53 3A 22 00 91 22 B9 0F 81 20 50 B2 31 |R IS:".."... P.1|
00001A70: A4 32 30 30 3A 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |.200:.".........|
00001A80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 13 |........... .|
00001A90: 22 00 B5 22 BE 0F 99 22 11 11 1D 1D 1D 1D 1D 1D |".."..."........|
00001AA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 54 50 55 47 |............TPUG|
00001AB0: 13 22 3A 82 50 00 E1 22 C3 0F 99 22 11 54 48 45 |.":.P.."...".THE|
00001AC0: 20 46 49 52 53 54 2D 2D 46 4C 41 53 48 49 4E 47 | FIRST--FLASHING|
00001AD0: 2D 2D 57 41 53 20 44 4F 4E 45 20 57 49 54 48 3A |--WAS DONE WITH:|
00001AE0: 22 00 0D 23 C8 0F 99 22 12 46 4F 52 50 3D 31 54 |"..#...".FORP=1T|
00001AF0: 4F 31 30 30 3A 50 52 49 4E 54 27 D3 46 4C 41 53 |O100:PRINT'.FLAS|
00001B00: 48 49 4E 47 27 3A 4E 45 58 54 50 92 22 00 58 23 |HING':NEXTP.".X#|
00001B10: CD 0F 99 22 53 4F 4D 45 20 43 55 52 53 4F 52 20 |..."SOME CURSOR |
00001B20: 43 4F 4D 4D 41 4E 44 53 20 57 45 52 45 20 49 4E |COMMANDS WERE IN|
00001B30: 43 4C 55 44 45 44 20 54 4F 20 20 20 50 4F 53 49 |CLUDED TO POSI|
00001B40: 54 49 4F 4E 20 54 48 45 20 57 4F 52 44 20 4F 4E |TION THE WORD ON|
00001B50: 20 53 43 52 45 45 4E 22 00 A0 23 D2 0F 99 22 11 | SCREEN"..#...".|
00001B60: 54 48 45 20 53 45 43 4F 4E 44 2D 46 4C 41 53 48 |THE SECOND-FLASH|
00001B70: 49 4E 47 2D 57 41 53 20 53 4C 4F 57 45 44 20 44 |ING-WAS SLOWED D|
00001B80: 4F 57 4E 20 42 59 20 20 49 4E 43 4C 55 44 49 4E |OWN BY INCLUDIN|
00001B90: 47 20 41 20 12 46 4F 52 2E 2E 2E 54 4F 92 22 3B |G A .FOR...TO.";|
00001BA0: 00 B4 23 D7 0F 99 22 20 54 49 4D 49 4E 47 20 4C |..#..." TIMING L|
00001BB0: 4F 4F 50 22 00 F1 23 DC 0F 99 22 12 46 4F 52 50 |OOP"..#...".FORP|
00001BC0: 3D 31 54 4F 32 35 3A 50 52 49 4E 54 27 D3 46 4C |=1TO25:PRINT'.FL|
00001BD0: 41 53 48 49 4E 47 27 3A 46 4F 52 54 3D 31 54 4F |ASHING':FORT=1TO|
00001BE0: 34 30 30 3A 4E 45 58 54 54 3A 4E 45 58 54 50 92 |400:NEXTT:NEXTP.|
00001BF0: 22 00 19 24 E1 0F 99 22 41 47 41 49 4E 2C 20 43 |"..$..."AGAIN, C|
00001C00: 55 52 53 4F 52 20 43 4F 4D 4D 41 4E 44 53 20 57 |URSOR COMMANDS W|
00001C10: 45 52 45 20 55 53 45 44 22 00 5B 24 E6 0F 99 22 |ERE USED".[$..."|
00001C20: 11 54 48 4F 53 45 20 32 20 45 58 41 4D 50 4C 45 |.THOSE 2 EXAMPLE|
00001C30: 53 20 55 53 45 44 20 D3 20 28 43 4C 52 2F 48 4F |S USED . (CLR/HO|
00001C40: 4D 45 29 20 54 4F 20 20 20 43 4C 45 41 52 20 54 |ME) TO CLEAR T|
00001C50: 48 45 20 57 48 4F 4C 45 20 22 3B 00 7B 24 EB 0F |HE WHOLE ";.{$..|
00001C60: 99 22 53 43 52 45 45 4E 20 42 45 54 57 45 45 4E |."SCREEN BETWEEN|
00001C70: 20 50 52 49 4E 54 49 4E 47 53 22 00 C0 24 F0 0F | PRINTINGS"..$..|
00001C80: 99 22 49 46 20 59 4F 55 20 4F 4E 4C 59 20 57 41 |."IF YOU ONLY WA|
00001C90: 4E 54 20 50 41 52 54 20 4F 46 20 54 48 45 20 53 |NT PART OF THE S|
00001CA0: 43 52 45 45 4E 20 54 4F 20 20 46 4C 41 53 48 2C |CREEN TO FLASH,|
00001CB0: 20 41 53 20 49 4E 20 54 48 45 20 33 52 44 22 3B | AS IN THE 3RD";|
00001CC0: 00 09 25 F5 0F 99 22 20 45 58 41 4D 50 4C 45 20 |..%..." EXAMPLE |
00001CD0: 28 54 50 55 47 29 2C 20 59 4F 55 20 48 41 56 45 |(TPUG), YOU HAVE|
00001CE0: 20 54 4F 20 50 52 49 4E 54 20 41 20 42 4C 41 4E | TO PRINT A BLAN|
00001CF0: 4B 20 49 4E 20 54 48 45 20 53 41 4D 45 20 50 4F |K IN THE SAME PO|
00001D00: 53 49 2D 54 49 4F 4E 22 3B 00 1E 25 FA 0F 99 22 |SI-TION";..%..."|
00001D10: 20 41 53 20 54 48 45 20 57 4F 52 44 22 3B 00 5F | AS THE WORD";._|
00001D20: 25 FF 0F 99 22 2E 20 54 48 49 53 20 49 53 20 44 |%...". THIS IS D|
00001D30: 4F 4E 45 20 57 49 54 48 20 54 48 45 20 12 53 92 |ONE WITH THE .S.|
00001D40: 20 28 48 4F 4D 45 29 4B 45 59 20 41 4E 44 20 43 | (HOME)KEY AND C|
00001D50: 55 52 53 4F 52 20 43 4F 4D 4D 41 4E 44 53 22 00 |URSOR COMMANDS".|
00001D60: 81 25 04 10 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.%..."..........|
00001D70: 1D 1D 12 50 52 45 53 53 20 52 45 54 55 52 4E 92 |...PRESS RETURN.|
00001D80: 22 00 95 25 09 10 A1 41 24 3A 8B 41 24 B2 22 22 |"..%...A$:.A$.""|
00001D90: 89 34 31 30 35 00 AF 25 0E 10 8B 41 24 B2 C7 28 |.4105..%...A$..(|
00001DA0: 31 33 29 A7 20 99 22 93 22 3A 89 34 31 31 35 00 |13). .".":.4115.|
00001DB0: D9 25 13 10 99 22 11 54 48 45 20 33 52 44 20 46 |.%...".THE 3RD F|
00001DC0: 4C 41 53 48 49 4E 47 20 57 41 53 20 41 43 48 49 |LASHING WAS ACHI|
00001DD0: 45 56 45 44 20 42 59 3A 22 00 15 26 18 10 99 22 |EVED BY:"..&..."|
00001DE0: 11 11 1F 46 4F 52 20 50 3D 31 54 4F 32 30 30 3A |...FOR P=1TO200:|
00001DF0: 50 52 49 4E 54 27 12 51 51 5D 5D 5D 5D 5D 5D 5D |PRINT'.QQ]]]]]]]|
00001E00: 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D 92 20 20 20 20 |]]]]]]]]]]]. |
00001E10: 12 53 92 27 22 00 47 26 1D 10 99 22 50 52 49 4E |.S.'".G&..."PRIN|
00001E20: 54 27 12 51 51 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D |T'.QQ]]]]]]]]]]]|
00001E30: 5D 5D 5D 5D 5D 5D 5D 92 54 50 55 47 12 53 92 27 |]]]]]]].TPUG.S.'|
00001E40: 3A 4E 45 58 54 50 22 00 7D 26 22 10 99 22 11 11 |:NEXTP".}&".."..|
00001E50: 90 57 48 45 52 45 27 12 51 92 27 3D 43 52 53 52 |.WHERE'.Q.'=CRSR|
00001E60: 20 44 4F 57 4E 20 2D 2D 2D 2D 20 20 27 12 5D 92 | DOWN ---- '.].|
00001E70: 27 3D 43 52 53 52 20 52 49 47 48 54 22 00 A1 26 |'=CRSR RIGHT"..&|
00001E80: 27 10 99 22 41 4E 44 20 27 12 53 92 27 3D 48 4F |'.."AND '.S.'=HO|
00001E90: 4D 45 20 28 4E 4F 54 20 53 48 49 46 54 45 44 29 |ME (NOT SHIFTED)|
00001EA0: 22 00 E4 26 2C 10 99 22 11 11 11 44 4F 20 59 4F |"..&,.."...DO YO|
00001EB0: 55 20 57 49 53 48 20 54 4F 20 53 45 45 20 54 48 |U WISH TO SEE TH|
00001EC0: 45 20 50 52 45 56 49 4F 55 53 20 50 52 4F 47 52 |E PREVIOUS PROGR|
00001ED0: 41 4D 20 41 47 41 49 4E 3F 20 20 28 59 20 4F 52 |AM AGAIN? (Y OR|
00001EE0: 20 4E 29 22 00 F8 26 31 10 A1 41 24 3A 8B 41 24 | N)"..&1..A$:.A$|
00001EF0: B2 22 22 89 34 31 34 35 00 0A 27 36 10 8B 20 41 |."".4145..'6.. A|
00001F00: 24 B2 22 59 22 89 34 30 30 30 00 18 27 3B 10 99 |$."Y".4000..';..|
00001F10: 22 93 22 3A 89 31 38 30 00 3C 27 88 13 99 22 93 |".":.180.<'...".|
00001F20: 12 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001F30: 44 41 54 41 20 4C 49 4E 45 53 92 22 00 6C 27 8D |DATA LINES.".l'.|
00001F40: 13 99 22 11 4F 4E 45 20 4F 46 20 54 48 45 20 4D |..".ONE OF THE M|
00001F50: 4F 53 54 20 42 4F 52 49 4E 47 20 4A 4F 42 53 20 |OST BORING JOBS |
00001F60: 49 4E 20 43 4F 50 59 49 4E 47 20 22 00 99 27 92 |IN COPYING "..'.|
00001F70: 13 99 22 41 20 50 52 4F 47 52 41 4D 2C 20 49 53 |.."A PROGRAM, IS|
00001F80: 20 43 4F 50 59 49 4E 47 20 54 48 45 20 44 41 54 | COPYING THE DAT|
00001F90: 41 20 4C 49 4E 45 53 2E 22 00 C7 27 97 13 99 22 |A LINES."..'..."|
00001FA0: 57 48 49 4C 45 20 4E 4F 54 20 4D 55 43 48 20 43 |WHILE NOT MUCH C|
00001FB0: 41 4E 20 42 45 20 44 4F 4E 45 20 41 42 4F 55 54 |AN BE DONE ABOUT|
00001FC0: 20 54 48 49 53 20 22 00 EF 27 9C 13 99 22 49 54 | THIS "..'..."IT|
00001FD0: 20 43 41 4E 20 42 45 20 53 49 4D 50 4C 49 46 49 | CAN BE SIMPLIFI|
00001FE0: 45 44 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 00 |ED AS FOLLOWS:".|
00001FF0: 16 28 9D 13 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.(..."..........|
00002000: 1D 1D 1D 1D 1D 11 11 11 12 50 52 45 53 53 20 52 |.........PRESS R|
00002010: 45 54 55 52 4E 22 00 2A 28 9E 13 A1 41 24 3A 8B |ETURN".*(...A$:.|
00002020: 41 24 B2 22 22 89 35 30 32 32 00 43 28 9F 13 8B |A$."".5022.C(...|
00002030: 41 24 B2 C7 28 31 33 29 A7 99 22 93 22 3A 89 35 |A$..(13)..".":.5|
00002040: 30 32 35 00 7F 28 A1 13 99 22 12 4C 4F 4F 4B 20 |025..(...".LOOK |
00002050: 41 54 20 54 48 45 20 45 58 41 4D 50 4C 45 20 49 |AT THE EXAMPLE I|
00002060: 4E 20 54 48 45 20 55 53 45 52 27 53 20 47 55 49 |N THE USER'S GUI|
00002070: 44 45 20 20 20 20 50 50 2E 38 38 2D 38 39 22 00 |DE PP.88-89".|
00002080: C3 28 A6 13 99 22 4C 49 4E 45 20 39 30 20 48 41 |.(..."LINE 90 HA|
00002090: 53 20 54 48 45 20 53 54 41 54 45 4D 45 4E 54 20 |S THE STATEMENT |
000020A0: 27 47 4F 54 4F 31 30 27 20 41 4E 44 20 20 54 48 |'GOTO10' AND TH|
000020B0: 45 4E 20 4C 49 4E 45 53 20 31 30 30 2D 31 32 30 |EN LINES 100-120|
000020C0: 20 22 3B 00 DE 28 AB 13 99 22 48 41 56 45 20 54 | ";..(..."HAVE T|
000020D0: 48 45 20 57 4F 52 44 2D 44 41 54 41 2D 22 00 25 |HE WORD-DATA-".%|
000020E0: 29 B0 13 99 22 11 41 46 54 45 52 20 59 4F 55 27 |)...".AFTER YOU'|
000020F0: 56 45 20 54 59 50 45 44 20 4C 49 4E 45 20 39 30 |VE TYPED LINE 90|
00002100: 20 4D 4F 56 45 20 49 54 20 54 4F 20 20 20 54 48 | MOVE IT TO TH|
00002110: 45 20 54 4F 50 20 4F 46 20 54 48 45 20 53 43 52 |E TOP OF THE SCR|
00002120: 45 45 4E 22 3B 00 3D 29 B1 13 99 22 20 55 53 49 |EEN";.=)..." USI|
00002130: 4E 47 20 43 52 53 52 20 44 4F 57 4E 22 00 69 29 |NG CRSR DOWN".i)|
00002140: B2 13 99 22 4E 4F 57 20 4D 4F 56 45 20 54 48 45 |..."NOW MOVE THE|
00002150: 20 43 55 52 53 4F 52 20 55 50 20 55 4E 44 45 52 | CURSOR UP UNDER|
00002160: 20 4C 49 4E 45 20 39 30 22 00 90 29 B5 13 99 22 | LINE 90"..)..."|
00002170: 1F 57 49 54 48 4F 55 54 20 47 49 56 49 4E 47 20 |.WITHOUT GIVING |
00002180: 41 20 4C 49 4E 45 23 20 54 59 50 45 3A 90 20 22 |A LINE# TYPE:. "|
00002190: 00 BF 29 BA 13 99 22 12 46 4F 52 4E 3D 31 30 30 |..)...".FORN=100|
000021A0: 54 4F 31 32 30 53 54 45 50 35 3A 50 52 49 4E 54 |TO120STEP5:PRINT|
000021B0: 4E 3B 27 44 41 54 41 27 3A 4E 45 58 54 92 22 00 |N;'DATA':NEXT.".|
000021C0: FB 29 BF 13 99 22 11 54 48 45 20 4E 55 4D 42 45 |.)...".THE NUMBE|
000021D0: 52 45 44 20 4C 49 4E 45 53 20 57 49 54 48 20 54 |RED LINES WITH T|
000021E0: 48 45 20 57 4F 52 44 20 44 41 54 41 20 20 20 57 |HE WORD DATA W|
000021F0: 49 4C 4C 20 41 50 50 45 41 52 22 00 26 2A C4 13 |ILL APPEAR".&*..|
00002200: 99 22 4D 4F 56 45 20 54 48 45 20 43 55 52 53 4F |."MOVE THE CURSO|
00002210: 52 20 55 50 20 54 4F 20 54 48 45 20 4C 49 4E 45 |R UP TO THE LINE|
00002220: 23 31 30 30 2C 22 00 6D 2A C9 13 99 22 4D 4F 56 |#100,".m*..."MOV|
00002230: 45 20 54 48 45 20 43 55 52 53 4F 52 20 41 43 52 |E THE CURSOR ACR|
00002240: 4F 53 53 20 27 31 30 30 20 44 41 54 41 27 20 41 |OSS '100 DATA' A|
00002250: 4E 44 20 20 20 49 4E 53 45 52 54 20 54 48 45 20 |ND INSERT THE |
00002260: 44 41 54 41 20 56 41 4C 55 45 53 22 3B 00 84 2A |DATA VALUES";..*|
00002270: CE 13 99 22 20 33 34 2C 37 35 2C 32 35 30 20 45 |..." 34,75,250 E|
00002280: 54 43 2E 22 00 C6 2A D3 13 99 22 12 57 48 45 4E |TC."..*...".WHEN|
00002290: 20 59 4F 55 20 50 52 45 53 53 20 54 48 45 20 27 | YOU PRESS THE '|
000022A0: 52 45 54 55 52 4E 20 4B 45 59 27 20 54 48 49 53 |RETURN KEY' THIS|
000022B0: 20 20 20 20 4C 49 4E 45 20 57 49 4C 4C 20 4E 4F | LINE WILL NO|
000022C0: 57 20 42 45 22 3B 00 E4 2A D8 13 99 20 22 20 50 |W BE";..*... " P|
000022D0: 41 52 54 20 4F 46 20 59 4F 55 52 20 50 52 4F 47 |ART OF YOUR PROG|
000022E0: 52 41 4D 22 00 1C 2B E2 13 99 20 22 11 12 4E 4F |RAM"..+... "..NO|
000022F0: 20 4F 54 48 45 52 20 4C 49 4E 45 53 20 57 49 4C | OTHER LINES WIL|
00002300: 4C 20 42 45 20 50 41 52 54 20 4F 46 20 54 48 45 |L BE PART OF THE|
00002310: 20 50 52 4F 47 2D 52 41 4D 20 22 3B 00 48 2B E7 | PROG-RAM ";.H+.|
00002320: 13 99 20 22 12 55 4E 54 49 4C 20 54 48 45 20 43 |.. ".UNTIL THE C|
00002330: 55 52 53 4F 52 20 50 41 53 53 45 53 20 4F 56 45 |URSOR PASSES OVE|
00002340: 52 20 54 48 45 4D 92 22 00 6D 2B EC 13 99 22 11 |R THEM.".m+...".|
00002350: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |...............P|
00002360: 52 45 53 53 20 52 45 54 55 52 4E 92 22 00 81 2B |RESS RETURN."..+|
00002370: F1 13 A1 41 24 3A 8B 41 24 B2 22 22 89 35 31 30 |...A$:.A$."".510|
00002380: 35 00 9A 2B F6 13 8B 41 24 B2 C7 28 31 33 29 A7 |5..+...A$..(13).|
00002390: 99 22 93 22 3A 89 35 31 31 35 00 B4 2B FB 13 99 |.".":.5115..+...|
000023A0: 22 11 12 49 4D 50 4F 52 54 41 4E 54 20 4E 4F 54 |"..IMPORTANT NOT|
000023B0: 45 53 92 22 00 F8 2B 00 14 99 22 11 4D 41 4B 45 |ES."..+...".MAKE|
000023C0: 20 53 55 52 45 20 54 48 45 20 44 41 54 41 20 4C | SURE THE DATA L|
000023D0: 49 4E 45 53 20 28 49 4E 20 54 48 45 20 50 52 4F |INES (IN THE PRO|
000023E0: 47 52 41 4D 20 59 4F 55 20 41 52 45 20 43 4F 50 |GRAM YOU ARE COP|
000023F0: 59 49 4E 47 29 20 22 3B 00 35 2C 01 14 99 22 41 |YING) ";.5,..."A|
00002400: 52 45 20 4E 55 4D 42 45 52 45 44 20 49 4E 20 35 |RE NUMBERED IN 5|
00002410: 27 53 20 4F 52 20 31 30 27 53 2E 20 4F 52 20 43 |'S OR 10'S. OR C|
00002420: 48 41 4E 47 45 20 54 48 45 20 4E 55 4D 42 45 52 |HANGE THE NUMBER|
00002430: 49 4E 47 22 3B 00 51 2C 02 14 99 22 20 54 4F 20 |ING";.Q,..." TO |
00002440: 53 55 49 54 20 20 59 4F 55 52 20 4E 45 45 44 53 |SUIT YOUR NEEDS|
00002450: 22 00 9B 2C 05 14 99 22 11 44 4F 4E 27 54 20 41 |"..,...".DON'T A|
00002460: 4C 4C 4F 57 20 4D 4F 52 45 20 54 48 41 4E 20 32 |LLOW MORE THAN 2|
00002470: 30 20 44 41 54 41 20 4C 49 4E 45 53 20 54 4F 20 |0 DATA LINES TO |
00002480: 20 41 50 50 45 41 52 20 41 54 20 41 20 54 49 4D | APPEAR AT A TIM|
00002490: 45 2C 20 42 45 43 41 55 53 45 22 00 DC 2C 0A 14 |E, BECAUSE"..,..|
000024A0: 99 22 54 48 45 20 46 49 52 53 54 20 4F 4E 45 53 |."THE FIRST ONES|
000024B0: 20 57 49 4C 4C 20 44 49 41 53 41 50 50 45 41 52 | WILL DIASAPPEAR|
000024C0: 20 4F 46 46 20 54 48 45 20 20 54 4F 50 20 4F 46 | OFF THE TOP OF|
000024D0: 20 54 48 45 20 53 43 52 45 45 4E 22 00 25 2D 0F | THE SCREEN".%-.|
000024E0: 14 99 22 11 59 4F 55 20 43 41 4E 20 41 4C 57 41 |..".YOU CAN ALWA|
000024F0: 59 53 20 52 45 50 45 41 54 20 54 48 45 20 27 46 |YS REPEAT THE 'F|
00002500: 4F 52 20 54 4F 27 20 20 20 20 20 20 53 54 41 54 |OR TO' STAT|
00002510: 45 4D 45 4E 54 20 57 48 45 4E 20 59 4F 55 20 4E |EMENT WHEN YOU N|
00002520: 45 45 44 20 22 00 39 2D 14 14 99 20 22 4D 4F 52 |EED ".9-... "MOR|
00002530: 45 20 4C 49 4E 45 53 2E 22 00 7C 2D 1E 14 99 22 |E LINES.".|-..."|
00002540: 11 11 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |..DO YOU WISH TO|
00002550: 20 53 45 45 20 54 48 45 20 50 52 45 56 49 4F 55 | SEE THE PREVIOU|
00002560: 53 20 50 52 4F 47 52 41 4D 20 41 47 41 49 4E 3F |S PROGRAM AGAIN?|
00002570: 20 20 20 20 28 59 20 4F 52 20 4E 29 00 90 2D 23 | (Y OR N)..-#|
00002580: 14 A1 41 24 3A 8B 41 24 B2 22 22 89 35 31 35 35 |..A$:.A$."".5155|
00002590: 00 A1 2D 28 14 8B 41 24 B2 22 59 22 89 35 30 30 |..-(..A$."Y".500|
000025A0: 30 00 AF 2D 2D 14 99 22 93 22 3A 89 31 38 30 00 |0..--..".":.180.|
000025B0: D5 2D 70 17 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D |.-p.."..........|
000025C0: 1D 1D 1D 1D 12 4F 54 48 45 52 20 4B 45 59 57 4F |.....OTHER KEYWO|
000025D0: 52 44 53 92 22 00 1B 2E 75 17 99 22 11 48 45 52 |RDS."...u..".HER|
000025E0: 45 20 41 52 45 20 53 4F 4D 45 20 4F 46 20 54 48 |E ARE SOME OF TH|
000025F0: 45 20 50 52 4F 47 52 41 4D 20 4C 49 4E 45 20 4E |E PROGRAM LINE N|
00002600: 55 4D 2D 20 20 42 45 52 53 20 57 48 45 52 45 20 |UM- BERS WHERE |
00002610: 44 49 46 46 45 52 45 4E 54 22 3B 00 37 2E 7A 17 |DIFFERENT";.7.z.|
00002620: 99 22 20 4B 45 59 57 4F 52 44 53 20 57 45 52 45 |." KEYWORDS WERE|
00002630: 20 55 53 45 44 3A 22 00 62 2E 7B 17 99 22 59 4F | USED:".b.{.."YO|
00002640: 55 20 4D 41 59 20 4C 49 53 54 20 54 48 45 4D 20 |U MAY LIST THEM |
00002650: 54 4F 20 53 45 45 20 54 48 45 49 52 20 55 53 45 |TO SEE THEIR USE|
00002660: 53 22 00 80 2E 7F 17 99 22 1D 1D 1D 1D 1D 11 12 |S"......".......|
00002670: 50 4F 4B 45 3A 92 20 35 2C 35 33 2C 35 35 2E 22 |POKE:. 5,53,55."|
00002680: 00 A3 2E 84 17 99 22 1D 1D 1D 1D 1D 11 12 46 4F |......".......FO|
00002690: 52 2E 2E 2E 54 4F 3A 92 20 34 35 2C 34 36 2C 34 |R...TO:. 45,46,4|
000026A0: 37 2E 22 00 D1 2E 89 17 99 22 1D 1D 1D 1D 1D 11 |7."......"......|
000026B0: 12 52 45 56 53 20 4F 4E 20 26 20 4F 46 46 3A 92 |.REVS ON & OFF:.|
000026C0: 20 31 31 30 35 2C 32 30 30 36 2C 32 30 36 34 2E | 1105,2006,2064.|
000026D0: 22 00 F3 2E 8E 17 99 22 1D 1D 1D 1D 1D 11 12 43 |"......".......C|
000026E0: 55 52 53 4F 52 53 3A 92 20 31 30 2C 32 30 2C 32 |URSORS:. 10,20,2|
000026F0: 31 2E 22 00 11 2F 93 17 99 22 1D 1D 1D 1D 1D 11 |1."../..."......|
00002700: 12 52 4E 44 3A 92 20 33 36 2C 35 32 2D 35 33 2E |.RND:. 36,52-53.|
00002710: 22 00 38 2F 98 17 99 22 1D 1D 1D 1D 1D 11 12 47 |".8/...".......G|
00002720: 45 54 3A 92 20 31 37 30 2D 31 37 35 2C 31 30 36 |ET:. 170-175,106|
00002730: 30 2D 31 30 36 35 2E 22 00 54 2F 9D 17 99 22 1D |0-1065.".T/...".|
00002740: 1D 1D 1D 1D 11 12 4F 4E 3A 92 20 32 33 30 2D 32 |......ON:. 230-2|
00002750: 33 35 2E 22 00 81 2F A2 17 99 22 11 1D 1D 1D 1D |35."../...".....|
00002760: 12 50 52 45 53 53 20 52 45 54 55 52 4E 92 20 54 |.PRESS RETURN. T|
00002770: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU|
00002780: 22 00 95 2F A7 17 A1 41 24 3A 8B 41 24 B2 22 22 |"../...A$:.A$.""|
00002790: 89 36 30 35 35 00 AD 2F AC 17 8B 41 24 B2 C7 28 |.6055../...A$..(|
000027A0: 31 33 29 A7 99 22 93 22 3A 89 31 38 30 00 D4 2F |13)..".":.180../|
000027B0: 58 1B 99 22 93 22 3A 99 3A 85 22 50 4C 45 41 53 |X..".":.:."PLEAS|
000027C0: 45 20 54 59 50 45 20 59 4F 55 52 20 4E 41 4D 45 |E TYPE YOUR NAME|
000027D0: 22 3B 41 24 00 FE 2F 5D 1B 81 50 B2 31 A4 33 30 |";A$../]..P.1.30|
000027E0: 3A 99 22 47 4F 4F 44 2D 42 59 45 20 22 3B 41 24 |:."GOOD-BYE ";A$|
000027F0: 22 20 12 22 3B 41 24 22 92 20 22 3B 41 24 00 20 |" .";A$". ";A$. |
00002800: 30 62 1B 58 B2 B5 28 31 35 AC BB 28 31 29 29 3A |0b.X..(15..(1)):|
00002810: 97 36 34 36 2C 58 3A 82 50 3A 97 36 34 36 2C 30 |.646,X:.P:.646,0|
00002820: 00 00 00 20 |... |
.......".":.53281,1:.646,0.L....".......
...............TIPS FOR BEGINNERS":..Q..
.."...........BY CLIFFORD JANSEN"......"
...............TPUG #9743"...... T.1.400
0:..L....".YES, I SAID.......":.T.1.2000
:.:....#..P.1.20:."TIPS FOR BEGINNERS
.TIPS FOR BEGINNERS. ";.$.$.X..(15..(1
)):.646,X:.P.P.(...40)". BY.......
...............".`.-..N.1.6000:.......N.
1.12:."............................CLIFF
ORD JANSEN".../..P.1.100:.P:.N...2..N.1.
20:."...........................CLIFFORD
JANSEN"...4.X..(15..(1)):Y..(15..(1)).
..5..53280,X:.53281,Y.0.6..T.1.100:.T:.N
.D.7..53281,1:.646,0.S.F.."..WOULD YOU L
IKE TO LEARN A FEW TIPS ON". .K.."HOW TH
IS INTRODUCTION WAS PROGRAMMED?"...P..:.
"IT INCLUDES:"...U.."-CHANGING SCREEN CO
LOURS".40)"-CHANGING THE COLOUR OF PRINT
".5.Z.."ON THE SCREEN".40):."-FILLING UP
THE SCREEN WITH THE".I._.."SAME MESSAGE
".R.D.."-PLACING PRINT IN SPECIFIC PLACE
S"...I.."-FLASHING A NAME ON THE SCREEN"
...N.."-IT WILL ALSO SUGGEST A WAY TO"..
.O.."SIMPLIFY TYPING LINES OF DATA"...X.
.:."THE FOLLOWING WERE ALSO USED:".N.}..
"1)POKES 2)FOR...TO 3).REVS ON. AND
OFF 4)CURSORS ";.L.~.."5)RND 6)
GET 7)ON"......:."...........PRESS RE
TURN."......A$:.A$."".130......A$.G(13).
."."......:."WHERE POSSIBLE, THE RESULT
OF RUNNING A PROGRAM WILL APPEAR AT THE"
;.N...." TOP OF THE SCREEN, WHILE THE
PROGRAM LINES WILL APPEAR UNDER IT"..
....:."REFERENCE TO COMMODORE GUIDES WIL
L BE GIVEN, WHERE POSSIBLE".W....:."YO
U WILL BE GIVEN A REFERENCE TO THE LI
NE NO. IN THE";... .." PROGRAM IN CASE Y
OU'D LIKE TO LIST IT".%....".........I
N EXAMPLES:.".M...."..PRINTS=PRINT'SHIFT
ED CLR/HOME'".X....".PRINT.S.=PRINT'UNSH
IFTED CLR/HOME'"......"..' IS USED FOR W
ORDS IN QUOTES--'' .".G...."............
.PRESS RETURN.".Z....A$:.A$."".170......
A$.G(13). .".".......18)"MENU".$....:..7
)"1. SCREEN & PRINT COLOURS".P....:..4)"
2. PRINTING WITH TAB--;--,--SPC".R.C..:.
.9)"3. FILLING THE SCREEN"...H..:..8)"4.
FLASHING A NAME"...M..:..14)"5. DATA LI
NES".K.R..:..11)"6. OTHER KEYWORDS"...S.
.:..10)"7. END THE PROGRAM"...W...14)"..
.....PRESS A NUMBER.". ....A$:.A$."".220
.:....A$."1".A$."7". . 220.F...M.E(A$).P
....M.1000,2000,3000,4000,5000,6000,7000
......".".16)".COLOURS.".I....:."IF YOU
DON'T LIKE TYPING BLUE ON BLUE, YOU MAY
CHANGE";......" BOTH BACKGROUND & PRINT
COLOURS BY RUN-ING:".,....:.".POKE5328
1,#:POKE646,#:PRINT'S':NEW.".M....:."-WH
ERE: #=COLOUR NUMBER".V...." PRIN
TS=SHIFT CLR/HOME KEY"......"-THE NUMBER
S FOR COLOURS ARE FOUND IN:"......" USER
S GUIDE:P.61 AND REFERENCE GUID
E P.383"......"-THE BORDER COLOUR IS CHA
NGED BY POKE53280,#".^...."-THE
WORD 'NEW' IS ADDED, SO THAT THIS LINE
#, WILL NOT";......" APPEAR IN PROGRAMS
THAT YOU BEGIN TO TYPE, ";.G...."IF
YOU USED PROGRAM (NOT DIRECT)MODE".
....."......EXAMPLE:LINE 5 OF THIS PROGR
AM.".......9)".......PRESS RETURN.".'.$.
.A$:.A$."".1060.@.)..A$.G(13)..".":.1070
......:."HOW DID ALL THE SCREEN AND BORD
ER COLOURS CHANGE?"...3..:."SINCE
THERE ARE 16 COLOURS, NUMBERED FROM 0
TO 15"...8..:."BY GIVING LINE NOS. AND
RUN-ING:"...=..".X=INT(15*RND(1)):Y=INT(
15*RND(1)).".F.B..".FORN=1TO20:POKE53281
,X:POKE53280,Y:NEXTN."...G..:."THE COMPU
TER WILL RANDOMLY POKE NUMBERS BETWEEN 0
AND 15, 20 TIMES"...L.."INTO APPROPRIAT
E PLACES"...M..".E.G.LINES 50-54 WHICH A
LSO INCLUDE THE FLASHING INSTRUCTIONS "
;...N..", TO BE DISCUSSED LATER.".G.Q.."
......PRESS .RETURN. TO RETURN TO MENU".
[.V..A$:.A$."".1110.S.[..A$.G(13)..".":.
180. .P..".":.:..8)".PRINTING--TABS--;--
,--SPC."...Q..:."THE WAY VARIABLES AND P
HRASES APPEAR ON A SCREEN ";...R.."ARE A
FFECTED BY THE USE OF ; AND , ".S.S
..:."THE TOP LINE (YOU'RE ABOUT TO SEE)
NUMBERS THE COLUMNS"...T..:."THE
PRINT ABOVE, IS PRODUCED BY THE LINE
S BELOW"...U..:."WE MADE:A=1,B=2,C=3,D=4
,E=5,F=6"...V..:.".............PRESS RET
URN."...W..A$:.A$."".2007.;.Y..".1234567
890123456789012345678901234567890.A=1,B=
2,C=3,D=4,E=5,F=6.".W.Z.A.1:B.2:C.3:D.4:
E.5:F.6.B....A;B,C.N....;A;B,C.|....,A;B
,C:.......A;B,C,D,E,F......"HI!"A;B,C...
...A;B:.C;D......A;B;:.C;D......".PRINTA
;B,C. PUTS B NEXT TO A,BUT C,10 SPACE
S FROM A"."....".PRINT;A;B,C. DOES THE S
AME THING".S....".PRINT,A;B,C. PUTS A 10
COLS.AWAY(COL.12)"......".PRINT. BY ITS
ELF,LEAVES A LINE BLANK".A....".PRINTA;B
,C,D,E,F. PUTS B NEXT TO A AND SPACES
THE REST"......".PRINT'HI!'A;B,C. PUTS H
I IN 1ST COL.......".PRINTA,B:PRINTC,D.P
UTS THEM ON 2 LINES".K....".PRINTA,B;:PR
INTC,D.PUTS THEM ON 1 LINE".M...."......
.......PRESS RETURN."......A$:.A$."".206
5......A$.G(13). .2070.T...."...........
..THESE LINES ARE IN THE PROGRAM:2015-20
50."......"..SEE:USER'S GUIDE PP.28-29 &
REFERENCE BOOK P.3.".]...."
..DO YOU WISH TO SEE THE COMPLETE TABLE
AGAIN? (Y OR N)".Q....A$:.A$."".207
3......A$."Y".2009......"...............
..TABS & SPC.".V. .."1234567890123456789
012345678901234567890"...%.."TORONTO".8)
"PET".12)"USER'S".19)"GROUP".2.*..:."TOR
ONTO".3)"PET".3)"USER'S".3)"GROUP".M./..
"..'TORONTO'TAB(8)'PET'TAB(12)'USER'S'TA
B(19)'GROUP'"...4..".'TORONTO'SPC(3)'PET
'SPC(3)'USER'S'SPC(3)'GROUP'."...9..".TA
B PUTS THE BEGINNING OF WORDS IN THE EX
ACT COLUMN PLUS ONE".0.:.."TAB CAN BE A
NUMBER GREATER THAN 40 BUT IT CANNOT EXC
EED 255".|.;.."IF TAB IS 40--IT WILL PRI
NT IN COL.41 I.E.IT WILL START A NEW L
INE"...>..".SPC LEAVES THE EXACT NUMBER
OF SPACES BETWEEN WORDS"...C..".......
......PRESS RETURN."...H..A$:.A$."".2120
...M..A$.G(13)..2130.F.R.."......SEE USE
R'S GUIDE P.129 REFERENCE GUIDE PP.88
& 83."...W.."..DO YOU WISH TO SEE THE PR
EVIOUS TABLE AGAIN? (Y OR N)"...\..A$
:.A$."".2140...A..A$."Y".2075...F..".":.
180......".............FILLING THE SCREE
N"......P.1.20:."FILLING THE SCREEN ";:
.P.9.B..:."WE'VE JUST FILLED HALF THE SC
REEN BY:".O.G..:.".FORP=1TO20:PRINT'FILL
ING THE SCREEN';:NEXTP"...H..:."DON'T FO
RGET THE ; AFTER THE QUOTES".O.L..: ."CH
ANGE 20 TO 40 TO FILL THE WHOLE SCREEN".
..Q.."..............PRESS RETURN."...V..
A$:.A$."".3030. ....A$.G(13)..".":.3040
.J....:."TO FILL THE SCREEN WITH YOUR NA
ME IN DIFFERENT PRINT COLOURS:"......
".FORP=1TO20:PRINT 'YOUR NAME ';"......
".X=INT(15*RND(1)):POKE646,X:NEXTP."....
..:."THE NUMBERS FOR COLOURS ARE FOUND I
N:".& ..."USER'S GUIDE P.61 AND REFE
REMCE GUIDE P.383".U ...:."SEE LINES
30,35,36,40 IN THIS PROGRAM".. ...:.".N
OTE:.THE COLOUR OF 1 LINE CAN BE CHANGED
BY";.. ..." HOLDING DOWN .CTRL. OR .C<.
".T ..."AND A NUMBER BETWEEN 1 & 8";..!.
.." INSIDE THE QUOTE, JUST BEFORE YOUR
NAME".<!...:."SEE ALSO: USER'S GUIDE PP
. 11-12 AND P.57".~!...:."DO YOU WISH
TO SEE THE PREVIOUS TABLE AGAIN? (Y
OR N)"..!...A$:.A$."".3090..!...A$."Y".3
000..!...".":.180..! ..P.1.100:.".......
............FLASHING":.P.."... Z.1.25:."
......................FLASHING":.T.1.400
:.T:.Z.@"...".................FLASHING."
.F"..."............AND THE WINNER IS:"..
"... P.1.200:.".................... .
".."..."....................TPUG.":.P.."
C..".THE FIRST--FLASHING--WAS DONE WITH:
"..#H..".FORP=1TO100:PRINT'SFLASHING':NE
XTP.".X#M.."SOME CURSOR COMMANDS WERE IN
CLUDED TO POSITION THE WORD ON SCREEN"
. #R..".THE SECOND-FLASHING-WAS SLOWED D
OWN BY INCLUDING A .FOR...TO.";..#W.."
TIMING LOOP"..#...".FORP=1TO25:PRINT'SFL
ASHING':FORT=1TO400:NEXTT:NEXTP."..$..."
AGAIN, CURSOR COMMANDS WERE USED".[$..."
.THOSE 2 EXAMPLES USED S (CLR/HOME) TO
CLEAR THE WHOLE ";.{$..."SCREEN BETWEEN
PRINTINGS"..$..."IF YOU ONLY WANT PART
OF THE SCREEN TO FLASH, AS IN THE 3RD";
..%..." EXAMPLE (TPUG), YOU HAVE TO PRIN
T A BLANK IN THE SAME POSI-TION";..%..."
AS THE WORD";._%...". THIS IS DONE WITH
THE .S. (HOME)KEY AND CURSOR COMMANDS".
.%...".............PRESS RETURN."..%...A
$:.A$."".4105..%...A$.G(13). .".":.4115.
Y%...".THE 3RD FLASHING WAS ACHIEVED BY:
"..&..."...FOR P=1TO200:PRINT'.QQ]]]]]]]
]]]]]]]]]]]. .S.'".G&..."PRINT'.QQ]]]
]]]]]]]]]]]]]]].TPUG.S.':NEXTP".}&".."..
.WHERE'.Q.'=CRSR DOWN ---- '.].'=CRSR R
IGHT"..&'.."AND '.S.'=HOME (NOT SHIFTED)
"..&,.."...DO YOU WISH TO SEE THE PREVIO
US PROGRAM AGAIN? (Y OR N)"..&1..A$:.A$
."".4145..'6.. A$."Y".4000..';..".":.180
.<'...".................DATA LINES.".L'.
..".ONE OF THE MOST BORING JOBS IN COPYI
NG "..'..."A PROGRAM, IS COPYING THE DAT
A LINES.".G'..."WHILE NOT MUCH CAN BE DO
NE ABOUT THIS "..'..."IT CAN BE SIMPLIFI
ED AS FOLLOWS:"..(..."..................
.PRESS RETURN".*(...A$:.A$."".5022.C(...
A$.G(13)..".":.5025.(...".LOOK AT THE E
XAMPLE IN THE USER'S GUIDE PP.88-89".
C(..."LINE 90 HAS THE STATEMENT 'GOTO10'
AND THEN LINES 100-120 ";..(..."HAVE T
HE WORD-DATA-".%)...".AFTER YOU'VE TYPED
LINE 90 MOVE IT TO THE TOP OF THE SCR
EEN";.=)..." USING CRSR DOWN".I)..."NOW
MOVE THE CURSOR UP UNDER LINE 90"..)..."
.WITHOUT GIVING A LINE# TYPE:. "..)...".
FORN=100TO120STEP5:PRINTN;'DATA':NEXT.".
.)...".THE NUMBERED LINES WITH THE WORD
DATA WILL APPEAR".&*D.."MOVE THE CURSO
R UP TO THE LINE#100,".M*I.."MOVE THE CU
RSOR ACROSS '100 DATA' AND INSERT THE
DATA VALUES";..*N.." 34,75,250 ETC.".F*S
..".WHEN YOU PRESS THE 'RETURN KEY' THIS
LINE WILL NOW BE";..*X.. " PART OF Y
OUR PROGRAM"..+... "..NO OTHER LINES WIL
L BE PART OF THE PROG-RAM ";.H+... ".UNT
IL THE CURSOR PASSES OVER THEM.".M+...".
...............PRESS RETURN."..+...A$:.A
$."".5105..+...A$.G(13)..".":.5115..+...
"..IMPORTANT NOTES."..+...".MAKE SURE TH
E DATA LINES (IN THE PROGRAM YOU ARE COP
YING) ";.5,..."ARE NUMBERED IN 5'S OR 10
'S. OR CHANGE THE NUMBERING";.Q,..." TO
SUIT YOUR NEEDS"..,...".DON'T ALLOW MOR
E THAN 20 DATA LINES TO APPEAR AT A TIM
E, BECAUSE"..,..."THE FIRST ONES WILL DI
ASAPPEAR OFF THE TOP OF THE SCREEN".%-.
..".YOU CAN ALWAYS REPEAT THE 'FOR TO'
STATEMENT WHEN YOU NEED ".9-... "MOR
E LINES.".|-..."..DO YOU WISH TO SEE THE
PREVIOUS PROGRAM AGAIN? (Y OR N)..-#
..A$:.A$."".5155..-(..A$."Y".5000..--.."
.":.180.U-P.."...............OTHER KEYWO
RDS."...U..".HERE ARE SOME OF THE PROGRA
M LINE NUM- BERS WHERE DIFFERENT";.7.Z.
." KEYWORDS WERE USED:".B.{.."YOU MAY LI
ST THEM TO SEE THEIR USES".....".......
POKE:. 5,53,55."......".......FOR...TO:.
45,46,47.".Q....".......REVS ON & OFF:.
1105,2006,2064."......".......CURSORS:.
10,20,21."../...".......RND:. 36,52-53.
".8/...".......GET:. 170-175,1060-1065."
.T/...".......ON:. 230-235."../...".....
.PRESS RETURN. TO RETURN TO MENU"../...A
$:.A$."".6055../...A$.G(13)..".":.180.T/
X..".":.:."PLEASE TYPE YOUR NAME";A$../]
..P.1.30:."GOOD-BYE ";A$" .";A$". ";A$.
0B.X..(15..(1)):.646,X:.P:.646,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL