BASIC-BEFEHLE 1

00000000: 01 08 1F 08 0A 00 97 20  35 33 32 38 31 2C 31 3A  |....... 53281,1:|
00000010: 97 35 33 32 38 30 2C 31  3A 99 22 93 1F 22 3B 00  |.53280,1:."..";.|
00000020: 52 08 14 00 99 22 12 20  20 20 20 20 20 20 20 20  |R....".         |
00000030: 20 42 41 53 49 43 20 45  49 4E 4D 41 4C 20 41 4E  | BASIC EINMAL AN|
00000040: 44 45 52 53 20 54 45 49  4C 20 31 20 20 20 20 92  |DERS TEIL 1    .|
00000050: 22 3B 00 85 08 16 00 99  22 12 20 20 20 20 20 20  |";......".      |
00000060: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000070: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000080: 20 20 92 22 3B 00 D3 08  17 00 99 22 11 44 49 45  |  .";......".DIE|
00000090: 53 45 53 20 50 52 4F 47  52 41 4D 4D 20 45 49 4E  |SES PROGRAMM EIN|
000000A0: 45 53 20 41 4D 45 52 49  4B 41 4E 49 53 43 48 45  |ES AMERIKANISCHE|
000000B0: 4E 20 20 20 20 43 4F 4D  50 55 54 45 52 43 4C 55  |N    COMPUTERCLU|
000000C0: 42 53 20 20 20 55 4E 54  45 52 57 45 49 53 54 20  |BS   UNTERWEIST |
000000D0: 53 49 45 00 17 09 18 00  99 22 49 4E 20 20 44 45  |SIE......"IN  DE|
000000E0: 4E 20 56 45 52 53 43 48  49 45 44 45 4E 45 4E 20  |N VERSCHIEDENEN |
000000F0: 42 41 53 49 43 42 45 46  45 48 4C 45 4E 20 20 20  |BASICBEFEHLEN   |
00000100: 20 20 20 20 49 48 52 45  53 20 20 20 43 4F 4D 50  |    IHRES   COMP|
00000110: 55 54 45 52 53 20 2E 00  63 09 19 00 99 22 11 53  |UTERS ..c....".S|
00000120: 4F 46 45 52 4E 20 45 52  46 4F 52 44 45 52 4C 49  |OFERN ERFORDERLI|
00000130: 43 48 2C 57 45 52 44 45  4E 20 41 55 43 48 20 20  |CH,WERDEN AUCH  |
00000140: 20 20 20 20 20 20 20 42  45 49 53 50 49 45 4C 45  |       BEISPIELE|
00000150: 20 46 55 45 52 20 44 49  45 20 41 4E 57 45 4E 44  | FUER DIE ANWEND|
00000160: 55 4E 47 00 72 09 1A 00  99 22 47 45 47 45 42 45  |UNG.r...."GEGEBE|
00000170: 4E 2E 00 BF 09 1B 00 99  22 11 57 49 52 20 48 4F  |N.......".WIR HO|
00000180: 46 46 45 4E 2C 44 41 53  53 20 53 49 45 20 41 55  |FFEN,DASS SIE AU|
00000190: 53 20 44 49 45 53 45 4D  20 50 52 4F 47 52 41 4D  |S DIESEM PROGRAM|
000001A0: 4D 20 20 4E 4F 43 48 20  45 49 4E 49 47 45 53 20  |M  NOCH EINIGES |
000001B0: 4C 45 52 4E 45 4E 20 4B  4F 45 4E 4E 45 4E 2E 00  |LERNEN KOENNEN..|
000001C0: 0A 0A 1C 00 99 22 11 11  45 49 4E 45 20 44 45 55  |....."..EINE DEU|
000001D0: 54 53 43 48 45 20 56 45  52 53 49 4F 4E 20 49 53  |TSCHE VERSION IS|
000001E0: 54 20 49 4E 20 20 20 20  20 20 20 20 20 20 20 20  |T IN            |
000001F0: 56 4F 52 42 45 52 45 49  54 55 4E 47 2E 20 56 49  |VORBEREITUNG. VI|
00000200: 45 4C 20 53 50 41 53 53  21 22 00 3B 0A 1D 00 99  |EL SPASS!".;....|
00000210: 22 12 42 49 54 54 45 20  45 49 4E 45 20 54 41 53  |".BITTE EINE TAS|
00000220: 54 45 20 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |TE .............|
00000230: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 92 00 41 0A 28 00  |............A.(.|
00000240: 8F 00 47 0A 32 00 8F 00  5A 0A 3B 00 A1 41 24 3A  |..G.2...Z.;..A$:|
00000250: 8B 41 24 B2 22 22 A7 20  35 39 00 73 0A 3C 00 99  |.A$."". 59.s.<..|
00000260: 22 93 22 3A 20 8F 20 43  4C 45 41 52 20 53 43 52  |".": . CLEAR SCR|
00000270: 45 45 4E 00 93 0A 46 00  99 A3 31 30 29 22 20 20  |EEN...F...10)"  |
00000280: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000290: 22 3A 99 00 C0 0A 50 00  99 22 57 48 49 43 48 20  |":....P.."WHICH |
000002A0: 4F 46 20 54 48 45 20 46  4F 4C 4C 4F 57 49 4E 47  |OF THE FOLLOWING|
000002B0: 20 57 4F 55 4C 44 20 59  4F 55 20 4C 49 4B 45 22  | WOULD YOU LIKE"|
000002C0: 00 DD 0A 5A 00 99 22 54  4F 20 4B 4E 4F 57 20 4D  |...Z.."TO KNOW M|
000002D0: 4F 52 45 20 41 42 4F 55  54 3A 22 3A 99 00 08 0B  |ORE ABOUT:":....|
000002E0: 64 00 99 22 28 31 29 20  20 41 42 53 20 20 20 20  |d.."(1)  ABS    |
000002F0: 20 28 32 29 20 20 41 53  43 20 20 20 20 20 28 33  | (2)  ASC     (3|
00000300: 29 20 20 43 48 52 24 22  00 37 0B 6E 00 99 22 28  |)  CHR$".7.n.."(|
00000310: 34 29 20 20 43 4F 4E 54  20 20 20 20 28 35 29 20  |4)  CONT    (5) |
00000320: 20 44 41 54 41 20 20 20  20 28 36 29 20 20 46 4F  | DATA    (6)  FO|
00000330: 52 2F 4E 45 58 54 22 00  62 0B 78 00 99 22 28 37  |R/NEXT".b.x.."(7|
00000340: 29 20 20 47 45 54 20 20  20 20 20 28 38 29 20 20  |)  GET     (8)  |
00000350: 47 4F 53 55 42 20 20 20  28 39 29 20 20 47 4F 54  |GOSUB   (9)  GOT|
00000360: 4F 22 00 8E 0B 82 00 99  22 28 31 30 29 20 49 46  |O"......"(10) IF|
00000370: 2F 54 48 45 4E 20 28 31  31 29 20 49 4E 50 55 54  |/THEN (11) INPUT|
00000380: 20 20 A0 28 31 32 29 20  4C 45 46 54 24 22 00 B7  |  .(12) LEFT$"..|
00000390: 0B 8C 00 99 22 28 31 33  29 20 4C 45 4E 20 20 20  |...."(13) LEN   |
000003A0: 20 20 28 31 34 29 20 4D  49 44 24 20 20 20 20 28  |  (14) MID$    (|
000003B0: 31 35 29 20 4F 4E 22 00  DC 0B 96 00 99 3A 85 22  |15) ON"......:."|
000003C0: 50 4C 45 41 53 45 20 45  4E 54 45 52 20 59 4F 55  |PLEASE ENTER YOU|
000003D0: 52 20 43 48 4F 49 43 45  22 3B 43 48 00 F7 0B A0  |R CHOICE";CH....|
000003E0: 00 8B 20 43 48 B3 31 20  B0 20 43 48 B1 31 35 20  |.. CH.1 . CH.15 |
000003F0: A7 20 89 20 31 35 30 00  24 0C AA 00 8B 20 43 48  |. . 150.$.... CH|
00000400: B3 36 20 A7 20 91 20 43  48 20 89 20 31 30 30 30  |.6 . . CH . 1000|
00000410: 2C 32 30 30 30 2C 33 30  30 30 2C 34 30 30 30 2C  |,2000,3000,4000,|
00000420: 35 30 30 30 00 55 0C B4  00 8B 20 43 48 B3 31 31  |5000.U.... CH.11|
00000430: 20 A7 20 91 20 43 48 AB  35 20 89 20 36 30 30 30  | . . CH.5 . 6000|
00000440: 2C 37 30 30 30 2C 38 30  30 30 2C 39 30 30 30 2C  |,7000,8000,9000,|
00000450: 31 30 30 30 30 00 81 0C  BE 00 91 20 43 48 AB 31  |10000...... CH.1|
00000460: 30 20 89 20 31 34 30 30  30 2C 31 31 30 30 30 2C  |0 . 14000,11000,|
00000470: 31 32 30 30 30 2C 31 33  30 30 30 2C 31 35 30 30  |12000,13000,1500|
00000480: 30 00 9F 0C E8 03 8F 20  41 42 53 4F 4C 55 54 45  |0...... ABSOLUTE|
00000490: 20 56 41 4C 55 45 20 46  55 4E 43 54 49 4F 4E 00  | VALUE FUNCTION.|
000004A0: A8 0C F2 03 99 22 93 22  00 D1 0C FC 03 99 20 A3  |....."."...... .|
000004B0: 36 29 22 41 42 53 3D 41  42 53 4F 4C 55 54 45 20  |6)"ABS=ABSOLUTE |
000004C0: 56 41 4C 55 45 20 46 55  4E 43 54 49 4F 4E 22 3A  |VALUE FUNCTION":|
000004D0: 99 00 FF 0C 06 04 99 22  20 20 20 54 48 45 20 41  |......."   THE A|
000004E0: 42 53 4F 4C 55 54 45 20  56 41 4C 55 45 20 46 55  |BSOLUTE VALUE FU|
000004F0: 4E 43 54 49 4F 4E 20 52  45 54 55 52 4E 53 22 00  |NCTION RETURNS".|
00000500: 2C 0D 10 04 99 22 54 48  45 20 41 42 53 4F 4C 55  |,...."THE ABSOLU|
00000510: 54 45 20 56 41 4C 55 45  20 4F 46 20 41 20 4E 55  |TE VALUE OF A NU|
00000520: 4D 42 45 52 2E 20 20 54  48 49 53 22 00 56 0D 1A  |MBER.  THIS".V..|
00000530: 04 99 22 4D 45 41 4E 53  20 54 48 41 54 20 54 48  |.."MEANS THAT TH|
00000540: 45 20 4E 55 4D 42 45 52  20 59 4F 55 20 47 49 56  |E NUMBER YOU GIV|
00000550: 45 20 54 48 45 22 00 81  0D 24 04 99 22 43 4F 4D  |E THE"...$.."COM|
00000560: 50 55 54 45 52 20 57 49  4C 4C 20 52 45 54 55 52  |PUTER WILL RETUR|
00000570: 4E 20 54 4F 20 59 4F 55  20 57 49 54 48 4F 55 54  |N TO YOU WITHOUT|
00000580: 22 00 AD 0D 2E 04 99 22  41 4E 59 20 53 49 47 4E  |"......"ANY SIGN|
00000590: 53 2E 20 20 49 46 20 59  4F 55 20 47 49 56 45 20  |S.  IF YOU GIVE |
000005A0: 54 48 45 20 43 4F 4D 50  55 54 45 52 22 00 DE 0D  |THE COMPUTER"...|
000005B0: 38 04 99 22 41 20 50 4F  53 49 54 49 56 45 20 4E  |8.."A POSITIVE N|
000005C0: 55 4D 42 45 52 2C 20 49  54 20 57 49 4C 4C 20 47  |UMBER, IT WILL G|
000005D0: 49 56 45 20 59 4F 55 20  42 41 43 4B 22 3B 00 0A  |IVE YOU BACK";..|
000005E0: 0E 42 04 99 22 41 20 50  4F 53 49 54 49 56 45 20  |.B.."A POSITIVE |
000005F0: 4E 55 4D 42 45 52 2E 20  20 49 46 20 59 4F 55 20  |NUMBER.  IF YOU |
00000600: 47 49 56 45 20 54 48 45  20 22 00 36 0E 4C 04 99  |GIVE THE ".6.L..|
00000610: 22 43 4F 4D 50 55 54 45  52 20 41 20 4E 45 47 41  |"COMPUTER A NEGA|
00000620: 54 49 56 45 20 4E 55 4D  42 45 52 2C 20 48 4F 57  |TIVE NUMBER, HOW|
00000630: 45 56 45 52 2C 22 00 64  0E 56 04 99 22 59 4F 55  |EVER,".d.V.."YOU|
00000640: 20 57 49 4C 4C 20 47 45  54 20 41 20 50 4F 53 49  | WILL GET A POSI|
00000650: 54 49 56 45 20 4E 55 4D  42 45 52 20 42 41 43 4B  |TIVE NUMBER BACK|
00000660: 20 49 4E 22 00 90 0E 60  04 99 22 52 45 54 55 52  | IN"...`.."RETUR|
00000670: 4E 2E 20 20 46 4F 52 20  49 4E 53 54 41 4E 43 45  |N.  FOR INSTANCE|
00000680: 2C 20 54 48 45 20 53 54  41 54 45 4D 45 4E 54 22  |, THE STATEMENT"|
00000690: 00 BC 0E 6A 04 99 22 5B  50 52 49 4E 54 20 41 42  |...j.."[PRINT AB|
000006A0: 53 28 58 29 5D 20 57 49  4C 4C 20 50 52 49 4E 54  |S(X)] WILL PRINT|
000006B0: 20 41 20 50 4F 53 49 54  49 56 45 22 00 EA 0E 74  | A POSITIVE"...t|
000006C0: 04 99 22 4E 55 4D 42 45  52 20 52 45 47 41 52 44  |.."NUMBER REGARD|
000006D0: 4C 45 53 53 20 4F 46 20  57 48 45 54 48 45 52 20  |LESS OF WHETHER |
000006E0: 54 48 45 20 56 41 4C 55  45 22 00 10 0F 7E 04 99  |THE VALUE"...~..|
000006F0: 22 4F 46 20 27 58 27 20  49 53 20 50 4F 53 49 54  |"OF 'X' IS POSIT|
00000700: 49 56 45 20 4F 52 20 4E  45 47 41 54 49 56 45 22  |IVE OR NEGATIVE"|
00000710: 00 1C 0F 88 04 89 20 33  30 30 30 30 00 37 0F D0  |...... 30000.7..|
00000720: 07 8F 20 41 53 43 49 49  20 56 41 4C 55 45 20 46  |.. ASCII VALUE F|
00000730: 55 4E 43 54 49 4F 4E 00  40 0F DA 07 99 22 93 22  |UNCTION.@...."."|
00000740: 00 65 0F E4 07 99 A3 38  29 22 41 53 43 3D 41 53  |.e.....8)"ASC=AS|
00000750: 43 49 49 20 56 41 4C 55  45 20 46 55 4E 43 54 49  |CII VALUE FUNCTI|
00000760: 4F 4E 22 3A 99 00 8C 0F  EE 07 99 22 20 20 20 54  |ON":......."   T|
00000770: 4F 20 44 45 54 45 52 4D  49 4E 45 20 54 48 45 20  |O DETERMINE THE |
00000780: 41 53 43 49 49 20 56 41  4C 55 45 22 00 B9 0F F8  |ASCII VALUE"....|
00000790: 07 99 22 4F 46 20 41 20  43 48 41 52 41 43 54 45  |.."OF A CHARACTE|
000007A0: 52 2C 20 54 48 45 20 41  53 43 20 46 55 4E 43 54  |R, THE ASC FUNCT|
000007B0: 49 4F 4E 20 4D 55 53 54  22 00 E6 0F 02 08 99 22  |ION MUST"......"|
000007C0: 42 45 20 55 53 45 44 2E  20 20 54 48 45 20 41 53  |BE USED.  THE AS|
000007D0: 43 49 49 20 56 41 4C 55  45 20 49 53 20 41 20 4E  |CII VALUE IS A N|
000007E0: 55 4D 42 45 52 22 00 10  10 0C 08 99 22 54 48 41  |UMBER"......"THA|
000007F0: 54 20 43 4F 52 52 45 53  50 4F 4E 44 53 20 54 4F  |T CORRESPONDS TO|
00000800: 20 54 48 45 20 43 4F 4D  50 55 54 45 52 27 53 22  | THE COMPUTER'S"|
00000810: 00 3B 10 16 08 99 22 43  4F 44 45 20 46 4F 52 20  |.;...."CODE FOR |
00000820: 54 48 41 54 20 50 41 52  54 49 43 55 4C 41 52 20  |THAT PARTICULAR |
00000830: 43 48 41 52 41 43 54 45  52 2E 22 00 69 10 20 08  |CHARACTER.".i. .|
00000840: 99 22 45 41 43 48 20 43  48 41 52 41 43 54 45 52  |."EACH CHARACTER|
00000850: 20 4F 4E 20 54 48 45 20  43 4F 4D 4D 4F 44 4F 52  | ON THE COMMODOR|
00000860: 45 20 36 34 20 48 41 53  22 00 9A 10 2A 08 99 22  |E 64 HAS"...*.."|
00000870: 41 20 4E 55 4D 42 45 52  20 54 48 41 54 20 43 4F  |A NUMBER THAT CO|
00000880: 52 52 45 53 50 4F 4E 44  53 20 54 4F 20 49 54 53  |RRESPONDS TO ITS|
00000890: 45 4C 46 2E 20 20 49 46  22 3B 00 C7 10 34 08 99  |ELF.  IF";...4..|
000008A0: 22 59 4F 55 20 54 59 50  45 44 20 5B 50 52 49 4E  |"YOU TYPED [PRIN|
000008B0: 54 20 41 53 43 28 27 41  27 29 5D 2C 20 59 4F 55  |T ASC('A')], YOU|
000008C0: 20 57 4F 55 4C 44 22 00  F8 10 3E 08 99 22 47 45  | WOULD"...>.."GE|
000008D0: 54 20 42 41 43 4B 20 41  20 56 41 4C 55 45 20 4F  |T BACK A VALUE O|
000008E0: 46 20 36 35 2C 20 53 49  4E 43 45 20 54 48 45 20  |F 65, SINCE THE |
000008F0: 4C 45 54 54 45 52 22 3B  00 1D 11 48 08 99 22 27  |LETTER";...H.."'|
00000900: 41 27 20 48 41 53 20 41  4E 20 41 53 43 49 49 20  |A' HAS AN ASCII |
00000910: 56 41 4C 55 45 20 4F 46  20 36 35 2E 22 00 29 11  |VALUE OF 65.".).|
00000920: 52 08 89 20 33 30 30 30  30 00 40 11 B8 0B 8F 20  |R.. 30000.@.... |
00000930: 43 48 41 52 41 43 54 45  52 20 53 54 52 49 4E 47  |CHARACTER STRING|
00000940: 00 49 11 BD 0B 99 22 93  22 00 72 11 C2 0B 99 A3  |.I....".".r.....|
00000950: 34 29 22 43 48 52 24 3D  43 48 41 52 41 43 54 45  |4)"CHR$=CHARACTE|
00000960: 52 20 53 54 52 49 4E 47  20 46 55 4E 43 54 49 4F  |R STRING FUNCTIO|
00000970: 4E 22 00 78 11 CC 0B 99  00 A5 11 D6 0B 99 22 20  |N".x.........." |
00000980: 20 20 54 48 45 20 4F 50  50 4F 53 49 54 45 20 4F  |  THE OPPOSITE O|
00000990: 46 20 54 48 45 20 41 53  43 49 49 20 46 55 4E 43  |F THE ASCII FUNC|
000009A0: 54 49 4F 4E 22 00 D0 11  E0 0B 99 22 49 53 20 54  |TION"......"IS T|
000009B0: 48 45 20 43 48 52 24 20  43 4F 4D 4D 41 4E 44 2E  |HE CHR$ COMMAND.|
000009C0: 20 20 42 59 20 55 53 49  4E 47 20 54 48 45 20 22  |  BY USING THE "|
000009D0: 00 FD 11 EA 0B 99 22 4B  45 59 57 4F 52 44 20 43  |......"KEYWORD C|
000009E0: 48 52 24 2C 20 59 4F 55  20 4D 41 59 20 44 45 54  |HR$, YOU MAY DET|
000009F0: 45 52 4D 49 4E 45 20 57  48 41 54 20 22 00 26 12  |ERMINE WHAT ".&.|
00000A00: F4 0B 99 22 43 48 41 52  41 43 54 45 52 20 41 20  |..."CHARACTER A |
00000A10: 43 45 52 54 41 49 4E 20  41 53 43 49 49 20 4E 55  |CERTAIN ASCII NU|
00000A20: 4D 42 45 52 20 22 00 53  12 FE 0B 99 22 43 4F 52  |MBER ".S...."COR|
00000A30: 52 45 53 50 4F 4E 44 53  20 54 4F 2E 20 20 46 4F  |RESPONDS TO.  FO|
00000A40: 52 20 45 58 41 4D 50 4C  45 2C 20 49 46 20 59 4F  |R EXAMPLE, IF YO|
00000A50: 55 20 22 00 7F 12 08 0C  99 22 54 59 50 45 44 20  |U "......"TYPED |
00000A60: 5B 50 52 49 4E 54 20 43  48 52 24 28 36 35 29 5D  |[PRINT CHR$(65)]|
00000A70: 2C 20 54 48 45 20 43 4F  4D 50 55 54 45 52 22 00  |, THE COMPUTER".|
00000A80: AB 12 12 0C 99 22 57 4F  55 4C 44 20 52 45 53 50  |....."WOULD RESP|
00000A90: 4F 4E 44 20 42 59 20 50  52 49 4E 54 49 4E 47 20  |OND BY PRINTING |
00000AA0: 54 48 45 20 4C 45 54 54  45 52 22 00 D7 12 1C 0C  |THE LETTER".....|
00000AB0: 99 22 27 41 27 2C 20 53  49 4E 43 45 20 54 48 45  |."'A', SINCE THE|
00000AC0: 20 41 53 43 49 49 20 43  4F 44 45 20 36 35 20 49  | ASCII CODE 65 I|
00000AD0: 53 20 54 48 45 20 22 00  05 13 26 0C 99 22 43 4F  |S THE "...&.."CO|
00000AE0: 4D 4D 4F 44 4F 52 45 20  36 34 27 53 20 45 51 55  |MMODORE 64'S EQU|
00000AF0: 49 56 41 4C 45 4E 54 20  46 4F 52 20 54 48 45 20  |IVALENT FOR THE |
00000B00: 27 41 27 2E 22 00 32 13  30 0C 99 22 57 48 45 4E  |'A'.".2.0.."WHEN|
00000B10: 20 55 53 49 4E 47 20 43  48 52 24 2C 20 59 4F 55  | USING CHR$, YOU|
00000B20: 20 4D 55 53 54 20 55 53  45 20 41 20 56 41 4C 55  | MUST USE A VALU|
00000B30: 45 22 00 4C 13 3A 0C 99  22 42 45 54 57 45 45 4E  |E".L.:.."BETWEEN|
00000B40: 20 30 20 41 4E 44 20 32  35 35 2E 22 00 58 13 44  | 0 AND 255.".X.D|
00000B50: 0C 89 20 33 30 30 30 30  00 70 13 A0 0F 8F 20 43  |.. 30000.p.... C|
00000B60: 4F 4E 54 49 4E 55 45 20  46 55 4E 43 54 49 4F 4E  |ONTINUE FUNCTION|
00000B70: 00 79 13 AA 0F 99 22 93  22 00 9B 13 B4 0F 99 A3  |.y....".".......|
00000B80: 38 29 22 43 4F 4E 54 3D  43 4F 4E 54 49 4E 55 45  |8)"CONT=CONTINUE|
00000B90: 20 50 52 4F 47 52 41 4D  22 3A 99 00 C9 13 BE 0F  | PROGRAM":......|
00000BA0: 99 22 20 20 20 54 48 45  20 43 4F 4E 54 20 43 4F  |."   THE CONT CO|
00000BB0: 4D 4D 41 4E 44 20 53 49  4D 50 4C 59 20 52 45 53  |MMAND SIMPLY RES|
00000BC0: 55 4D 45 53 20 54 48 45  22 00 F5 13 C8 0F 99 22  |UMES THE"......"|
00000BD0: 45 58 45 43 55 54 49 4F  4E 20 4F 46 20 41 20 50  |EXECUTION OF A P|
00000BE0: 52 4F 47 52 41 4D 20 54  48 41 54 20 48 41 53 20  |ROGRAM THAT HAS |
00000BF0: 42 45 45 4E 22 00 24 14  D2 0F 99 22 53 54 4F 50  |BEEN".$...."STOP|
00000C00: 50 45 44 2C 20 55 53 55  41 4C 4C 59 20 42 59 20  |PED, USUALLY BY |
00000C10: 54 48 45 20 27 52 55 4E  2F 53 54 4F 50 27 20 4B  |THE 'RUN/STOP' K|
00000C20: 45 59 2E 22 00 50 14 DC  0F 99 22 42 59 20 54 59  |EY.".P...."BY TY|
00000C30: 50 49 4E 47 20 5B 43 4F  4E 54 5D 20 54 48 45 4E  |PING [CONT] THEN|
00000C40: 20 5B 52 45 54 55 52 4E  5D 2C 20 59 4F 55 52 22  | [RETURN], YOUR"|
00000C50: 00 7E 14 E6 0F 99 22 42  41 53 49 43 20 50 52 4F  |.~...."BASIC PRO|
00000C60: 47 52 41 4D 20 57 49 4C  4C 20 42 45 47 49 4E 20  |GRAM WILL BEGIN |
00000C70: 57 48 45 52 45 20 49 54  20 4C 45 46 54 22 00 AA  |WHERE IT LEFT"..|
00000C80: 14 F0 0F 99 22 4F 46 46  2E 20 20 54 4F 20 47 49  |...."OFF.  TO GI|
00000C90: 56 45 20 27 43 4F 4E 54  27 20 41 20 54 52 59 2C  |VE 'CONT' A TRY,|
00000CA0: 20 48 49 54 20 54 48 45  20 22 00 D4 14 FA 0F 99  | HIT THE "......|
00000CB0: 22 52 55 4E 2F 53 54 4F  50 20 4B 45 59 2C 20 54  |"RUN/STOP KEY, T|
00000CC0: 48 45 4E 20 54 59 50 45  20 5B 43 4F 4E 54 5D 20  |HEN TYPE [CONT] |
00000CD0: 41 4E 44 22 00 02 15 04  10 99 22 5B 52 45 54 55  |AND"......"[RETU|
00000CE0: 52 4E 5D 2E 20 20 54 48  45 20 50 52 4F 47 52 41  |RN].  THE PROGRA|
00000CF0: 4D 20 57 49 4C 4C 20 4B  45 45 50 20 47 4F 49 4E  |M WILL KEEP GOIN|
00000D00: 47 22 00 29 15 0E 10 99  22 41 53 20 49 46 20 59  |G".)...."AS IF Y|
00000D10: 4F 55 20 48 41 44 20 4E  45 56 45 52 20 53 54 4F  |OU HAD NEVER STO|
00000D20: 50 50 45 44 20 49 54 21  22 00 35 15 18 10 89 20  |PPED IT!".5.... |
00000D30: 33 30 30 30 30 00 49 15  88 13 8F 20 44 41 54 41  |30000.I.... DATA|
00000D40: 20 46 55 4E 43 54 49 4F  4E 00 52 15 92 13 99 22  | FUNCTION.R...."|
00000D50: 93 22 00 72 15 9C 13 99  A3 31 30 29 22 44 41 54  |.".r.....10)"DAT|
00000D60: 41 3D 44 41 54 41 20 54  4F 20 42 45 20 52 45 41  |A=DATA TO BE REA|
00000D70: 44 22 00 78 15 A6 13 99  00 A6 15 B0 13 99 22 20  |D".x.........." |
00000D80: 20 20 54 48 45 20 44 41  54 41 20 53 54 41 54 45  |  THE DATA STATE|
00000D90: 4D 45 4E 54 20 49 53 20  55 53 45 44 20 54 4F 20  |MENT IS USED TO |
00000DA0: 53 54 4F 52 45 22 00 D3  15 BA 13 99 22 41 20 4C  |STORE"......"A L|
00000DB0: 49 53 54 20 4F 46 20 43  4F 4E 53 54 41 4E 54 53  |IST OF CONSTANTS|
00000DC0: 2E 20 20 54 48 45 53 45  20 43 4F 4E 53 54 41 4E  |.  THESE CONSTAN|
00000DD0: 54 53 22 00 01 16 C4 13  99 22 4D 41 59 20 42 45  |TS"......"MAY BE|
00000DE0: 20 49 4E 20 54 48 45 20  46 4F 52 4D 20 4F 46 20  | IN THE FORM OF |
00000DF0: 4E 55 4D 42 45 52 53 20  4F 52 20 57 4F 52 44 53  |NUMBERS OR WORDS|
00000E00: 22 00 2D 16 CE 13 99 22  4F 52 20 45 56 45 4E 20  |".-...."OR EVEN |
00000E10: 42 4F 54 48 2E 20 20 45  41 43 48 20 43 4F 4E 53  |BOTH.  EACH CONS|
00000E20: 54 41 4E 54 20 4D 55 53  54 20 42 45 22 00 54 16  |TANT MUST BE".T.|
00000E30: D8 13 99 22 53 45 50 41  52 41 54 45 44 20 42 59  |..."SEPARATED BY|
00000E40: 20 41 20 43 4F 4D 4D 41  20 28 2C 29 20 53 4F 20  | A COMMA (,) SO |
00000E50: 54 48 45 22 00 80 16 E2  13 99 22 43 4F 4D 50 55  |THE"......"COMPU|
00000E60: 54 45 52 20 57 49 4C 4C  20 4B 4E 4F 57 20 4F 4E  |TER WILL KNOW ON|
00000E70: 45 20 43 4F 4E 53 54 41  4E 54 20 46 52 4F 4D 22  |E CONSTANT FROM"|
00000E80: 00 AC 16 EC 13 99 22 41  4E 4F 54 48 45 52 2E 20  |......"ANOTHER. |
00000E90: 20 54 4F 20 52 45 54 52  49 45 56 45 20 54 48 45  | TO RETRIEVE THE|
00000EA0: 20 44 41 54 41 2C 20 54  48 45 20 22 00 DB 16 F6  | DATA, THE "....|
00000EB0: 13 99 22 43 4F 4D 4D 41  4E 44 20 27 52 45 41 44  |.."COMMAND 'READ|
00000EC0: 27 20 53 48 4F 55 4C 44  20 42 45 20 55 53 45 44  |' SHOULD BE USED|
00000ED0: 20 45 4C 53 45 57 48 45  52 45 22 00 06 17 00 14  | ELSEWHERE".....|
00000EE0: 99 22 49 4E 20 54 48 45  20 50 52 4F 47 52 41 4D  |."IN THE PROGRAM|
00000EF0: 2E 20 20 46 4F 52 20 49  4E 53 54 41 4E 43 45 2C  |.  FOR INSTANCE,|
00000F00: 20 54 48 45 20 22 00 34  17 0A 14 99 22 46 4F 4C  | THE ".4...."FOL|
00000F10: 4C 4F 57 49 4E 47 20 50  52 4F 47 52 41 4D 20 57  |LOWING PROGRAM W|
00000F20: 49 4C 4C 20 52 45 41 44  20 54 48 45 20 4E 55 4D  |ILL READ THE NUM|
00000F30: 42 45 52 22 00 59 17 14  14 99 22 54 45 4E 20 46  |BER".Y...."TEN F|
00000F40: 52 4F 4D 20 54 48 45 20  44 41 54 41 20 53 54 41  |ROM THE DATA STA|
00000F50: 54 45 4D 45 4E 54 2C 20  22 00 7D 17 1E 14 99 22  |TEMENT, ".}...."|
00000F60: 54 48 45 4E 20 50 52 49  4E 54 20 49 54 20 4F 4E  |THEN PRINT IT ON|
00000F70: 20 54 48 45 20 53 43 52  45 45 4E 3A 22 00 92 17  | THE SCREEN:"...|
00000F80: 28 14 99 3A 99 22 31 30  20 20 20 52 45 41 44 20  |(..:."10   READ |
00000F90: 41 22 00 A6 17 32 14 99  22 32 30 20 20 20 50 52  |A"...2.."20   PR|
00000FA0: 49 4E 54 20 41 22 00 B9  17 3C 14 99 22 33 30 20  |INT A"...<.."30 |
00000FB0: 20 20 44 41 54 41 20 31  30 00 C5 17 46 14 89 20  |  DATA 10...F.. |
00000FC0: 33 30 30 30 30 00 DB 17  70 17 8F 20 46 4F 52 2E  |30000...p.. FOR.|
00000FD0: 2E 2E 54 4F 2E 2E 2E 4E  45 58 54 00 E4 17 7A 17  |..TO...NEXT...z.|
00000FE0: 99 22 93 22 00 06 18 84  17 99 A3 36 29 22 46 4F  |.".".......6)"FO|
00000FF0: 52 2E 2E 4E 45 58 54 3D  46 4F 52 2F 4E 45 58 54  |R..NEXT=FOR/NEXT|
00001000: 20 4C 4F 4F 50 22 00 0C  18 8E 17 99 00 34 18 98  | LOOP".......4..|
00001010: 17 99 22 20 20 20 54 48  45 20 46 4F 52 2F 4E 45  |.."   THE FOR/NE|
00001020: 58 54 20 4C 4F 4F 50 20  49 53 20 53 49 4D 50 4C  |XT LOOP IS SIMPL|
00001030: 59 20 41 22 00 62 18 A2  17 99 22 43 4F 55 4E 54  |Y A".b...."COUNT|
00001040: 49 4E 47 20 44 45 56 49  43 45 2E 20 20 49 46 20  |ING DEVICE.  IF |
00001050: 59 4F 55 20 57 41 4E 54  20 54 4F 20 43 4F 55 4E  |YOU WANT TO COUN|
00001060: 54 22 00 91 18 AC 17 99  22 54 4F 20 54 48 45 20  |T"......"TO THE |
00001070: 4E 55 4D 42 45 52 20 46  49 56 45 2C 20 59 4F 55  |NUMBER FIVE, YOU|
00001080: 20 57 4F 55 4C 44 20 53  41 59 20 27 4F 4E 45 2C  | WOULD SAY 'ONE,|
00001090: 22 00 C0 18 B6 17 99 22  54 57 4F 2C 20 54 48 52  |"......"TWO, THR|
000010A0: 45 45 2C 20 46 4F 55 52  2C 20 46 49 56 45 2E 27  |EE, FOUR, FIVE.'|
000010B0: 20 46 4F 52 20 41 20 43  4F 4D 50 55 54 45 52 22  | FOR A COMPUTER"|
000010C0: 00 ED 18 C0 17 99 22 54  4F 20 43 4F 55 4E 54 20  |......"TO COUNT |
000010D0: 54 4F 20 46 49 56 45 2C  20 59 4F 55 20 48 41 56  |TO FIVE, YOU HAV|
000010E0: 45 20 54 4F 20 54 45 4C  4C 20 49 54 22 00 1B 19  |E TO TELL IT"...|
000010F0: CA 17 99 22 57 48 41 54  20 4E 55 4D 42 45 52 20  |..."WHAT NUMBER |
00001100: 54 4F 20 53 54 41 52 54  20 43 4F 55 4E 54 49 4E  |TO START COUNTIN|
00001110: 47 20 41 54 2C 20 57 48  41 54 22 00 49 19 D4 17  |G AT, WHAT".I...|
00001120: 99 22 4E 55 4D 42 45 52  20 54 4F 20 53 54 4F 50  |."NUMBER TO STOP|
00001130: 20 43 4F 55 4E 54 49 4E  47 2C 20 41 4E 44 20 57  | COUNTING, AND W|
00001140: 48 41 54 20 53 54 45 50  22 00 78 19 DE 17 99 22  |HAT STEP".x...."|
00001150: 49 54 20 53 48 4F 55 4C  44 20 43 4F 55 4E 54 20  |IT SHOULD COUNT |
00001160: 41 54 2E 20 20 54 48 45  20 27 53 54 45 50 27 20  |AT.  THE 'STEP' |
00001170: 49 53 20 4A 55 53 54 22  00 A6 19 E8 17 99 22 48  |IS JUST"......"H|
00001180: 4F 57 20 46 41 53 54 20  54 48 45 20 43 4F 4D 50  |OW FAST THE COMP|
00001190: 55 54 45 52 20 43 4F 55  4E 54 53 20 2D 20 49 54  |UTER COUNTS - IT|
000011A0: 20 43 41 4E 20 22 00 D3  19 F2 17 99 22 43 4F 55  | CAN "......"COU|
000011B0: 4C 44 20 43 4F 55 4E 54  20 31 2C 32 2C 33 2C 34  |LD COUNT 1,2,3,4|
000011C0: 2C 35 2C 20 4F 52 20 47  4F 20 54 57 49 43 45 20  |,5, OR GO TWICE |
000011D0: 41 53 22 00 FE 19 FC 17  99 22 46 41 53 54 20 42  |AS"......"FAST B|
000011E0: 59 20 43 4F 55 4E 54 49  4E 47 20 31 2C 33 2C 35  |Y COUNTING 1,3,5|
000011F0: 2E 20 20 54 48 45 20 46  49 52 53 54 20 22 00 29  |.  THE FIRST ".)|
00001200: 1A 06 18 99 22 45 58 41  4D 50 4C 45 20 57 4F 55  |...."EXAMPLE WOU|
00001210: 4C 44 20 42 45 20 53 54  45 50 20 31 2C 20 53 49  |LD BE STEP 1, SI|
00001220: 4E 43 45 20 54 48 45 20  22 00 57 1A 10 18 99 22  |NCE THE ".W...."|
00001230: 43 4F 4D 50 55 54 45 52  20 43 4F 55 4E 54 53 20  |COMPUTER COUNTS |
00001240: 49 4E 20 53 54 45 50 53  20 4F 46 20 4F 4E 45 2C  |IN STEPS OF ONE,|
00001250: 20 57 48 49 4C 45 22 00  86 1A 1A 18 99 22 54 48  | WHILE"......"TH|
00001260: 45 20 53 45 43 4F 4E 44  20 45 58 41 4D 50 4C 45  |E SECOND EXAMPLE|
00001270: 20 57 4F 55 4C 44 20 42  45 20 53 54 45 50 20 32  | WOULD BE STEP 2|
00001280: 2C 20 46 4F 52 22 00 B2  1A 24 18 99 22 54 48 45  |, FOR"...$.."THE|
00001290: 20 43 4F 4D 50 55 54 45  52 20 43 4F 55 4E 54 53  | COMPUTER COUNTS|
000012A0: 20 49 4E 20 53 54 45 50  53 20 4F 46 20 54 57 4F  | IN STEPS OF TWO|
000012B0: 2C 22 00 D6 1A 2E 18 99  22 43 4F 55 4E 54 49 4E  |,"......"COUNTIN|
000012C0: 47 20 45 56 45 52 59 20  4F 54 48 45 52 20 4E 55  |G EVERY OTHER NU|
000012D0: 4D 42 45 52 2E 22 00 FF  1A 38 18 99 3A 99 22 20  |MBER."...8..:." |
000012E0: 20 20 20 20 48 49 54 20  41 4E 59 20 4B 45 59 20  |    HIT ANY KEY |
000012F0: 54 4F 20 43 4F 4E 54 49  4E 55 45 2E 2E 2E 22 00  |TO CONTINUE...".|
00001300: 14 1B 42 18 A1 41 24 3A  8B 41 24 B2 22 22 A7 20  |..B..A$:.A$."". |
00001310: 36 32 31 30 00 1E 1B 4C  18 99 20 22 93 22 00 4C  |6210...L.. ".".L|
00001320: 1B 56 18 99 22 20 20 20  54 4F 20 54 45 4C 4C 20  |.V.."   TO TELL |
00001330: 54 48 45 20 43 4F 4D 50  55 54 45 52 20 57 48 45  |THE COMPUTER WHE|
00001340: 52 45 20 54 4F 20 53 54  41 52 54 22 00 79 1B 60  |RE TO START".y.`|
00001350: 18 99 22 43 4F 55 4E 54  49 4E 47 20 41 4E 44 20  |.."COUNTING AND |
00001360: 57 48 45 52 45 20 54 4F  20 53 54 4F 50 20 43 4F  |WHERE TO STOP CO|
00001370: 55 4E 54 49 4E 47 2C 20  22 00 A7 1B 6A 18 99 22  |UNTING, "...j.."|
00001380: 4D 45 52 45 4C 59 20 53  50 45 43 49 46 59 20 54  |MERELY SPECIFY T|
00001390: 48 45 20 4E 55 4D 42 45  52 20 49 4E 20 59 4F 55  |HE NUMBER IN YOU|
000013A0: 52 20 46 4F 52 2F 22 00  D5 1B 74 18 99 22 4E 45  |R FOR/"...t.."NE|
000013B0: 58 54 20 4C 4F 4F 50 2E  20 20 49 46 20 59 4F 55  |XT LOOP.  IF YOU|
000013C0: 20 57 41 4E 54 45 44 20  54 48 45 20 43 4F 4D 50  | WANTED THE COMP|
000013D0: 55 54 45 52 22 00 04 1C  7E 18 99 22 54 4F 20 43  |UTER"...~.."TO C|
000013E0: 4F 55 4E 54 20 46 52 4F  4D 20 32 20 54 4F 20 38  |OUNT FROM 2 TO 8|
000013F0: 2C 20 46 4F 52 20 49 4E  53 54 41 4E 43 45 2C 20  |, FOR INSTANCE, |
00001400: 59 4F 55 22 00 33 1C 88  18 99 22 57 4F 55 4C 44  |YOU".3...."WOULD|
00001410: 20 54 59 50 45 20 5B 46  4F 52 20 41 3D 32 20 54  | TYPE [FOR A=2 T|
00001420: 4F 20 38 5D 2E 20 20 59  4F 55 20 43 41 4E 20 55  |O 8].  YOU CAN U|
00001430: 53 45 22 00 64 1C 92 18  99 22 41 4E 59 20 56 41  |SE".d...."ANY VA|
00001440: 52 49 41 42 4C 45 20 59  4F 55 20 57 41 4E 54 20  |RIABLE YOU WANT |
00001450: 28 27 41 27 20 49 4E 20  54 48 49 53 20 43 41 53  |('A' IN THIS CAS|
00001460: 45 29 22 3B 00 92 1C 9C  18 99 22 54 4F 20 44 4F  |E)";......"TO DO|
00001470: 20 54 48 45 20 43 4F 55  4E 54 49 4E 47 2E 20 20  | THE COUNTING.  |
00001480: 49 46 20 59 4F 55 20 57  41 4E 54 45 44 20 54 48  |IF YOU WANTED TH|
00001490: 45 22 00 C0 1C A6 18 99  22 43 4F 4D 50 55 54 45  |E"......"COMPUTE|
000014A0: 52 20 54 4F 20 43 4F 55  4E 54 20 49 4E 20 53 54  |R TO COUNT IN ST|
000014B0: 45 50 53 20 4F 46 20 54  57 4F 20 28 32 2C 34 22  |EPS OF TWO (2,4"|
000014C0: 00 EF 1C B0 18 99 22 36  2C 38 29 A0 49 4E 53 54  |......"6,8).INST|
000014D0: 45 41 44 20 4F 46 20 49  4E 20 53 54 45 50 53 20  |EAD OF IN STEPS |
000014E0: 4F 46 20 31 20 28 32 2C  33 2C 34 2C 35 2C 22 00  |OF 1 (2,3,4,5,".|
000014F0: 1E 1D BA 18 99 22 36 2C  37 2C 38 29 2C 20 59 4F  |....."6,7,8), YO|
00001500: 55 20 57 4F 55 4C 44 20  55 53 45 20 54 48 45 20  |U WOULD USE THE |
00001510: 53 54 45 50 20 43 4F 4D  4D 41 4E 44 2C 22 00 4B  |STEP COMMAND,".K|
00001520: 1D C4 18 99 22 41 4E 44  20 54 59 50 45 20 5B 46  |...."AND TYPE [F|
00001530: 4F 52 20 41 3D 32 20 54  4F 20 38 20 53 54 45 50  |OR A=2 TO 8 STEP|
00001540: 20 32 5D 2E 20 20 59 4F  55 20 22 00 7A 1D CE 18  | 2].  YOU ".z...|
00001550: 99 22 4D 41 59 20 55 53  45 20 41 4E 59 20 53 54  |."MAY USE ANY ST|
00001560: 45 50 20 59 4F 55 20 44  45 53 49 52 45 2C 20 41  |EP YOU DESIRE, A|
00001570: 4E 44 20 49 46 20 59 4F  55 22 00 A9 1D D8 18 99  |ND IF YOU"......|
00001580: 22 43 4F 55 4E 54 20 42  41 43 4B 57 41 52 44 53  |"COUNT BACKWARDS|
00001590: 20 28 4C 49 4B 45 20 46  52 4F 4D 20 31 30 20 54  | (LIKE FROM 10 T|
000015A0: 4F 20 31 29 20 59 4F 55  22 00 D5 1D E2 18 99 22  |O 1) YOU"......"|
000015B0: 4D 55 53 54 20 48 41 56  45 20 41 20 4E 45 47 41  |MUST HAVE A NEGA|
000015C0: 54 49 56 45 20 53 54 45  50 20 28 4C 49 4B 45 20  |TIVE STEP (LIKE |
000015D0: 2D 31 29 2E 22 00 E1 1D  00 19 89 20 33 30 30 30  |-1)."...... 3000|
000015E0: 30 00 F4 1D 58 1B 8F 20  47 45 54 20 46 55 4E 43  |0...X.. GET FUNC|
000015F0: 54 49 4F 4E 00 FD 1D 62  1B 99 22 93 22 00 28 1E  |TION...b..".".(.|
00001600: 6C 1B 99 A3 34 29 22 47  45 54 3D 47 45 54 20 41  |l...4)"GET=GET A|
00001610: 20 56 41 52 49 41 42 4C  45 20 46 52 4F 4D 20 4B  | VARIABLE FROM K|
00001620: 45 59 42 4F 41 52 44 22  00 2E 1E 76 1B 99 00 5D  |EYBOARD"...v...]|
00001630: 1E 80 1B 99 22 20 20 20  54 48 45 20 47 45 54 20  |...."   THE GET |
00001640: 53 54 41 54 45 4D 45 4E  54 20 49 53 20 4D 4F 53  |STATEMENT IS MOS|
00001650: 54 20 4F 46 54 45 4E 20  55 53 45 44 22 00 8C 1E  |T OFTEN USED"...|
00001660: 8A 1B 99 22 54 4F 20 47  45 54 20 41 20 4E 55 4D  |..."TO GET A NUM|
00001670: 42 45 52 20 4F 52 20 4C  45 54 54 45 52 20 41 53  |BER OR LETTER AS|
00001680: 20 54 59 50 45 44 20 49  4E 54 4F 22 00 BA 1E 94  | TYPED INTO"....|
00001690: 1B 99 22 54 48 45 20 4B  45 59 42 4F 41 52 44 2E  |.."THE KEYBOARD.|
000016A0: 20 20 46 4F 52 20 49 4E  53 54 41 4E 43 45 2C 20  |  FOR INSTANCE, |
000016B0: 59 4F 55 20 4D 49 47 48  54 22 00 E4 1E 9E 1B 99  |YOU MIGHT"......|
000016C0: 22 50 55 54 20 49 4E 54  4F 20 59 4F 55 52 20 50  |"PUT INTO YOUR P|
000016D0: 52 4F 47 52 41 4D 20 54  48 49 53 20 4C 49 4E 45  |ROGRAM THIS LINE|
000016E0: 3A 22 3A 99 00 07 1F A8  1B 99 22 31 30 20 47 45  |:":......."10 GE|
000016F0: 54 41 24 3A 49 46 20 41  24 3D 27 27 20 54 48 45  |TA$:IF A$='' THE|
00001700: 4E 20 31 30 22 3A 99 00  34 1F B2 1B 99 22 54 48  |N 10":..4...."TH|
00001710: 49 53 20 57 4F 55 4C 44  20 43 41 55 53 45 20 54  |IS WOULD CAUSE T|
00001720: 48 45 20 43 4F 4D 50 55  54 45 52 20 54 4F 20 57  |HE COMPUTER TO W|
00001730: 41 49 54 22 00 63 1F BC  1B 99 22 55 4E 54 49 4C  |AIT".c...."UNTIL|
00001740: 20 53 4F 4D 45 54 48 49  4E 47 20 57 41 53 20 54  | SOMETHING WAS T|
00001750: 59 50 45 44 20 49 4E 54  4F 20 54 48 45 20 4B 45  |YPED INTO THE KE|
00001760: 59 2D 22 00 94 1F C6 1B  99 22 42 4F 41 52 44 2E  |Y-"......"BOARD.|
00001770: 20 20 49 46 20 54 48 45  20 4C 45 54 54 45 52 20  |  IF THE LETTER |
00001780: 27 41 27 20 57 41 53 20  54 59 50 45 44 2C 20 54  |'A' WAS TYPED, T|
00001790: 48 45 22 3B 00 C3 1F D0  1B 99 22 53 54 52 49 4E  |HE";......"STRIN|
000017A0: 47 20 41 24 20 57 4F 55  4C 44 20 54 48 45 4E 20  |G A$ WOULD THEN |
000017B0: 42 45 20 54 48 45 20 4C  45 54 54 45 52 20 27 41  |BE THE LETTER 'A|
000017C0: 27 2E 22 00 ED 1F DA 1B  99 22 42 45 43 41 55 53  |'."......"BECAUS|
000017D0: 45 20 54 48 45 20 47 45  54 20 53 54 41 54 45 4D  |E THE GET STATEM|
000017E0: 45 4E 54 20 44 4F 45 53  20 4E 4F 54 22 00 17 20  |ENT DOES NOT".. |
000017F0: E4 1B 99 22 57 41 49 54  20 46 4F 52 20 41 20 4B  |..."WAIT FOR A K|
00001800: 45 59 20 54 4F 20 42 45  20 50 52 45 53 53 45 44  |EY TO BE PRESSED|
00001810: 2C 20 54 48 45 20 22 00  46 20 EE 1B 99 22 43 4F  |, THE ".F ..."CO|
00001820: 4D 4D 41 4E 44 20 27 49  46 20 41 24 3D 27 27 20  |MMAND 'IF A$='' |
00001830: 54 48 45 4E 20 31 30 27  20 4D 55 53 54 20 42 45  |THEN 10' MUST BE|
00001840: 20 55 53 45 44 22 00 75  20 F8 1B 99 22 54 4F 20  | USED".u ..."TO |
00001850: 4D 41 4B 45 20 54 48 45  20 43 4F 4D 50 55 54 45  |MAKE THE COMPUTE|
00001860: 52 20 57 41 49 54 20 55  4E 54 49 4C 20 41 24 20  |R WAIT UNTIL A$ |
00001870: 44 4F 45 53 22 00 A0 20  02 1C 99 22 49 4E 44 45  |DOES".. ..."INDE|
00001880: 45 44 20 48 41 56 45 20  41 20 56 41 4C 55 45 20  |ED HAVE A VALUE |
00001890: 46 52 4F 4D 20 54 48 45  20 47 45 54 20 41 24 22  |FROM THE GET A$"|
000018A0: 00 B0 20 0C 1C 99 22 43  4F 4D 4D 41 4E 44 2E 22  |.. ..."COMMAND."|
000018B0: 00 BC 20 16 1C 89 20 33  30 30 30 30 00 D1 20 40  |.. ... 30000.. @|
000018C0: 1F 8F 20 47 4F 53 55 42  20 46 55 4E 43 54 49 4F  |.. GOSUB FUNCTIO|
000018D0: 4E 00 DA 20 4A 1F 99 22  93 22 00 FD 20 54 1F 99  |N.. J..".".. T..|
000018E0: A3 36 29 22 47 4F 53 55  42 3D 47 4F 20 54 4F 20  |.6)"GOSUB=GO TO |
000018F0: 41 20 53 55 42 52 4F 55  54 49 4E 45 22 00 03 21  |A SUBROUTINE"..!|
00001900: 5E 1F 99 00 2B 21 68 1F  99 22 20 20 20 54 48 45  |^...+!h.."   THE|
00001910: 20 47 4F 53 55 42 20 49  53 20 41 20 43 4F 4D 4D  | GOSUB IS A COMM|
00001920: 41 4E 44 20 54 4F 20 54  48 45 22 00 55 21 72 1F  |AND TO THE".U!r.|
00001930: 99 22 43 4F 4D 50 55 54  45 52 20 54 4F 20 47 4F  |."COMPUTER TO GO|
00001940: 20 54 4F 20 41 20 44 49  46 46 45 52 45 4E 54 20  | TO A DIFFERENT |
00001950: 50 41 52 54 22 00 80 21  7C 1F 99 22 4F 46 20 54  |PART"..!|.."OF T|
00001960: 48 45 20 50 52 4F 47 52  41 4D 20 54 4F 20 50 45  |HE PROGRAM TO PE|
00001970: 52 46 4F 52 4D 20 41 20  53 50 45 43 49 41 4C 22  |RFORM A SPECIAL"|
00001980: 00 AC 21 86 1F 99 22 54  41 53 4B 2C 20 4F 52 20  |..!..."TASK, OR |
00001990: 53 55 42 52 4F 55 54 49  4E 45 2C 20 41 4E 44 20  |SUBROUTINE, AND |
000019A0: 54 48 45 4E 20 52 45 54  55 52 4E 22 00 DA 21 90  |THEN RETURN"..!.|
000019B0: 1F 99 22 54 4F 20 54 48  45 20 50 4C 41 43 45 20  |.."TO THE PLACE |
000019C0: 4A 55 53 54 20 41 46 54  45 52 20 54 48 45 20 53  |JUST AFTER THE S|
000019D0: 55 42 52 4F 55 54 49 4E  45 22 00 05 22 9A 1F 99  |UBROUTINE".."...|
000019E0: 22 57 41 53 20 4F 52 44  45 52 45 44 2E 20 20 54  |"WAS ORDERED.  T|
000019F0: 48 45 20 46 4F 4C 4C 4F  57 49 4E 47 20 50 52 4F  |HE FOLLOWING PRO|
00001A00: 47 52 41 4D 22 00 31 22  A4 1F 99 22 57 4F 55 4C  |GRAM".1"..."WOUL|
00001A10: 44 20 49 4E 53 54 52 55  43 54 20 54 48 45 20 43  |D INSTRUCT THE C|
00001A20: 4F 4D 50 55 54 45 52 20  54 4F 20 47 4F 20 54 4F  |OMPUTER TO GO TO|
00001A30: 22 00 5D 22 AE 1F 99 22  4C 49 4E 45 20 34 30 2C  |".]"..."LINE 40,|
00001A40: 20 50 52 49 4E 54 20 41  20 4E 55 4D 42 45 52 2C  | PRINT A NUMBER,|
00001A50: 20 54 48 45 4E 20 52 45  54 55 52 4E 22 00 88 22  | THEN RETURN".."|
00001A60: B8 1F 99 22 54 4F 20 4C  49 4E 45 20 32 30 2C 20  |..."TO LINE 20, |
00001A70: 54 48 45 20 4C 49 4E 45  20 46 4F 4C 4C 4F 57 49  |THE LINE FOLLOWI|
00001A80: 4E 47 20 54 48 45 20 22  00 A0 22 C2 1F 99 22 47  |NG THE ".."..."G|
00001A90: 4F 53 55 42 20 43 4F 4D  4D 41 4E 44 3A 22 3A 99  |OSUB COMMAND:":.|
00001AA0: 00 B9 22 CC 1F 99 22 31  30 20 20 41 3D 31 30 3A  |.."..."10  A=10:|
00001AB0: 47 4F 53 55 42 20 34 30  22 00 DC 22 D6 1F 99 22  |GOSUB 40".."..."|
00001AC0: 32 30 20 20 50 52 49 4E  54 27 50 52 4F 47 52 41  |20  PRINT'PROGRA|
00001AD0: 4D 20 46 49 4E 49 53 48  45 44 27 22 00 EB 22 E0  |M FINISHED'"..".|
00001AE0: 1F 99 22 33 30 20 20 45  4E 44 22 00 FE 22 EA 1F  |.."30  END".."..|
00001AF0: 99 22 34 30 20 20 50 52  49 4E 54 20 41 22 00 2A  |."40  PRINT A".*|
00001B00: 23 F4 1F 99 22 35 30 20  20 52 45 54 55 52 4E 3A  |#..."50  RETURN:|
00001B10: 20 52 45 4D 20 52 45 54  55 52 4E 20 54 45 4C 4C  | REM RETURN TELL|
00001B20: 53 20 50 52 4F 47 52 41  4D 22 00 59 23 FE 1F 99  |S PROGRAM".Y#...|
00001B30: 22 36 30 20 20 52 45 4D  20 54 4F 20 52 45 54 55  |"60  REM TO RETU|
00001B40: 52 4E 20 54 4F 20 27 47  4F 53 55 42 27 20 53 54  |RN TO 'GOSUB' ST|
00001B50: 41 54 45 4D 45 4E 54 2E  22 00 65 23 08 20 89 20  |ATEMENT.".e#. . |
00001B60: 33 30 30 30 30 00 79 23  28 23 8F 20 47 4F 54 4F  |30000.y#(#. GOTO|
00001B70: 20 46 55 4E 43 54 49 4F  4E 00 82 23 32 23 99 22  | FUNCTION..#2#."|
00001B80: 93 22 00 AF 23 3C 23 99  A3 34 29 22 47 4F 54 4F  |."..#<#..4)"GOTO|
00001B90: 3D 47 4F 20 54 4F 20 41  4E 4F 54 48 45 52 20 50  |=GO TO ANOTHER P|
00001BA0: 41 52 54 20 4F 46 20 50  52 4F 47 52 41 4D 22 00  |ART OF PROGRAM".|
00001BB0: B5 23 46 23 99 00 E6 23  50 23 99 22 20 20 20 54  |.#F#...#P#."   T|
00001BC0: 48 45 20 47 4F 54 4F 20  53 54 41 54 45 4D 45 4E  |HE GOTO STATEMEN|
00001BD0: 54 20 54 45 4C 4C 53 20  54 48 45 20 43 4F 4D 50  |T TELLS THE COMP|
00001BE0: 55 54 45 52 22 3B 00 11  24 5A 23 99 22 54 4F 20  |UTER";..$Z#."TO |
00001BF0: 47 4F 20 54 4F 20 41 4E  4F 54 48 45 52 20 50 41  |GO TO ANOTHER PA|
00001C00: 52 54 20 4F 46 20 41 20  50 52 4F 47 52 41 4D 2E  |RT OF A PROGRAM.|
00001C10: 22 00 3E 24 64 23 99 22  54 48 45 20 47 4F 54 4F  |".>$d#."THE GOTO|
00001C20: 20 53 54 41 54 45 4D 45  4E 54 20 49 53 20 46 4F  | STATEMENT IS FO|
00001C30: 4C 4C 4F 57 45 44 20 42  59 20 54 48 45 22 00 6B  |LLOWED BY THE".k|
00001C40: 24 6E 23 99 22 4C 49 4E  45 20 4E 55 4D 42 45 52  |$n#."LINE NUMBER|
00001C50: 20 54 48 45 20 50 52 4F  47 52 41 4D 20 53 48 4F  | THE PROGRAM SHO|
00001C60: 55 4C 44 20 47 4F 20 54  4F 2E 22 00 99 24 78 23  |ULD GO TO."..$x#|
00001C70: 99 22 54 48 45 20 46 4F  4C 4C 4F 57 49 4E 47 20  |."THE FOLLOWING |
00001C80: 50 52 4F 47 52 41 4D 20  57 4F 55 4C 44 20 50 52  |PROGRAM WOULD PR|
00001C90: 49 4E 54 20 27 36 34 27  22 00 C7 24 82 23 99 22  |INT '64'"..$.#."|
00001CA0: 4F 56 45 52 20 41 4E 44  20 4F 56 45 52 2C 20 53  |OVER AND OVER, S|
00001CB0: 49 4E 43 45 20 4C 49 4E  45 20 33 30 20 54 45 4C  |INCE LINE 30 TEL|
00001CC0: 4C 53 20 54 48 45 22 00  EE 24 8C 23 99 22 43 4F  |LS THE"..$.#."CO|
00001CD0: 4D 50 55 54 45 52 20 54  4F 20 47 4F 20 54 4F 20  |MPUTER TO GO TO |
00001CE0: 54 48 45 20 42 45 47 49  4E 4E 49 4E 47 22 00 10  |THE BEGINNING"..|
00001CF0: 25 96 23 99 22 4F 46 20  54 48 45 20 50 52 4F 47  |%.#."OF THE PROG|
00001D00: 52 41 4D 2C 20 4C 49 4E  45 20 31 30 3A 22 3A 99  |RAM, LINE 10:":.|
00001D10: 00 23 25 A0 23 99 22 31  30 20 20 41 24 3D 27 36  |.#%.#."10  A$='6|
00001D20: 34 27 22 00 37 25 AA 23  99 22 32 30 20 20 50 52  |4'".7%.#."20  PR|
00001D30: 49 4E 54 20 41 24 22 00  4A 25 B4 23 99 22 33 30  |INT A$".J%.#."30|
00001D40: 20 20 47 4F 54 4F 20 31  30 22 00 56 25 BE 23 89  |  GOTO 10".V%.#.|
00001D50: 20 33 30 30 30 30 00 6F  25 10 27 8F 20 49 46 2F  | 30000.o%.'. IF/|
00001D60: 54 48 45 4E 20 53 54 41  54 45 4D 45 4E 54 53 00  |THEN STATEMENTS.|
00001D70: 78 25 1A 27 99 22 93 22  00 A7 25 24 27 99 A3 33  |x%.'."."..%$'..3|
00001D80: 29 22 49 46 2F 54 48 45  4E 3D 4C 4F 47 49 43 41  |)"IF/THEN=LOGICA|
00001D90: 4C 20 44 45 43 49 53 49  4F 4E 20 42 59 20 43 4F  |L DECISION BY CO|
00001DA0: 4D 50 55 54 45 52 22 00  AD 25 2E 27 99 00 DB 25  |MPUTER"..%.'...%|
00001DB0: 38 27 99 22 20 20 20 46  4F 52 20 54 48 45 20 43  |8'."   FOR THE C|
00001DC0: 4F 4D 50 55 54 45 52 20  54 4F 20 4D 41 4B 45 20  |OMPUTER TO MAKE |
00001DD0: 41 20 44 45 43 49 53 49  4F 4E 22 00 06 26 42 27  |A DECISION"..&B'|
00001DE0: 99 22 41 4E 44 20 49 4D  50 4C 45 4D 45 4E 54 20  |."AND IMPLEMENT |
00001DF0: 41 20 52 45 53 55 4C 54  2C 20 54 48 45 20 49 46  |A RESULT, THE IF|
00001E00: 2F 54 48 45 4E 22 00 34  26 4C 27 99 22 53 54 41  |/THEN".4&L'."STA|
00001E10: 54 45 4D 45 4E 54 20 49  53 20 55 53 45 44 2E 20  |TEMENT IS USED. |
00001E20: 20 54 48 45 20 43 4F 4D  4D 41 4E 44 20 4D 45 52  | THE COMMAND MER|
00001E30: 45 4C 59 22 00 5E 26 56  27 99 22 54 45 4C 4C 53  |ELY".^&V'."TELLS|
00001E40: 20 54 48 45 20 43 4F 4D  50 55 54 45 52 20 54 4F  | THE COMPUTER TO|
00001E50: 20 44 4F 20 53 4F 4D 45  54 48 49 4E 47 22 00 8B  | DO SOMETHING"..|
00001E60: 26 60 27 99 22 28 27 54  48 45 4E 27 29 20 49 46  |&`'."('THEN') IF|
00001E70: 20 28 27 49 46 27 29 20  53 4F 4D 45 54 48 49 4E  | ('IF') SOMETHIN|
00001E80: 47 20 49 53 20 54 52 55  45 2E 22 00 BA 26 6A 27  |G IS TRUE."..&j'|
00001E90: 99 22 46 4F 52 20 45 58  41 4D 50 4C 45 2C 20 49  |."FOR EXAMPLE, I|
00001EA0: 46 20 59 4F 55 20 57 41  4E 54 45 44 20 54 48 45  |F YOU WANTED THE|
00001EB0: 20 43 4F 4D 50 55 54 45  52 22 00 E8 26 74 27 99  | COMPUTER"..&t'.|
00001EC0: 22 54 4F 20 47 4F 20 54  4F 20 4C 49 4E 45 20 31  |"TO GO TO LINE 1|
00001ED0: 30 30 20 49 46 20 54 48  45 20 56 41 4C 55 45 20  |00 IF THE VALUE |
00001EE0: 4F 46 20 54 48 45 20 22  00 15 27 7E 27 99 22 56  |OF THE "..'~'."V|
00001EF0: 41 52 49 41 42 4C 45 20  27 41 27 20 57 41 53 20  |ARIABLE 'A' WAS |
00001F00: 31 30 2C 20 59 4F 55 20  57 4F 55 4C 44 20 54 59  |10, YOU WOULD TY|
00001F10: 50 45 22 3A 99 00 37 27  88 27 99 22 27 49 46 20  |PE":..7'.'."'IF |
00001F20: 41 3D 31 30 20 54 48 45  4E 20 47 4F 54 4F 20 31  |A=10 THEN GOTO 1|
00001F30: 30 30 2E 27 22 3A 99 00  68 27 92 27 99 22 59 4F  |00.'":..h'.'."YO|
00001F40: 55 20 43 41 4E 20 54 59  50 45 20 49 4E 20 4A 55  |U CAN TYPE IN JU|
00001F50: 53 54 20 41 42 4F 55 54  20 41 4E 59 20 43 4F 4E  |ST ABOUT ANY CON|
00001F60: 44 49 54 49 4F 4E 22 3B  00 95 27 9C 27 99 22 41  |DITION";..'.'."A|
00001F70: 4E 44 20 52 45 53 55 4C  54 20 55 53 49 4E 47 20  |ND RESULT USING |
00001F80: 54 48 45 20 49 46 2F 54  48 45 4E 20 43 4F 4D 4D  |THE IF/THEN COMM|
00001F90: 41 4E 44 2E 22 00 A1 27  A6 27 89 20 33 30 30 30  |AND."..'.'. 3000|
00001FA0: 30 00 B6 27 F8 2A 8F 20  4C 45 46 54 24 20 46 55  |0..'.*. LEFT$ FU|
00001FB0: 4E 43 54 49 4F 4E 00 BF  27 02 2B 99 22 93 22 00  |NCTION..'.+.".".|
00001FC0: E3 27 0C 2B 99 A3 35 29  22 4C 45 46 54 24 3D 4C  |.'.+..5)"LEFT$=L|
00001FD0: 45 46 54 20 50 41 52 54  20 4F 46 20 53 54 52 49  |EFT PART OF STRI|
00001FE0: 4E 47 22 00 E9 27 16 2B  99 00 18 28 20 2B 99 22  |NG"..'.+...( +."|
00001FF0: 20 20 20 4C 45 46 54 24  20 49 53 20 55 53 45 44  |   LEFT$ IS USED|
00002000: 20 54 4F 20 27 43 48 4F  50 20 4F 46 46 27 20 54  | TO 'CHOP OFF' T|
00002010: 48 45 20 4C 45 46 54 22  00 45 28 2A 2B 99 22 50  |HE LEFT".E(*+."P|
00002020: 41 52 54 20 4F 46 20 41  20 53 54 52 49 4E 47 20  |ART OF A STRING |
00002030: 46 4F 52 20 57 48 41 54  45 56 45 52 20 52 45 41  |FOR WHATEVER REA|
00002040: 53 4F 4E 2E 22 00 65 28  34 2B 99 22 54 48 45 20  |SON.".e(4+."THE |
00002050: 46 4F 52 4D 41 54 20 46  4F 52 20 4C 45 46 54 24  |FORMAT FOR LEFT$|
00002060: 20 49 53 3A 22 00 8E 28  3E 2B 99 22 27 4C 45 46  | IS:"..(>+."'LEF|
00002070: 54 24 28 53 54 52 49 4E  47 2C 4E 55 4D 42 45 52  |T$(STRING,NUMBER|
00002080: 29 27 2E 20 20 59 4F 55  20 54 45 4C 4C 22 00 B6  |)'.  YOU TELL"..|
00002090: 28 48 2B 99 22 54 48 45  20 43 4F 4D 50 55 54 45  |(H+."THE COMPUTE|
000020A0: 52 20 54 48 45 20 53 54  52 49 4E 47 20 41 4E 44  |R THE STRING AND|
000020B0: 20 54 48 45 20 22 00 E4  28 52 2B 99 22 4E 55 4D  | THE "..(R+."NUM|
000020C0: 42 45 52 20 4F 46 20 43  48 41 52 41 43 54 45 52  |BER OF CHARACTER|
000020D0: 53 20 54 4F 20 27 43 48  4F 50 20 4F 46 46 27 20  |S TO 'CHOP OFF' |
000020E0: 54 48 45 22 00 11 29 5C  2B 99 22 4C 45 46 54 20  |THE"..)\+."LEFT |
000020F0: 53 49 44 45 2E 20 20 49  46 20 59 4F 55 20 57 41  |SIDE.  IF YOU WA|
00002100: 4E 54 45 44 20 54 4F 20  46 49 4E 44 20 4F 55 54  |NTED TO FIND OUT|
00002110: 22 00 3D 29 66 2B 99 22  54 48 45 20 46 49 52 53  |".=)f+."THE FIRS|
00002120: 54 20 4C 45 54 54 45 52  20 4F 46 20 41 20 50 45  |T LETTER OF A PE|
00002130: 52 53 4F 4E 27 53 20 4E  41 4D 45 2C 22 00 69 29  |RSON'S NAME,".i)|
00002140: 70 2B 99 22 46 4F 52 20  45 58 41 4D 50 4C 45 2C  |p+."FOR EXAMPLE,|
00002150: 20 59 4F 55 20 4E 45 45  44 20 4F 4E 4C 59 20 54  | YOU NEED ONLY T|
00002160: 45 4C 4C 20 54 48 45 20  22 00 95 29 7A 2B 99 22  |ELL THE "..)z+."|
00002170: 43 4F 4D 50 55 54 45 52  2C 20 27 50 52 49 4E 54  |COMPUTER, 'PRINT|
00002180: 20 4C 45 46 54 24 28 4E  41 4D 45 24 2C 31 29 27  | LEFT$(NAME$,1)'|
00002190: 20 49 46 20 22 00 C4 29  84 2B 99 22 4E 41 4D 45  | IF "..).+."NAME|
000021A0: 24 20 57 45 52 45 20 54  48 45 20 53 54 52 49 4E  |$ WERE THE STRIN|
000021B0: 47 20 46 4F 52 20 54 48  41 54 20 50 45 52 53 4F  |G FOR THAT PERSO|
000021C0: 4E 27 53 22 00 D1 29 8E  2B 99 22 4E 41 4D 45 2E  |N'S"..).+."NAME.|
000021D0: 22 00 DD 29 98 2B 89 20  33 30 30 30 30 00 F0 29  |"..).+. 30000..)|
000021E0: E0 2E 8F 20 4C 45 4E 20  46 55 4E 43 54 49 4F 4E  |... LEN FUNCTION|
000021F0: 00 F9 29 EA 2E 99 22 93  22 00 18 2A F4 2E 99 A3  |..)..."."..*....|
00002200: 38 29 22 4C 45 4E 3D 4C  45 4E 47 54 48 20 4F 46  |8)"LEN=LENGTH OF|
00002210: 20 53 54 52 49 4E 47 22  00 1E 2A FE 2E 99 00 49  | STRING"..*....I|
00002220: 2A 08 2F 99 22 20 20 20  54 48 45 20 4C 45 4E 20  |*./."   THE LEN |
00002230: 46 55 4E 43 54 49 4F 4E  20 49 53 20 55 53 45 44  |FUNCTION IS USED|
00002240: 20 54 4F 20 46 49 4E 44  22 00 74 2A 12 2F 99 22  | TO FIND".t*./."|
00002250: 54 48 45 20 4C 45 4E 47  54 48 20 4F 46 20 41 20  |THE LENGTH OF A |
00002260: 53 54 52 49 4E 47 2E 20  20 54 48 45 20 53 54 52  |STRING.  THE STR|
00002270: 49 4E 47 22 00 A1 2A 1C  2F 99 22 27 43 4C 4F 43  |ING"..*./."'CLOC|
00002280: 4B 57 4F 52 4B 27 2C 20  46 4F 52 20 49 4E 53 54  |KWORK', FOR INST|
00002290: 41 4E 43 45 2C 20 57 4F  55 4C 44 20 48 41 56 45  |ANCE, WOULD HAVE|
000022A0: 22 00 CC 2A 26 2F 99 22  41 20 56 41 4C 55 45 20  |"..*&/."A VALUE |
000022B0: 4F 46 20 4E 49 4E 45 20  49 46 20 59 4F 55 20 54  |OF NINE IF YOU T|
000022C0: 59 50 45 44 20 27 50 52  49 4E 54 22 00 FB 2A 30  |YPED 'PRINT"..*0|
000022D0: 2F 99 22 4C 45 4E 20 28  27 43 4C 4F 43 4B 57 4F  |/."LEN ('CLOCKWO|
000022E0: 52 4B 27 29 2C 20 53 49  4E 43 45 20 54 48 45 20  |RK'), SINCE THE |
000022F0: 53 54 52 49 4E 47 20 48  41 53 22 00 26 2B 3A 2F  |STRING HAS".&+:/|
00002300: 99 22 4E 49 4E 45 20 43  48 41 52 41 43 54 45 52  |."NINE CHARACTER|
00002310: 53 20 49 4E 20 49 54 2E  20 20 49 46 20 41 20 53  |S IN IT.  IF A S|
00002320: 54 52 49 4E 47 22 00 52  2B 44 2F 99 22 43 41 4C  |TRING".R+D/."CAL|
00002330: 4C 45 44 20 27 41 43 4F  24 27 20 48 41 44 20 54  |LED 'ACO$' HAD T|
00002340: 45 4E 20 43 48 41 52 41  43 54 45 52 53 20 49 4E  |EN CHARACTERS IN|
00002350: 20 22 00 7D 2B 4E 2F 99  22 49 54 2C 20 41 4E 44  | ".}+N/."IT, AND|
00002360: 20 59 4F 55 20 54 59 50  45 44 20 4C 3D 4C 45 4E  | YOU TYPED L=LEN|
00002370: 28 41 43 4F 24 29 2C 20  54 48 45 20 22 00 9C 2B  |(ACO$), THE "..+|
00002380: 58 2F 99 22 56 41 4C 55  45 20 4F 46 20 4C 20 57  |X/."VALUE OF L W|
00002390: 4F 55 4C 44 20 42 45 20  31 30 2E 22 00 A8 2B 62  |OULD BE 10."..+b|
000023A0: 2F 89 20 33 30 30 30 30  00 C8 2B C8 32 8F 20 4D  |/. 30000..+.2. M|
000023B0: 49 44 44 4C 45 20 4F 46  20 53 54 52 49 4E 47 20  |IDDLE OF STRING |
000023C0: 46 55 4E 43 54 49 4F 4E  00 D1 2B D2 32 99 22 93  |FUNCTION..+.2.".|
000023D0: 22 00 FA 2B DC 32 99 A3  35 29 22 4D 49 44 24 3D  |"..+.2..5)"MID$=|
000023E0: 4D 49 44 44 4C 45 20 4F  46 20 53 54 52 49 4E 47  |MIDDLE OF STRING|
000023F0: 20 46 55 4E 43 54 49 4F  4E 22 00 00 2C E1 32 99  | FUNCTION"..,.2.|
00002400: 00 2E 2C E6 32 99 22 20  20 20 54 48 45 20 4D 49  |..,.2."   THE MI|
00002410: 44 24 20 46 55 4E 43 54  49 4F 4E 20 46 49 4E 44  |D$ FUNCTION FIND|
00002420: 20 41 20 50 49 45 43 45  20 4F 46 20 41 22 00 59  | A PIECE OF A".Y|
00002430: 2C F0 32 99 22 53 54 52  49 4E 47 20 57 49 54 48  |,.2."STRING WITH|
00002440: 49 4E 20 41 20 53 54 52  49 4E 47 2E 20 20 54 48  |IN A STRING.  TH|
00002450: 45 20 46 4F 52 4D 41 54  22 00 84 2C FA 32 99 22  |E FORMAT"..,.2."|
00002460: 46 4F 52 20 4D 49 44 24  20 49 53 20 27 4D 49 44  |FOR MID$ IS 'MID|
00002470: 24 28 53 54 52 49 4E 47  2C 20 23 31 2C 20 23 32  |$(STRING, #1, #2|
00002480: 29 27 2E 22 00 AF 2C 04  33 99 22 53 54 52 49 4E  |)'."..,.3."STRIN|
00002490: 47 20 53 50 45 43 49 46  49 45 53 20 54 48 45 20  |G SPECIFIES THE |
000024A0: 53 54 52 49 4E 47 2C 20  4E 55 4D 42 45 52 22 00  |STRING, NUMBER".|
000024B0: DB 2C 18 33 99 22 4F 4E  45 20 54 45 4C 4C 53 20  |.,.3."ONE TELLS |
000024C0: 54 48 45 20 43 4F 4D 50  55 54 45 52 20 41 54 20  |THE COMPUTER AT |
000024D0: 57 48 41 54 20 50 4F 49  4E 54 22 00 06 2D 22 33  |WHAT POINT"..-"3|
000024E0: 99 22 49 4E 20 54 48 45  20 53 54 52 49 4E 47 20  |."IN THE STRING |
000024F0: 59 4F 55 20 57 41 4E 54  20 54 4F 20 45 58 54 52  |YOU WANT TO EXTR|
00002500: 41 43 54 20 41 22 00 31  2D 2C 33 99 22 50 49 45  |ACT A".1-,3."PIE|
00002510: 43 45 20 4F 46 20 54 48  45 20 53 54 52 49 4E 47  |CE OF THE STRING|
00002520: 2C 20 41 4E 44 20 4E 55  4D 42 45 52 20 54 57 4F  |, AND NUMBER TWO|
00002530: 22 00 5E 2D 36 33 99 22  54 45 4C 4C 53 20 54 48  |".^-63."TELLS TH|
00002540: 45 20 43 4F 4D 50 55 54  45 52 20 48 4F 57 20 4C  |E COMPUTER HOW L|
00002550: 4F 4E 47 20 59 4F 55 20  57 41 4E 54 20 22 00 89  |ONG YOU WANT "..|
00002560: 2D 40 33 99 22 54 48 41  54 20 50 49 45 43 45 20  |-@3."THAT PIECE |
00002570: 54 4F 20 42 45 2E 20 20  53 55 50 50 4F 53 45 20  |TO BE.  SUPPOSE |
00002580: 41 20 53 54 52 49 4E 47  22 00 B5 2D 4A 33 99 22  |A STRING"..-J3."|
00002590: 45 58 49 53 54 45 44 20  43 41 4C 4C 45 44 20 54  |EXISTED CALLED T|
000025A0: 24 20 57 48 49 43 48 20  57 41 53 20 27 51 55 45  |$ WHICH WAS 'QUE|
000025B0: 4E 54 49 4E 22 00 E1 2D  54 33 99 22 43 4F 4F 4B  |NTIN"..-T3."COOK|
000025C0: 20 44 45 4C 41 52 47 45  27 2E 20 20 54 59 50 49  | DELARGE'.  TYPI|
000025D0: 4E 47 20 54 48 45 20 53  54 41 54 45 4D 45 4E 54  |NG THE STATEMENT|
000025E0: 22 00 0C 2E 5E 33 99 22  5B 50 52 49 4E 54 20 4D  |"...^3."[PRINT M|
000025F0: 49 44 24 28 54 24 2C 38  2C 34 29 5D 20 57 4F 55  |ID$(T$,8,4)] WOU|
00002600: 4C 44 20 54 45 4C 4C 20  54 48 45 22 00 34 2E 68  |LD TELL THE".4.h|
00002610: 33 99 22 43 4F 4D 50 55  54 45 52 20 54 4F 20 50  |3."COMPUTER TO P|
00002620: 52 49 4E 54 20 27 43 4F  4F 4B 27 2C 20 53 49 4E  |RINT 'COOK', SIN|
00002630: 43 45 20 22 00 5D 2E 72  33 99 22 27 43 4F 4F 4B  |CE ".].r3."'COOK|
00002640: 27 20 49 53 20 54 48 45  20 46 4F 55 52 2D 43 48  |' IS THE FOUR-CH|
00002650: 41 52 41 43 54 45 52 20  4C 4F 4E 47 22 00 85 2E  |ARACTER LONG"...|
00002660: 7C 33 99 22 50 49 45 43  45 20 4F 46 20 54 48 45  ||3."PIECE OF THE|
00002670: 20 53 54 52 49 4E 47 20  42 45 47 49 4E 4E 49 4E  | STRING BEGINNIN|
00002680: 47 20 41 54 22 00 9E 2E  86 33 99 22 4C 4F 43 41  |G AT"....3."LOCA|
00002690: 54 49 4F 4E 20 38 20 4F  46 20 54 24 2E 22 00 AA  |TION 8 OF T$."..|
000026A0: 2E 90 33 89 20 33 30 30  30 30 00 C0 2E B0 36 8F  |..3. 30000....6.|
000026B0: 20 49 4E 50 55 54 20 53  54 41 54 45 4D 45 4E 54  | INPUT STATEMENT|
000026C0: 00 C9 2E BA 36 99 22 93  22 00 E9 2E C4 36 99 A3  |....6."."....6..|
000026D0: 38 29 22 49 4E 50 55 54  3D 49 4E 50 55 54 20 56  |8)"INPUT=INPUT V|
000026E0: 41 52 49 41 42 4C 45 53  22 00 EF 2E CE 36 99 00  |ARIABLES"....6..|
000026F0: 1D 2F D8 36 99 22 20 20  20 54 48 45 20 49 4E 50  |./.6."   THE INP|
00002700: 55 54 20 53 54 41 54 45  4D 45 4E 54 20 4C 45 54  |UT STATEMENT LET|
00002710: 53 20 41 20 43 4F 4D 50  55 54 45 52 22 00 4A 2F  |S A COMPUTER".J/|
00002720: E2 36 99 22 55 53 45 52  20 45 4E 54 45 52 20 44  |.6."USER ENTER D|
00002730: 41 54 41 20 49 4E 54 4F  20 54 48 45 20 43 4F 4D  |ATA INTO THE COM|
00002740: 50 55 54 45 52 2C 20 49  4E 22 00 78 2F EC 36 99  |PUTER, IN".x/.6.|
00002750: 22 54 48 45 20 46 4F 52  4D 20 4F 46 20 4C 45 54  |"THE FORM OF LET|
00002760: 54 45 52 53 2C 20 4E 55  4D 42 45 52 53 2C 20 4F  |TERS, NUMBERS, O|
00002770: 52 20 42 4F 54 48 2E 22  00 A3 2F F6 36 99 22 46  |R BOTH."../.6."F|
00002780: 4F 52 20 54 48 45 20 43  4F 4D 50 55 54 45 52 20  |OR THE COMPUTER |
00002790: 54 4F 20 41 43 43 45 50  54 20 4E 55 4D 45 52 49  |TO ACCEPT NUMERI|
000027A0: 43 20 22 00 CE 2F 00 37  99 22 49 4E 46 4F 52 4D  |C "../.7."INFORM|
000027B0: 41 54 49 4F 4E 2C 20 41  20 4E 55 4D 42 45 52 20  |ATION, A NUMBER |
000027C0: 56 41 52 49 41 42 4C 45  20 4D 55 53 54 22 00 FF  |VARIABLE MUST"..|
000027D0: 2F 0A 37 99 22 42 45 20  55 53 45 44 20 41 4C 4F  |/.7."BE USED ALO|
000027E0: 4E 47 20 57 49 54 48 20  49 4E 50 55 54 20 28 49  |NG WITH INPUT (I|
000027F0: 2E 45 2E 20 49 4E 50 55  54 20 41 29 2E 22 3B 00  |.E. INPUT A).";.|
00002800: 2B 30 14 37 99 22 46 4F  52 20 41 4C 50 48 41 4E  |+0.7."FOR ALPHAN|
00002810: 55 4D 45 52 49 43 20 44  41 54 41 20 54 4F 20 42  |UMERIC DATA TO B|
00002820: 45 20 41 43 43 45 50 54  45 44 22 00 59 30 1E 37  |E ACCEPTED".Y0.7|
00002830: 99 22 42 59 20 54 48 45  20 43 4F 4D 50 55 54 45  |."BY THE COMPUTE|
00002840: 52 2C 20 41 20 43 4F 4D  4D 41 4E 44 20 4C 49 4B  |R, A COMMAND LIK|
00002850: 45 20 5B 49 4E 50 55 54  22 00 84 30 28 37 99 22  |E [INPUT"..0(7."|
00002860: 41 24 5D 20 53 48 4F 55  4C 44 20 42 45 20 55 53  |A$] SHOULD BE US|
00002870: 45 44 2E 20 20 53 45 56  45 52 41 4C 20 50 49 45  |ED.  SEVERAL PIE|
00002880: 43 45 53 22 00 AE 30 32  37 99 22 4F 46 20 44 41  |CES"..027."OF DA|
00002890: 54 41 20 4D 41 59 20 42  45 20 49 4E 50 55 54 20  |TA MAY BE INPUT |
000028A0: 49 4E 20 41 20 52 4F 57  2C 20 42 59 20 22 00 DC  |IN A ROW, BY "..|
000028B0: 30 3C 37 99 22 55 53 49  4E 47 20 54 48 45 20 49  |0<7."USING THE I|
000028C0: 4E 50 55 54 20 43 4F 4D  4D 41 4E 44 20 49 4E 20  |NPUT COMMAND IN |
000028D0: 54 48 49 53 20 57 41 59  3A 22 3A 99 00 F8 30 46  |THIS WAY:":...0F|
000028E0: 37 99 22 31 30 20 49 4E  50 55 54 20 41 2C 42 24  |7."10 INPUT A,B$|
000028F0: 2C 42 2C 41 24 22 3A 99  00 25 31 50 37 99 22 54  |,B,A$":..%1P7."T|
00002900: 48 49 53 20 43 4F 4D 4D  41 4E 44 20 57 4F 55 4C  |HIS COMMAND WOUL|
00002910: 44 20 41 4C 4C 4F 57 20  54 48 45 20 49 4E 50 55  |D ALLOW THE INPU|
00002920: 54 20 4F 46 22 00 4E 31  5A 37 99 22 41 20 4E 55  |T OF".N1Z7."A NU|
00002930: 4D 42 45 52 2C 20 41 20  53 54 52 49 4E 47 2C 20  |MBER, A STRING, |
00002940: 41 20 4E 55 4D 42 45 52  2C 20 41 4E 44 22 00 65  |A NUMBER, AND".e|
00002950: 31 64 37 99 22 41 4E 4F  54 48 45 52 20 53 54 52  |1d7."ANOTHER STR|
00002960: 49 4E 47 2E 22 00 71 31  6E 37 89 20 33 30 30 30  |ING.".q1n7. 3000|
00002970: 30 00 84 31 98 3A 8F 20  4F 4E 20 53 54 41 54 45  |0..1.:. ON STATE|
00002980: 4D 45 4E 54 00 8D 31 A2  3A 99 22 93 22 00 B8 31  |MENT..1.:."."..1|
00002990: AC 3A 99 A3 36 29 22 4F  4E 20 53 54 41 54 45 4D  |.:..6)"ON STATEM|
000029A0: 45 4E 54 3D 4D 55 4C 54  49 50 4C 45 20 47 4F 54  |ENT=MULTIPLE GOT|
000029B0: 4F 2F 47 4F 53 55 42 22  00 BE 31 B6 3A 99 00 ED  |O/GOSUB"..1.:...|
000029C0: 31 C0 3A 99 22 20 20 20  54 48 45 20 4F 4E 20 53  |1.:."   THE ON S|
000029D0: 54 41 54 45 4D 45 4E 54  20 45 56 41 4C 55 41 54  |TATEMENT EVALUAT|
000029E0: 45 53 20 54 48 45 20 56  41 4C 55 45 22 00 1E 32  |ES THE VALUE"..2|
000029F0: CA 3A 99 22 4F 46 20 41  20 56 41 52 49 41 42 4C  |.:."OF A VARIABL|
00002A00: 45 2C 20 41 4E 44 20 47  4F 45 53 20 54 4F 20 41  |E, AND GOES TO A|
00002A10: 20 4C 49 4E 45 20 4E 55  4D 42 45 52 22 3B 00 49  | LINE NUMBER";.I|
00002A20: 32 D4 3A 99 22 41 53 20  44 45 54 45 52 4D 49 4E  |2.:."AS DETERMIN|
00002A30: 45 44 20 46 4F 52 20 54  48 41 54 20 4E 55 4D 42  |ED FOR THAT NUMB|
00002A40: 45 52 2E 20 20 46 4F 52  22 00 59 32 DE 3A 99 22  |ER.  FOR".Y2.:."|
00002A50: 45 58 41 4D 50 4C 45 3A  22 00 7B 32 E8 3A 99 3A  |EXAMPLE:".{2.:.:|
00002A60: 99 22 31 30 20 20 4F 4E  20 41 20 47 4F 54 4F 20  |."10  ON A GOTO |
00002A70: 34 30 2C 35 30 2C 36 30  22 3A 99 00 A6 32 F2 3A  |40,50,60":...2.:|
00002A80: 99 22 49 46 20 54 48 45  20 56 41 52 49 41 42 4C  |."IF THE VARIABL|
00002A90: 45 20 41 20 57 41 53 20  45 51 55 41 4C 20 54 4F  |E A WAS EQUAL TO|
00002AA0: 20 4F 4E 45 2C 22 00 D3  32 FC 3A 99 22 54 48 45  | ONE,"..2.:."THE|
00002AB0: 20 50 52 4F 47 52 41 4D  20 57 4F 55 4C 44 20 47  | PROGRAM WOULD G|
00002AC0: 4F 20 54 4F 20 4C 49 4E  45 20 34 30 2E 20 20 49  |O TO LINE 40.  I|
00002AD0: 46 20 22 00 04 33 06 3B  99 22 56 41 52 49 41 42  |F "..3.;."VARIAB|
00002AE0: 4C 45 20 41 20 57 41 53  20 45 51 55 41 4C 20 54  |LE A WAS EQUAL T|
00002AF0: 4F 20 54 57 4F 2C 20 54  48 45 20 50 52 4F 47 52  |O TWO, THE PROGR|
00002B00: 41 4D 22 3B 00 33 33 10  3B 99 22 57 4F 55 4C 44  |AM";.33.;."WOULD|
00002B10: 20 47 4F 20 54 4F 20 4C  49 4E 45 20 35 30 2E 20  | GO TO LINE 50. |
00002B20: 20 49 46 20 56 41 52 49  41 42 4C 45 20 41 20 57  | IF VARIABLE A W|
00002B30: 41 53 22 00 5F 33 1A 3B  99 22 45 51 55 41 4C 20  |AS"._3.;."EQUAL |
00002B40: 54 4F 20 33 2C 20 54 48  45 20 50 52 4F 47 52 41  |TO 3, THE PROGRA|
00002B50: 4D 20 57 4F 55 4C 44 20  47 4F 20 54 4F 20 22 00  |M WOULD GO TO ".|
00002B60: 90 33 24 3B 99 22 4C 49  4E 45 20 36 30 2E 20 20  |.3$;."LINE 60.  |
00002B70: 41 20 27 47 4F 53 55 42  27 20 4D 41 59 20 42 45  |A 'GOSUB' MAY BE|
00002B80: 20 55 53 45 44 20 49 4E  20 50 4C 41 43 45 22 3B  | USED IN PLACE";|
00002B90: 00 BD 33 2E 3B 99 22 4F  46 20 54 48 45 20 27 47  |..3.;."OF THE 'G|
00002BA0: 4F 54 4F 27 20 49 46 20  59 4F 55 20 57 41 4E 54  |OTO' IF YOU WANT|
00002BB0: 20 54 4F 20 47 4F 20 54  4F 20 41 20 22 00 DF 33  | TO GO TO A "..3|
00002BC0: 38 3B 99 22 53 55 42 52  4F 55 54 49 4E 45 20 49  |8;."SUBROUTINE I|
00002BD0: 4E 20 54 48 45 20 50 52  4F 47 52 41 4D 2E 22 00  |N THE PROGRAM.".|
00002BE0: EB 33 42 3B 89 20 33 30  30 30 30 00 20 34 20 4E  |.3B;. 30000. 4 N|
00002BF0: 8F 20 53 45 45 20 49 46  20 41 4E 4F 54 48 45 52  |. SEE IF ANOTHER|
00002C00: 20 42 41 53 49 43 20 4B  45 59 57 4F 52 44 20 53  | BASIC KEYWORD S|
00002C10: 48 4F 55 4C 44 20 42 45  20 44 45 46 49 4E 45 44  |HOULD BE DEFINED|
00002C20: 00 29 34 25 4E 99 22 93  22 00 5E 34 2A 4E 99 3A  |.)4%N.".".^4*N.:|
00002C30: 99 3A 99 3A 99 22 20 20  20 57 4F 55 4C 44 20 59  |.:.:."   WOULD Y|
00002C40: 4F 55 20 4C 49 4B 45 20  54 4F 20 53 45 45 20 41  |OU LIKE TO SEE A|
00002C50: 4E 4F 54 48 45 52 20 42  41 53 49 43 20 22 00 83  |NOTHER BASIC "..|
00002C60: 34 34 4E 85 22 4B 45 59  57 4F 52 44 20 44 45 4D  |44N."KEYWORD DEM|
00002C70: 4F 4E 53 54 52 41 54 45  44 28 59 2F 4E 29 22 3B  |ONSTRATED(Y/N)";|
00002C80: 41 4E 24 00 9D 34 3E 4E  8B 20 C8 28 41 4E 24 2C  |AN$..4>N. .(AN$,|
00002C90: 31 29 B2 22 59 22 20 A7  20 89 20 36 30 00 BE 34  |1)."Y" . . 60..4|
00002CA0: 48 4E 99 3A 99 22 4F 4B  21 20 20 48 41 56 45 20  |HN.:."OK!  HAVE |
00002CB0: 41 20 4E 49 43 45 20 44  41 59 21 22 3A 80 00 E6  |A NICE DAY!":...|
00002CC0: 34 30 75 8F 20 57 41 49  54 20 46 4F 52 20 4C 45  |40u. WAIT FOR LE|
00002CD0: 54 54 45 52 20 22 43 22  20 54 4F 20 42 45 20 50  |TTER "C" TO BE P|
00002CE0: 52 45 53 53 45 44 00 EC  34 31 75 99 00 0C 35 35  |RESSED..41u...55|
00002CF0: 75 99 A6 39 29 22 50 52  45 53 53 20 27 43 27 20  |u..9)"PRESS 'C' |
00002D00: 54 4F 20 43 4F 4E 54 49  4E 55 45 22 00 25 35 3A  |TO CONTINUE".%5:|
00002D10: 75 A1 20 41 24 3A 8B 20  41 24 B2 22 22 20 A7 20  |u. A$:. A$."" . |
00002D20: 33 30 30 31 30 00 3C 35  44 75 8B 20 41 24 B2 22  |30010.<5Du. A$."|
00002D30: 43 22 20 A7 20 89 20 32  30 30 30 30 00 48 35 4E  |C" . . 20000.H5N|
00002D40: 75 89 20 33 30 30 31 30  00 00 00                 |u. 30010...     |

....... 53281,1:.53280,1:."..";.R....". 
         BASIC EINMAL ANDERS TEIL 1    .
";......".                              
          .";.S....".DIESES PROGRAMM EIN
ES AMERIKANISCHEN    COMPUTERCLUBS   UNT
ERWEIST SIE......"IN  DEN VERSCHIEDENEN 
BASICBEFEHLEN       IHRES   COMPUTERS ..
C....".SOFERN ERFORDERLICH,WERDEN AUCH  
       BEISPIELE FUER DIE ANWENDUNG.R...
."GEGEBEN.......".WIR HOFFEN,DASS SIE AU
S DIESEM PROGRAMM  NOCH EINIGES LERNEN K
OENNEN......."..EINE DEUTSCHE VERSION IS
T IN            VORBEREITUNG. VIEL SPASS
!".;....".BITTE EINE TASTE .............
............A.(...G.2...Z.;..A$:.A$."". 
59.S.<..".": . CLEAR SCREEN...F...10)"  
                ":....P.."WHICH OF THE F
OLLOWING WOULD YOU LIKE"...Z.."TO KNOW M
ORE ABOUT:":....D.."(1)  ABS     (2)  AS
C     (3)  CHR$".7.N.."(4)  CONT    (5) 
 DATA    (6)  FOR/NEXT".B.X.."(7)  GET  
   (8)  GOSUB   (9)  GOTO"......"(10) IF
/THEN (11) INPUT   (12) LEFT$"......"(13
) LEN     (14) MID$    (15) ON"......:."
PLEASE ENTER YOUR CHOICE";CH... .. CH.1 
. CH.15 . . 150.$.... CH.6 . . CH . 1000
,2000,3000,4000,5000.U.... CH.11 . . CH.
5 . 6000,7000,8000,9000,10000...... CH.1
0 . 14000,11000,12000,13000,15000...... 
ABSOLUTE VALUE FUNCTION......".".Q.... .
6)"ABS=ABSOLUTE VALUE FUNCTION":......."
   THE ABSOLUTE VALUE FUNCTION RETURNS".
,...."THE ABSOLUTE VALUE OF A NUMBER.  T
HIS".V...."MEANS THAT THE NUMBER YOU GIV
E THE"...$.."COMPUTER WILL RETURN TO YOU
 WITHOUT"......"ANY SIGNS.  IF YOU GIVE 
THE COMPUTER"...8.."A POSITIVE NUMBER, I
T WILL GIVE YOU BACK";...B.."A POSITIVE 
NUMBER.  IF YOU GIVE THE ".6.L.."COMPUTE
R A NEGATIVE NUMBER, HOWEVER,".D.V.."YOU
 WILL GET A POSITIVE NUMBER BACK IN"...`
