BASIC LES 8
FILE INFORMATION
FILENAME(S): BASIC LES 8
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 15:51:47
APPEARS ON: 1 disk(s)
FILE HASH
898198f91fb45d58a892865961464b90a78b51ec022b5e3d569cde87f3ef1989
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCCL 20 05 89 | BASIC LES 8 | PRG | Belgium | 2 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 64 00 51 31 B2 31 39 38 3A 97 35 33 |.. .d.Q1.198:.53| 00000010: 32 38 30 2C 31 30 3A 97 35 33 32 38 31 2C 31 30 |280,10:.53281,10| 00000020: 00 2C 08 6E 00 99 C7 28 31 34 32 29 00 5D 08 78 |.,.n...(142).].x| 00000030: 00 99 22 93 1C 20 45 52 20 5A 49 4A 4E 20 4E 4F |..".. ER ZIJN NO| 00000040: 47 20 45 45 4E 20 41 41 4E 54 41 4C 20 48 41 4E |G EEN AANTAL HAN| 00000050: 44 49 47 45 20 46 55 4E 4B 54 49 45 53 00 8A 08 |DIGE FUNKTIES...| 00000060: 82 00 99 22 11 11 90 20 12 49 4E 54 92 1C 20 20 |..."... .INT.. | 00000070: 49 53 20 45 45 4E 20 53 49 4D 50 45 4C 20 53 54 |IS EEN SIMPEL ST| 00000080: 41 54 45 4D 45 4E 54 20 4F 4D 00 B7 08 8C 00 99 |ATEMENT OM......| 00000090: 22 11 20 4F 4E 4E 4F 44 49 47 45 20 43 49 4A 46 |". ONNODIGE CIJF| 000000A0: 45 52 53 20 41 43 48 54 45 52 20 44 45 20 4B 4F |ERS ACHTER DE KO| 000000B0: 4D 4D 41 20 57 45 47 00 00 09 96 00 99 22 11 20 |MMA WEG......". | 000000C0: 54 45 20 57 45 52 4B 45 4E 20 49 4E 20 45 45 4E |TE WERKEN IN EEN| 000000D0: 20 50 52 49 4E 54 20 53 54 41 54 45 4D 45 4E 54 | PRINT STATEMENT| 000000E0: 2E 20 20 20 20 20 20 20 11 1F 20 20 20 20 20 20 |. .. | 000000F0: 20 44 55 53 20 41 4C 53 20 55 3D 35 2E 39 34 37 | DUS ALS U=5.947| 00000100: 00 45 09 A0 00 99 22 11 20 45 4E 20 57 45 20 5A |.E....". EN WE Z| 00000110: 45 47 47 45 4E 20 44 41 4E 3A 20 20 20 20 20 20 |EGGEN DAN: | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 11 20 20 20 20 20 20 20 50 52 49 4E 54 20 49 | . PRINT I| 00000140: 4E 54 28 55 29 00 88 09 AA 00 99 22 11 20 44 41 |NT(U)......". DA| 00000150: 4E 20 4B 4F 4D 54 20 4F 50 20 48 45 54 20 53 43 |N KOMT OP HET SC| 00000160: 48 45 52 4D 20 27 54 20 52 45 53 55 4C 54 41 41 |HERM 'T RESULTAA| 00000170: 54 3A 20 20 20 20 11 20 20 20 20 20 20 27 35 27 |T: . '5'| 00000180: 2E 22 3A 8D 31 33 31 30 00 B8 09 B4 00 99 22 93 |.":.1310......".| 00000190: 1F 20 4F 4F 4B 20 4B 55 4E 20 4A 45 20 4D 45 54 |. OOK KUN JE MET| 000001A0: 20 27 49 4E 54 27 20 41 4C 4C 45 45 4E 20 44 45 | 'INT' ALLEEN DE| 000001B0: 20 43 49 4A 46 45 52 53 00 DE 09 BE 00 99 22 11 | CIJFERS......".| 000001C0: 20 41 43 48 54 45 52 20 44 45 20 4B 4F 4D 4D 41 | ACHTER DE KOMMA| 000001D0: 20 45 52 20 55 49 54 20 48 41 4C 45 4E 2E 00 19 | ER UIT HALEN...| 000001E0: 0A C8 00 99 22 11 05 20 20 20 31 30 20 55 3D 35 |....".. 10 U=5| 000001F0: 2E 39 34 37 22 3A 99 22 20 20 20 32 30 20 55 3D |.947":." 20 U=| 00000200: 55 2D 49 4E 54 28 55 29 22 3A 99 22 20 20 20 33 |U-INT(U)":." 3| 00000210: 30 20 50 52 49 4E 54 20 55 00 42 0A D2 00 99 22 |0 PRINT U.B...."| 00000220: 11 1F 20 49 4E 20 44 49 54 20 47 45 56 41 4C 20 |.. IN DIT GEVAL | 00000230: 49 53 20 44 45 20 55 49 54 4F 4D 53 54 20 2E 39 |IS DE UITOMST .9| 00000240: 34 37 00 74 0A DC 00 99 22 11 11 90 20 4C 45 54 |47.t...."... LET| 00000250: 20 57 45 4C 3A 20 27 55 27 20 49 53 20 48 49 45 | WEL: 'U' IS HIE| 00000260: 52 20 4F 4F 4B 20 45 43 48 54 20 56 45 52 41 4E |R OOK ECHT VERAN| 00000270: 44 45 52 44 00 9F 0A E6 00 99 22 20 49 4E 20 48 |DERD......" IN H| 00000280: 45 54 20 56 4F 52 49 47 45 20 56 4F 4F 52 42 45 |ET VORIGE VOORBE| 00000290: 45 4C 44 20 57 45 52 44 20 41 4C 4C 45 45 4E 00 |ELD WERD ALLEEN.| 000002A0: CC 0A F0 00 99 22 11 20 4D 41 41 52 20 45 45 4E |.....". MAAR EEN| 000002B0: 20 44 45 45 4C 20 56 41 4E 20 48 45 54 20 47 45 | DEEL VAN HET GE| 000002C0: 54 41 4C 20 47 45 50 52 49 4E 54 21 00 F6 0A FA |TAL GEPRINT!....| 000002D0: 00 99 22 11 20 4F 4F 4B 20 48 49 45 52 20 4B 41 |..". OOK HIER KA| 000002E0: 4E 20 44 41 54 3A 20 28 52 45 47 45 4C 20 32 30 |N DAT: (REGEL 20| 000002F0: 20 57 45 47 21 29 00 19 0B 04 01 99 22 11 05 20 | WEG!)......".. | 00000300: 20 33 30 20 50 52 49 4E 54 20 55 2D 49 4E 54 28 | 30 PRINT U-INT(| 00000310: 55 29 22 3A 8D 31 33 31 30 00 42 0B 0E 01 99 22 |U)":.1310.B...."| 00000320: 93 95 20 48 45 54 20 4B 41 4E 20 53 4F 4D 53 20 |.. HET KAN SOMS | 00000330: 48 41 4E 44 49 47 20 5A 49 4A 4E 20 4F 4D 20 45 |HANDIG ZIJN OM E| 00000340: 45 4E 00 6E 0B 18 01 99 22 11 20 57 49 4C 4C 45 |EN.n....". WILLE| 00000350: 4B 45 55 52 49 47 20 47 45 54 41 4C 20 54 45 20 |KEURIG GETAL TE | 00000360: 47 45 4E 45 52 45 4E 20 42 56 2E 20 49 4E 00 92 |GENEREN BV. IN..| 00000370: 0B 22 01 99 22 11 20 53 50 45 4C 4C 45 54 4A 45 |."..". SPELLETJE| 00000380: 53 20 41 4C 53 20 4B 41 4E 53 2D 46 41 4B 54 4F |S ALS KANS-FAKTO| 00000390: 52 2E 00 BF 0B 2C 01 99 22 11 1F 20 48 49 45 52 |R....,..".. HIER| 000003A0: 49 4E 20 49 53 20 56 4F 4F 52 5A 49 45 4E 20 4D |IN IS VOORZIEN M| 000003B0: 45 54 20 48 45 54 20 43 4F 4D 4D 41 4E 44 4F 00 |ET HET COMMANDO.| 000003C0: D0 0B 36 01 99 22 11 90 20 20 20 20 20 52 4E 44 |..6..".. RND| 000003D0: 00 EA 0B 40 01 99 22 11 11 20 20 20 20 20 50 52 |...@..".. PR| 000003E0: 49 4E 54 20 52 4E 44 28 31 29 00 13 0C 4A 01 99 |INT RND(1)...J..| 000003F0: 22 11 1F 20 47 45 4E 45 52 45 45 52 44 20 45 45 |".. GENEREERD EE| 00000400: 4E 20 57 49 4C 4C 45 4B 45 55 52 49 47 20 47 45 |N WILLEKEURIG GE| 00000410: 54 41 4C 00 3C 0C 54 01 99 22 11 20 54 55 53 53 |TAL.<.T..". TUSS| 00000420: 45 4E 20 20 30 20 20 45 4E 20 20 2E 39 39 39 39 |EN 0 EN .9999| 00000430: 39 39 39 39 39 22 3A 8D 31 33 31 30 00 69 0C 5E |99999":.1310.i.^| 00000440: 01 99 22 93 1C 20 12 52 4E 44 92 20 53 41 4D 45 |..".. .RND. SAME| 00000450: 4E 20 4D 45 54 20 12 49 4E 54 92 20 47 45 45 46 |N MET .INT. GEEF| 00000460: 54 20 50 41 53 20 45 45 4E 00 82 0C 68 01 99 22 |T PAS EEN...h.."| 00000470: 11 20 42 52 55 49 4B 42 41 41 52 20 47 45 54 41 |. BRUIKBAAR GETA| 00000480: 4C 3A 00 CB 0C 72 01 99 22 11 11 90 20 20 20 50 |L:...r.."... P| 00000490: 52 49 4E 54 20 49 4E 54 28 20 52 4E 44 28 31 29 |RINT INT( RND(1)| 000004A0: 20 2A 31 30 20 29 20 2B 31 22 3A 99 22 11 11 20 | *10 ) +1":.".. | 000004B0: 1C 47 45 45 46 54 20 27 4E 20 47 45 54 41 4C 20 |.GEEFT 'N GETAL | 000004C0: 54 55 53 53 45 4E 20 31 20 45 4E 00 00 0D 7C 01 |TUSSEN 1 EN...|.| 000004D0: 99 22 11 11 95 20 42 56 2E 20 52 4E 44 28 31 29 |."... BV. RND(1)| 000004E0: 3D 2E 35 39 34 37 32 37 39 36 37 22 3A 99 22 11 |=.594727967":.".| 000004F0: 20 2A 31 30 3D 35 2E 39 34 37 32 37 39 36 37 22 | *10=5.94727967"| 00000500: 00 22 0D 86 01 99 22 11 20 49 4E 54 3D 35 3B 20 |."....". INT=5; | 00000510: 20 2B 31 3D 20 20 12 36 92 20 21 22 3A 8D 31 33 | +1= .6. !":.13| 00000520: 31 30 00 53 0D 90 01 99 22 93 1F 20 4D 45 54 20 |10.S....".. MET | 00000530: 12 41 42 53 92 20 56 45 52 4D 49 4A 44 45 4E 20 |.ABS. VERMIJDEN | 00000540: 57 45 20 48 45 54 20 4D 49 4E 54 45 4B 45 4E 20 |WE HET MINTEKEN | 00000550: 56 41 4E 00 73 0D 9A 01 99 22 11 20 45 45 4E 20 |VAN.s....". EEN | 00000560: 4E 45 47 41 54 49 45 56 45 20 55 49 54 4B 4F 4D |NEGATIEVE UITKOM| 00000570: 53 54 2E 00 A5 0D A4 01 99 22 11 11 11 05 20 44 |ST.......".... D| 00000580: 45 20 41 42 53 4F 4C 55 54 45 20 57 41 41 52 44 |E ABSOLUTE WAARD| 00000590: 45 20 56 41 4E 20 58 20 4B 52 49 4A 47 20 4A 45 |E VAN X KRIJG JE| 000005A0: 20 4D 45 54 3A 00 CB 0D AE 01 99 22 11 11 90 20 | MET:......"... | 000005B0: 20 20 20 20 20 50 52 49 4E 54 20 41 42 53 28 58 | PRINT ABS(X| 000005C0: 29 11 11 11 22 3A 8D 31 33 31 30 00 FC 0D B8 01 |)...":.1310.....| 000005D0: 99 22 93 95 20 12 53 47 4E 92 20 4B 49 4A 4B 54 |.".. .SGN. KIJKT| 000005E0: 20 4F 46 20 44 45 20 55 49 54 4B 4F 4D 53 54 20 | OF DE UITKOMST | 000005F0: 4E 45 47 41 54 49 45 46 20 49 53 2C 00 26 0E C2 |NEGATIEF IS,.&..| 00000600: 01 99 22 11 20 50 4F 53 49 54 49 45 46 20 49 53 |..". POSITIEF IS| 00000610: 20 4F 46 20 47 45 57 4F 4F 4E 20 30 20 28 4E 55 | OF GEWOON 0 (NU| 00000620: 4C 29 20 49 53 2E 00 40 0E CC 01 99 A3 31 32 29 |L) IS..@.....12)| 00000630: 22 11 11 90 50 52 49 4E 54 20 53 47 4E 28 58 29 |"...PRINT SGN(X)| 00000640: 00 7F 0E D6 01 99 22 11 11 95 20 47 45 45 46 54 |......"... GEEFT| 00000650: 20 41 4C 53 20 52 45 53 55 4C 54 41 41 54 3A 22 | ALS RESULTAAT:"| 00000660: 3A 99 22 11 11 11 20 27 31 27 20 20 20 20 05 41 |:."... '1' .A| 00000670: 4C 53 20 58 20 50 4F 53 49 54 49 45 46 2D 2C 00 |LS X POSITIEF-,.| 00000680: A3 0E E0 01 99 22 11 95 20 27 2D 31 27 20 20 05 |.....".. '-1' .| 00000690: 20 41 4C 53 20 58 20 4E 45 47 41 54 49 45 46 2D | ALS X NEGATIEF-| 000006A0: 20 45 4E 00 CD 0E EA 01 99 22 11 95 20 27 30 27 | EN......".. '0'| 000006B0: 20 20 05 20 20 41 4C 53 20 58 20 30 20 28 4E 55 | . ALS X 0 (NU| 000006C0: 4C 29 20 49 53 2E 22 3A 8D 31 33 31 30 00 EF 0E |L) IS.":.1310...| 000006D0: F4 01 99 22 93 05 20 47 4F 4E 49 4F 4D 45 54 52 |...".. GONIOMETR| 000006E0: 49 53 43 48 45 20 46 55 4E 43 54 49 45 53 3A 00 |ISCHE FUNCTIES:.| 000006F0: 17 0F FE 01 99 22 11 95 20 53 49 4E 28 41 29 2C |.....".. SIN(A),| 00000700: 20 43 4F 53 28 41 29 2C 20 54 41 4E 28 41 29 2C | COS(A), TAN(A),| 00000710: 20 41 54 4E 28 41 29 00 3C 0F 08 02 99 22 11 11 | ATN(A).<...."..| 00000720: 20 53 49 4E 20 3D 20 53 49 4E 55 53 2C 20 43 4F | SIN = SINUS, CO| 00000730: 53 20 3D 20 43 4F 53 49 4E 55 53 2C 00 67 0F 12 |S = COSINUS,.g..| 00000740: 02 99 22 11 20 54 41 4E 20 3D 20 54 41 4E 47 45 |..". TAN = TANGE| 00000750: 4E 53 2C 20 41 4E 44 20 41 54 4E 20 3D 20 43 4F |NS, AND ATN = CO| 00000760: 54 41 4E 47 45 4E 53 00 9F 0F 1C 02 99 22 11 11 |TANGENS......"..| 00000770: 90 20 4E 2E 42 2E 20 31 20 52 41 44 49 41 41 4C |. N.B. 1 RADIAAL| 00000780: 20 49 53 20 31 38 30 2F FF 20 20 28 35 37 2E 33 | IS 180/. (57.3| 00000790: 20 47 52 41 44 45 4E 29 22 3A 8D 31 33 31 30 00 | GRADEN)":.1310.| 000007A0: D0 0F 26 02 99 22 93 90 20 4C 4F 47 28 45 29 20 |..&..".. LOG(E) | 000007B0: 47 45 45 46 54 20 48 45 54 20 4E 41 54 55 55 52 |GEEFT HET NATUUR| 000007C0: 4C 49 4A 4B 45 20 4C 4F 47 41 52 49 54 48 4D 45 |LIJKE LOGARITHME| 000007D0: 00 FB 0F 30 02 99 22 05 20 45 58 50 28 41 29 20 |...0..". EXP(A) | 000007E0: 47 45 45 46 54 20 48 45 54 20 47 45 54 41 4C 20 |GEEFT HET GETAL | 000007F0: 55 49 54 20 27 4E 20 4C 4F 47 2E 00 27 10 3A 02 |UIT 'N LOG..'.:.| 00000800: 99 22 11 11 1F 20 44 45 5A 45 20 54 57 45 45 20 |."... DEZE TWEE | 00000810: 4B 55 4E 20 4A 45 20 4E 45 54 20 5A 4F 20 54 4F |KUN JE NET ZO TO| 00000820: 45 50 41 53 53 45 4E 00 53 10 44 02 99 22 11 20 |EPASSEN.S.D..". | 00000830: 41 4C 53 20 48 45 54 20 44 45 43 49 4D 41 41 4C |ALS HET DECIMAAL| 00000840: 20 4C 4F 47 41 52 49 54 48 4D 45 2E 22 3A 8D 31 | LOGARITHME.":.1| 00000850: 33 31 30 00 68 10 4E 02 99 22 93 1C 22 A3 31 34 |310.h.N.."..".14| 00000860: 29 22 27 53 41 56 45 27 00 97 10 58 02 99 22 11 |)"'SAVE'...X..".| 00000870: 9E 20 4D 45 54 20 44 49 54 20 43 4F 4D 4D 41 4E |. MET DIT COMMAN| 00000880: 44 4F 20 4B 55 4E 20 4A 45 20 45 45 4E 20 50 52 |DO KUN JE EEN PR| 00000890: 4F 47 52 41 4D 4D 41 00 C3 10 62 02 99 22 11 20 |OGRAMMA...b..". | 000008A0: 4F 50 20 44 45 20 43 41 53 53 45 54 54 45 20 42 |OP DE CASSETTE B| 000008B0: 45 57 41 52 45 4E 2C 20 4D 45 54 20 45 56 54 20 |EWAREN, MET EVT | 000008C0: 45 45 4E 00 F1 10 6C 02 99 22 11 20 4E 41 41 4D |EEN...l..". NAAM| 000008D0: 20 45 52 20 42 49 4A 3B 20 20 54 59 50 3A 22 3A | ER BIJ; TYP:":| 000008E0: 99 22 11 1F 20 20 20 53 41 56 45 20 20 20 20 4F |.".. SAVE O| 000008F0: 46 00 1A 11 76 02 99 22 11 20 20 20 53 41 56 45 |F...v..". SAVE| 00000900: 20 22 C7 28 33 34 29 22 42 41 53 49 43 20 43 55 | ".(34)"BASIC CU| 00000910: 52 53 55 53 22 C7 28 33 34 29 00 2F 11 80 02 99 |RSUS".(34)./....| 00000920: 22 11 9E 20 49 4B 20 5A 45 47 20 44 41 4E 3A 00 |".. IK ZEG DAN:.| 00000930: 56 11 8A 02 99 22 11 90 20 20 20 50 52 45 53 53 |V....".. PRESS| 00000940: 20 50 4C 41 59 20 26 20 52 45 43 4F 52 44 20 4F | PLAY & RECORD O| 00000950: 4E 20 54 41 50 45 00 84 11 94 02 99 22 11 11 9E |N TAPE......"...| 00000960: 20 41 4C 53 20 4E 41 41 4D 20 4D 41 47 20 4A 45 | ALS NAAM MAG JE| 00000970: 20 41 4C 4C 45 53 20 47 45 42 52 55 49 4B 45 4E | ALLES GEBRUIKEN| 00000980: 20 54 4F 54 00 B4 11 9E 02 99 22 11 20 4D 41 58 | TOT......". MAX| 00000990: 2E 20 31 36 20 54 45 4B 45 4E 53 2C 20 54 55 53 |. 16 TEKENS, TUS| 000009A0: 53 45 4E 20 41 41 4E 48 41 4C 49 4E 47 53 54 45 |SEN AANHALINGSTE| 000009B0: 4B 45 4E 53 00 E4 11 A8 02 99 22 20 42 45 48 41 |KENS......" BEHA| 000009C0: 4C 56 45 20 48 45 54 20 41 41 4E 48 41 4C 49 4E |LVE HET AANHALIN| 000009D0: 47 53 54 45 4B 45 4E 20 5A 45 4C 46 21 22 3A 8D |GSTEKEN ZELF!":.| 000009E0: 31 33 31 30 00 FB 11 B2 02 99 22 93 1F 22 A3 31 |1310......"..".1| 000009F0: 31 29 22 27 56 45 52 49 46 59 27 00 25 12 BC 02 |1)"'VERIFY'.%...| 00000A00: 99 22 11 20 48 49 45 52 4D 45 45 20 4B 55 4E 20 |.". HIERMEE KUN | 00000A10: 4A 45 20 43 4F 4E 54 52 4F 4C 45 52 45 4E 20 4F |JE CONTROLEREN O| 00000A20: 46 20 48 45 54 00 5F 12 C6 02 99 22 11 20 50 52 |F HET._....". PR| 00000A30: 4F 47 52 41 4D 4D 41 20 47 4F 45 44 20 4F 50 20 |OGRAMMA GOED OP | 00000A40: 44 45 20 43 41 53 53 45 54 54 45 20 49 53 20 20 |DE CASSETTE IS | 00000A50: 20 20 20 20 20 20 11 47 45 4B 4F 4D 45 4E 2E 00 | .GEKOMEN..| 00000A60: 9A 12 D0 02 99 22 11 1C 20 53 50 4F 45 4C 20 44 |.....".. SPOEL D| 00000A70: 45 20 43 41 53 53 45 54 54 45 20 54 45 52 55 47 |E CASSETTE TERUG| 00000A80: 20 45 4E 20 54 59 50 22 3A 99 22 11 90 20 20 20 | EN TYP":.".. | 00000A90: 20 20 27 56 45 52 49 46 59 27 00 C7 12 DA 02 99 | 'VERIFY'......| 00000AA0: 22 11 1C 20 4A 45 20 4D 41 47 20 44 41 41 52 20 |".. JE MAG DAAR | 00000AB0: 41 43 48 54 45 52 20 4F 4F 4B 20 57 45 45 52 20 |ACHTER OOK WEER | 00000AC0: 27 4E 20 4E 41 41 4D 00 0E 13 E4 02 99 22 11 20 |'N NAAM......". | 00000AD0: 47 45 56 45 4E 2C 20 41 4C 53 20 45 52 20 4D 45 |GEVEN, ALS ER ME| 00000AE0: 45 52 44 45 52 45 20 50 52 4F 47 52 41 4D 4D 41 |ERDERE PROGRAMMA| 00000AF0: 27 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |'S | 00000B00: 20 20 20 20 20 20 C5 C5 C5 C5 C5 C5 C5 C5 00 37 | .........7| 00000B10: 13 EE 02 99 22 20 4F 50 20 45 45 4E 20 43 41 53 |...." OP EEN CAS| 00000B20: 53 45 54 54 45 20 56 4F 4F 52 4B 4F 4D 45 4E 2E |SETTE VOORKOMEN.| 00000B30: 22 3A 8D 31 33 31 30 00 66 13 F8 02 99 22 93 90 |":.1310.f...."..| 00000B40: 20 49 4B 20 5A 4F 45 4B 20 48 45 54 20 50 52 4F | IK ZOEK HET PRO| 00000B50: 47 52 41 4D 4D 41 20 4F 50 20 45 4E 20 56 45 52 |GRAMMA OP EN VER| 00000B60: 47 45 4C 49 4A 4B 00 94 13 02 03 99 22 11 20 48 |GELIJK......". H| 00000B70: 45 54 20 4D 45 54 20 44 41 54 20 57 41 54 20 49 |ET MET DAT WAT I| 00000B80: 4E 20 4D 49 4A 4E 20 47 45 48 45 55 47 45 4E 20 |N MIJN GEHEUGEN | 00000B90: 5A 49 54 2E 00 B9 13 0C 03 99 22 11 9B 20 49 4B |ZIT.......".. IK| 00000BA0: 20 5A 45 47 20 27 4F 4B 27 20 41 4C 53 20 48 45 | ZEG 'OK' ALS HE| 00000BB0: 54 20 47 4F 45 44 20 49 53 00 E5 13 16 03 99 22 |T GOED IS......"| 00000BC0: 11 20 45 4E 20 27 3F 56 45 52 49 46 59 20 45 52 |. EN '?VERIFY ER| 00000BD0: 52 4F 52 27 20 41 4C 53 20 48 45 54 20 46 4F 55 |ROR' ALS HET FOU| 00000BE0: 54 20 49 53 2E 00 14 14 20 03 99 22 11 11 1F 20 |T IS.... .."... | 00000BF0: 53 4F 4D 53 20 4B 41 4E 20 48 49 45 52 20 45 45 |SOMS KAN HIER EE| 00000C00: 4E 20 4D 41 47 4E 45 54 49 53 43 48 45 20 4B 4F |N MAGNETISCHE KO| 00000C10: 50 20 44 45 00 43 14 2A 03 99 22 11 20 4F 4F 52 |P DE.C.*..". OOR| 00000C20: 5A 41 41 4B 20 56 41 4E 20 5A 49 4A 4E 2C 20 4A |ZAAK VAN ZIJN, J| 00000C30: 45 20 4D 4F 45 54 20 48 45 4D 20 44 41 4E 20 45 |E MOET HEM DAN E| 00000C40: 56 45 4E 00 7A 14 34 03 99 22 11 20 44 45 4D 41 |VEN.z.4..". DEMA| 00000C50: 47 4E 45 54 49 53 45 52 45 4E 20 4F 46 20 4C 41 |GNETISEREN OF LA| 00000C60: 54 45 4E 20 44 45 4D 41 47 4E 45 54 49 53 45 52 |TEN DEMAGNETISER| 00000C70: 45 4E 21 22 3A 8D 31 33 31 30 00 98 14 3E 03 99 |EN!":.1310...>..| 00000C80: 22 93 95 22 A3 31 31 29 22 27 43 41 53 53 45 54 |"..".11)"'CASSET| 00000C90: 54 45 20 46 49 4C 45 53 00 CE 14 48 03 99 22 11 |TE FILES...H..".| 00000CA0: 20 48 45 54 20 43 4F 4D 4D 41 4E 44 4F 20 4F 4D | HET COMMANDO OM| 00000CB0: 20 49 4E 20 45 45 4E 20 46 49 4C 45 20 54 45 20 | IN EEN FILE TE | 00000CC0: 4B 55 4E 4E 45 4E 20 20 20 11 49 53 20 3A 00 E5 |KUNNEN .IS :..| 00000CD0: 14 52 03 99 A3 31 31 29 22 11 90 4F 50 45 4E 20 |.R...11)"..OPEN | 00000CE0: 31 2C 31 2C 30 00 12 15 5C 03 99 22 11 95 20 44 |1,1,0...\..".. D| 00000CF0: 45 20 45 45 52 53 54 45 20 27 31 27 20 49 53 20 |E EERSTE '1' IS | 00000D00: 48 45 54 20 4E 55 4D 4D 45 52 20 28 31 2D 32 35 |HET NUMMER (1-25| 00000D10: 35 29 00 3F 15 66 03 99 22 11 20 44 45 20 54 57 |5).?.f..". DE TW| 00000D20: 45 45 44 45 20 49 53 20 44 45 20 43 41 53 53 45 |EEDE IS DE CASSE| 00000D30: 54 54 45 52 45 43 4F 52 44 45 52 20 41 4C 53 00 |TTERECORDER ALS.| 00000D40: 54 15 70 03 99 22 11 20 46 49 4C 45 2D 44 45 56 |T.p..". FILE-DEV| 00000D50: 49 43 45 2E 00 8B 15 7A 03 99 22 11 1F 20 44 45 |ICE....z..".. DE| 00000D60: 20 30 20 57 49 4C 20 5A 45 47 47 45 4E 20 27 4C | 0 WIL ZEGGEN 'L| 00000D70: 45 5A 45 4E 27 2C 20 31 3D 20 53 43 48 52 49 4A |EZEN', 1= SCHRIJ| 00000D80: 56 45 4E 2E 22 3A 8D 31 33 31 30 00 BB 15 84 03 |VEN.":.1310.....| 00000D90: 99 22 93 1F 20 45 45 4E 20 56 4F 4F 52 42 45 45 |.".. EEN VOORBEE| 00000DA0: 4C 44 20 56 41 4E 20 45 45 4E 20 46 49 4C 45 20 |LD VAN EEN FILE | 00000DB0: 50 52 4F 47 52 41 4D 4D 41 3A 11 00 F8 15 8E 03 |PROGRAMMA:......| 00000DC0: 99 22 05 20 31 30 20 50 52 49 4E 54 20 22 C7 28 |.". 10 PRINT ".(| 00000DD0: 33 34 29 22 44 4F 45 20 45 45 4E 20 44 41 54 41 |34)"DOE EEN DATA| 00000DE0: 20 43 41 53 53 45 54 54 45 20 49 4E 20 44 45 20 | CASSETTE IN DE | 00000DF0: 52 45 43 4F 52 44 45 52 00 2E 16 98 03 99 22 20 |RECORDER......" | 00000E00: 32 30 20 50 52 49 4E 54 20 22 C7 28 33 34 29 22 |20 PRINT ".(34)"| 00000E10: 44 52 55 4B 20 4F 50 20 27 4E 20 54 4F 45 54 53 |DRUK OP 'N TOETS| 00000E20: 20 4F 4D 20 54 45 20 53 54 41 52 54 45 4E 00 57 | OM TE STARTEN.W| 00000E30: 16 A2 03 99 22 20 33 30 20 47 45 54 20 41 24 3A |...." 30 GET A$:| 00000E40: 49 46 41 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 |IFA$=".(34).(34)| 00000E50: 22 47 4F 54 4F 33 30 00 94 16 AC 03 99 22 20 34 |"GOTO30......" 4| 00000E60: 30 20 4F 50 45 4E 20 31 2C 31 2C 31 22 3A 99 22 |0 OPEN 1,1,1":."| 00000E70: 20 35 30 20 49 4E 50 55 54 22 C7 28 33 34 29 22 | 50 INPUT".(34)"| 00000E80: 57 45 4C 4B 45 20 4E 41 41 4D 22 C7 28 33 34 29 |WELKE NAAM".(34)| 00000E90: 22 3B 4E 24 00 BD 16 B6 03 99 22 20 35 35 20 49 |";N$......" 55 I| 00000EA0: 46 20 4E 24 3D 22 C7 28 33 34 29 22 53 54 4F 50 |F N$=".(34)"STOP| 00000EB0: 22 C7 28 33 34 29 22 47 4F 54 4F 38 30 00 FC 16 |".(34)"GOTO80...| 00000EC0: C0 03 99 22 20 36 30 20 49 46 20 4C 45 4E 28 4E |..." 60 IF LEN(N| 00000ED0: 24 29 3E 37 39 54 48 45 4E 20 50 52 49 4E 54 22 |$)>79THEN PRINT"| 00000EE0: C7 28 33 34 29 22 54 45 20 4C 41 4E 47 21 22 C7 |.(34)"TE LANG!".| 00000EF0: 28 33 34 29 22 3A 47 4F 54 4F 35 30 00 18 17 CA |(34)":GOTO50....| 00000F00: 03 99 22 20 37 30 20 50 52 49 4E 54 23 31 2C 4E |.." 70 PRINT#1,N| 00000F10: 24 3A 47 4F 54 4F 35 30 00 2A 17 D4 03 99 22 20 |$:GOTO50.*...." | 00000F20: 38 30 20 43 4C 4F 53 45 20 31 00 66 17 DE 03 99 |80 CLOSE 1.f....| 00000F30: 22 20 39 30 20 50 52 49 4E 54 22 C7 28 33 34 29 |" 90 PRINT".(34)| 00000F40: 22 46 49 4C 45 20 47 45 52 45 45 44 2C 20 41 55 |"FILE GEREED, AU| 00000F50: 42 2E 20 54 45 52 55 47 20 53 50 4F 45 4C 45 4E |B. TERUG SPOELEN| 00000F60: 22 C7 28 33 34 29 00 9C 17 E8 03 99 22 11 1F 20 |".(34)......".. | 00000F70: 44 45 20 44 45 52 44 45 20 31 20 28 34 30 29 20 |DE DERDE 1 (40) | 00000F80: 5A 45 47 54 20 44 55 53 20 27 53 43 48 52 49 4A |ZEGT DUS 'SCHRIJ| 00000F90: 56 45 4E 27 2E 22 3A 8D 31 33 31 30 00 D7 17 F2 |VEN'.":.1310....| 00000FA0: 03 99 22 90 11 11 91 91 91 91 91 91 91 91 91 20 |.."............ | 00000FB0: 27 50 52 49 4E 54 23 31 2C 4E 24 27 20 42 45 54 |'PRINT#1,N$' BET| 00000FC0: 45 4B 45 4E 44 20 50 52 49 4E 54 20 4F 50 20 43 |EKEND PRINT OP C| 00000FD0: 41 53 53 45 54 54 45 00 05 18 FC 03 99 22 20 49 |ASSETTE......" I| 00000FE0: 4E 20 46 49 4C 45 20 4E 55 4D 4D 45 52 20 31 2E |N FILE NUMMER 1.| 00000FF0: 20 20 4E 24 20 49 53 20 27 4E 20 56 41 52 49 41 | N$ IS 'N VARIA| 00001000: 42 45 4C 45 2E 00 33 18 06 04 99 22 11 20 52 45 |BELE..3....". RE| 00001010: 47 45 4C 20 36 30 20 4B 49 4A 4B 54 20 4F 46 20 |GEL 60 KIJKT OF | 00001020: 4E 24 20 4E 49 45 54 20 54 45 20 4C 41 4E 47 20 |N$ NIET TE LANG | 00001030: 49 53 2E 00 65 18 10 04 99 22 11 20 52 45 47 45 |IS..e....". REGE| 00001040: 4C 20 39 30 20 4D 45 4C 44 54 20 44 41 54 20 49 |L 90 MELDT DAT I| 00001050: 4B 20 4B 4C 41 41 52 20 42 45 4E 2E 20 20 22 3A |K KLAAR BEN. ":| 00001060: 8D 31 33 31 30 00 A0 18 1A 04 99 22 91 91 91 91 |.1310......"....| 00001070: 91 91 91 91 91 1C 20 4A 45 20 4D 4F 45 54 20 41 |...... JE MOET A| 00001080: 4C 54 49 4A 44 20 27 54 20 48 45 4C 45 20 57 4F |LTIJD 'T HELE WO| 00001090: 4F 52 44 20 27 50 52 49 4E 54 27 20 20 20 22 3B |ORD 'PRINT' ";| 000010A0: 00 D0 18 24 04 99 22 11 20 54 59 50 45 4E 20 41 |...$..". TYPEN A| 000010B0: 4C 53 20 4A 45 20 23 20 47 45 42 52 55 49 4B 54 |LS JE # GEBRUIKT| 000010C0: 3B 20 54 59 50 20 4E 4F 4F 49 54 20 27 3F 23 27 |; TYP NOOIT '?#'| 000010D0: 00 FE 18 2E 04 81 58 58 B2 31 A4 32 3A 81 58 B2 |......XX.1.2:.X.| 000010E0: 31 A4 34 30 3A 99 22 20 22 3B 3A 82 58 3A 99 3A |1.40:." ";:.X:.:| 000010F0: 82 58 58 3A 99 22 91 22 3A 8D 31 33 32 30 00 28 |.XX:.".":.1320.(| 00001100: 19 38 04 99 22 93 1F 20 4F 4D 20 44 45 20 49 4E |.8..".. OM DE IN| 00001110: 48 4F 55 44 20 57 45 45 52 20 54 45 52 55 47 20 |HOUD WEER TERUG | 00001120: 54 45 20 5A 49 45 4E 3A 00 64 19 42 04 99 22 11 |TE ZIEN:.d.B..".| 00001130: 11 05 20 31 30 20 50 52 49 4E 54 22 C7 28 33 34 |.. 10 PRINT".(34| 00001140: 29 22 44 4F 45 20 44 45 20 44 41 54 41 43 41 53 |)"DOE DE DATACAS| 00001150: 53 45 54 54 45 20 49 4E 20 44 45 20 52 45 43 4F |SETTE IN DE RECO| 00001160: 52 44 45 52 00 99 19 4C 04 99 22 20 32 30 20 50 |RDER...L.." 20 P| 00001170: 52 49 4E 54 22 C7 28 33 34 29 22 44 52 55 4B 20 |RINT".(34)"DRUK | 00001180: 4F 50 20 27 4E 20 54 4F 45 54 53 20 4F 4D 20 54 |OP 'N TOETS OM T| 00001190: 45 20 53 54 41 52 54 45 4E 00 C3 19 56 04 99 22 |E STARTEN...V.."| 000011A0: 20 33 30 20 47 45 54 20 41 24 3A 49 46 41 24 3D | 30 GET A$:IFA$=| 000011B0: 22 C7 28 33 34 29 C7 28 33 34 29 22 47 4F 54 4F |".(34).(34)"GOTO| 000011C0: 20 33 30 00 D8 19 60 04 99 22 20 34 30 20 4F 50 | 30...`.." 40 OP| 000011D0: 45 4E 20 31 2C 31 2C 30 00 14 1A 6A 04 99 22 20 |EN 1,1,0...j.." | 000011E0: 35 30 20 49 4E 50 55 54 23 31 2C 4E 24 22 3A 99 |50 INPUT#1,N$":.| 000011F0: 22 20 36 30 20 49 46 28 53 54 29 3E 30 47 4F 54 |" 60 IF(ST)>0GOT| 00001200: 4F 38 30 22 3A 99 22 20 36 35 20 50 52 49 4E 54 |O80":." 65 PRINT| 00001210: 20 4E 24 3B 00 35 1A 74 04 99 22 20 37 30 20 47 | N$;.5.t.." 70 G| 00001220: 4F 54 4F 20 35 30 22 3A 99 22 20 38 30 20 43 4C |OTO 50":." 80 CL| 00001230: 4F 53 45 20 31 00 6B 1A 7E 04 99 22 20 39 30 20 |OSE 1.k.~.." 90 | 00001240: 50 52 49 4E 54 22 C7 28 33 34 29 22 4B 4C 41 41 |PRINT".(34)"KLAA| 00001250: 52 2C 20 41 55 42 2E 20 54 45 52 55 47 20 53 50 |R, AUB. TERUG SP| 00001260: 4F 45 4C 45 4E 22 C7 28 33 34 29 00 9B 1A 88 04 |OELEN".(34).....| 00001270: 99 22 11 11 1C 20 27 49 4E 50 55 54 20 23 31 2C |."... 'INPUT #1,| 00001280: 4E 24 27 20 48 41 41 4C 54 20 44 45 20 53 54 52 |N$' HAALT DE STR| 00001290: 49 4E 47 53 20 56 41 4E 20 44 45 00 D1 1A 92 04 |INGS VAN DE.....| 000012A0: 99 22 11 20 43 41 53 53 45 54 54 45 2C 20 52 45 |.". CASSETTE, RE| 000012B0: 47 45 4C 20 36 35 20 50 52 49 4E 54 20 4F 50 20 |GEL 65 PRINT OP | 000012C0: 27 54 20 53 43 48 45 52 4D 2E 22 3A 8D 31 33 31 |'T SCHERM.":.131| 000012D0: 30 00 08 1B 9C 04 99 22 90 91 91 91 91 91 91 91 |0......"........| 000012E0: 20 27 28 53 54 29 3E 30 27 20 54 45 53 54 20 4F | '(ST)>0' TEST O| 000012F0: 50 20 48 45 54 20 45 49 4E 44 20 56 41 4E 20 48 |P HET EIND VAN H| 00001300: 45 54 20 46 49 4C 45 22 00 39 1B A6 04 99 22 11 |ET FILE".9....".| 00001310: 20 4F 4D 20 45 45 4E 20 46 4F 55 54 20 54 45 20 | OM EEN FOUT TE | 00001320: 56 4F 4F 52 4B 4F 4D 45 4E 2E 20 20 20 20 20 20 |VOORKOMEN. | 00001330: 20 20 20 20 20 20 20 20 22 00 71 1B B0 04 97 51 | ".q....Q| 00001340: 31 2C 30 3A 99 22 11 11 20 12 4B 55 4E 20 4A 45 |1,0:.".. .KUN JE| 00001350: 20 48 45 54 20 27 4E 20 42 45 45 54 4A 45 20 56 | HET 'N BEETJE V| 00001360: 4F 4C 47 45 4E 20 3F 92 20 20 20 20 20 20 20 20 |OLGEN ?. | 00001370: 22 00 85 1B BA 04 A1 51 24 3A 8B 51 24 B2 22 22 |"......Q$:.Q$.""| 00001380: A7 31 32 31 30 00 96 1B C4 04 8B 51 24 B3 B1 22 |.1210......Q$.."| 00001390: 4A 22 89 38 33 30 00 C3 1B CE 04 99 22 93 11 11 |J".830......"...| 000013A0: 11 11 11 1F 20 57 49 4C 20 4A 45 20 44 45 20 48 |.... WIL JE DE H| 000013B0: 45 4C 45 20 4C 45 53 20 4E 4F 47 20 27 4E 20 4B |ELE LES NOG 'N K| 000013C0: 45 45 52 00 D7 1B D8 04 99 22 11 20 44 4F 4F 52 |EER......". DOOR| 000013D0: 4E 45 4D 45 4E 20 3F 00 EB 1B E2 04 A1 51 24 3A |NEMEN ?......Q$:| 000013E0: 8B 51 24 B2 22 22 A7 31 32 35 30 00 FC 1B EC 04 |.Q$."".1250.....| 000013F0: 8B 51 24 B2 22 4E 22 A7 31 32 38 30 00 02 1C F6 |.Q$."N".1280....| 00001400: 04 8A 00 3F 1C 00 05 99 22 93 11 11 11 20 49 4B |...?....".... IK| 00001410: 20 4C 41 41 44 20 4E 55 20 44 45 20 56 4F 4C 47 | LAAD NU DE VOLG| 00001420: 45 4E 44 45 20 4C 45 53 20 56 4F 4F 52 20 4A 45 |ENDE LES VOOR JE| 00001430: 2C 22 3A 99 22 11 20 20 20 4C 45 53 20 38 2E 00 |,":.". LES 8..| 00001440: 55 1C 0A 05 97 31 39 38 2C 31 3A 97 36 33 31 2C |U....198,1:.631,| 00001450: 31 33 31 3A 80 00 9E 1C 1E 05 97 51 31 2C 30 3A |131:.......Q1,0:| 00001460: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............| 00001470: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |.......... | 00001480: 90 12 56 4F 4F 52 20 56 45 52 44 45 52 3A 20 20 |..VOOR VERDER: | 00001490: 44 52 55 4B 20 4F 50 20 52 45 54 55 52 4E 00 B2 |DRUK OP RETURN..| 000014A0: 1C 28 05 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 33 |.(..Q$:.Q$."".13| 000014B0: 32 30 00 B8 1C 32 05 8E 00 00 00 FF 4F |20...2......O |
.. .D.Q1.198:.53280,10:.53281,10.,.N..G(
142).].X..".. ER ZIJN NOG EEN AANTAL HAN
DIGE FUNKTIES......"... .INT.. IS EEN S
IMPEL STATEMENT OM......". ONNODIGE CIJF
ERS ACHTER DE KOMMA WEG......". TE WERKE
N IN EEN PRINT STATEMENT. ..
DUS ALS U=5.947.E. ..". EN WE ZEGGEN DA
N: . PRINT I
NT(U)......". DAN KOMT OP HET SCHERM 'T
RESULTAAT: . '5'.":.1310......".
. OOK KUN JE MET 'INT' ALLEEN DE CIJFERS
......". ACHTER DE KOMMA ER UIT HALEN...
.H..".. 10 U=5.947":." 20 U=U-INT(U)
":." 30 PRINT U.B.R..".. IN DIT GEVAL
IS DE UITOMST .947.T...."... LET WEL: 'U
' IS HIER OOK ECHT VERANDERD......" IN H
ET VORIGE VOORBEELD WERD ALLEEN.L....".
MAAR EEN DEEL VAN HET GETAL GEPRINT!....
..". OOK HIER KAN DAT: (REGEL 20 WEG!)..
....".. 30 PRINT U-INT(U)":.1310.B...."
.. HET KAN SOMS HANDIG ZIJN OM EEN.N....
". WILLEKEURIG GETAL TE GENEREN BV. IN..
."..". SPELLETJES ALS KANS-FAKTOR....,..
".. HIERIN IS VOORZIEN MET HET COMMANDO.
P.6..".. RND...@..".. PRINT RND(
1)...J..".. GENEREERD EEN WILLEKEURIG GE
TAL.<.T..". TUSSEN 0 EN .999999999":.
1310.I.^..".. .RND. SAMEN MET .INT. GEEF
T PAS EEN...H..". BRUIKBAAR GETAL:.K.R..
"... PRINT INT( RND(1) *10 ) +1":."..
.GEEFT 'N GETAL TUSSEN 1 EN...|.."... BV
. RND(1)=.594727967":.". *10=5.94727967"
."....". INT=5; +1= .6. !":.1310.S....
".. MET .ABS. VERMIJDEN WE HET MINTEKEN
VAN.S....". EEN NEGATIEVE UITKOMST......
.".... DE ABSOLUTE WAARDE VAN X KRIJG JE
MET:.K...."... PRINT ABS(X)...":.1
310......".. .SGN. KIJKT OF DE UITKOMST
NEGATIEF IS,.&.B..". POSITIEF IS OF GEWO
ON 0 (NUL) IS..@.L...12)"...PRINT SGN(X)
..V.."... GEEFT ALS RESULTAAT:":."... '
1' .ALS X POSITIEF-,......".. '-1' .
ALS X NEGATIEF- EN.M....".. '0' . ALS
X 0 (NUL) IS.":.1310......".. GONIOMETR
ISCHE FUNCTIES:......".. SIN(A), COS(A),
TAN(A), ATN(A).<....".. SIN = SINUS, CO
S = COSINUS,.G....". TAN = TANGENS, AND
ATN = COTANGENS......"... N.B. 1 RADIAAL
IS 180/. (57.3 GRADEN)":.1310.P.&.."..
LOG(E) GEEFT HET NATUURLIJKE LOGARITHME
...0..". EXP(A) GEEFT HET GETAL UIT 'N L
OG..'.:.."... DEZE TWEE KUN JE NET ZO TO
EPASSEN.S.D..". ALS HET DECIMAAL LOGARIT
HME.":.1310.H.N.."..".14)"'SAVE'...X..".
. MET DIT COMMANDO KUN JE EEN PROGRAMMA.
C.B..". OP DE CASSETTE BEWAREN, MET EVT
EEN...L..". NAAM ER BIJ; TYP:":.".. S
AVE OF...V..". SAVE "G(34)"BASIC CU
RSUS"G(34)./....".. IK ZEG DAN:.V...."..
PRESS PLAY & RECORD ON TAPE......"...
ALS NAAM MAG JE ALLES GEBRUIKEN TOT....
..". MAX. 16 TEKENS, TUSSEN AANHALINGSTE
KENS......" BEHALVE HET AANHALINGSTEKEN
ZELF!":.1310......"..".11)"'VERIFY'.%...
.". HIERMEE KUN JE CONTROLEREN OF HET._.
F..". PROGRAMMA GOED OP DE CASSETTE IS
.GEKOMEN....P..".. SPOEL DE CASSET
TE TERUG EN TYP":.".. 'VERIFY'.G.Z..
".. JE MAG DAAR ACHTER OOK WEER 'N NAAM.
.....". GEVEN, ALS ER MEERDERE PROGRAMMA
'S EEEEEEEE.7...." OP
EEN CASSETTE VOORKOMEN.":.1310.F...."..
IK ZOEK HET PROGRAMMA OP EN VERGELIJK..
....". HET MET DAT WAT IN MIJN GEHEUGEN
ZIT.......".. IK ZEG 'OK' ALS HET GOED I
S......". EN '?VERIFY ERROR' ALS HET FOU
T IS.... .."... SOMS KAN HIER EEN MAGNET
ISCHE KOP DE.C.*..". OORZAAK VAN ZIJN, J
E MOET HEM DAN EVEN.Z.4..". DEMAGNETISER
EN OF LATEN DEMAGNETISEREN!":.1310...>..
"..".11)"'CASSETTE FILES.N.H..". HET COM
MANDO OM IN EEN FILE TE KUNNEN .IS :..
.R...11)"..OPEN 1,1,0...\..".. DE EERSTE
'1' IS HET NUMMER (1-255).?.F..". DE TW
EEDE IS DE CASSETTERECORDER ALS.T.P..".
FILE-DEVICE....Z..".. DE 0 WIL ZEGGEN 'L
EZEN', 1= SCHRIJVEN.":.1310......".. EEN
VOORBEELD VAN EEN FILE PROGRAMMA:......
.". 10 PRINT "G(34)"DOE EEN DATA CASSETT
E IN DE RECORDER......" 20 PRINT "G(34)"
DRUK OP 'N TOETS OM TE STARTEN.W...." 30
GET A$:IFA$="G(34)G(34)"GOTO30......" 4
0 OPEN 1,1,1":." 50 INPUT"G(34)"WELKE NA
AM"G(34)";N$......" 55 IF N$="G(34)"STOP
"G(34)"GOTO80......" 60 IF LEN(N$)>79THE
N PRINT"G(34)"TE LANG!"G(34)":GOTO50...J
.." 70 PRINT#1,N$:GOTO50.*.T.." 80 CLOSE
1.F...." 90 PRINT"G(34)"FILE GEREED, AU
B. TERUG SPOELEN"G(34)......".. DE DERDE
1 (40) ZEGT DUS 'SCHRIJVEN'.":.1310.W..
.."............ 'PRINT#1,N$' BETEKEND PR
INT OP CASSETTE......" IN FILE NUMMER 1.
N$ IS 'N VARIABELE..3....". REGEL 60 K
IJKT OF N$ NIET TE LANG IS..E....". REGE
L 90 MELDT DAT IK KLAAR BEN. ":.1310. .
...".......... JE MOET ALTIJD 'T HELE WO
ORD 'PRINT' ";.P.$..". TYPEN ALS JE #
GEBRUIKT; TYP NOOIT '?#'......XX.1.2:.X.
1.40:." ";:.X:.:.XX:.".":.1320.(.8.."..
OM DE INHOUD WEER TERUG TE ZIEN:.D.B..".
.. 10 PRINT"G(34)"DOE DE DATACASSETTE IN
DE RECORDER...L.." 20 PRINT"G(34)"DRUK
OP 'N TOETS OM TE STARTEN.C.V.." 30 GET
A$:IFA$="G(34)G(34)"GOTO 30.X.`.." 40 OP
EN 1,1,0...J.." 50 INPUT#1,N$":." 60 IF(
ST)>0GOTO80":." 65 PRINT N$;.5.T.." 70 G
OTO 50":." 80 CLOSE 1.K.~.." 90 PRINT"G(
34)"KLAAR, AUB. TERUG SPOELEN"G(34).....
."... 'INPUT #1,N$' HAALT DE STRINGS VAN
DE.Q....". CASSETTE, REGEL 65 PRINT OP
'T SCHERM.":.1310......"........ '(ST)>0
' TEST OP HET EIND VAN HET FILE".9....".
OM EEN FOUT TE VOORKOMEN.
".Q....Q1,0:.".. .KUN JE HET 'N BEETJE V
OLGEN ?. "......Q$:.Q$."".1210...
D..Q$.."J".830.C.N.."....... WIL JE DE H
ELE LES NOG 'N KEER.W.X..". DOORNEMEN ?.
.....Q$:.Q$."".1250......Q$."N".1280....
...?....".... IK LAAD NU DE VOLGENDE LES
VOOR JE,":.". LES 8..U....198,1:.631,
131:.......Q1,0:."......................
.. ..VOOR VERDER: DRUK OP RETURN..
.(..Q$:.Q$."".1320...2......O
> CLICK IMAGE PREVIEW FOR FULL MODAL