BASIC-BEFEHLE 2
FILE INFORMATION
FILENAME(S): BASIC-BEFEHLE 2
FILE TYPE(S): PRG
FILE SIZE: 7.5K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 4 disk(s)
FILE HASH
29d925cebe6b1f3a0af1cf933f811b67a87644a3d1fa928a7f1ef7a3a3724f18
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L EHRNEN | BASIC-BEFEHLE 2 | PRG | Treasure Chest - Wolfgang Rauprich | 2 | 10 | DOWNLOAD FILE |
| FREESOFT DISK NR | BASIC-BEFEHLE 2 | PRG | Treasure Chest - Wolfgang Rauprich | 25 | 4 | DOWNLOAD FILE |
| D IVERSE | BASIC-BEFEHLE 2 | PRG | Treasure Chest - Wolfgang Rauprich | 25 | 4 | DOWNLOAD FILE |
| FREESOFT DISK NR | BASIC-BEFEHLE 2 | PRG | Treasure Chest - Wolfgang Rauprich | 2 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 0A 00 97 35 33 32 38 30 2C 31 3A 97 |.......53280,1:.|
00000010: 35 33 32 38 31 2C 31 3A 99 22 93 1F 22 00 50 08 |53281,1:."..".P.|
00000020: 14 00 99 22 12 20 20 20 20 20 20 20 20 20 20 42 |...". B|
00000030: 41 53 49 43 20 45 49 4E 4D 41 4C 20 41 4E 44 45 |ASIC EINMAL ANDE|
00000040: 52 53 20 54 45 49 4C 20 32 20 20 20 20 92 22 3B |RS TEIL 2 .";|
00000050: 00 83 08 16 00 99 22 12 20 20 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: 92 22 3B 00 BA 08 17 00 99 22 11 44 49 45 53 20 |.";......".DIES |
00000090: 49 53 54 20 44 45 52 20 32 2E 20 55 4E 44 20 4C |IST DER 2. UND L|
000000A0: 45 54 5A 54 45 20 54 45 49 4C 20 2E 20 20 20 20 |ETZTE TEIL . |
000000B0: 20 20 20 20 20 20 20 20 20 22 00 03 09 1B 00 99 | "......|
000000C0: 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 22 00 16 09 1C 00 99 22 11 11 56 49 45 4C | "......"..VIEL|
00000110: 20 53 50 41 53 53 00 47 09 1D 00 99 22 12 42 49 | SPASS.G....".BI|
00000120: 54 54 45 20 45 49 4E 45 20 54 41 53 54 45 20 2E |TTE EINE TASTE .|
00000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000140: 2E 2E 2E 2E 2E 2E 92 00 7B 09 1E 00 99 22 11 11 |........{...."..|
00000150: 11 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 92 00 8E 09 28 00 | ....(.|
00000180: A1 41 24 3A 8B 41 24 B2 22 22 A7 20 34 30 00 9D |.A$:.A$."". 40..|
00000190: 09 32 00 8F 20 4C 41 4E 47 55 41 47 45 00 B6 09 |.2.. LANGUAGE...|
000001A0: 3C 00 99 22 93 22 3A 20 8F 20 43 4C 45 41 52 20 |<..".": . CLEAR |
000001B0: 53 43 52 45 45 4E 00 D6 09 46 00 99 A3 31 30 29 |SCREEN...F...10)|
000001C0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000001D0: 20 20 20 22 3A 99 00 03 0A 50 00 99 22 57 48 49 | ":....P.."WHI|
000001E0: 43 48 20 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 |CH OF THE FOLLOW|
000001F0: 49 4E 47 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 |ING WOULD YOU LI|
00000200: 4B 45 22 00 20 0A 5A 00 99 22 54 4F 20 4B 4E 4F |KE". .Z.."TO KNO|
00000210: 57 20 4D 4F 52 45 20 41 42 4F 55 54 3A 22 3A 99 |W MORE ABOUT:":.|
00000220: 00 4C 0A 64 00 99 22 28 31 29 20 20 50 45 45 4B |.L.d.."(1) PEEK|
00000230: 20 20 20 20 28 32 29 20 20 50 4F 4B 45 20 20 20 | (2) POKE |
00000240: 20 28 33 29 20 20 50 52 49 4E 54 22 00 79 0A 6E | (3) PRINT".y.n|
00000250: 00 99 22 28 34 29 20 20 52 45 41 44 20 20 20 20 |.."(4) READ |
00000260: 28 35 29 20 20 52 45 4D 20 20 20 20 20 28 36 29 |(5) REM (6)|
00000270: 20 20 52 49 47 48 54 24 22 00 A3 0A 78 00 99 22 | RIGHT$"...x.."|
00000280: 28 37 29 20 20 52 4E 44 20 20 20 20 20 28 38 29 |(7) RND (8)|
00000290: 20 20 53 54 52 24 20 20 20 20 28 39 29 20 20 54 | STR$ (9) T|
000002A0: 41 42 22 00 CE 0A 82 00 99 22 28 31 30 29 20 54 |AB"......"(10) T|
000002B0: 49 4D 45 24 20 20 20 28 31 31 29 20 56 41 4C 20 |IME$ (11) VAL |
000002C0: 20 20 20 A0 28 31 32 29 20 57 41 49 54 22 00 F3 | .(12) WAIT"..|
000002D0: 0A 96 00 99 3A 85 22 50 4C 45 41 53 45 20 45 4E |....:."PLEASE EN|
000002E0: 54 45 52 20 59 4F 55 52 20 43 48 4F 49 43 45 22 |TER YOUR CHOICE"|
000002F0: 3B 43 48 00 0E 0B A0 00 8B 20 43 48 B3 31 20 B0 |;CH...... CH.1 .|
00000300: 20 43 48 B1 31 32 20 A7 20 89 20 31 35 30 00 3B | CH.12 . . 150.;|
00000310: 0B AA 00 8B 20 43 48 B3 36 20 A7 20 91 20 43 48 |.... CH.6 . . CH|
00000320: 20 89 20 31 30 30 30 2C 32 30 30 30 2C 33 30 30 | . 1000,2000,300|
00000330: 30 2C 34 30 30 30 2C 35 30 30 30 00 6E 0B B4 00 |0,4000,5000.n...|
00000340: 91 20 43 48 AB 35 20 89 20 36 30 30 30 2C 37 30 |. CH.5 . 6000,70|
00000350: 30 30 2C 38 30 30 30 2C 39 30 30 30 2C 31 30 30 |00,8000,9000,100|
00000360: 30 30 2C 31 31 30 30 30 2C 31 32 30 30 30 00 82 |00,11000,12000..|
00000370: 0B E8 03 8F 20 50 45 45 4B 20 46 55 4E 43 54 49 |.... PEEK FUNCTI|
00000380: 4F 4E 00 8B 0B F2 03 99 22 93 22 00 B3 0B FC 03 |ON......".".....|
00000390: 99 A3 36 29 22 50 45 45 4B 3D 50 45 45 4B 20 41 |..6)"PEEK=PEEK A|
000003A0: 54 20 41 20 42 59 54 45 20 4F 46 20 4D 45 4D 4F |T A BYTE OF MEMO|
000003B0: 52 59 22 00 B9 0B 06 04 99 00 E6 0B 10 04 99 22 |RY"............"|
000003C0: 20 20 20 42 59 20 55 53 49 4E 47 20 54 48 45 20 | BY USING THE |
000003D0: 50 45 45 4B 20 43 4F 4D 4D 41 4E 44 2C 20 59 4F |PEEK COMMAND, YO|
000003E0: 55 20 43 41 4E 22 00 0F 0C 1A 04 99 22 46 49 4E |U CAN"......"FIN|
000003F0: 44 20 4F 55 54 20 54 48 45 20 43 4F 4E 54 45 4E |D OUT THE CONTEN|
00000400: 54 53 20 4F 46 20 41 4E 59 20 42 59 54 45 22 00 |TS OF ANY BYTE".|
00000410: 3E 0C 24 04 99 22 28 50 49 45 43 45 20 4F 46 20 |>.$.."(PIECE OF |
00000420: 4D 45 4D 4F 52 59 29 20 57 49 54 48 49 4E 20 59 |MEMORY) WITHIN Y|
00000430: 4F 55 52 20 43 4F 4D 50 55 54 45 52 2E 22 00 6D |OUR COMPUTER.".m|
00000440: 0C 2E 04 99 22 54 48 45 52 45 20 41 52 45 20 36 |...."THERE ARE 6|
00000450: 35 2C 35 33 36 20 42 59 54 45 53 20 49 4E 20 54 |5,536 BYTES IN T|
00000460: 48 45 20 43 4F 4D 4D 4F 44 4F 52 45 22 00 9A 0C |HE COMMODORE"...|
00000470: 38 04 99 22 36 34 2C 20 41 4E 44 20 59 4F 55 20 |8.."64, AND YOU |
00000480: 4D 41 59 20 46 49 4E 44 20 4F 55 54 20 54 48 45 |MAY FIND OUT THE|
00000490: 20 43 4F 4E 54 45 4E 54 53 22 00 C5 0C 42 04 99 | CONTENTS"...B..|
000004A0: 22 4F 46 20 41 4E 59 20 4F 4E 45 20 4F 46 20 54 |"OF ANY ONE OF T|
000004B0: 48 45 4D 20 42 59 20 54 59 50 49 4E 47 20 5B 50 |HEM BY TYPING [P|
000004C0: 52 49 4E 54 22 00 F2 0C 4C 04 99 22 50 45 45 4B |RINT"...L.."PEEK|
000004D0: 28 58 29 5D 2C 20 58 20 42 45 49 4E 47 20 54 48 |(X)], X BEING TH|
000004E0: 45 20 42 59 54 45 20 4E 55 4D 42 45 52 20 59 4F |E BYTE NUMBER YO|
000004F0: 55 22 00 21 0D 56 04 99 22 41 52 45 20 43 55 52 |U".!.V.."ARE CUR|
00000500: 49 4F 55 53 20 41 42 4F 55 54 2E 20 20 49 46 20 |IOUS ABOUT. IF |
00000510: 59 4F 55 20 57 41 4E 54 20 54 4F 20 4B 4E 4F 57 |YOU WANT TO KNOW|
00000520: 22 00 52 0D 60 04 99 22 54 48 45 20 43 4F 4E 54 |".R.`.."THE CONT|
00000530: 45 4E 54 53 20 4F 46 20 42 59 54 45 20 33 2C 34 |ENTS OF BYTE 3,4|
00000540: 32 30 2C 20 46 4F 52 20 49 4E 53 54 41 4E 43 45 |20, FOR INSTANCE|
00000550: 22 3B 00 72 0D 6A 04 99 22 59 4F 55 20 4F 4E 4C |";.r.j.."YOU ONL|
00000560: 59 20 48 41 56 45 20 54 4F 20 54 59 50 45 3A 22 |Y HAVE TO TYPE:"|
00000570: 3A 99 00 8A 0D 74 04 99 22 50 52 49 4E 54 20 50 |:....t.."PRINT P|
00000580: 45 45 4B 28 33 34 32 30 29 22 00 96 0D 7E 04 89 |EEK(3420)"...~..|
00000590: 20 33 30 30 30 30 00 AA 0D D0 07 8F 20 50 4F 4B | 30000...... POK|
000005A0: 45 20 46 55 4E 43 54 49 4F 4E 00 B3 0D DA 07 99 |E FUNCTION......|
000005B0: 22 93 22 00 E1 0D E4 07 99 A3 34 29 22 50 4F 4B |".".......4)"POK|
000005C0: 45 3D 50 55 54 20 56 41 4C 55 45 20 49 4E 54 4F |E=PUT VALUE INTO|
000005D0: 20 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E | MEMORY LOCATION|
000005E0: 22 00 E7 0D EE 07 99 00 14 0E F8 07 99 22 20 20 |"............" |
000005F0: 20 49 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 | IF YOU WANT TO |
00000600: 50 55 54 20 41 20 43 45 52 54 41 49 4E 20 56 41 |PUT A CERTAIN VA|
00000610: 4C 55 45 22 00 42 0E 02 08 99 22 49 4E 54 4F 20 |LUE".B...."INTO |
00000620: 41 20 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F |A MEMORY LOCATIO|
00000630: 4E 2C 20 59 4F 55 20 53 48 4F 55 4C 44 20 55 53 |N, YOU SHOULD US|
00000640: 45 22 00 6F 0E 0C 08 99 22 54 48 45 20 50 4F 4B |E".o...."THE POK|
00000650: 45 20 53 54 41 54 45 4D 45 4E 54 2E 20 20 54 48 |E STATEMENT. TH|
00000660: 45 20 50 4F 4B 45 20 43 4F 4D 4D 41 4E 44 22 00 |E POKE COMMAND".|
00000670: 9D 0E 16 08 99 22 54 45 4C 4C 53 20 54 48 45 20 |....."TELLS THE |
00000680: 43 4F 4D 50 55 54 45 52 20 54 4F 20 50 55 54 20 |COMPUTER TO PUT |
00000690: 41 20 56 41 4C 55 45 20 49 4E 54 4F 22 00 C9 0E |A VALUE INTO"...|
000006A0: 20 08 99 22 54 48 45 20 42 59 54 45 20 59 4F 55 | .."THE BYTE YOU|
000006B0: 20 53 50 45 43 49 46 59 2E 20 20 49 46 20 59 4F | SPECIFY. IF YO|
000006C0: 55 20 57 41 4E 54 45 44 22 00 F4 0E 2A 08 99 22 |U WANTED"...*.."|
000006D0: 54 4F 20 50 55 54 20 54 48 45 20 56 41 4C 55 45 |TO PUT THE VALUE|
000006E0: 20 36 34 20 49 4E 54 4F 20 42 59 54 45 20 37 30 | 64 INTO BYTE 70|
000006F0: 30 30 2C 22 00 25 0F 34 08 99 22 46 4F 52 20 45 |00,".%.4.."FOR E|
00000700: 58 41 4D 50 4C 45 2C 20 59 4F 55 20 57 4F 55 4C |XAMPLE, YOU WOUL|
00000710: 44 20 47 49 56 45 20 54 48 45 20 43 4F 4D 50 55 |D GIVE THE COMPU|
00000720: 54 45 52 22 3B 00 3B 0F 3E 08 99 22 54 48 45 20 |TER";.;.>.."THE |
00000730: 43 4F 4D 4D 41 4E 44 3A 22 3A 99 00 4F 0F 48 08 |COMMAND:":..O.H.|
00000740: 99 22 50 4F 4B 45 20 37 30 30 30 2C 36 34 22 00 |."POKE 7000,64".|
00000750: 5B 0F 52 08 89 20 33 30 30 30 30 00 6F 0F B8 0B |[.R.. 30000.o...|
00000760: 8F 20 50 52 49 4E 54 20 43 4F 4D 4D 41 4E 44 00 |. PRINT COMMAND.|
00000770: 78 0F C2 0B 99 22 93 22 00 A6 0F CC 0B 99 A3 34 |x....".".......4|
00000780: 29 22 50 52 49 4E 54 3D 50 52 49 4E 54 20 53 4F |)"PRINT=PRINT SO|
00000790: 4D 45 54 48 49 4E 47 20 4F 4E 20 54 48 45 20 53 |METHING ON THE S|
000007A0: 43 52 45 45 4E 22 00 AC 0F D6 0B 99 00 D8 0F E0 |CREEN"..........|
000007B0: 0B 99 22 20 20 20 54 48 45 20 50 52 49 4E 54 20 |.." THE PRINT |
000007C0: 43 4F 4D 4D 41 4E 44 20 4D 41 59 20 42 45 20 55 |COMMAND MAY BE U|
000007D0: 53 45 44 20 54 4F 20 22 00 04 10 EA 0B 99 22 45 |SED TO "......"E|
000007E0: 49 54 48 45 52 20 50 52 49 4E 54 20 56 41 52 49 |ITHER PRINT VARI|
000007F0: 41 42 4C 45 53 20 4F 4E 20 54 48 45 20 53 43 52 |ABLES ON THE SCR|
00000800: 45 45 4E 22 00 30 10 F4 0B 99 22 4F 52 20 50 52 |EEN".0...."OR PR|
00000810: 49 4E 54 20 4D 45 53 53 41 47 45 53 2E 20 20 49 |INT MESSAGES. I|
00000820: 46 20 59 4F 55 20 57 41 4E 54 45 44 20 54 4F 22 |F YOU WANTED TO"|
00000830: 00 5D 10 FE 0B 99 22 50 52 49 4E 54 20 54 48 45 |.]...."PRINT THE|
00000840: 20 56 41 4C 55 45 20 46 4F 52 20 54 48 45 20 56 | VALUE FOR THE V|
00000850: 41 52 49 41 42 4C 45 20 27 41 27 2C 22 00 74 10 |ARIABLE 'A',".t.|
00000860: 08 0C 99 22 59 4F 55 20 57 4F 55 4C 44 20 54 59 |..."YOU WOULD TY|
00000870: 50 45 3A 22 00 87 10 12 0C 99 3A 99 22 50 52 49 |PE:"......:."PRI|
00000880: 4E 54 20 41 22 3A 99 00 B3 10 1C 0C 99 22 20 20 |NT A":......." |
00000890: 20 49 46 2C 20 48 4F 57 45 56 45 52 2C 20 59 4F | IF, HOWEVER, YO|
000008A0: 55 20 57 41 4E 54 45 44 20 41 20 4D 45 53 53 41 |U WANTED A MESSA|
000008B0: 47 45 22 00 DD 10 26 0C 99 22 50 55 54 20 4F 4E |GE"...&.."PUT ON|
000008C0: 20 54 48 45 20 53 43 52 45 45 4E 2C 20 59 4F 55 | THE SCREEN, YOU|
000008D0: 20 57 4F 55 4C 44 20 54 59 50 45 3A 22 00 00 11 | WOULD TYPE:"...|
000008E0: 30 0C 99 3A 99 22 50 52 49 4E 54 20 27 54 48 49 |0..:."PRINT 'THI|
000008F0: 53 20 49 53 20 41 20 4D 45 53 53 41 47 45 27 22 |S IS A MESSAGE'"|
00000900: 00 0C 11 3A 0C 89 20 33 30 30 30 30 00 20 11 A0 |...:.. 30000. ..|
00000910: 0F 8F 20 52 45 41 44 20 46 55 4E 43 54 49 4F 4E |.. READ FUNCTION|
00000920: 00 29 11 AA 0F 99 22 93 22 00 43 11 B4 0F 99 A3 |.)....".".C.....|
00000930: 31 30 29 22 52 45 41 44 3D 52 45 41 44 20 44 41 |10)"READ=READ DA|
00000940: 54 41 22 00 49 11 BE 0F 99 00 74 11 C8 0F 99 22 |TA".I.....t...."|
00000950: 20 20 20 54 48 45 20 52 45 41 44 20 53 54 41 54 | THE READ STAT|
00000960: 45 4D 45 4E 54 20 49 53 20 55 53 45 44 20 41 4C |EMENT IS USED AL|
00000970: 4F 4E 47 22 00 A2 11 D2 0F 99 22 57 49 54 48 20 |ONG"......"WITH |
00000980: 54 48 45 20 44 41 54 41 20 53 54 41 54 45 4D 45 |THE DATA STATEME|
00000990: 4E 54 2E 20 20 52 45 41 44 20 49 53 20 55 53 45 |NT. READ IS USE|
000009A0: 44 22 00 CF 11 DC 0F 99 22 54 4F 20 52 45 41 44 |D"......"TO READ|
000009B0: 20 44 41 54 41 20 46 52 4F 4D 20 41 4E 4F 54 48 | DATA FROM ANOTH|
000009C0: 45 52 20 50 41 52 54 20 4F 46 20 54 48 45 22 00 |ER PART OF THE".|
000009D0: FC 11 E6 0F 99 22 50 52 4F 47 52 41 4D 2C 20 57 |....."PROGRAM, W|
000009E0: 48 45 54 48 45 52 20 54 48 41 54 20 44 41 54 41 |HETHER THAT DATA|
000009F0: 20 49 53 20 49 4E 20 20 54 48 45 22 00 2B 12 F0 | IS IN THE".+..|
00000A00: 0F 99 22 46 4F 52 4D 20 4F 46 20 4E 55 4D 42 45 |.."FORM OF NUMBE|
00000A10: 52 53 20 4F 52 20 57 4F 52 44 53 2E 20 20 54 48 |RS OR WORDS. TH|
00000A20: 49 53 20 45 58 41 4D 50 4C 45 22 00 56 12 FA 0F |IS EXAMPLE".V...|
00000A30: 99 22 57 4F 55 4C 44 20 52 45 41 44 20 54 48 45 |."WOULD READ THE|
00000A40: 20 56 41 52 49 41 42 4C 45 20 41 2C 20 52 45 41 | VARIABLE A, REA|
00000A50: 44 20 54 48 45 22 00 7F 12 04 10 99 22 57 4F 52 |D THE"......"WOR|
00000A60: 44 20 41 24 2C 20 54 48 45 4E 20 50 52 49 4E 54 |D A$, THEN PRINT|
00000A70: 20 42 4F 54 48 20 4F 46 20 54 48 45 4D 3A 22 00 | BOTH OF THEM:".|
00000A80: 85 12 0E 10 99 00 9A 12 18 10 99 22 31 30 20 20 |..........."10 |
00000A90: 52 45 41 44 20 41 2C 41 24 22 00 B0 12 22 10 99 |READ A,A$"..."..|
00000AA0: 22 32 30 20 20 50 52 49 4E 54 20 41 2C 41 24 22 |"20 PRINT A,A$"|
00000AB0: 00 CD 12 2C 10 99 22 33 30 20 20 44 41 54 41 20 |...,.."30 DATA |
00000AC0: 31 32 2C 43 4F 4D 4D 4F 44 4F 52 45 22 00 D9 12 |12,COMMODORE"...|
00000AD0: 36 10 89 20 33 30 30 30 30 00 ED 12 88 13 8F 20 |6.. 30000...... |
00000AE0: 52 45 4D 20 53 54 41 54 45 4D 45 4E 54 00 F6 12 |REM STATEMENT...|
00000AF0: 92 13 99 22 93 22 00 15 13 9C 13 99 A3 39 29 22 |...".".......9)"|
00000B00: 52 45 4D 3D 52 45 4D 41 52 4B 20 53 54 41 54 45 |REM=REMARK STATE|
00000B10: 4D 45 4E 54 22 00 1B 13 A6 13 99 00 49 13 B0 13 |MENT".......I...|
00000B20: 99 22 20 20 20 49 46 20 59 4F 55 20 57 49 53 48 |." IF YOU WISH|
00000B30: 20 54 4F 20 4D 41 4B 45 20 41 20 52 45 4D 41 52 | TO MAKE A REMAR|
00000B40: 4B 20 57 49 54 48 49 4E 22 00 78 13 BA 13 99 22 |K WITHIN".x...."|
00000B50: 41 20 50 52 4F 47 52 41 4D 2C 20 45 49 54 48 45 |A PROGRAM, EITHE|
00000B60: 52 20 46 4F 52 20 59 4F 55 52 20 4F 57 4E 20 50 |R FOR YOUR OWN P|
00000B70: 55 52 50 4F 53 45 53 22 00 A1 13 C4 13 99 22 4F |URPOSES"......"O|
00000B80: 52 20 46 4F 52 20 54 48 45 20 55 53 45 20 4F 46 |R FOR THE USE OF|
00000B90: 20 4F 54 48 45 52 53 2C 20 54 48 45 20 52 45 4D | OTHERS, THE REM|
00000BA0: 22 00 C9 13 CE 13 99 22 53 54 41 54 45 4D 45 4E |"......"STATEMEN|
00000BB0: 54 20 49 53 20 55 53 45 44 2E 20 20 57 48 45 4E |T IS USED. WHEN|
00000BC0: 45 56 45 52 20 54 48 45 22 00 F5 13 D8 13 99 22 |EVER THE"......"|
00000BD0: 43 4F 4D 50 55 54 45 52 20 45 4E 43 4F 55 4E 54 |COMPUTER ENCOUNT|
00000BE0: 45 52 53 20 41 20 52 45 4D 20 53 54 41 54 45 4D |ERS A REM STATEM|
00000BF0: 45 4E 54 2C 22 00 22 14 E2 13 99 22 49 54 20 53 |ENT,"."...."IT S|
00000C00: 49 4D 50 4C 59 20 47 4F 45 53 20 4F 4E 20 54 4F |IMPLY GOES ON TO|
00000C10: 20 54 48 45 20 4E 45 58 54 20 50 52 4F 47 52 41 | THE NEXT PROGRA|
00000C20: 4D 22 00 4D 14 EC 13 99 22 4C 49 4E 45 2C 20 49 |M".M...."LINE, I|
00000C30: 47 4E 4F 52 49 4E 47 20 45 56 45 52 59 54 48 49 |GNORING EVERYTHI|
00000C40: 4E 47 20 46 4F 4C 4C 4F 57 49 4E 47 22 00 7A 14 |NG FOLLOWING".z.|
00000C50: F6 13 99 22 54 48 45 20 52 45 4D 20 53 54 41 54 |..."THE REM STAT|
00000C60: 45 4D 45 4E 54 20 4F 4E 20 54 48 41 54 20 4C 49 |EMENT ON THAT LI|
00000C70: 4E 45 2E 20 20 59 4F 55 20 22 00 A6 14 00 14 99 |NE. YOU "......|
00000C80: 22 43 41 4E 20 54 48 45 52 45 46 4F 52 45 20 50 |"CAN THEREFORE P|
00000C90: 55 54 20 41 4E 59 54 48 49 4E 47 20 59 4F 55 20 |UT ANYTHING YOU |
00000CA0: 57 49 53 48 20 22 00 C4 14 0A 14 99 22 41 46 54 |WISH "......"AFT|
00000CB0: 45 52 20 41 20 52 45 4D 20 53 54 41 54 45 4D 45 |ER A REM STATEME|
00000CC0: 4E 54 3A 22 00 E6 14 14 14 99 3A 99 22 31 30 20 |NT:"......:."10 |
00000CD0: 52 45 4D 20 20 54 48 49 53 20 49 53 20 41 20 52 |REM THIS IS A R|
00000CE0: 45 4D 41 52 4B 22 00 F2 14 1E 14 89 20 33 30 30 |EMARK"...... 300|
00000CF0: 30 30 00 08 15 70 17 8F 20 52 49 47 48 54 24 20 |00...p.. RIGHT$ |
00000D00: 46 55 4E 43 54 49 4F 4E 00 11 15 7A 17 99 22 93 |FUNCTION...z..".|
00000D10: 22 00 3C 15 84 17 99 A3 34 29 22 52 49 47 48 54 |".<.....4)"RIGHT|
00000D20: 24 3D 54 41 4B 45 20 52 49 47 48 54 20 50 41 52 |$=TAKE RIGHT PAR|
00000D30: 54 20 4F 46 20 53 54 52 49 4E 47 22 00 42 15 8E |T OF STRING".B..|
00000D40: 17 99 00 6F 15 98 17 99 22 20 20 20 54 4F 20 52 |...o...." TO R|
00000D50: 45 4D 4F 56 45 20 41 20 50 49 45 43 45 20 4F 46 |EMOVE A PIECE OF|
00000D60: 20 41 20 53 54 52 49 4E 47 20 46 52 4F 4D 22 00 | A STRING FROM".|
00000D70: 9C 15 A2 17 99 22 49 54 53 20 52 49 47 48 54 20 |....."ITS RIGHT |
00000D80: 53 49 44 45 2C 20 55 53 45 20 54 48 45 20 52 49 |SIDE, USE THE RI|
00000D90: 47 48 54 24 20 53 54 41 54 45 2D 22 00 C4 15 AC |GHT$ STATE-"....|
00000DA0: 17 99 22 4D 45 4E 54 2E 20 20 54 48 45 20 46 4F |.."MENT. THE FO|
00000DB0: 52 4D 41 54 20 46 4F 52 20 52 49 47 48 54 24 20 |RMAT FOR RIGHT$ |
00000DC0: 49 53 3A 22 00 E5 15 B6 17 99 3A 99 22 52 49 47 |IS:"......:."RIG|
00000DD0: 48 54 24 28 53 54 52 49 4E 47 2C 4E 55 4D 42 45 |HT$(STRING,NUMBE|
00000DE0: 52 29 22 3A 99 00 13 16 C0 17 99 22 54 48 45 20 |R)":......."THE |
00000DF0: 27 53 54 52 49 4E 47 27 20 49 53 20 54 48 45 20 |'STRING' IS THE |
00000E00: 53 54 52 49 4E 47 20 59 4F 55 20 57 41 4E 54 20 |STRING YOU WANT |
00000E10: 54 4F 22 00 41 16 CA 17 99 22 50 45 52 46 4F 52 |TO".A...."PERFOR|
00000E20: 4D 20 54 48 45 20 52 49 47 48 54 24 20 53 54 41 |M THE RIGHT$ STA|
00000E30: 54 45 4D 45 4E 54 20 4F 4E 2C 20 57 48 49 4C 45 |TEMENT ON, WHILE|
00000E40: 22 00 6F 16 D4 17 99 22 54 48 45 20 4E 55 4D 42 |".o...."THE NUMB|
00000E50: 45 52 20 49 53 20 54 48 45 20 4E 55 4D 42 45 52 |ER IS THE NUMBER|
00000E60: 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 22 00 | OF CHARACTERS".|
00000E70: 9D 16 DE 17 99 22 59 4F 55 20 57 41 4E 54 20 54 |....."YOU WANT T|
00000E80: 4F 20 54 41 4B 45 20 4F 46 46 20 54 48 41 54 20 |O TAKE OFF THAT |
00000E90: 53 54 52 49 4E 47 2E 20 20 54 48 45 22 00 C9 16 |STRING. THE"...|
00000EA0: E8 17 99 22 52 49 47 48 54 24 20 53 54 41 54 45 |..."RIGHT$ STATE|
00000EB0: 4D 45 4E 54 20 44 4F 45 53 20 4E 4F 54 20 52 45 |MENT DOES NOT RE|
00000EC0: 4D 4F 56 45 20 41 4E 59 22 00 F8 16 F2 17 99 22 |MOVE ANY"......"|
00000ED0: 50 41 52 54 20 4F 46 20 54 48 45 20 4F 52 49 47 |PART OF THE ORIG|
00000EE0: 49 4E 41 4C 20 53 54 52 49 4E 47 20 46 52 4F 4D |INAL STRING FROM|
00000EF0: 20 49 54 53 45 4C 46 22 00 22 17 FC 17 99 22 42 | ITSELF"."...."B|
00000F00: 55 54 20 52 41 54 48 45 52 20 41 4C 4C 4F 57 53 |UT RATHER ALLOWS|
00000F10: 20 59 4F 55 20 54 4F 20 27 43 4F 50 59 27 20 41 | YOU TO 'COPY' A|
00000F20: 20 22 00 4C 17 06 18 99 22 50 49 45 43 45 20 4F | ".L...."PIECE O|
00000F30: 46 20 54 48 45 20 4F 52 49 47 49 4E 41 4C 20 53 |F THE ORIGINAL S|
00000F40: 54 52 49 4E 47 20 49 4E 54 4F 20 22 00 76 17 10 |TRING INTO ".v..|
00000F50: 18 99 22 41 4E 4F 54 48 45 52 20 53 54 52 49 4E |.."ANOTHER STRIN|
00000F60: 47 20 4F 52 20 4F 4E 54 4F 20 54 48 45 20 53 43 |G OR ONTO THE SC|
00000F70: 52 45 45 4E 2E 22 00 82 17 1A 18 89 20 33 30 30 |REEN."...... 300|
00000F80: 30 30 00 98 17 58 1B 8F 20 52 41 4E 44 4F 4D 20 |00...X.. RANDOM |
00000F90: 46 55 4E 43 54 49 4F 4E 00 A1 17 62 1B 99 22 93 |FUNCTION...b..".|
00000FA0: 22 00 C8 17 6C 1B 99 A3 36 29 22 52 4E 44 3D 47 |"...l...6)"RND=G|
00000FB0: 45 4E 45 52 41 54 45 20 41 20 52 41 4E 44 4F 4D |ENERATE A RANDOM|
00000FC0: 20 4E 55 4D 42 45 52 22 00 CE 17 76 1B 99 00 F7 | NUMBER"...v....|
00000FD0: 17 80 1B 99 22 20 20 52 4E 44 20 49 53 20 41 20 |...." RND IS A |
00000FE0: 43 4F 4D 4D 41 4E 44 20 54 48 41 54 20 47 45 4E |COMMAND THAT GEN|
00000FF0: 45 52 41 54 45 53 22 00 22 18 8A 1B 99 22 41 20 |ERATES"."...."A |
00001000: 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 42 45 |RANDOM NUMBER BE|
00001010: 54 57 45 45 4E 20 30 20 41 4E 44 20 31 2E 20 20 |TWEEN 0 AND 1. |
00001020: 41 22 00 4F 18 94 1B 99 22 52 41 4E 44 4F 4D 20 |A".O...."RANDOM |
00001030: 4E 55 4D 42 45 52 20 4D 49 47 48 54 20 42 45 20 |NUMBER MIGHT BE |
00001040: 2E 36 34 38 33 20 4F 52 20 2E 35 33 39 32 22 00 |.6483 OR .5392".|
00001050: 7B 18 9E 1B 99 22 4F 52 20 41 4E 59 20 4F 54 48 |{...."OR ANY OTH|
00001060: 45 52 20 4E 55 4D 42 45 52 20 42 45 54 57 45 45 |ER NUMBER BETWEE|
00001070: 4E 20 30 20 41 4E 44 20 31 2E 22 00 A6 18 A8 1B |N 0 AND 1.".....|
00001080: 99 22 20 20 20 49 46 20 59 4F 55 20 57 41 4E 54 |." IF YOU WANT|
00001090: 20 54 48 45 20 52 41 4E 44 4F 4D 20 4E 55 4D 42 | THE RANDOM NUMB|
000010A0: 45 52 20 54 4F 22 00 D2 18 B2 1B 99 22 42 45 20 |ER TO"......"BE |
000010B0: 41 20 57 48 4F 4C 45 20 4E 55 4D 42 45 52 2C 20 |A WHOLE NUMBER, |
000010C0: 59 4F 55 20 4D 55 53 54 20 4D 55 4C 54 49 50 4C |YOU MUST MULTIPL|
000010D0: 59 22 00 00 19 BC 1B 99 22 54 48 45 20 52 41 4E |Y"......"THE RAN|
000010E0: 44 4F 4D 20 4E 55 4D 42 45 52 20 42 59 20 54 48 |DOM NUMBER BY TH|
000010F0: 45 20 27 55 50 50 45 52 20 52 41 4E 47 45 27 22 |E 'UPPER RANGE'"|
00001100: 00 2C 19 C6 1B 99 22 4F 46 20 54 48 45 20 52 41 |.,...."OF THE RA|
00001110: 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 59 4F 55 20 |NDOM NUMBER YOU |
00001120: 57 41 4E 54 2C 20 41 44 44 20 31 22 00 57 19 D0 |WANT, ADD 1".W..|
00001130: 1B 99 22 54 4F 20 49 54 2C 20 54 48 45 4E 20 52 |.."TO IT, THEN R|
00001140: 45 4D 4F 56 45 20 41 4E 59 20 44 45 43 49 4D 41 |EMOVE ANY DECIMA|
00001150: 4C 53 20 42 59 20 22 00 88 19 DA 1B 99 22 55 53 |LS BY "......"US|
00001160: 49 4E 47 20 54 48 45 20 27 49 4E 54 27 20 46 55 |ING THE 'INT' FU|
00001170: 4E 43 54 49 4F 4E 2E 20 20 46 4F 52 20 49 4E 53 |NCTION. FOR INS|
00001180: 54 41 4E 43 45 2C 22 3B 00 B5 19 E4 1B 99 22 49 |TANCE,";......"I|
00001190: 46 20 59 4F 55 20 57 41 4E 54 45 44 20 41 20 52 |F YOU WANTED A R|
000011A0: 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 42 45 54 |ANDOM NUMBER BET|
000011B0: 57 45 45 4E 22 00 E3 19 EE 1B 99 22 31 20 41 4E |WEEN"......"1 AN|
000011C0: 44 20 35 30 2C 20 59 4F 55 20 57 4F 55 4C 44 20 |D 50, YOU WOULD |
000011D0: 54 45 4C 4C 20 54 48 45 20 43 4F 4D 50 55 54 45 |TELL THE COMPUTE|
000011E0: 52 3A 22 00 02 1A F8 1B 99 3A 99 22 41 3D 20 49 |R:"......:."A= I|
000011F0: 4E 54 28 52 4E 44 28 30 29 2A 35 30 29 2B 31 22 |NT(RND(0)*50)+1"|
00001200: 3A 99 00 2B 1A 02 1C 99 22 54 48 45 20 4E 55 4D |:..+...."THE NUM|
00001210: 42 45 52 20 57 49 54 48 49 4E 20 54 48 45 20 50 |BER WITHIN THE P|
00001220: 41 52 45 4E 54 48 45 53 45 53 22 00 56 1A 0C 1C |ARENTHESES".V...|
00001230: 99 22 4F 46 20 54 48 45 20 52 4E 44 20 46 55 4E |."OF THE RND FUN|
00001240: 43 54 49 4F 4E 20 5B 52 4E 44 28 30 29 5D 20 49 |CTION [RND(0)] I|
00001250: 53 20 4E 4F 54 22 00 7A 1A 16 1C 99 22 49 4D 50 |S NOT".z...."IMP|
00001260: 4F 52 54 41 4E 54 2C 20 53 4F 20 4A 55 53 54 20 |ORTANT, SO JUST |
00001270: 55 53 45 20 5A 45 52 4F 2E 22 00 86 1A 20 1C 89 |USE ZERO."... ..|
00001280: 20 33 30 30 30 30 00 9A 1A 40 1F 8F 20 53 54 52 | 30000...@.. STR|
00001290: 24 20 46 55 4E 43 54 49 4F 4E 00 A3 1A 4A 1F 99 |$ FUNCTION...J..|
000012A0: 22 93 22 00 D2 1A 54 1F 99 A3 32 29 22 53 54 52 |"."...T...2)"STR|
000012B0: 24 3D 53 54 52 49 4E 47 20 52 45 50 52 45 53 45 |$=STRING REPRESE|
000012C0: 4E 54 41 54 49 4F 4E 20 4F 46 20 4E 55 4D 42 45 |NTATION OF NUMBE|
000012D0: 52 22 00 D8 1A 5E 1F 99 00 06 1B 68 1F 99 22 20 |R"...^.....h.." |
000012E0: 20 20 49 46 20 59 4F 55 20 48 41 56 45 20 41 20 | IF YOU HAVE A |
000012F0: 4E 55 4D 42 45 52 20 41 4E 44 20 57 4F 55 4C 44 |NUMBER AND WOULD|
00001300: 20 4C 49 4B 45 22 00 32 1B 72 1F 99 22 54 4F 20 | LIKE".2.r.."TO |
00001310: 4D 41 4B 45 20 41 20 53 54 52 49 4E 47 20 4F 55 |MAKE A STRING OU|
00001320: 54 20 4F 46 20 49 54 2C 20 59 4F 55 20 4D 55 53 |T OF IT, YOU MUS|
00001330: 54 22 00 5F 1B 7C 1F 99 22 55 53 45 20 54 48 45 |T"._.|.."USE THE|
00001340: 20 53 54 52 24 20 43 4F 4D 4D 41 4E 44 2E 20 20 | STR$ COMMAND. |
00001350: 41 53 53 55 4D 45 20 54 48 41 54 20 41 20 22 00 |ASSUME THAT A ".|
00001360: 8B 1B 86 1F 99 22 56 41 52 49 41 42 4C 45 20 43 |....."VARIABLE C|
00001370: 41 4C 4C 45 44 20 27 54 27 20 48 41 44 20 54 48 |ALLED 'T' HAD TH|
00001380: 45 20 56 41 4C 55 45 20 36 37 22 00 BC 1B 90 1F |E VALUE 67".....|
00001390: 99 22 41 4E 44 20 59 4F 55 20 57 41 4E 54 45 44 |."AND YOU WANTED|
000013A0: 20 54 4F 20 41 53 53 49 47 4E 20 41 20 53 54 52 | TO ASSIGN A STR|
000013B0: 49 4E 47 20 43 41 4C 4C 45 44 22 3B 00 E8 1B 9A |ING CALLED";....|
000013C0: 1F 99 22 54 24 20 54 48 45 20 56 41 4C 55 45 20 |.."T$ THE VALUE |
000013D0: 4F 46 20 27 54 27 2E 20 20 59 4F 55 20 57 4F 55 |OF 'T'. YOU WOU|
000013E0: 4C 44 20 48 41 56 45 22 00 05 1C A4 1F 99 22 54 |LD HAVE"......"T|
000013F0: 4F 20 54 45 4C 4C 20 54 48 45 20 43 4F 4D 50 55 |O TELL THE COMPU|
00001400: 54 45 52 3A 22 00 1B 1C AE 1F 99 3A 99 22 54 24 |TER:"......:."T$|
00001410: 3D 53 54 52 24 28 54 29 22 3A 99 00 46 1C B8 1F |=STR$(T)":..F...|
00001420: 99 22 20 20 4F 4E 43 45 20 54 48 49 53 20 48 41 |." ONCE THIS HA|
00001430: 44 20 42 45 45 4E 20 44 4F 4E 45 2C 20 54 20 57 |D BEEN DONE, T W|
00001440: 4F 55 4C 44 20 22 00 74 1C C2 1F 99 22 53 54 49 |OULD ".t...."STI|
00001450: 4C 4C 20 45 51 55 41 4C 20 36 37 2C 20 42 55 54 |LL EQUAL 67, BUT|
00001460: 20 54 24 20 57 4F 55 4C 44 20 45 51 55 41 4C 20 | T$ WOULD EQUAL |
00001470: 54 48 45 22 00 88 1C CC 1F 99 22 53 54 52 49 4E |THE"......"STRIN|
00001480: 47 20 27 36 37 27 2E 22 00 94 1C D6 1F 89 20 33 |G '67'."...... 3|
00001490: 30 30 30 30 00 A8 1C 28 23 8F 20 54 41 42 20 53 |0000...(#. TAB S|
000014A0: 54 41 54 45 4D 45 4E 54 00 B1 1C 32 23 99 22 93 |TATEMENT...2#.".|
000014B0: 22 00 D8 1C 3C 23 99 A3 36 29 22 54 41 42 3D 4D |"...<#..6)"TAB=M|
000014C0: 4F 56 45 20 43 55 52 53 4F 52 20 54 4F 20 54 48 |OVE CURSOR TO TH|
000014D0: 45 20 52 49 47 48 54 22 00 DE 1C 46 23 99 00 0B |E RIGHT"...F#...|
000014E0: 1D 50 23 99 22 20 20 20 4A 55 53 54 20 4C 49 4B |.P#." JUST LIK|
000014F0: 45 20 4F 4E 20 41 20 54 59 50 45 57 52 49 54 45 |E ON A TYPEWRITE|
00001500: 52 2C 20 54 48 45 20 54 41 42 22 00 3C 1D 5A 23 |R, THE TAB".<.Z#|
00001510: 99 22 46 55 4E 43 54 49 4F 4E 20 4D 4F 56 45 53 |."FUNCTION MOVES|
00001520: 20 57 48 41 54 45 56 45 52 20 49 53 20 54 4F 20 | WHATEVER IS TO |
00001530: 42 45 20 50 52 49 4E 54 45 44 22 3B 00 6D 1D 64 |BE PRINTED";.m.d|
00001540: 23 99 22 41 20 43 45 52 54 41 49 4E 20 4E 55 4D |#."A CERTAIN NUM|
00001550: 42 45 52 20 4F 46 20 53 50 41 43 45 53 20 54 4F |BER OF SPACES TO|
00001560: 20 54 48 45 20 52 49 47 48 54 2E 22 3B 00 9B 1D | THE RIGHT.";...|
00001570: 6E 23 99 22 54 48 49 53 20 49 53 20 47 4F 4F 44 |n#."THIS IS GOOD|
00001580: 20 46 4F 52 20 4D 41 4B 49 4E 47 20 53 43 52 45 | FOR MAKING SCRE|
00001590: 45 4E 53 20 41 50 50 45 41 52 22 00 C0 1D 78 23 |ENS APPEAR"...x#|
000015A0: 99 22 4E 45 41 54 2E 20 20 54 48 45 20 46 4F 52 |."NEAT. THE FOR|
000015B0: 4D 41 54 20 46 4F 52 20 54 41 42 20 49 53 3A 22 |MAT FOR TAB IS:"|
000015C0: 00 D8 1D 82 23 99 3A 99 22 50 52 49 4E 54 20 54 |....#.:."PRINT T|
000015D0: 41 42 28 58 29 22 3A 99 00 03 1E 8C 23 99 22 57 |AB(X)":.....#."W|
000015E0: 49 54 48 20 27 58 27 20 42 45 49 4E 47 20 54 48 |ITH 'X' BEING TH|
000015F0: 45 20 4E 55 4D 42 45 52 20 4F 46 20 53 50 41 43 |E NUMBER OF SPAC|
00001600: 45 53 22 00 2D 1E 96 23 99 22 54 4F 20 4D 4F 56 |ES".-..#."TO MOV|
00001610: 45 20 54 4F 20 54 48 45 20 52 49 47 48 54 2E 20 |E TO THE RIGHT. |
00001620: 20 41 20 53 54 41 54 45 4D 45 4E 54 22 00 59 1E | A STATEMENT".Y.|
00001630: A0 23 99 22 4C 49 4B 45 20 5B 50 52 49 4E 54 20 |.#."LIKE [PRINT |
00001640: 54 41 42 28 32 30 29 A0 27 48 49 27 5D 20 57 4F |TAB(20).'HI'] WO|
00001650: 55 4C 44 20 48 41 56 45 22 00 6F 1E AA 23 99 22 |ULD HAVE".o..#."|
00001660: 54 48 49 53 20 52 45 53 55 4C 54 3A 22 3A 99 00 |THIS RESULT:":..|
00001670: 7D 1E B4 23 99 A3 32 30 29 22 48 49 22 00 89 1E |}..#..20)"HI"...|
00001680: BE 23 89 20 33 30 30 30 30 00 9E 1E 10 27 8F 20 |.#. 30000....'. |
00001690: 54 49 4D 45 24 20 46 55 4E 43 54 49 4F 4E 00 A7 |TIME$ FUNCTION..|
000016A0: 1E 1A 27 99 22 93 22 00 C6 1E 24 27 99 A3 38 29 |..'."."...$'..8)|
000016B0: 22 54 49 4D 45 24 3D 43 4F 4D 50 55 54 45 52 20 |"TIME$=COMPUTER |
000016C0: 43 4C 4F 43 4B 22 00 CC 1E 2E 27 99 00 F3 1E 38 |CLOCK"....'....8|
000016D0: 27 99 22 20 20 20 54 48 45 20 43 4F 4D 4D 4F 44 |'." THE COMMOD|
000016E0: 4F 52 45 20 36 34 20 48 41 53 20 49 54 53 20 4F |ORE 64 HAS ITS O|
000016F0: 57 4E 22 00 1D 1F 42 27 99 22 42 55 49 4C 54 2D |WN"...B'."BUILT-|
00001700: 49 4E 20 43 4C 4F 43 4B 20 57 48 49 43 48 20 57 |IN CLOCK WHICH W|
00001710: 4F 52 4B 53 20 41 53 20 4C 4F 4E 47 22 00 48 1F |ORKS AS LONG".H.|
00001720: 4C 27 99 22 41 53 20 54 48 45 20 43 4F 4D 50 55 |L'."AS THE COMPU|
00001730: 54 45 52 20 49 53 20 4F 4E 2E 20 20 59 4F 55 20 |TER IS ON. YOU |
00001740: 43 41 4E 20 53 45 54 22 00 72 1F 56 27 99 22 54 |CAN SET".r.V'."T|
00001750: 48 45 20 54 49 4D 45 20 42 59 20 53 45 54 54 49 |HE TIME BY SETTI|
00001760: 4E 47 20 54 49 24 20 45 51 55 41 4C 20 54 4F 20 |NG TI$ EQUAL TO |
00001770: 41 22 00 9D 1F 60 27 99 22 53 54 52 49 4E 47 20 |A"...`'."STRING |
00001780: 4F 46 20 4E 55 4D 42 45 52 53 2E 20 20 49 46 20 |OF NUMBERS. IF |
00001790: 54 48 45 20 54 49 4D 45 20 57 41 53 22 00 C7 1F |THE TIME WAS"...|
000017A0: 6A 27 99 22 45 49 47 48 54 2D 54 48 49 52 54 59 |j'."EIGHT-THIRTY|
000017B0: 20 49 4E 20 54 48 45 20 4D 4F 52 4E 49 4E 47 20 | IN THE MORNING |
000017C0: 41 4E 44 20 33 30 22 00 F6 1F 74 27 99 22 53 45 |AND 30"...t'."SE|
000017D0: 43 4F 4E 44 53 2C 20 59 4F 55 20 57 4F 55 4C 44 |CONDS, YOU WOULD|
000017E0: 20 54 59 50 45 20 5B 54 49 24 3D 27 30 38 33 30 | TYPE [TI$='0830|
000017F0: 33 30 27 5D 2E 22 00 24 20 7E 27 99 22 54 4F 20 |30'].".$ ~'."TO |
00001800: 46 49 4E 44 20 4F 55 54 20 54 48 45 20 54 49 4D |FIND OUT THE TIM|
00001810: 45 20 49 4E 20 48 4F 55 52 53 2C 20 4D 49 4E 55 |E IN HOURS, MINU|
00001820: 54 45 53 22 00 50 20 88 27 99 22 41 4E 44 20 53 |TES".P .'."AND S|
00001830: 45 43 4F 4E 44 53 2C 20 53 49 4D 50 4C 59 20 54 |ECONDS, SIMPLY T|
00001840: 59 50 45 20 5B 50 52 49 4E 54 20 54 49 24 5D 22 |YPE [PRINT TI$]"|
00001850: 00 5C 20 92 27 89 20 33 30 30 30 30 00 6F 20 F8 |.\ .'. 30000.o .|
00001860: 2A 8F 20 56 41 4C 20 46 55 4E 43 54 49 4F 4E 00 |*. VAL FUNCTION.|
00001870: 78 20 02 2B 99 22 93 22 00 95 20 0C 2B 99 22 56 |x .+.".".. .+."V|
00001880: 41 4C 3D 56 41 4C 55 45 20 4F 46 20 41 20 53 54 |AL=VALUE OF A ST|
00001890: 52 49 4E 47 22 00 9B 20 16 2B 99 00 C6 20 20 2B |RING".. .+... +|
000018A0: 99 22 20 20 20 54 4F 20 46 49 4E 44 20 4F 55 54 |." TO FIND OUT|
000018B0: 20 57 48 41 54 20 54 48 45 20 56 41 4C 55 45 20 | WHAT THE VALUE |
000018C0: 4F 46 20 41 20 22 00 EF 20 2A 2B 99 22 53 54 52 |OF A ".. *+."STR|
000018D0: 49 4E 47 20 49 53 2C 20 59 4F 55 20 53 48 4F 55 |ING IS, YOU SHOU|
000018E0: 4C 44 20 55 53 45 20 54 48 45 20 56 41 4C 22 00 |LD USE THE VAL".|
000018F0: 1A 21 34 2B 99 22 53 54 41 54 45 4D 45 4E 54 2E |.!4+."STATEMENT.|
00001900: 20 20 53 54 52 49 4E 47 53 20 41 52 45 20 4E 4F | STRINGS ARE NO|
00001910: 54 20 4E 55 4D 42 45 52 53 22 00 43 21 3E 2B 99 |T NUMBERS".C!>+.|
00001920: 22 54 48 45 4D 53 45 4C 56 45 53 2C 20 53 4F 20 |"THEMSELVES, SO |
00001930: 54 48 49 53 20 27 43 4F 4E 56 45 52 53 49 4F 4E |THIS 'CONVERSION|
00001940: 27 20 22 00 6E 21 48 2B 99 22 53 54 41 54 45 4D |' ".n!H+."STATEM|
00001950: 45 4E 54 20 4D 55 53 54 20 42 45 20 55 53 45 44 |ENT MUST BE USED|
00001960: 2E 20 20 53 55 50 50 4F 53 45 20 41 20 22 00 97 |. SUPPOSE A "..|
00001970: 21 52 2B 99 22 53 54 52 49 4E 47 20 43 41 4C 4C |!R+."STRING CALL|
00001980: 45 44 20 4E 4D 24 20 57 41 53 20 27 34 33 35 27 |ED NM$ WAS '435'|
00001990: 2E 20 20 54 4F 20 22 00 C5 21 5C 2B 99 22 46 49 |. TO "..!\+."FI|
000019A0: 4E 44 20 4F 55 54 20 54 48 45 20 56 41 4C 55 45 |ND OUT THE VALUE|
000019B0: 20 4F 46 20 54 48 41 54 20 53 54 52 49 4E 47 2C | OF THAT STRING,|
000019C0: 20 59 4F 55 22 00 D8 21 66 2B 99 22 57 4F 55 4C | YOU"..!f+."WOUL|
000019D0: 44 20 54 59 50 45 3A 22 00 F2 21 70 2B 99 3A 99 |D TYPE:"..!p+.:.|
000019E0: 22 50 52 49 4E 54 20 56 41 4C 28 4E 4D 24 29 22 |"PRINT VAL(NM$)"|
000019F0: 3A 99 00 1D 22 7A 2B 99 22 20 20 20 54 48 45 20 |:..."z+." THE |
00001A00: 43 4F 4D 50 55 54 45 52 20 57 4F 55 4C 44 20 52 |COMPUTER WOULD R|
00001A10: 45 54 55 52 4E 20 54 4F 20 59 4F 55 22 00 34 22 |ETURN TO YOU".4"|
00001A20: 84 2B 99 22 41 20 56 41 4C 55 45 20 4F 46 20 34 |.+."A VALUE OF 4|
00001A30: 33 35 2E 22 00 40 22 8E 2B 89 20 33 30 30 30 30 |35.".@".+. 30000|
00001A40: 00 55 22 E0 2E 8F 20 57 41 49 54 20 53 54 41 54 |.U"... WAIT STAT|
00001A50: 45 4D 45 4E 54 00 5E 22 EA 2E 99 22 93 22 00 87 |EMENT.^"..."."..|
00001A60: 22 F4 2E 99 A3 36 29 22 57 41 49 54 3D 57 41 49 |"....6)"WAIT=WAI|
00001A70: 54 20 46 4F 52 20 41 20 42 59 54 45 20 54 4F 20 |T FOR A BYTE TO |
00001A80: 43 48 41 4E 47 45 22 00 8D 22 FE 2E 99 00 B9 22 |CHANGE".."....."|
00001A90: 08 2F 99 22 20 20 20 54 48 45 20 57 41 49 54 20 |./." THE WAIT |
00001AA0: 53 54 41 54 45 4D 45 4E 54 20 57 49 4C 4C 20 43 |STATEMENT WILL C|
00001AB0: 41 55 53 45 20 41 4C 4C 22 00 E5 22 12 2F 99 22 |AUSE ALL".."./."|
00001AC0: 4F 46 20 54 48 45 20 43 4F 4D 50 55 54 45 52 27 |OF THE COMPUTER'|
00001AD0: 53 20 4F 50 45 52 41 54 49 4F 4E 53 20 54 4F 20 |S OPERATIONS TO |
00001AE0: 53 54 4F 50 22 00 0E 23 1C 2F 99 22 55 4E 54 49 |STOP"..#./."UNTI|
00001AF0: 4C 20 41 20 42 59 54 45 20 49 4E 20 4D 45 4D 4F |L A BYTE IN MEMO|
00001B00: 52 59 20 43 48 41 4E 47 45 53 20 54 4F 22 00 3B |RY CHANGES TO".;|
00001B10: 23 26 2F 99 22 41 20 43 45 52 54 41 49 4E 20 56 |#&/."A CERTAIN V|
00001B20: 41 4C 55 45 2E 20 20 54 48 45 20 46 4F 52 4D 41 |ALUE. THE FORMA|
00001B30: 54 2C 20 46 4F 52 20 4F 55 52 22 00 50 23 30 2F |T, FOR OUR".P#0/|
00001B40: 99 22 50 55 52 50 4F 53 45 53 2C 20 49 53 3A 22 |."PURPOSES, IS:"|
00001B50: 00 70 23 3A 2F 99 3A 99 22 57 41 49 54 20 4C 4F |.p#:/.:."WAIT LO|
00001B60: 43 41 54 49 4F 4E 2C 4D 41 53 4B 20 31 22 3A 99 |CATION,MASK 1":.|
00001B70: 00 9E 23 44 2F 99 22 27 4C 4F 43 41 54 49 4F 4E |..#D/."'LOCATION|
00001B80: 27 20 49 53 20 54 48 45 20 42 59 54 45 20 4E 55 |' IS THE BYTE NU|
00001B90: 4D 42 45 52 20 59 4F 55 20 57 41 4E 54 22 00 C8 |MBER YOU WANT"..|
00001BA0: 23 4E 2F 99 22 54 4F 20 57 41 49 54 20 46 4F 52 |#N/."TO WAIT FOR|
00001BB0: 2C 20 57 48 49 4C 45 20 27 4D 41 53 4B 20 31 27 |, WHILE 'MASK 1'|
00001BC0: 20 49 53 20 54 48 45 22 00 F3 23 58 2F 99 22 56 | IS THE"..#X/."V|
00001BD0: 41 4C 55 45 20 57 48 49 43 48 20 54 48 41 54 20 |ALUE WHICH THAT |
00001BE0: 42 59 54 45 20 48 41 53 20 54 4F 20 43 48 41 4E |BYTE HAS TO CHAN|
00001BF0: 47 45 22 00 24 24 62 2F 99 22 54 4F 20 46 4F 52 |GE".$$b/."TO FOR|
00001C00: 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 54 4F | THE COMPUTER TO|
00001C10: 20 52 45 53 55 4D 45 20 4F 50 45 52 41 54 49 4F | RESUME OPERATIO|
00001C20: 4E 2E 22 3B 00 55 24 6C 2F 99 22 49 46 2C 20 46 |N.";.U$l/."IF, F|
00001C30: 4F 52 20 45 58 41 4D 50 4C 45 2C 20 59 4F 55 20 |OR EXAMPLE, YOU |
00001C40: 57 41 4E 54 45 44 20 54 48 45 20 43 4F 4D 50 55 |WANTED THE COMPU|
00001C50: 54 45 52 22 3B 00 7F 24 76 2F 99 22 54 4F 20 57 |TER";..$v/."TO W|
00001C60: 41 49 54 20 55 4E 54 49 4C 20 42 59 54 45 20 34 |AIT UNTIL BYTE 4|
00001C70: 20 57 41 53 20 45 51 55 41 4C 20 54 4F 20 22 00 | WAS EQUAL TO ".|
00001C80: A6 24 80 2F 99 22 54 48 45 20 56 41 4C 55 45 20 |.$./."THE VALUE |
00001C90: 35 34 2C 20 59 4F 55 20 57 4F 55 4C 44 20 54 59 |54, YOU WOULD TY|
00001CA0: 50 45 3A 22 3A 99 00 B7 24 8A 2F 99 22 57 41 49 |PE:":...$./."WAI|
00001CB0: 54 20 34 2C 35 34 22 00 C3 24 94 2F 89 20 33 30 |T 4,54"..$./. 30|
00001CC0: 30 30 30 00 F8 24 20 4E 8F 20 53 45 45 20 49 46 |000..$ N. SEE IF|
00001CD0: 20 41 4E 4F 54 48 45 52 20 42 41 53 49 43 20 4B | ANOTHER BASIC K|
00001CE0: 45 59 57 4F 52 44 20 53 48 4F 55 4C 44 20 42 45 |EYWORD SHOULD BE|
00001CF0: 20 44 45 46 49 4E 45 44 00 01 25 25 4E 99 22 93 | DEFINED..%%N.".|
00001D00: 22 00 2D 25 2A 4E 99 22 57 4F 55 4C 44 20 59 4F |".-%*N."WOULD YO|
00001D10: 55 20 4C 49 4B 45 20 54 4F 20 53 45 45 20 41 4E |U LIKE TO SEE AN|
00001D20: 4F 54 48 45 52 20 42 41 53 49 43 20 22 00 52 25 |OTHER BASIC ".R%|
00001D30: 34 4E 85 22 4B 45 59 57 4F 52 44 20 44 45 4D 4F |4N."KEYWORD DEMO|
00001D40: 4E 53 54 52 41 54 45 44 28 59 2F 4E 29 22 3B 41 |NSTRATED(Y/N)";A|
00001D50: 4E 24 00 6C 25 3E 4E 8B 20 C8 28 41 4E 24 2C 31 |N$.l%>N. .(AN$,1|
00001D60: 29 B2 22 59 22 20 A7 20 89 20 36 30 00 8D 25 48 |)."Y" . . 60..%H|
00001D70: 4E 99 3A 99 22 4F 4B 21 20 20 48 41 56 45 20 41 |N.:."OK! HAVE A|
00001D80: 20 4E 49 43 45 20 44 41 59 21 22 3A 80 00 AF 25 | NICE DAY!":...%|
00001D90: 30 75 8F 20 43 48 45 43 4B 20 46 4F 52 20 27 43 |0u. CHECK FOR 'C|
00001DA0: 27 20 54 4F 20 42 45 20 50 52 45 53 53 45 44 00 |' TO BE PRESSED.|
00001DB0: B5 25 3A 75 99 00 D5 25 44 75 99 A3 39 29 22 50 |.%:u...%Du..9)"P|
00001DC0: 52 45 53 53 20 27 43 27 A0 54 4F 20 43 4F 4E 54 |RESS 'C'.TO CONT|
00001DD0: 49 4E 55 45 22 00 EC 25 4E 75 A1 41 24 3A 8B 20 |INUE"..%Nu.A$:. |
00001DE0: 41 24 B2 22 22 A7 20 33 30 30 33 30 00 02 26 58 |A$."". 30030..&X|
00001DF0: 75 8B 20 41 24 B3 B1 22 43 22 20 A7 20 33 30 30 |u. A$.."C" . 300|
00001E00: 33 30 00 0E 26 62 75 89 20 32 30 30 30 30 00 00 |30..&bu. 20000..|
00001E10: 00 |. |
.......53280,1:.53281,1:."..".P....".
BASIC EINMAL ANDERS TEIL 2 .";
......".
.";......".DIES IST DER 2. UND L
ETZTE TEIL . "......".
"......"..VIEL SPASS.G
....".BITTE EINE TASTE .................
........{...."....
....(..A$:.A$."". 40..
.2.. LANGUAGE...<..".": . CLEAR SCREEN.V
.F...10)" ":....P.."WHI
CH OF THE FOLLOWING WOULD YOU LIKE". .Z.
."TO KNOW MORE ABOUT:":..L.D.."(1) PEEK
(2) POKE (3) PRINT".Y.N.."(4)
READ (5) REM (6) RIGHT$"...X.."
(7) RND (8) STR$ (9) TAB".N...
."(10) TIME$ (11) VAL (12) WAIT"..
....:."PLEASE ENTER YOUR CHOICE";CH... .
. CH.1 . CH.12 . . 150.;.... CH.6 . . CH
. 1000,2000,3000,4000,5000.N.... CH.5 .
6000,7000,8000,9000,10000,11000,12000..
.... PEEK FUNCTION......".".......6)"PEE
K=PEEK AT A BYTE OF MEMORY"............"
BY USING THE PEEK COMMAND, YOU CAN"..
...."FIND OUT THE CONTENTS OF ANY BYTE".
>.$.."(PIECE OF MEMORY) WITHIN YOUR COMP
UTER.".M...."THERE ARE 65,536 BYTES IN T
HE COMMODORE"...8.."64, AND YOU MAY FIND
OUT THE CONTENTS".E.B.."OF ANY ONE OF T
HEM BY TYPING [PRINT"...L.."PEEK(X)], X
BEING THE BYTE NUMBER YOU".!.V.."ARE CUR
IOUS ABOUT. IF YOU WANT TO KNOW".R.`.."
THE CONTENTS OF BYTE 3,420, FOR INSTANCE
";.R.J.."YOU ONLY HAVE TO TYPE:":....T..
"PRINT PEEK(3420)"...~.. 30000...P.. POK
E FUNCTION...Z..".".......4)"POKE=PUT VA
LUE INTO MEMORY LOCATION"............"
IF YOU WANT TO PUT A CERTAIN VALUE".B..
.."INTO A MEMORY LOCATION, YOU SHOULD US
E".O...."THE POKE STATEMENT. THE POKE C
OMMAND"......"TELLS THE COMPUTER TO PUT
A VALUE INTO".I. .."THE BYTE YOU SPECIFY
. IF YOU WANTED"...*.."TO PUT THE VALUE
64 INTO BYTE 7000,".%.4.."FOR EXAMPLE,
YOU WOULD GIVE THE COMPUTER";.;.>.."THE
COMMAND:":..O.H.."POKE 7000,64".[.R.. 30
000.O.... PRINT COMMAND.X.B.."."...L...4
)"PRINT=PRINT SOMETHING ON THE SCREEN"..
.V...X...." THE PRINT COMMAND MAY BE U
SED TO "......"EITHER PRINT VARIABLES ON
THE SCREEN".0...."OR PRINT MESSAGES. I
F YOU WANTED TO".]...."PRINT THE VALUE F
OR THE VARIABLE 'A',".T...."YOU WOULD TY
PE:"......:."PRINT A":......." IF, HOW
EVER, YOU WANTED A MESSAGE"...&.."PUT ON
THE SCREEN, YOU WOULD TYPE:"...0..:."PR
INT 'THIS IS A MESSAGE'"...:.. 30000. .
.. READ FUNCTION.)....".".C.....10)"READ
=READ DATA".I.....T.H.." THE READ STAT
EMENT IS USED ALONG"...R.."WITH THE DATA
STATEMENT. READ IS USED".O...."TO READ
DATA FROM ANOTHER PART OF THE"......"PR
OGRAM, WHETHER THAT DATA IS IN THE".+..
.."FORM OF NUMBERS OR WORDS. THIS EXAMP
LE".V...."WOULD READ THE VARIABLE A, REA
D THE"....."WORD A$, THEN PRINT BOTH OF
THEM:"............"10 READ A,A$"..."..
"20 PRINT A,A$".M.,.."30 DATA 12,COMMO
DORE".Y.6.. 30000...... REM STATEMENT...
...".".......9)"REM=REMARK STATEMENT"...
....I...." IF YOU WISH TO MAKE A REMAR
K WITHIN".X...."A PROGRAM, EITHER FOR YO
UR OWN PURPOSES"...D.."OR FOR THE USE OF
OTHERS, THE REM".I.N.."STATEMENT IS USE
D. WHENEVER THE"...X.."COMPUTER ENCOUNT
ERS A REM STATEMENT,"."...."IT SIMPLY GO
ES ON TO THE NEXT PROGRAM".M...."LINE, I
GNORING EVERYTHING FOLLOWING".Z...."THE
REM STATEMENT ON THAT LINE. YOU "......
"CAN THEREFORE PUT ANYTHING YOU WISH ".D
...."AFTER A REM STATEMENT:"......:."10
REM THIS IS A REMARK"...... 30000...P..
RIGHT$ FUNCTION...Z..".".<.....4)"RIGHT
$=TAKE RIGHT PART OF STRING".B.....O....
" TO REMOVE A PIECE OF A STRING FROM".
....."ITS RIGHT SIDE, USE THE RIGHT$ STA
TE-".D...."MENT. THE FORMAT FOR RIGHT$
IS:"......:."RIGHT$(STRING,NUMBER)":....
..."THE 'STRING' IS THE STRING YOU WANT
TO".A.J.."PERFORM THE RIGHT$ STATEMENT O
N, WHILE".O.T.."THE NUMBER IS THE NUMBER
OF CHARACTERS"......"YOU WANT TO TAKE O
FF THAT STRING. THE".I...."RIGHT$ STATE
MENT DOES NOT REMOVE ANY"......"PART OF
THE ORIGINAL STRING FROM ITSELF"."...."B
UT RATHER ALLOWS YOU TO 'COPY' A ".L....
"PIECE OF THE ORIGINAL STRING INTO ".V..
.."ANOTHER STRING OR ONTO THE SCREEN."..
.... 30000...X.. RANDOM FUNCTION...B..".
".H.L...6)"RND=GENERATE A RANDOM NUMBER"
.N.V........" RND IS A COMMAND THAT GEN
ERATES"."...."A RANDOM NUMBER BETWEEN 0
AND 1. A".O...."RANDOM NUMBER MIGHT BE
.6483 OR .5392".{...."OR ANY OTHER NUMBE
R BETWEEN 0 AND 1."......" IF YOU WANT
THE RANDOM NUMBER TO".R...."BE A WHOLE
NUMBER, YOU MUST MULTIPLY"......"THE RAN
DOM NUMBER BY THE 'UPPER RANGE'".,.F.."O
F THE RANDOM NUMBER YOU WANT, ADD 1".W.P
.."TO IT, THEN REMOVE ANY DECIMALS BY ".
..Z.."USING THE 'INT' FUNCTION. FOR INS
TANCE,";......"IF YOU WANTED A RANDOM NU
MBER BETWEEN"......"1 AND 50, YOU WOULD
TELL THE COMPUTER:"......:."A= INT(RND(0
)*50)+1":..+...."THE NUMBER WITHIN THE P
ARENTHESES".V...."OF THE RND FUNCTION [R
ND(0)] IS NOT".Z...."IMPORTANT, SO JUST
USE ZERO."... .. 30000...@.. STR$ FUNCTI
ON...J..".".R.T...2)"STR$=STRING REPRESE
NTATION OF NUMBER".X.^.....H.." IF YOU
HAVE A NUMBER AND WOULD LIKE".2.R.."TO
MAKE A STRING OUT OF IT, YOU MUST"._.|..
"USE THE STR$ COMMAND. ASSUME THAT A ".
....."VARIABLE CALLED 'T' HAD THE VALUE
67"......"AND YOU WANTED TO ASSIGN A STR
ING CALLED";......"T$ THE VALUE OF 'T'.
YOU WOULD HAVE"......"TO TELL THE COMPU
TER:"......:."T$=STR$(T)":..F...." ONCE
THIS HAD BEEN DONE, T WOULD ".T.B.."STI
LL EQUAL 67, BUT T$ WOULD EQUAL THE"...L
.."STRING '67'."...V.. 30000...(#. TAB S
TATEMENT...2#.".".X.<#..6)"TAB=MOVE CURS
OR TO THE RIGHT"...F#....P#." JUST LIK
E ON A TYPEWRITER, THE TAB".<.Z#."FUNCTI
ON MOVES WHATEVER IS TO BE PRINTED";.M.D
#."A CERTAIN NUMBER OF SPACES TO THE RIG
HT.";...N#."THIS IS GOOD FOR MAKING SCRE
ENS APPEAR"...X#."NEAT. THE FORMAT FOR
TAB IS:".X..#.:."PRINT TAB(X)":.....#."W
ITH 'X' BEING THE NUMBER OF SPACES".-..#
."TO MOVE TO THE RIGHT. A STATEMENT".Y.
#."LIKE [PRINT TAB(20) 'HI'] WOULD HAVE
".O..#."THIS RESULT:":..}..#..20)"HI"...
.#. 30000....'. TIME$ FUNCTION....'.".".
F.$'..8)"TIME$=COMPUTER CLOCK".L..'....8
'." THE COMMODORE 64 HAS ITS OWN"...B'
."BUILT-IN CLOCK WHICH WORKS AS LONG".H.
L'."AS THE COMPUTER IS ON. YOU CAN SET"
.R.V'."THE TIME BY SETTING TI$ EQUAL TO
A"...`'."STRING OF NUMBERS. IF THE TIME
WAS".G.J'."EIGHT-THIRTY IN THE MORNING
AND 30"...T'."SECONDS, YOU WOULD TYPE [T
I$='083030'].".$ ~'."TO FIND OUT THE TIM
E IN HOURS, MINUTES".P .'."AND SECONDS,
SIMPLY TYPE [PRINT TI$]".\ .'. 30000.O .
*. VAL FUNCTION.X .+.".".. .+."VAL=VALUE
OF A STRING".. .+..F +." TO FIND OUT
WHAT THE VALUE OF A ".. *+."STRING IS,
YOU SHOULD USE THE VAL"..!4+."STATEMENT.
STRINGS ARE NOT NUMBERS".C!>+."THEMSEL
VES, SO THIS 'CONVERSION' ".N!H+."STATEM
ENT MUST BE USED. SUPPOSE A "..!R+."STR
ING CALLED NM$ WAS '435'. TO ".E!\+."FI
ND OUT THE VALUE OF THAT STRING, YOU".X!
F+."WOULD TYPE:"..!P+.:."PRINT VAL(NM$)"
:..."Z+." THE COMPUTER WOULD RETURN TO
YOU".4".+."A VALUE OF 435.".@".+. 30000
.U"... WAIT STATEMENT.^"...".".."....6)"
WAIT=WAIT FOR A BYTE TO CHANGE".."....."
./." THE WAIT STATEMENT WILL CAUSE ALL
".."./."OF THE COMPUTER'S OPERATIONS TO
STOP"..#./."UNTIL A BYTE IN MEMORY CHANG
ES TO".;#&/."A CERTAIN VALUE. THE FORMA
T, FOR OUR".P#0/."PURPOSES, IS:".P#:/.:.
"WAIT LOCATION,MASK 1":...#D/."'LOCATION
' IS THE BYTE NUMBER YOU WANT".H#N/."TO
WAIT FOR, WHILE 'MASK 1' IS THE"..#X/."V
ALUE WHICH THAT BYTE HAS TO CHANGE".$$B/
."TO FOR THE COMPUTER TO RESUME OPERATIO
N.";.U$L/."IF, FOR EXAMPLE, YOU WANTED T
HE COMPUTER";.$V/."TO WAIT UNTIL BYTE 4
WAS EQUAL TO "..$./."THE VALUE 54, YOU
WOULD TYPE:":...$./."WAIT 4,54".C$./. 30
000..$ N. SEE IF ANOTHER BASIC KEYWORD S
HOULD BE DEFINED..%%N.".".-%*N."WOULD YO
U LIKE TO SEE ANOTHER BASIC ".R%4N."KEYW
ORD DEMONSTRATED(Y/N)";AN$.L%>N. H(AN$,1
)."Y" . . 60..%HN.:."OK! HAVE A NICE DA
Y!":...%0U. CHECK FOR 'C' TO BE PRESSED.
.%:U..U%DU..9)"PRESS 'C' TO CONTINUE"..%
NU.A$:. A$."". 30030..&XU. A$.."C" . 300
30..&BU. 20000...
> CLICK IMAGE PREVIEW FOR FULL MODAL