.."RETURN.  FOR INSTANCE, THE STATEMENT"
...J.."[PRINT ABS(X)] WILL PRINT A POSIT
IVE"...T.."NUMBER REGARDLESS OF WHETHER 
THE VALUE"...~.."OF 'X' IS POSITIVE OR N
EGATIVE"...... 30000.7.P.. ASCII VALUE F
UNCTION.@.Z..".".E.....8)"ASC=ASCII VALU
E FUNCTION":......."   TO DETERMINE THE 
ASCII VALUE"......"OF A CHARACTER, THE A
SC FUNCTION MUST"......"BE USED.  THE AS
CII VALUE IS A NUMBER"......"THAT CORRES
PONDS TO THE COMPUTER'S".;...."CODE FOR 
THAT PARTICULAR CHARACTER.".I. .."EACH C
HARACTER ON THE COMMODORE 64 HAS"...*.."
A NUMBER THAT CORRESPONDS TO ITSELF.  IF
";.G.4.."YOU TYPED [PRINT ASC('A')], YOU
 WOULD"...>.."GET BACK A VALUE OF 65, SI
NCE THE LETTER";...H.."'A' HAS AN ASCII 
VALUE OF 65.".).R.. 30000.@.... CHARACTE
R STRING.I....".".R.B...4)"CHR$=CHARACTE
R STRING FUNCTION".X.L.....V.."   THE OP
POSITE OF THE ASCII FUNCTION".P...."IS T
HE CHR$ COMMAND.  BY USING THE "......"K
EYWORD CHR$, YOU MAY DETERMINE WHAT ".&.
..."CHARACTER A CERTAIN ASCII NUMBER ".S
...."CORRESPONDS TO.  FOR EXAMPLE, IF YO
U "....."TYPED [PRINT CHR$(65)], THE CO
MPUTER"......"WOULD RESPOND BY PRINTING 
THE LETTER".W...."'A', SINCE THE ASCII C
ODE 65 IS THE "...&.."COMMODORE 64'S EQU
IVALENT FOR THE 'A'.".2.0.."WHEN USING C
HR$, YOU MUST USE A VALUE".L.:.."BETWEEN
 0 AND 255.".X.D.. 30000.P. .. CONTINUE 
