BASIC LES 7
FILE INFORMATION
FILENAME(S): BASIC LES 7
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-12-01 20:43:42
APPEARS ON: 1 disk(s)
FILE HASH
c4eb17ce9b3ee3b8e17950fa5f429da08e7372300ba03a5cc5340d179f951b46
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC | BASIC LES 7 | PRG | mace | 14 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 01 00 8F 20 42 41 53 49 43 20 4C 45 |....... BASIC LE|
00000010: 53 20 37 00 28 08 02 00 97 34 39 31 35 32 2C C2 |S 7.(....49152,.|
00000020: 28 31 38 36 29 3A 89 36 00 72 08 03 00 97 51 31 |(186):.6.r....Q1|
00000030: 2C 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 |,0:."...........|
00000040: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. |
00000050: 20 20 20 90 12 56 4F 4F 52 20 56 45 52 44 45 52 | ..VOOR VERDER|
00000060: 3A 20 20 44 52 55 4B 20 4F 50 20 27 53 50 41 43 |: DRUK OP 'SPAC|
00000070: 45 27 00 85 08 04 00 A1 51 24 3A 8B 51 24 B3 B1 |E'......Q$:.Q$..|
00000080: 22 20 22 A7 34 00 8B 08 05 00 8E 00 AA 08 06 00 |" ".4...........|
00000090: 51 31 B2 31 39 38 3A 97 35 33 32 38 30 2C 31 30 |Q1.198:.53280,10|
000000A0: 3A 97 35 33 32 38 31 2C 31 30 00 B6 08 07 00 99 |:.53281,10......|
000000B0: C7 28 31 34 32 29 00 E7 08 08 00 99 22 93 1C 20 |.(142)......".. |
000000C0: 45 52 20 5A 49 4A 4E 20 4E 4F 47 20 45 45 4E 20 |ER ZIJN NOG EEN |
000000D0: 41 41 4E 54 41 4C 20 48 41 4E 44 49 47 45 20 46 |AANTAL HANDIGE F|
000000E0: 55 4E 4B 54 49 45 53 00 14 09 09 00 99 22 11 11 |UNKTIES......"..|
000000F0: 90 20 12 49 4E 54 92 1C 20 20 49 53 20 45 45 4E |. .INT.. IS EEN|
00000100: 20 53 49 4D 50 45 4C 20 53 54 41 54 45 4D 45 4E | SIMPEL STATEMEN|
00000110: 54 20 4F 4D 00 41 09 0A 00 99 22 11 20 4F 4E 4E |T OM.A....". ONN|
00000120: 4F 44 49 47 45 20 43 49 4A 46 45 52 53 20 41 43 |ODIGE CIJFERS AC|
00000130: 48 54 45 52 20 44 45 20 4B 4F 4D 4D 41 20 57 45 |HTER DE KOMMA WE|
00000140: 47 00 8A 09 0B 00 99 22 11 20 54 45 20 57 45 52 |G......". TE WER|
00000150: 4B 45 4E 20 49 4E 20 45 45 4E 20 50 52 49 4E 54 |KEN IN EEN PRINT|
00000160: 20 53 54 41 54 45 4D 45 4E 54 2E 20 20 20 20 20 | STATEMENT. |
00000170: 20 20 11 1F 20 20 20 20 20 20 20 44 55 53 20 41 | .. DUS A|
00000180: 4C 53 20 55 3D 35 2E 39 34 37 00 CF 09 0C 00 99 |LS U=5.947......|
00000190: 22 11 20 45 4E 20 57 45 20 5A 45 47 47 45 4E 20 |". EN WE ZEGGEN |
000001A0: 44 41 4E 3A 20 20 20 20 20 20 20 20 20 20 20 20 |DAN: |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 11 20 20 20 20 | . |
000001C0: 20 20 20 50 52 49 4E 54 20 49 4E 54 28 55 29 00 | PRINT INT(U).|
000001D0: 0F 0A 0D 00 99 22 11 20 44 41 4E 20 4B 4F 4D 54 |.....". DAN KOMT|
000001E0: 20 4F 50 20 48 45 54 20 53 43 48 45 52 4D 20 27 | OP HET SCHERM '|
000001F0: 54 20 52 45 53 55 4C 54 41 41 54 3A 20 20 20 20 |T RESULTAAT: |
00000200: 11 20 20 20 20 20 20 27 35 27 2E 22 3A 8D 33 00 |. '5'.":.3.|
00000210: 3F 0A 0E 00 99 22 93 1F 20 4F 4F 4B 20 4B 55 4E |?....".. OOK KUN|
00000220: 20 4A 45 20 4D 45 54 20 27 49 4E 54 27 20 41 4C | JE MET 'INT' AL|
00000230: 4C 45 45 4E 20 44 45 20 43 49 4A 46 45 52 53 00 |LEEN DE CIJFERS.|
00000240: 65 0A 0F 00 99 22 11 20 41 43 48 54 45 52 20 44 |e....". ACHTER D|
00000250: 45 20 4B 4F 4D 4D 41 20 45 52 20 55 49 54 20 48 |E KOMMA ER UIT H|
00000260: 41 4C 45 4E 2E 00 A0 0A 10 00 99 22 11 05 20 20 |ALEN.......".. |
00000270: 20 31 30 20 55 3D 35 2E 39 34 37 22 3A 99 22 20 | 10 U=5.947":." |
00000280: 20 20 32 30 20 55 3D 55 2D 49 4E 54 28 55 29 22 | 20 U=U-INT(U)"|
00000290: 3A 99 22 20 20 20 33 30 20 50 52 49 4E 54 20 55 |:." 30 PRINT U|
000002A0: 00 CA 0A 11 00 99 22 11 1F 20 49 4E 20 44 49 54 |......".. IN DIT|
000002B0: 20 47 45 56 41 4C 20 49 53 20 44 45 20 55 49 54 | GEVAL IS DE UIT|
000002C0: 4B 4F 4D 53 54 20 2E 39 34 37 00 FC 0A 12 00 99 |KOMST .947......|
000002D0: 22 11 11 90 20 4C 45 54 20 57 45 4C 3A 20 27 55 |"... LET WEL: 'U|
000002E0: 27 20 49 53 20 48 49 45 52 20 4F 4F 4B 20 45 43 |' IS HIER OOK EC|
000002F0: 48 54 20 56 45 52 41 4E 44 45 52 44 00 27 0B 13 |HT VERANDERD.'..|
00000300: 00 99 22 20 49 4E 20 48 45 54 20 56 4F 52 49 47 |.." IN HET VORIG|
00000310: 45 20 56 4F 4F 52 42 45 45 4C 44 20 57 45 52 44 |E VOORBEELD WERD|
00000320: 20 41 4C 4C 45 45 4E 00 54 0B 14 00 99 22 11 20 | ALLEEN.T....". |
00000330: 4D 41 41 52 20 45 45 4E 20 44 45 45 4C 20 56 41 |MAAR EEN DEEL VA|
00000340: 4E 20 48 45 54 20 47 45 54 41 4C 20 47 45 50 52 |N HET GETAL GEPR|
00000350: 49 4E 54 21 00 7E 0B 15 00 99 22 11 20 4F 4F 4B |INT!.~....". OOK|
00000360: 20 48 49 45 52 20 4B 41 4E 20 44 41 54 3A 20 28 | HIER KAN DAT: (|
00000370: 52 45 47 45 4C 20 32 30 20 57 45 47 21 29 00 9E |REGEL 20 WEG!)..|
00000380: 0B 16 00 99 22 11 05 20 20 33 30 20 50 52 49 4E |....".. 30 PRIN|
00000390: 54 20 55 2D 49 4E 54 28 55 29 22 3A 8D 33 00 C7 |T U-INT(U)":.3..|
000003A0: 0B 17 00 99 22 93 95 20 48 45 54 20 4B 41 4E 20 |....".. HET KAN |
000003B0: 53 4F 4D 53 20 48 41 4E 44 49 47 20 5A 49 4A 4E |SOMS HANDIG ZIJN|
000003C0: 20 4F 4D 20 45 45 4E 00 F2 0B 18 00 99 22 11 20 | OM EEN......". |
000003D0: 57 49 4C 4C 45 4B 45 55 52 49 47 20 47 45 54 41 |WILLEKEURIG GETA|
000003E0: 4C 20 54 45 20 47 45 4E 45 52 45 52 45 4E 20 42 |L TE GENEREREN B|
000003F0: 56 2E 00 19 0C 19 00 99 22 11 20 49 4E 20 53 50 |V.......". IN SP|
00000400: 45 4C 4C 45 54 4A 45 53 20 41 4C 53 20 4B 41 4E |ELLETJES ALS KAN|
00000410: 53 2D 46 41 4B 54 4F 52 2E 00 46 0C 1A 00 99 22 |S-FAKTOR..F...."|
00000420: 11 1F 20 48 49 45 52 49 4E 20 49 53 20 56 4F 4F |.. HIERIN IS VOO|
00000430: 52 5A 49 45 4E 20 4D 45 54 20 48 45 54 20 43 4F |RZIEN MET HET CO|
00000440: 4D 4D 41 4E 44 4F 00 57 0C 1B 00 99 22 11 90 20 |MMANDO.W....".. |
00000450: 20 20 20 20 52 4E 44 00 71 0C 1C 00 99 22 11 11 | RND.q...."..|
00000460: 20 20 20 20 20 50 52 49 4E 54 20 52 4E 44 28 31 | PRINT RND(1|
00000470: 29 00 9A 0C 1D 00 99 22 11 1F 20 47 45 4E 45 52 |)......".. GENER|
00000480: 45 45 52 44 20 45 45 4E 20 57 49 4C 4C 45 4B 45 |EERD EEN WILLEKE|
00000490: 55 52 49 47 20 47 45 54 41 4C 00 C0 0C 1E 00 99 |URIG GETAL......|
000004A0: 22 11 20 54 55 53 53 45 4E 20 20 30 20 20 45 4E |". TUSSEN 0 EN|
000004B0: 20 20 2E 39 39 39 39 39 39 39 39 39 22 3A 8D 33 | .999999999":.3|
000004C0: 00 ED 0C 1F 00 99 22 93 1C 20 12 52 4E 44 92 20 |......".. .RND. |
000004D0: 53 41 4D 45 4E 20 4D 45 54 20 12 49 4E 54 92 20 |SAMEN MET .INT. |
000004E0: 47 45 45 46 54 20 50 41 53 20 45 45 4E 00 06 0D |GEEFT PAS EEN...|
000004F0: 20 00 99 22 11 20 42 52 55 49 4B 42 41 41 52 20 | ..". BRUIKBAAR |
00000500: 47 45 54 41 4C 3A 00 52 0D 21 00 99 22 11 11 90 |GETAL:.R.!.."...|
00000510: 20 20 20 50 52 49 4E 54 20 49 4E 54 28 20 52 4E | PRINT INT( RN|
00000520: 44 28 31 29 20 2A 31 30 20 29 20 2B 31 22 3A 99 |D(1) *10 ) +1":.|
00000530: 22 11 11 20 1C 47 45 45 46 54 20 27 4E 20 47 45 |".. .GEEFT 'N GE|
00000540: 54 41 4C 20 54 55 53 53 45 4E 20 31 20 45 4E 20 |TAL TUSSEN 1 EN |
00000550: 31 30 00 87 0D 22 00 99 22 11 11 95 20 42 56 2E |10...".."... BV.|
00000560: 20 52 4E 44 28 31 29 3D 2E 35 39 34 37 32 37 39 | RND(1)=.5947279|
00000570: 36 37 22 3A 99 22 11 20 2A 31 30 3D 35 2E 39 34 |67":.". *10=5.94|
00000580: 37 32 37 39 36 37 22 00 A6 0D 23 00 99 22 11 20 |727967"...#..". |
00000590: 49 4E 54 3D 35 3B 20 20 2B 31 3D 20 20 12 36 92 |INT=5; +1= .6.|
000005A0: 20 21 22 3A 8D 33 00 D7 0D 24 00 99 22 93 1F 20 | !":.3...$..".. |
000005B0: 4D 45 54 20 12 41 42 53 92 20 56 45 52 4D 49 4A |MET .ABS. VERMIJ|
000005C0: 44 45 4E 20 57 45 20 48 45 54 20 4D 49 4E 54 45 |DEN WE HET MINTE|
000005D0: 4B 45 4E 20 56 41 4E 00 F7 0D 25 00 99 22 11 20 |KEN VAN...%..". |
000005E0: 45 45 4E 20 4E 45 47 41 54 49 45 56 45 20 55 49 |EEN NEGATIEVE UI|
000005F0: 54 4B 4F 4D 53 54 2E 00 29 0E 26 00 99 22 11 11 |TKOMST..).&.."..|
00000600: 11 05 20 44 45 20 41 42 53 4F 4C 55 54 45 20 57 |.. DE ABSOLUTE W|
00000610: 41 41 52 44 45 20 56 41 4E 20 58 20 4B 52 49 4A |AARDE VAN X KRIJ|
00000620: 47 20 4A 45 20 4D 45 54 3A 00 4C 0E 27 00 99 22 |G JE MET:.L.'.."|
00000630: 11 11 90 20 20 20 20 20 20 50 52 49 4E 54 20 41 |... PRINT A|
00000640: 42 53 28 58 29 11 11 11 22 3A 8D 33 00 7D 0E 28 |BS(X)...":.3.}.(|
00000650: 00 99 22 93 95 20 12 53 47 4E 92 20 4B 49 4A 4B |..".. .SGN. KIJK|
00000660: 54 20 4F 46 20 44 45 20 55 49 54 4B 4F 4D 53 54 |T OF DE UITKOMST|
00000670: 20 4E 45 47 41 54 49 45 46 20 49 53 2C 00 A7 0E | NEGATIEF IS,...|
00000680: 29 00 99 22 11 20 50 4F 53 49 54 49 45 46 20 49 |)..". POSITIEF I|
00000690: 53 20 4F 46 20 47 45 57 4F 4F 4E 20 30 20 28 4E |S OF GEWOON 0 (N|
000006A0: 55 4C 29 20 49 53 2E 00 C1 0E 2A 00 99 A3 31 32 |UL) IS....*...12|
000006B0: 29 22 11 11 90 50 52 49 4E 54 20 53 47 4E 28 58 |)"...PRINT SGN(X|
000006C0: 29 00 00 0F 2B 00 99 22 11 11 95 20 47 45 45 46 |)...+.."... GEEF|
000006D0: 54 20 41 4C 53 20 52 45 53 55 4C 54 41 41 54 3A |T ALS RESULTAAT:|
000006E0: 22 3A 99 22 11 11 11 20 27 31 27 20 20 20 20 05 |":."... '1' .|
000006F0: 41 4C 53 20 58 20 50 4F 53 49 54 49 45 46 2D 2C |ALS X POSITIEF-,|
00000700: 00 24 0F 2C 00 99 22 11 95 20 27 2D 31 27 20 20 |.$.,..".. '-1' |
00000710: 05 20 41 4C 53 20 58 20 4E 45 47 41 54 49 45 46 |. ALS X NEGATIEF|
00000720: 2D 20 45 4E 00 4B 0F 2D 00 99 22 11 95 20 27 30 |- EN.K.-..".. '0|
00000730: 27 20 20 05 20 20 41 4C 53 20 58 20 30 20 28 4E |' . ALS X 0 (N|
00000740: 55 4C 29 20 49 53 2E 22 3A 8D 33 00 6D 0F 2E 00 |UL) IS.":.3.m...|
00000750: 99 22 93 05 20 47 4F 4E 49 4F 4D 45 54 52 49 53 |.".. GONIOMETRIS|
00000760: 43 48 45 20 46 55 4E 43 54 49 45 53 3A 00 95 0F |CHE FUNCTIES:...|
00000770: 2F 00 99 22 11 95 20 53 49 4E 28 41 29 2C 20 43 |/..".. SIN(A), C|
00000780: 4F 53 28 41 29 2C 20 54 41 4E 28 41 29 2C 20 41 |OS(A), TAN(A), A|
00000790: 54 4E 28 41 29 00 BA 0F 30 00 99 22 11 11 20 53 |TN(A)...0..".. S|
000007A0: 49 4E 20 3D 20 53 49 4E 55 53 2C 20 43 4F 53 20 |IN = SINUS, COS |
000007B0: 3D 20 43 4F 53 49 4E 55 53 2C 00 E1 0F 31 00 99 |= COSINUS,...1..|
000007C0: 22 11 20 54 41 4E 20 3D 20 54 41 4E 47 45 4E 53 |". TAN = TANGENS|
000007D0: 2C 20 41 54 4E 20 3D 20 43 4F 54 41 4E 47 45 4E |, ATN = COTANGEN|
000007E0: 53 00 16 10 32 00 99 22 11 11 90 20 4E 2E 42 2E |S...2.."... N.B.|
000007F0: 20 31 20 52 41 44 49 41 41 4C 20 49 53 20 31 38 | 1 RADIAAL IS 18|
00000800: 30 2F FF 20 20 28 35 37 2E 33 20 47 52 41 44 45 |0/. (57.3 GRADE|
00000810: 4E 29 22 3A 8D 33 00 47 10 33 00 99 22 93 90 20 |N)":.3.G.3..".. |
00000820: 4C 4F 47 28 45 29 20 47 45 45 46 54 20 48 45 54 |LOG(E) GEEFT HET|
00000830: 20 4E 41 54 55 55 52 4C 49 4A 4B 45 20 4C 4F 47 | NATUURLIJKE LOG|
00000840: 41 52 49 54 48 4D 45 00 72 10 34 00 99 22 05 20 |ARITHME.r.4..". |
00000850: 45 58 50 28 41 29 20 47 45 45 46 54 20 48 45 54 |EXP(A) GEEFT HET|
00000860: 20 47 45 54 41 4C 20 55 49 54 20 27 4E 20 4C 4F | GETAL UIT 'N LO|
00000870: 47 2E 00 9E 10 35 00 99 22 11 11 1F 20 44 45 5A |G....5.."... DEZ|
00000880: 45 20 54 57 45 45 20 4B 55 4E 20 4A 45 20 4E 45 |E TWEE KUN JE NE|
00000890: 54 20 5A 4F 20 54 4F 45 50 41 53 53 45 4E 00 C7 |T ZO TOEPASSEN..|
000008A0: 10 36 00 99 22 11 20 41 4C 53 20 48 45 54 20 44 |.6..". ALS HET D|
000008B0: 45 43 49 4D 41 41 4C 20 4C 4F 47 41 52 49 54 48 |ECIMAAL LOGARITH|
000008C0: 4D 45 2E 22 3A 8D 33 00 DC 10 37 00 99 22 93 1C |ME.":.3...7.."..|
000008D0: 22 A3 31 34 29 22 27 53 41 56 45 27 00 0B 11 38 |".14)"'SAVE'...8|
000008E0: 00 99 22 11 9E 20 4D 45 54 20 44 49 54 20 43 4F |..".. MET DIT CO|
000008F0: 4D 4D 41 4E 44 4F 20 4B 55 4E 20 4A 45 20 45 45 |MMANDO KUN JE EE|
00000900: 4E 20 50 52 4F 47 52 41 4D 4D 41 00 39 11 39 00 |N PROGRAMMA.9.9.|
00000910: 99 22 11 20 4F 50 20 44 45 20 43 41 53 53 45 54 |.". OP DE CASSET|
00000920: 54 45 20 42 45 57 41 52 45 4E 2C 20 4D 45 54 20 |TE BEWAREN, MET |
00000930: 45 56 45 4E 54 55 45 45 4C 00 6B 11 3A 00 99 22 |EVENTUEEL.k.:.."|
00000940: 11 20 45 45 4E 20 4E 41 41 4D 20 45 52 20 42 49 |. EEN NAAM ER BI|
00000950: 4A 3B 20 20 54 59 50 3A 22 3A 99 22 11 1F 20 20 |J; TYP:":.".. |
00000960: 20 53 41 56 45 20 20 20 20 4F 46 00 94 11 3B 00 | SAVE OF...;.|
00000970: 99 22 11 20 20 20 53 41 56 45 20 22 C7 28 33 34 |.". SAVE ".(34|
00000980: 29 22 42 41 53 49 43 20 43 55 52 53 55 53 22 C7 |)"BASIC CURSUS".|
00000990: 28 33 34 29 00 A9 11 3C 00 99 22 11 9E 20 49 4B |(34)...<..".. IK|
000009A0: 20 5A 45 47 20 44 41 4E 3A 00 D0 11 3D 00 99 22 | ZEG DAN:...=.."|
000009B0: 11 90 20 20 20 50 52 45 53 53 20 52 45 43 4F 52 |.. PRESS RECOR|
000009C0: 44 20 26 20 50 4C 41 59 20 4F 4E 20 54 41 50 45 |D & PLAY ON TAPE|
000009D0: 00 FE 11 3E 00 99 22 11 11 9E 20 41 4C 53 20 4E |...>.."... ALS N|
000009E0: 41 41 4D 20 4D 41 47 20 4A 45 20 41 4C 4C 45 53 |AAM MAG JE ALLES|
000009F0: 20 47 45 42 52 55 49 4B 45 4E 20 54 4F 54 00 2E | GEBRUIKEN TOT..|
00000A00: 12 3F 00 99 22 11 20 4D 41 58 2E 20 31 36 20 54 |.?..". MAX. 16 T|
00000A10: 45 4B 45 4E 53 2C 20 54 55 53 53 45 4E 20 41 41 |EKENS, TUSSEN AA|
00000A20: 4E 48 41 4C 49 4E 47 53 54 45 4B 45 4E 53 00 5B |NHALINGSTEKENS.[|
00000A30: 12 40 00 99 22 20 42 45 48 41 4C 56 45 20 48 45 |.@.." BEHALVE HE|
00000A40: 54 20 41 41 4E 48 41 4C 49 4E 47 53 54 45 4B 45 |T AANHALINGSTEKE|
00000A50: 4E 20 5A 45 4C 46 21 22 3A 8D 33 00 72 12 41 00 |N ZELF!":.3.r.A.|
00000A60: 99 22 93 1F 22 A3 31 31 29 22 27 56 45 52 49 46 |."..".11)"'VERIF|
00000A70: 59 27 00 9C 12 42 00 99 22 11 20 48 49 45 52 4D |Y'...B..". HIERM|
00000A80: 45 45 20 4B 55 4E 20 4A 45 20 43 4F 4E 54 52 4F |EE KUN JE CONTRO|
00000A90: 4C 45 52 45 4E 20 4F 46 20 48 45 54 00 D6 12 43 |LEREN OF HET...C|
00000AA0: 00 99 22 11 20 50 52 4F 47 52 41 4D 4D 41 20 47 |..". PROGRAMMA G|
00000AB0: 4F 45 44 20 4F 50 20 44 45 20 43 41 53 53 45 54 |OED OP DE CASSET|
00000AC0: 54 45 20 49 53 20 20 20 20 20 20 20 20 11 47 45 |TE IS .GE|
00000AD0: 4B 4F 4D 45 4E 2E 00 11 13 44 00 99 22 11 1C 20 |KOMEN....D..".. |
00000AE0: 53 50 4F 45 4C 20 44 45 20 43 41 53 53 45 54 54 |SPOEL DE CASSETT|
00000AF0: 45 20 54 45 52 55 47 20 45 4E 20 54 59 50 22 3A |E TERUG EN TYP":|
00000B00: 99 22 11 90 20 20 20 20 20 27 56 45 52 49 46 59 |.".. 'VERIFY|
00000B10: 27 00 3E 13 45 00 99 22 11 1C 20 4A 45 20 4D 41 |'.>.E..".. JE MA|
00000B20: 47 20 44 41 41 52 20 41 43 48 54 45 52 20 4F 4F |G DAAR ACHTER OO|
00000B30: 4B 20 57 45 45 52 20 27 4E 20 4E 41 41 4D 00 85 |K WEER 'N NAAM..|
00000B40: 13 46 00 99 22 11 20 47 45 56 45 4E 2C 20 41 4C |.F..". GEVEN, AL|
00000B50: 53 20 45 52 20 4D 45 45 52 44 45 52 45 20 50 52 |S ER MEERDERE PR|
00000B60: 4F 47 52 41 4D 4D 41 27 53 20 20 20 20 20 20 20 |OGRAMMA'S |
00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 C5 C5 C5 | ...|
00000B80: C5 C5 C5 C5 C5 00 AB 13 47 00 99 22 20 4F 50 20 |........G.." OP |
00000B90: 45 45 4E 20 43 41 53 53 45 54 54 45 20 56 4F 4F |EEN CASSETTE VOO|
00000BA0: 52 4B 4F 4D 45 4E 2E 22 3A 8D 33 00 DA 13 48 00 |RKOMEN.":.3...H.|
00000BB0: 99 22 93 90 20 49 4B 20 5A 4F 45 4B 20 48 45 54 |.".. IK ZOEK HET|
00000BC0: 20 50 52 4F 47 52 41 4D 4D 41 20 4F 50 20 45 4E | PROGRAMMA OP EN|
00000BD0: 20 56 45 52 47 45 4C 49 4A 4B 00 08 14 49 00 99 | VERGELIJK...I..|
00000BE0: 22 11 20 48 45 54 20 4D 45 54 20 44 41 54 20 57 |". HET MET DAT W|
00000BF0: 41 54 20 49 4E 20 4D 49 4A 4E 20 47 45 48 45 55 |AT IN MIJN GEHEU|
00000C00: 47 45 4E 20 5A 49 54 2E 00 2D 14 4A 00 99 22 11 |GEN ZIT..-.J..".|
00000C10: 9B 20 49 4B 20 5A 45 47 20 27 4F 4B 27 20 41 4C |. IK ZEG 'OK' AL|
00000C20: 53 20 48 45 54 20 47 4F 45 44 20 49 53 00 59 14 |S HET GOED IS.Y.|
00000C30: 4B 00 99 22 11 20 45 4E 20 27 3F 56 45 52 49 46 |K..". EN '?VERIF|
00000C40: 59 20 45 52 52 4F 52 27 20 41 4C 53 20 48 45 54 |Y ERROR' ALS HET|
00000C50: 20 46 4F 55 54 20 49 53 2E 00 88 14 4C 00 99 22 | FOUT IS....L.."|
00000C60: 11 11 1F 20 53 4F 4D 53 20 4B 41 4E 20 48 49 45 |... SOMS KAN HIE|
00000C70: 52 20 45 45 4E 20 4D 41 47 4E 45 54 49 53 43 48 |R EEN MAGNETISCH|
00000C80: 45 20 4B 4F 50 20 44 45 00 B7 14 4D 00 99 22 11 |E KOP DE...M..".|
00000C90: 20 4F 4F 52 5A 41 41 4B 20 56 41 4E 20 5A 49 4A | OORZAAK VAN ZIJ|
00000CA0: 4E 2C 20 4A 45 20 4D 4F 45 54 20 48 45 4D 20 44 |N, JE MOET HEM D|
00000CB0: 41 4E 20 45 56 45 4E 00 EB 14 4E 00 99 22 11 20 |AN EVEN...N..". |
00000CC0: 44 45 4D 41 47 4E 45 54 49 53 45 52 45 4E 20 4F |DEMAGNETISEREN O|
00000CD0: 46 20 4C 41 54 45 4E 20 44 45 4D 41 47 4E 45 54 |F LATEN DEMAGNET|
00000CE0: 49 53 45 52 45 4E 21 22 3A 8D 33 00 09 15 4F 00 |ISEREN!":.3...O.|
00000CF0: 99 22 93 95 22 A3 31 31 29 22 27 43 41 53 53 45 |."..".11)"'CASSE|
00000D00: 54 54 45 20 46 49 4C 45 53 00 3F 15 50 00 99 22 |TTE FILES.?.P.."|
00000D10: 11 20 48 45 54 20 43 4F 4D 4D 41 4E 44 4F 20 4F |. HET COMMANDO O|
00000D20: 4D 20 49 4E 20 45 45 4E 20 46 49 4C 45 20 54 45 |M IN EEN FILE TE|
00000D30: 20 4B 55 4E 4E 45 4E 20 20 20 11 49 53 20 3A 00 | KUNNEN .IS :.|
00000D40: 56 15 51 00 99 A3 31 31 29 22 11 90 4F 50 45 4E |V.Q...11)"..OPEN|
00000D50: 20 31 2C 31 2C 30 00 83 15 52 00 99 22 11 95 20 | 1,1,0...R..".. |
00000D60: 44 45 20 45 45 52 53 54 45 20 27 31 27 20 49 53 |DE EERSTE '1' IS|
00000D70: 20 48 45 54 20 4E 55 4D 4D 45 52 20 28 31 2D 32 | HET NUMMER (1-2|
00000D80: 35 35 29 00 B0 15 53 00 99 22 11 20 44 45 20 54 |55)...S..". DE T|
00000D90: 57 45 45 44 45 20 49 53 20 44 45 20 43 41 53 53 |WEEDE IS DE CASS|
00000DA0: 45 54 54 45 52 45 43 4F 52 44 45 52 20 41 4C 53 |ETTERECORDER ALS|
00000DB0: 00 C5 15 54 00 99 22 11 20 46 49 4C 45 2D 44 45 |...T..". FILE-DE|
00000DC0: 56 49 43 45 2E 00 F9 15 55 00 99 22 11 1F 20 44 |VICE....U..".. D|
00000DD0: 45 20 30 20 57 49 4C 20 5A 45 47 47 45 4E 20 27 |E 0 WIL ZEGGEN '|
00000DE0: 4C 45 5A 45 4E 27 2C 20 31 3D 20 53 43 48 52 49 |LEZEN', 1= SCHRI|
00000DF0: 4A 56 45 4E 2E 22 3A 8D 33 00 29 16 56 00 99 22 |JVEN.":.3.).V.."|
00000E00: 93 1F 20 45 45 4E 20 56 4F 4F 52 42 45 45 4C 44 |.. EEN VOORBEELD|
00000E10: 20 56 41 4E 20 45 45 4E 20 46 49 4C 45 20 50 52 | VAN EEN FILE PR|
00000E20: 4F 47 52 41 4D 4D 41 3A 11 00 66 16 57 00 99 22 |OGRAMMA:..f.W.."|
00000E30: 05 20 31 30 20 50 52 49 4E 54 20 22 C7 28 33 34 |. 10 PRINT ".(34|
00000E40: 29 22 44 4F 45 20 45 45 4E 20 44 41 54 41 20 43 |)"DOE EEN DATA C|
00000E50: 41 53 53 45 54 54 45 20 49 4E 20 44 45 20 52 45 |ASSETTE IN DE RE|
00000E60: 43 4F 52 44 45 52 00 9C 16 58 00 99 22 20 32 30 |CORDER...X.." 20|
00000E70: 20 50 52 49 4E 54 20 22 C7 28 33 34 29 22 44 52 | PRINT ".(34)"DR|
00000E80: 55 4B 20 4F 50 20 27 4E 20 54 4F 45 54 53 20 4F |UK OP 'N TOETS O|
00000E90: 4D 20 54 45 20 53 54 41 52 54 45 4E 00 C5 16 59 |M TE STARTEN...Y|
00000EA0: 00 99 22 20 33 30 20 47 45 54 20 41 24 3A 49 46 |.." 30 GET A$:IF|
00000EB0: 41 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 22 47 |A$=".(34).(34)"G|
00000EC0: 4F 54 4F 33 30 00 02 17 5A 00 99 22 20 34 30 20 |OTO30...Z.." 40 |
00000ED0: 4F 50 45 4E 20 31 2C 31 2C 31 22 3A 99 22 20 35 |OPEN 1,1,1":." 5|
00000EE0: 30 20 49 4E 50 55 54 22 C7 28 33 34 29 22 57 45 |0 INPUT".(34)"WE|
00000EF0: 4C 4B 45 20 4E 41 41 4D 22 C7 28 33 34 29 22 3B |LKE NAAM".(34)";|
00000F00: 4E 24 00 2B 17 5B 00 99 22 20 35 35 20 49 46 20 |N$.+.[.." 55 IF |
00000F10: 4E 24 3D 22 C7 28 33 34 29 22 53 54 4F 50 22 C7 |N$=".(34)"STOP".|
00000F20: 28 33 34 29 22 47 4F 54 4F 38 30 00 6A 17 5C 00 |(34)"GOTO80.j.\.|
00000F30: 99 22 20 36 30 20 49 46 20 4C 45 4E 28 4E 24 29 |." 60 IF LEN(N$)|
00000F40: 3E 37 39 54 48 45 4E 20 50 52 49 4E 54 22 C7 28 |>79THEN PRINT".(|
00000F50: 33 34 29 22 54 45 20 4C 41 4E 47 21 22 C7 28 33 |34)"TE LANG!".(3|
00000F60: 34 29 22 3A 47 4F 54 4F 35 30 00 86 17 5D 00 99 |4)":GOTO50...]..|
00000F70: 22 20 37 30 20 50 52 49 4E 54 23 31 2C 4E 24 3A |" 70 PRINT#1,N$:|
00000F80: 47 4F 54 4F 35 30 00 98 17 5E 00 99 22 20 38 30 |GOTO50...^.." 80|
00000F90: 20 43 4C 4F 53 45 20 31 00 D4 17 5F 00 99 22 20 | CLOSE 1..._.." |
00000FA0: 39 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 46 |90 PRINT".(34)"F|
00000FB0: 49 4C 45 20 47 45 52 45 45 44 2C 20 41 55 42 2E |ILE GEREED, AUB.|
00000FC0: 20 54 45 52 55 47 20 53 50 4F 45 4C 45 4E 22 C7 | TERUG SPOELEN".|
00000FD0: 28 33 34 29 00 07 18 60 00 99 22 11 1F 20 44 45 |(34)...`..".. DE|
00000FE0: 20 44 45 52 44 45 20 31 20 28 34 30 29 20 5A 45 | DERDE 1 (40) ZE|
00000FF0: 47 54 20 44 55 53 20 27 53 43 48 52 49 4A 56 45 |GT DUS 'SCHRIJVE|
00001000: 4E 27 2E 22 3A 8D 33 00 42 18 61 00 99 22 90 11 |N'.":.3.B.a.."..|
00001010: 11 91 91 91 91 91 91 91 91 91 20 27 50 52 49 4E |.......... 'PRIN|
00001020: 54 23 31 2C 4E 24 27 20 42 45 54 45 4B 45 4E 44 |T#1,N$' BETEKEND|
00001030: 20 50 52 49 4E 54 20 4F 50 20 43 41 53 53 45 54 | PRINT OP CASSET|
00001040: 54 45 00 70 18 62 00 99 22 20 49 4E 20 46 49 4C |TE.p.b.." IN FIL|
00001050: 45 20 4E 55 4D 4D 45 52 20 31 2E 20 20 4E 24 20 |E NUMMER 1. N$ |
00001060: 49 53 20 27 4E 20 56 41 52 49 41 42 45 4C 45 2E |IS 'N VARIABELE.|
00001070: 00 9E 18 63 00 99 22 11 20 52 45 47 45 4C 20 36 |...c..". REGEL 6|
00001080: 30 20 4B 49 4A 4B 54 20 4F 46 20 4E 24 20 4E 49 |0 KIJKT OF N$ NI|
00001090: 45 54 20 54 45 20 4C 41 4E 47 20 49 53 2E 00 CD |ET TE LANG IS...|
000010A0: 18 64 00 99 22 11 20 52 45 47 45 4C 20 39 30 20 |.d..". REGEL 90 |
000010B0: 4D 45 4C 44 54 20 44 41 54 20 49 4B 20 4B 4C 41 |MELDT DAT IK KLA|
000010C0: 41 52 20 42 45 4E 2E 20 20 22 3A 8D 33 00 08 19 |AR BEN. ":.3...|
000010D0: 65 00 99 22 91 91 91 91 91 91 91 91 91 1C 20 4A |e..".......... J|
000010E0: 45 20 4D 4F 45 54 20 41 4C 54 49 4A 44 20 27 54 |E MOET ALTIJD 'T|
000010F0: 20 48 45 4C 45 20 57 4F 4F 52 44 20 27 50 52 49 | HELE WOORD 'PRI|
00001100: 4E 54 27 20 20 20 22 3B 00 38 19 66 00 99 22 11 |NT' ";.8.f..".|
00001110: 20 54 59 50 45 4E 20 41 4C 53 20 4A 45 20 23 20 | TYPEN ALS JE # |
00001120: 47 45 42 52 55 49 4B 54 3B 20 54 59 50 20 4E 4F |GEBRUIKT; TYP NO|
00001130: 4F 49 54 20 27 3F 23 27 00 63 19 67 00 81 58 58 |OIT '?#'.c.g..XX|
00001140: B2 31 A4 32 3A 81 58 B2 31 A4 34 30 3A 99 22 20 |.1.2:.X.1.40:." |
00001150: 22 3B 3A 82 58 3A 99 3A 82 58 58 3A 99 22 91 22 |";:.X:.:.XX:."."|
00001160: 3A 8D 34 00 8D 19 68 00 99 22 93 1F 20 4F 4D 20 |:.4...h..".. OM |
00001170: 44 45 20 49 4E 48 4F 55 44 20 57 45 45 52 20 54 |DE INHOUD WEER T|
00001180: 45 52 55 47 20 54 45 20 5A 49 45 4E 3A 00 C9 19 |ERUG TE ZIEN:...|
00001190: 69 00 99 22 11 11 05 20 31 30 20 50 52 49 4E 54 |i.."... 10 PRINT|
000011A0: 22 C7 28 33 34 29 22 44 4F 45 20 44 45 20 44 41 |".(34)"DOE DE DA|
000011B0: 54 41 43 41 53 53 45 54 54 45 20 49 4E 20 44 45 |TACASSETTE IN DE|
000011C0: 20 52 45 43 4F 52 44 45 52 00 FE 19 6A 00 99 22 | RECORDER...j.."|
000011D0: 20 32 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 | 20 PRINT".(34)"|
000011E0: 44 52 55 4B 20 4F 50 20 27 4E 20 54 4F 45 54 53 |DRUK OP 'N TOETS|
000011F0: 20 4F 4D 20 54 45 20 53 54 41 52 54 45 4E 00 28 | OM TE STARTEN.(|
00001200: 1A 6B 00 99 22 20 33 30 20 47 45 54 20 41 24 3A |.k.." 30 GET A$:|
00001210: 49 46 41 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 |IFA$=".(34).(34)|
00001220: 22 47 4F 54 4F 20 33 30 00 3D 1A 6C 00 99 22 20 |"GOTO 30.=.l.." |
00001230: 34 30 20 4F 50 45 4E 20 31 2C 31 2C 30 00 79 1A |40 OPEN 1,1,0.y.|
00001240: 6D 00 99 22 20 35 30 20 49 4E 50 55 54 23 31 2C |m.." 50 INPUT#1,|
00001250: 4E 24 22 3A 99 22 20 36 30 20 49 46 28 53 54 29 |N$":." 60 IF(ST)|
00001260: 3E 30 47 4F 54 4F 38 30 22 3A 99 22 20 36 35 20 |>0GOTO80":." 65 |
00001270: 50 52 49 4E 54 20 4E 24 3B 00 9A 1A 6E 00 99 22 |PRINT N$;...n.."|
00001280: 20 37 30 20 47 4F 54 4F 20 35 30 22 3A 99 22 20 | 70 GOTO 50":." |
00001290: 38 30 20 43 4C 4F 53 45 20 31 00 D0 1A 6F 00 99 |80 CLOSE 1...o..|
000012A0: 22 20 39 30 20 50 52 49 4E 54 22 C7 28 33 34 29 |" 90 PRINT".(34)|
000012B0: 22 4B 4C 41 41 52 2C 20 41 55 42 2E 20 54 45 52 |"KLAAR, AUB. TER|
000012C0: 55 47 20 53 50 4F 45 4C 45 4E 22 C7 28 33 34 29 |UG SPOELEN".(34)|
000012D0: 00 00 1B 70 00 99 22 11 11 1C 20 27 49 4E 50 55 |...p.."... 'INPU|
000012E0: 54 20 23 31 2C 4E 24 27 20 48 41 41 4C 54 20 44 |T #1,N$' HAALT D|
000012F0: 45 20 53 54 52 49 4E 47 53 20 56 41 4E 20 44 45 |E STRINGS VAN DE|
00001300: 00 33 1B 71 00 99 22 11 20 43 41 53 53 45 54 54 |.3.q..". CASSETT|
00001310: 45 2C 20 52 45 47 45 4C 20 36 35 20 50 52 49 4E |E, REGEL 65 PRIN|
00001320: 54 20 4F 50 20 27 54 20 53 43 48 45 52 4D 2E 22 |T OP 'T SCHERM."|
00001330: 3A 8D 33 00 6A 1B 72 00 99 22 90 91 91 91 91 91 |:.3.j.r.."......|
00001340: 91 91 20 27 28 53 54 29 3E 30 27 20 54 45 53 54 |.. '(ST)>0' TEST|
00001350: 20 4F 50 20 48 45 54 20 45 49 4E 44 20 56 41 4E | OP HET EIND VAN|
00001360: 20 48 45 54 20 46 49 4C 45 22 00 9B 1B 73 00 99 | HET FILE"...s..|
00001370: 22 11 20 4F 4D 20 45 45 4E 20 46 4F 55 54 20 54 |". OM EEN FOUT T|
00001380: 45 20 56 4F 4F 52 4B 4F 4D 45 4E 2E 20 20 20 20 |E VOORKOMEN. |
00001390: 20 20 20 20 20 20 20 20 20 20 22 00 D0 1B 74 00 | "...t.|
000013A0: 97 51 31 2C 30 3A 99 22 11 11 20 12 4B 55 4E 20 |.Q1,0:.".. .KUN |
000013B0: 4A 45 20 48 45 54 20 27 4E 20 42 45 45 54 4A 45 |JE HET 'N BEETJE|
000013C0: 20 56 4F 4C 47 45 4E 20 3F 92 20 20 20 20 20 22 | VOLGEN ?. "|
000013D0: 00 E3 1B 75 00 A1 51 24 3A 8B 51 24 B2 22 4E 22 |...u..Q$:.Q$."N"|
000013E0: A7 37 39 00 F4 1B 76 00 8B 51 24 B3 B1 22 4A 22 |.79...v..Q$.."J"|
000013F0: 89 31 31 37 00 21 1C 77 00 99 22 93 11 11 11 11 |.117.!.w..".....|
00001400: 11 1F 20 57 49 4C 20 4A 45 20 44 45 20 48 45 4C |.. WIL JE DE HEL|
00001410: 45 20 4C 45 53 20 4E 4F 47 20 27 4E 20 4B 45 45 |E LES NOG 'N KEE|
00001420: 52 00 35 1C 78 00 99 22 11 20 44 4F 4F 52 4E 45 |R.5.x..". DOORNE|
00001430: 4D 45 4E 20 3F 00 48 1C 79 00 A1 51 24 3A 8B 51 |MEN ?.H.y..Q$:.Q|
00001440: 24 B2 22 4A 22 A7 8A 36 00 59 1C 7A 00 8B 51 24 |$."J"..6.Y.z..Q$|
00001450: B3 B1 22 4E 22 A7 31 32 31 00 96 1C 7B 00 99 22 |.."N".121...{.."|
00001460: 93 11 11 11 20 49 4B 20 4C 41 41 44 20 4E 55 20 |.... IK LAAD NU |
00001470: 44 45 20 56 4F 4C 47 45 4E 44 45 20 4C 45 53 20 |DE VOLGENDE LES |
00001480: 56 4F 4F 52 20 4A 45 2C 22 3A 99 22 11 20 20 20 |VOOR JE,":.". |
00001490: 4C 45 53 20 38 2E 00 B2 1C 7C 00 93 22 42 41 53 |LES 8....|.."BAS|
000014A0: 49 43 20 4C 45 53 20 38 22 2C C2 28 34 39 31 35 |IC LES 8",.(4915|
000014B0: 32 29 00 00 00 |2)... |
....... BASIC LES 7.(....49152,B(186):.6
.R....Q1,0:."........................
..VOOR VERDER: DRUK OP 'SPACE'......
Q$:.Q$.." ".4...........Q1.198:.53280,10
:.53281,10......G(142)......".. ER ZIJN
NOG EEN AANTAL HANDIGE FUNKTIES......"..
. .INT.. IS EEN SIMPEL STATEMENT OM.A..
..". ONNODIGE CIJFERS ACHTER DE KOMMA WE
G......". TE WERKEN IN EEN PRINT STATEME
NT. .. DUS ALS U=5.947.O....
". EN WE ZEGGEN DAN:
. PRINT INT(U)......". DAN KOMT
OP HET SCHERM 'T RESULTAAT: . '
5'.":.3.?....".. OOK KUN JE MET 'INT' AL
LEEN DE CIJFERS.E....". ACHTER DE KOMMA
ER UIT HALEN.. ....".. 10 U=5.947":."
20 U=U-INT(U)":." 30 PRINT U.J....".
. IN DIT GEVAL IS DE UITKOMST .947......
"... LET WEL: 'U' IS HIER OOK ECHT VERAN
DERD.'...." IN HET VORIGE VOORBEELD WERD
ALLEEN.T....". MAAR EEN DEEL VAN HET GE
TAL GEPRINT!.~....". OOK HIER KAN DAT: (
REGEL 20 WEG!)......".. 30 PRINT U-INT(
U)":.3.G....".. HET KAN SOMS HANDIG ZIJN
OM EEN......". WILLEKEURIG GETAL TE GEN
EREREN BV.......". IN SPELLETJES ALS KAN
S-FAKTOR..F....".. HIERIN IS VOORZIEN ME
T HET COMMANDO.W....".. RND.Q...."..
PRINT RND(1)......".. GENEREERD EEN
WILLEKEURIG GETAL......". TUSSEN 0 EN
.999999999":.3......".. .RND. SAMEN ME
T .INT. GEEFT PAS EEN... ..". BRUIKBAAR
GETAL:.R.!.."... PRINT INT( RND(1) *10
) +1":.".. .GEEFT 'N GETAL TUSSEN 1 EN
10...".."... BV. RND(1)=.594727967":.".
*10=5.94727967"...#..". INT=5; +1= .6.
!":.3.W.$..".. MET .ABS. VERMIJDEN WE H
ET MINTEKEN VAN...%..". EEN NEGATIEVE UI
TKOMST..).&..".... DE ABSOLUTE WAARDE VA
N X KRIJG JE MET:.L.'.."... PRINT A
BS(X)...":.3.}.(..".. .SGN. KIJKT OF DE
UITKOMST NEGATIEF IS,...)..". POSITIEF I
S OF GEWOON 0 (NUL) IS..A.*...12)"...PRI
NT SGN(X)...+.."... GEEFT ALS RESULTAAT:
":."... '1' .ALS X POSITIEF-,.$.,..".
. '-1' . ALS X NEGATIEF- EN.K.-..".. '0
' . ALS X 0 (NUL) IS.":.3.M....".. GON
IOMETRISCHE FUNCTIES:.../..".. SIN(A), C
OS(A), TAN(A), ATN(A)...0..".. SIN = SIN
US, COS = COSINUS,...1..". TAN = TANGENS
, ATN = COTANGENS...2.."... N.B. 1 RADIA
AL IS 180/. (57.3 GRADEN)":.3.G.3.."..
LOG(E) GEEFT HET NATUURLIJKE LOGARITHME.
R.4..". EXP(A) GEEFT HET GETAL UIT 'N LO
G....5.."... DEZE TWEE KUN JE NET ZO TOE
PASSEN.G.6..". ALS HET DECIMAAL LOGARITH
ME.":.3...7.."..".14)"'SAVE'...8..".. ME
T DIT COMMANDO KUN JE EEN PROGRAMMA.9.9.
.". OP DE CASSETTE BEWAREN, MET EVENTUEE
L.K.:..". EEN NAAM ER BIJ; TYP:":."..
SAVE OF...;..". SAVE "G(34)"BASIC
CURSUS"G(34)...<..".. IK ZEG DAN:.P.=.."
.. PRESS RECORD & PLAY ON TAPE...>..".
.. ALS NAAM MAG JE ALLES GEBRUIKEN TOT..
.?..". MAX. 16 TEKENS, TUSSEN AANHALINGS
TEKENS.[.@.." BEHALVE HET AANHALINGSTEKE
N ZELF!":.3.R.A.."..".11)"'VERIFY'...B..
". HIERMEE KUN JE CONTROLEREN OF HET.V.C
..". PROGRAMMA GOED OP DE CASSETTE IS
.GEKOMEN....D..".. SPOEL DE CASSETT
E TERUG EN TYP":.".. 'VERIFY'.>.E.."
.. JE MAG DAAR ACHTER OOK WEER 'N NAAM..
.F..". GEVEN, ALS ER MEERDERE PROGRAMMA'
S EEEEEEEE...G.." OP
EEN CASSETTE VOORKOMEN.":.3.Z.H..".. IK
ZOEK HET PROGRAMMA OP EN VERGELIJK...I..
". HET MET DAT WAT IN MIJN GEHEUGEN ZIT.
.-.J..".. IK ZEG 'OK' ALS HET GOED IS.Y.
K..". EN '?VERIFY ERROR' ALS HET FOUT IS
....L.."... SOMS KAN HIER EEN MAGNETISCH
E KOP DE...M..". OORZAAK VAN ZIJN, JE MO
ET HEM DAN EVEN...N..". DEMAGNETISEREN O
F LATEN DEMAGNETISEREN!":.3...O.."..".11
)"'CASSETTE FILES.?.P..". HET COMMANDO O
M IN EEN FILE TE KUNNEN .IS :.V.Q...11
)"..OPEN 1,1,0...R..".. DE EERSTE '1' IS
HET NUMMER (1-255)...S..". DE TWEEDE IS
DE CASSETTERECORDER ALS.E.T..". FILE-DE
VICE....U..".. DE 0 WIL ZEGGEN 'LEZEN',
1= SCHRIJVEN.":.3.).V..".. EEN VOORBEELD
VAN EEN FILE PROGRAMMA:..F.W..". 10 PRI
NT "G(34)"DOE EEN DATA CASSETTE IN DE RE
CORDER...X.." 20 PRINT "G(34)"DRUK OP 'N
TOETS OM TE STARTEN.E.Y.." 30 GET A$:IF
A$="G(34)G(34)"GOTO30...Z.." 40 OPEN 1,1
,1":." 50 INPUT"G(34)"WELKE NAAM"G(34)";
N$.+.[.." 55 IF N$="G(34)"STOP"G(34)"GOT
O80.J.\.." 60 IF LEN(N$)>79THEN PRINT"G(
34)"TE LANG!"G(34)":GOTO50...].." 70 PRI
NT#1,N$:GOTO50...^.." 80 CLOSE 1.T._.."
90 PRINT"G(34)"FILE GEREED, AUB. TERUG S
POELEN"G(34)...`..".. DE DERDE 1 (40) ZE
GT DUS 'SCHRIJVEN'.":.3.B.A.."..........
.. 'PRINT#1,N$' BETEKEND PRINT OP CASSET
TE.P.B.." IN FILE NUMMER 1. N$ IS 'N VA
RIABELE....C..". REGEL 60 KIJKT OF N$ NI
ET TE LANG IS..M.D..". REGEL 90 MELDT DA
T IK KLAAR BEN. ":.3...E..".......... J
E MOET ALTIJD 'T HELE WOORD 'PRINT' ";
.8.F..". TYPEN ALS JE # GEBRUIKT; TYP NO
OIT '?#'.C.G..XX.1.2:.X.1.40:." ";:.X:.:
.XX:.".":.4...H..".. OM DE INHOUD WEER T
ERUG TE ZIEN:.I.I.."... 10 PRINT"G(34)"D
OE DE DATACASSETTE IN DE RECORDER...J.."
20 PRINT"G(34)"DRUK OP 'N TOETS OM TE S
TARTEN.(.K.." 30 GET A$:IFA$="G(34)G(34)
"GOTO 30.=.L.." 40 OPEN 1,1,0.Y.M.." 50
INPUT#1,N$":." 60 IF(ST)>0GOTO80":." 65
PRINT N$;...N.." 70 GOTO 50":." 80 CLOSE
1.P.O.." 90 PRINT"G(34)"KLAAR, AUB. TER
UG SPOELEN"G(34)...P.."... 'INPUT #1,N$'
HAALT DE STRINGS VAN DE.3.Q..". CASSETT
E, REGEL 65 PRINT OP 'T SCHERM.":.3.J.R.
."........ '(ST)>0' TEST OP HET EIND VAN
HET FILE"...S..". OM EEN FOUT TE VOORKO
MEN. ".P.T..Q1,0:.".. .KUN
JE HET 'N BEETJE VOLGEN ?. "...U..Q$
:.Q$."N".79...V..Q$.."J".117.!.W..".....
.. WIL JE DE HELE LES NOG 'N KEER.5.X.."
. DOORNEMEN ?.H.Y..Q$:.Q$."J"..6.Y.Z..Q$
.."N".121...{..".... IK LAAD NU DE VOLGE
NDE LES VOOR JE,":.". LES 8....|.."BAS
IC LES 8",B(49152)...
> CLICK IMAGE PREVIEW FOR FULL MODAL