FUNCTION.Y....".".......8)"CONT=CONTINUE
 PROGRAM":..I...."   THE CONT COMMAND SI
MPLY RESUMES THE"...H.."EXECUTION OF A P
ROGRAM THAT HAS BEEN".$.R.."STOPPED, USU
ALLY BY THE 'RUN/STOP' KEY.".P...."BY TY
PING [CONT] THEN [RETURN], YOUR".~...."B
ASIC PROGRAM WILL BEGIN WHERE IT LEFT"..
...."OFF.  TO GIVE 'CONT' A TRY, HIT THE
 ".T...."RUN/STOP KEY, THEN TYPE [CONT] 
AND"......"[RETURN].  THE PROGRAM WILL K
EEP GOING".)...."AS IF YOU HAD NEVER STO
PPED IT!".5.... 30000.I.... DATA FUNCTIO
N.R....".".R.....10)"DATA=DATA TO BE REA
D".X.........."   THE DATA STATEMENT IS 
USED TO STORE".S...."A LIST OF CONSTANTS
.  THESE CONSTANTS"...D.."MAY BE IN THE 
FORM OF NUMBERS OR WORDS".-.N.."OR EVEN 
BOTH.  EACH CONSTANT MUST BE".T.X.."SEPA
RATED BY A COMMA (,) SO THE"......"COMPU
TER WILL KNOW ONE CONSTANT FROM"......"A
NOTHER.  TO RETRIEVE THE DATA, THE "....
.."COMMAND 'READ' SHOULD BE USED ELSEWHE
RE"......"IN THE PROGRAM.  FOR INSTANCE,
 THE ".4...."FOLLOWING PROGRAM WILL READ
 THE NUMBER".Y...."TEN FROM THE DATA STA
TEMENT, ".}...."THEN PRINT IT ON THE SCR
EEN:"...(..:."10   READ A"...2.."20   PR
INT A"...<.."30   DATA 10.E.F.. 30000...
P.. FOR...TO...NEXT...Z..".".......6)"FO
R..NEXT=FOR/NEXT LOOP".......4...."   TH
E FOR/NEXT LOOP IS SIMPLY A".B...."COUNT
ING DEVICE.  IF YOU WANT TO COUNT"......
"TO THE NUMBER FIVE, YOU WOULD SAY 'ONE,
"......"TWO, THREE, FOUR, FIVE.' FOR A C
OMPUTER"......"TO COUNT TO FIVE, YOU HAV
E TO TELL IT"...J.."WHAT NUMBER TO START
 COUNTING AT, WHAT".I.T.."NUMBER TO STOP
 COUNTING, AND WHAT STEP".X...."IT SHOUL
D COUNT AT.  THE 'STEP' IS JUST"......"H
OW FAST THE COMPUTER COUNTS - IT CAN ".S
...."COULD COUNT 1,2,3,4,5, OR GO TWICE 
AS"......"FAST BY COUNTING 1,3,5.  THE F
IRST ".)...."EXAMPLE WOULD BE STEP 1, SI
NCE THE ".W...."COMPUTER COUNTS IN STEPS
 OF ONE, WHILE"......"THE SECOND EXAMPLE
 WOULD BE STEP 2, FOR"...$.."THE COMPUTE
R COUNTS IN STEPS OF TWO,".V...."COUNTIN
G EVERY OTHER NUMBER."...8..:."     HIT 
ANY KEY TO CONTINUE..."...B..A$:.A$."". 
6210...L.. ".".L.V.."   TO TELL THE COMP
UTER WHERE TO START".Y.`.."COUNTING AND 
WHERE TO STOP COUNTING, "...J.."MERELY S
PECIFY THE NUMBER IN YOUR FOR/".U.T.."NE
XT LOOP.  IF YOU WANTED THE COMPUTER"...
~.."TO COUNT FROM 2 TO 8, FOR INSTANCE, 
YOU".3...."WOULD TYPE [FOR A=2 TO 8].  Y
OU CAN USE".D...."ANY VARIABLE YOU WANT 
('A' IN THIS CASE)";......"TO DO THE COU
NTING.  IF YOU WANTED THE"......"COMPUTE
R TO COUNT IN STEPS OF TWO (2,4"......"6
,8) INSTEAD OF IN STEPS OF 1 (2,3,4,5,".
....."6,7,8), YOU WOULD USE THE STEP COM
MAND,".K.D.."AND TYPE [FOR A=2 TO 8 STEP
 2].  YOU ".Z.N.."MAY USE ANY STEP YOU D
ESIRE, AND IF YOU"...X.."COUNT BACKWARDS
 (LIKE FROM 10 TO 1) YOU".U...."MUST HAV
E A NEGATIVE STEP (LIKE -1)."...... 3000
0...X.. GET FUNCTION...B..".".(.L...4)"G
ET=GET A VARIABLE FROM KEYBOARD"...V...]
...."   THE GET STATEMENT IS MOST OFTEN 
USED"......"TO GET A NUMBER OR LETTER AS
 TYPED INTO"......"THE KEYBOARD.  FOR IN
STANCE, YOU MIGHT"......"PUT INTO YOUR P
ROGRAM THIS LINE:":......."10 GETA$:IF A
$='' THEN 10":..4...."THIS WOULD CAUSE T
HE COMPUTER TO WAIT".C...."UNTIL SOMETHI
NG WAS TYPED INTO THE KEY-"...F.."BOARD.
  IF THE LETTER 'A' WAS TYPED, THE";.C.P
.."STRING A$ WOULD THEN BE THE LETTER 'A
'."...Z.."BECAUSE THE GET STATEMENT DOES
 NOT".. ..."WAIT FOR A KEY TO BE PRESSED
, THE ".F ..."COMMAND 'IF A$='' THEN 10'
 MUST BE USED".U ..."TO MAKE THE COMPUTE
R WAIT UNTIL A$ DOES".  ..."INDEED HAVE 
A VALUE FROM THE GET A$".. ..."COMMAND."
.. ... 30000.Q @.. GOSUB FUNCTION.Z J.."
.".. T...6)"GOSUB=GO TO A SUBROUTINE"..!
^...+!H.."   THE GOSUB IS A COMMAND TO T
HE".U!R.."COMPUTER TO GO TO A DIFFERENT 
PART"..!|.."OF THE PROGRAM TO PERFORM A 
SPECIAL"..!..."TASK, OR SUBROUTINE, AND 
THEN RETURN".Z!..."TO THE PLACE JUST AFT
ER THE SUBROUTINE".."..."WAS ORDERED.  T
HE FOLLOWING PROGRAM".1"..."WOULD INSTRU
CT THE COMPUTER TO GO TO".]"..."LINE 40,
 PRINT A NUMBER, THEN RETURN".."..."TO L
INE 20, THE LINE FOLLOWING THE ". "B.."G
OSUB COMMAND:":..."L.."10  A=10:GOSUB 40
".."V.."20  PRINT'PROGRAM FINISHED'"..".
.."30  END".."..."40  PRINT A".*#..."50 
 RETURN: REM RETURN TELLS PROGRAM".Y#...
"60  REM TO RETURN TO 'GOSUB' STATEMENT.
".E#. . 30000.Y#(#. GOTO FUNCTION..#2#."
."..#<#..4)"GOTO=GO TO ANOTHER PART OF P
ROGRAM"..#F#...#P#."   THE GOTO STATEMEN
T TELLS THE COMPUTER";..$Z#."TO GO TO AN
OTHER PART OF A PROGRAM.".>$D#."THE GOTO
 STATEMENT IS FOLLOWED BY THE".K$N#."LIN
E NUMBER THE PROGRAM SHOULD GO TO."..$X#
."THE FOLLOWING PROGRAM WOULD PRINT '64'
".G$.#."OVER AND OVER, SINCE LINE 30 TEL
LS THE"..$.#."COMPUTER TO GO TO THE BEGI
NNING"..%.#."OF THE PROGRAM, LINE 10:":.
.#% #."10  A$='64'".7%.#."20  PRINT A$".
J%.#."30  GOTO 10".V%.#. 30000.O%.'. IF/
THEN STATEMENTS.X%.'."."..%$'..3)"IF/THE
N=LOGICAL DECISION BY COMPUTER"..%.'...%
8'."   FOR THE COMPUTER TO MAKE A DECISI
ON"..&B'."AND IMPLEMENT A RESULT, THE IF
/THEN".4&L'."STATEMENT IS USED.  THE COM
MAND MERELY".^&V'."TELLS THE COMPUTER TO
 DO SOMETHING"..&`'."('THEN') IF ('IF') 
SOMETHING IS TRUE."..&J'."FOR EXAMPLE, I
F YOU WANTED THE COMPUTER"..&T'."TO GO T
O LINE 100 IF THE VALUE OF THE "..'~'."V
ARIABLE 'A' WAS 10, YOU WOULD TYPE":..7'
.'."'IF A=10 THEN GOTO 100.'":..H'.'."YO
U CAN TYPE IN JUST ABOUT ANY CONDITION";
..'.'."AND RESULT USING THE IF/THEN COMM
AND."..'.'. 30000..'.*. LEFT$ FUNCTION..
'.+."."..'.+..5)"LEFT$=LEFT PART OF STRI
NG"..'.+...( +."   LEFT$ IS USED TO 'CHO
P OFF' THE LEFT".E(*+."PART OF A STRING 
FOR WHATEVER REASON.".E(4+."THE FORMAT F
OR LEFT$ IS:"..(>+."'LEFT$(STRING,NUMBER
)'.  YOU TELL"..(H+."THE COMPUTER THE ST
RING AND THE "..(R+."NUMBER OF CHARACTER
S TO 'CHOP OFF' THE"..)\+."LEFT SIDE.  I
F YOU WANTED TO FIND OUT".=)F+."THE FIRS
T LETTER OF A PERSON'S NAME,".I)P+."FOR 
EXAMPLE, YOU NEED ONLY TELL THE "..)Z+."
COMPUTER, 'PRINT LEFT$(NAME$,1)' IF ".D)
.+."NAME$ WERE THE STRING FOR THAT PERSO
N'S".Q).+."NAME."..).+. 30000..)... LEN 
FUNCTION..)..."."..*....8)"LEN=LENGTH OF
 STRING"..*....I*./."   THE LEN FUNCTION
 IS USED TO FIND".T*./."THE LENGTH OF A 
STRING.  THE STRING"..*./."'CLOCKWORK', 
FOR INSTANCE, WOULD HAVE".L*&/."A VALUE 
OF NINE IF YOU TYPED 'PRINT"..*0/."LEN (
'CLOCKWORK'), SINCE THE STRING HAS".&+:/
."NINE CHARACTERS IN IT.  IF A STRING".R
+D/."CALLED 'ACO$' HAD TEN CHARACTERS IN
 ".}+N/."IT, AND YOU TYPED L=LEN(ACO$), 
THE "..+X/."VALUE OF L WOULD BE 10."..+B
/. 30000.H+H2. MIDDLE OF STRING FUNCTION
.Q+R2."."..+.2..5)"MID$=MIDDLE OF STRING
 FUNCTION"..,.2...,.2."   THE MID$ FUNCT
ION FIND A PIECE OF A".Y,.2."STRING WITH
IN A STRING.  THE FORMAT"..,.2."FOR MID$
 IS 'MID$(STRING, #1, #2)'."..,.3."STRIN
G SPECIFIES THE STRING, NUMBER"..,.3."ON
E TELLS THE COMPUTER AT WHAT POINT"..-"3
."IN THE STRING YOU WANT TO EXTRACT A".1
-,3."PIECE OF THE STRING, AND NUMBER TWO
".^-63."TELLS THE COMPUTER HOW LONG YOU 
WANT "..-@3."THAT PIECE TO BE.  SUPPOSE 
A STRING"..-J3."EXISTED CALLED T$ WHICH 
WAS 'QUENTIN"..-T3."COOK DELARGE'.  TYPI
NG THE STATEMENT"...^3."[PRINT MID$(T$,8
,4)] WOULD TELL THE".4.H3."COMPUTER TO P
RINT 'COOK', SINCE ".].R3."'COOK' IS THE
 FOUR-CHARACTER LONG"...|3."PIECE OF THE
 STRING BEGINNING AT"....3."LOCATION 8 O
F T$."....3. 30000....6. INPUT STATEMENT
.I..6."."...D6..8)"INPUT=INPUT VARIABLES
"...N6.../X6."   THE INPUT STATEMENT LET
S A COMPUTER".J/.6."USER ENTER DATA INTO
 THE COMPUTER, IN".X/.6."THE FORM OF LET
TERS, NUMBERS, OR BOTH."../.6."FOR THE C
OMPUTER TO ACCEPT NUMERIC ".N/.7."INFORM
ATION, A NUMBER VARIABLE MUST"../.7."BE 
USED ALONG WITH INPUT (I.E. INPUT A).";.
+0.7."FOR ALPHANUMERIC DATA TO BE ACCEPT
ED".Y0.7."BY THE COMPUTER, A COMMAND LIK
E [INPUT"..0(7."A$] SHOULD BE USED.  SEV
ERAL PIECES"..027."OF DATA MAY BE INPUT 
IN A ROW, BY "..0<7."USING THE INPUT COM
MAND IN THIS WAY:":...0F7."10 INPUT A,B$
,B,A$":..%1P7."THIS COMMAND WOULD ALLOW 
THE INPUT OF".N1Z7."A NUMBER, A STRING, 
A NUMBER, AND".E1D7."ANOTHER STRING.".Q1
N7. 30000..1.:. ON STATEMENT..1.:."."..1
.:..6)"ON STATEMENT=MULTIPLE GOTO/GOSUB"
..1.:...1.:."   THE ON STATEMENT EVALUAT
ES THE VALUE"..2J:."OF A VARIABLE, AND G
OES TO A LINE NUMBER";.I2T:."AS DETERMIN
ED FOR THAT NUMBER.  FOR".Y2.:."EXAMPLE:
".{2.:.:."10  ON A GOTO 40,50,60":...2.:
."IF THE VARIABLE A WAS EQUAL TO ONE,".S
2.:."THE PROGRAM WOULD GO TO LINE 40.  I
F "..3.;."VARIABLE A WAS EQUAL TO TWO, T
HE PROGRAM";.33.;."WOULD GO TO LINE 50. 
 IF VARIABLE A WAS"._3.;."EQUAL TO 3, TH
E PROGRAM WOULD GO TO "..3$;."LINE 60.  
A 'GOSUB' MAY BE USED IN PLACE";..3.;."O
F THE 'GOTO' IF YOU WANT TO GO TO A "..3
8;."SUBROUTINE IN THE PROGRAM."..3B;. 30
000. 4 N. SEE IF ANOTHER BASIC KEYWORD S
HOULD BE DEFINED.)4%N.".".^4*N.:.:.:."  
 WOULD YOU LIKE TO SEE ANOTHER BASIC "..
44N."KEYWORD DEMONSTRATED(Y/N)";AN$..4>N
. H(AN$,1)."Y" . . 60..4HN.:."OK!  HAVE 
A NICE DAY!":...40U. WAIT FOR LETTER "C"
 TO BE PRESSED..41U...55U..9)"PRESS 'C' 
TO CONTINUE".%5:U. A$:. A$."" . 30010.<5
DU. A$."C" . . 20000.H5NU. 30010...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL