CBM BASIC LES 7
FILE INFORMATION
FILENAME(S): CBM BASIC LES 7
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 21:05:25
APPEARS ON: 1 disk(s)
FILE HASH
39e09d571d9618ed3351e20e50dcd4ba99e0ef29175026857e447ed9f2e89106
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE BRUIN 59 | CBM BASIC LES 7 | PRG | DuncanTwain | 22 | 1 | 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 CE 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 20 31 30 00 03 |TUSSEN 1 EN 10..| 000004D0: 0D 7C 01 99 22 11 11 95 20 42 56 2E 20 52 4E 44 |.|.."... BV. RND| 000004E0: 28 31 29 3D 2E 35 39 34 37 32 37 39 36 37 22 3A |(1)=.594727967":| 000004F0: 99 22 11 20 2A 31 30 3D 35 2E 39 34 37 32 37 39 |.". *10=5.947279| 00000500: 36 37 22 00 25 0D 86 01 99 22 11 20 49 4E 54 3D |67".%....". INT=| 00000510: 35 3B 20 20 2B 31 3D 20 20 12 36 92 20 21 22 3A |5; +1= .6. !":| 00000520: 8D 31 33 31 30 00 56 0D 90 01 99 22 93 1F 20 4D |.1310.V....".. M| 00000530: 45 54 20 12 41 42 53 92 20 56 45 52 4D 49 4A 44 |ET .ABS. VERMIJD| 00000540: 45 4E 20 57 45 20 48 45 54 20 4D 49 4E 54 45 4B |EN WE HET MINTEK| 00000550: 45 4E 20 56 41 4E 00 76 0D 9A 01 99 22 11 20 45 |EN VAN.v....". E| 00000560: 45 4E 20 4E 45 47 41 54 49 45 56 45 20 55 49 54 |EN NEGATIEVE UIT| 00000570: 4B 4F 4D 53 54 2E 00 A8 0D A4 01 99 22 11 11 11 |KOMST......."...| 00000580: 05 20 44 45 20 41 42 53 4F 4C 55 54 45 20 57 41 |. DE ABSOLUTE WA| 00000590: 41 52 44 45 20 56 41 4E 20 58 20 4B 52 49 4A 47 |ARDE VAN X KRIJG| 000005A0: 20 4A 45 20 4D 45 54 3A 00 CE 0D AE 01 99 22 11 | JE MET:......".| 000005B0: 11 90 20 20 20 20 20 20 50 52 49 4E 54 20 41 42 |.. PRINT AB| 000005C0: 53 28 58 29 11 11 11 22 3A 8D 31 33 31 30 00 FF |S(X)...":.1310..| 000005D0: 0D B8 01 99 22 93 95 20 12 53 47 4E 92 20 4B 49 |....".. .SGN. KI| 000005E0: 4A 4B 54 20 4F 46 20 44 45 20 55 49 54 4B 4F 4D |JKT OF DE UITKOM| 000005F0: 53 54 20 4E 45 47 41 54 49 45 46 20 49 53 2C 00 |ST NEGATIEF IS,.| 00000600: 29 0E C2 01 99 22 11 20 50 4F 53 49 54 49 45 46 |)....". POSITIEF| 00000610: 20 49 53 20 4F 46 20 47 45 57 4F 4F 4E 20 30 20 | IS OF GEWOON 0 | 00000620: 28 4E 55 4C 29 20 49 53 2E 00 43 0E CC 01 99 A3 |(NUL) IS..C.....| 00000630: 31 32 29 22 11 11 90 50 52 49 4E 54 20 53 47 4E |12)"...PRINT SGN| 00000640: 28 58 29 00 82 0E D6 01 99 22 11 11 95 20 47 45 |(X)......"... GE| 00000650: 45 46 54 20 41 4C 53 20 52 45 53 55 4C 54 41 41 |EFT ALS RESULTAA| 00000660: 54 3A 22 3A 99 22 11 11 11 20 27 31 27 20 20 20 |T:":."... '1' | 00000670: 20 05 41 4C 53 20 58 20 50 4F 53 49 54 49 45 46 | .ALS X POSITIEF| 00000680: 2D 2C 00 A6 0E E0 01 99 22 11 95 20 27 2D 31 27 |-,......".. '-1'| 00000690: 20 20 05 20 41 4C 53 20 58 20 4E 45 47 41 54 49 | . ALS X NEGATI| 000006A0: 45 46 2D 20 45 4E 00 D0 0E EA 01 99 22 11 95 20 |EF- EN......".. | 000006B0: 27 30 27 20 20 05 20 20 41 4C 53 20 58 20 30 20 |'0' . ALS X 0 | 000006C0: 28 4E 55 4C 29 20 49 53 2E 22 3A 8D 31 33 31 30 |(NUL) IS.":.1310| 000006D0: 00 F2 0E F4 01 99 22 93 05 20 47 4F 4E 49 4F 4D |......".. GONIOM| 000006E0: 45 54 52 49 53 43 48 45 20 46 55 4E 43 54 49 45 |ETRISCHE FUNCTIE| 000006F0: 53 3A 00 1A 0F FE 01 99 22 11 95 20 53 49 4E 28 |S:......".. SIN(| 00000700: 41 29 2C 20 43 4F 53 28 41 29 2C 20 54 41 4E 28 |A), COS(A), TAN(| 00000710: 41 29 2C 20 41 54 4E 28 41 29 00 3F 0F 08 02 99 |A), ATN(A).?....| 00000720: 22 11 11 20 53 49 4E 20 3D 20 53 49 4E 55 53 2C |".. SIN = SINUS,| 00000730: 20 43 4F 53 20 3D 20 43 4F 53 49 4E 55 53 2C 00 | COS = COSINUS,.| 00000740: 6A 0F 12 02 99 22 11 20 54 41 4E 20 3D 20 54 41 |j....". TAN = TA| 00000750: 4E 47 45 4E 53 2C 20 41 4E 44 20 41 54 4E 20 3D |NGENS, AND ATN =| 00000760: 20 43 4F 54 41 4E 47 45 4E 53 00 A2 0F 1C 02 99 | COTANGENS......| 00000770: 22 11 11 90 20 4E 2E 42 2E 20 31 20 52 41 44 49 |"... N.B. 1 RADI| 00000780: 41 41 4C 20 49 53 20 31 38 30 2F FF 20 20 28 35 |AAL IS 180/. (5| 00000790: 37 2E 33 20 47 52 41 44 45 4E 29 22 3A 8D 31 33 |7.3 GRADEN)":.13| 000007A0: 31 30 00 D3 0F 26 02 99 22 93 90 20 4C 4F 47 28 |10...&..".. LOG(| 000007B0: 45 29 20 47 45 45 46 54 20 48 45 54 20 4E 41 54 |E) GEEFT HET NAT| 000007C0: 55 55 52 4C 49 4A 4B 45 20 4C 4F 47 41 52 49 54 |UURLIJKE LOGARIT| 000007D0: 48 4D 45 00 FE 0F 30 02 99 22 05 20 45 58 50 28 |HME...0..". EXP(| 000007E0: 41 29 20 47 45 45 46 54 20 48 45 54 20 47 45 54 |A) GEEFT HET GET| 000007F0: 41 4C 20 55 49 54 20 27 4E 20 4C 4F 47 2E 00 2A |AL UIT 'N LOG..*| 00000800: 10 3A 02 99 22 11 11 1F 20 44 45 5A 45 20 54 57 |.:.."... DEZE TW| 00000810: 45 45 20 4B 55 4E 20 4A 45 20 4E 45 54 20 5A 4F |EE KUN JE NET ZO| 00000820: 20 54 4F 45 50 41 53 53 45 4E 00 56 10 44 02 99 | TOEPASSEN.V.D..| 00000830: 22 11 20 41 4C 53 20 48 45 54 20 44 45 43 49 4D |". ALS HET DECIM| 00000840: 41 41 4C 20 4C 4F 47 41 52 49 54 48 4D 45 2E 22 |AAL LOGARITHME."| 00000850: 3A 8D 31 33 31 30 00 6B 10 4E 02 99 22 93 1C 22 |:.1310.k.N..".."| 00000860: A3 31 34 29 22 27 53 41 56 45 27 00 9A 10 58 02 |.14)"'SAVE'...X.| 00000870: 99 22 11 9E 20 4D 45 54 20 44 49 54 20 43 4F 4D |.".. MET DIT COM| 00000880: 4D 41 4E 44 4F 20 4B 55 4E 20 4A 45 20 45 45 4E |MANDO KUN JE EEN| 00000890: 20 50 52 4F 47 52 41 4D 4D 41 00 C6 10 62 02 99 | PROGRAMMA...b..| 000008A0: 22 11 20 4F 50 20 44 45 20 43 41 53 53 45 54 54 |". OP DE CASSETT| 000008B0: 45 20 42 45 57 41 52 45 4E 2C 20 4D 45 54 20 45 |E BEWAREN, MET E| 000008C0: 56 54 20 45 45 4E 00 F4 10 6C 02 99 22 11 20 4E |VT EEN...l..". N| 000008D0: 41 41 4D 20 45 52 20 42 49 4A 3B 20 20 54 59 50 |AAM ER BIJ; TYP| 000008E0: 3A 22 3A 99 22 11 1F 20 20 20 53 41 56 45 20 20 |:":.".. SAVE | 000008F0: 20 20 4F 46 00 1D 11 76 02 99 22 11 20 20 20 53 | OF...v..". S| 00000900: 41 56 45 20 22 C7 28 33 34 29 22 42 41 53 49 43 |AVE ".(34)"BASIC| 00000910: 20 43 55 52 53 55 53 22 C7 28 33 34 29 00 32 11 | CURSUS".(34).2.| 00000920: 80 02 99 22 11 9E 20 49 4B 20 5A 45 47 20 44 41 |...".. IK ZEG DA| 00000930: 4E 3A 00 59 11 8A 02 99 22 11 90 20 20 20 50 52 |N:.Y....".. PR| 00000940: 45 53 53 20 50 4C 41 59 20 26 20 52 45 43 4F 52 |ESS PLAY & RECOR| 00000950: 44 20 4F 4E 20 54 41 50 45 00 87 11 94 02 99 22 |D ON TAPE......"| 00000960: 11 11 9E 20 41 4C 53 20 4E 41 41 4D 20 4D 41 47 |... ALS NAAM MAG| 00000970: 20 4A 45 20 41 4C 4C 45 53 20 47 45 42 52 55 49 | JE ALLES GEBRUI| 00000980: 4B 45 4E 20 54 4F 54 00 B7 11 9E 02 99 22 11 20 |KEN TOT......". | 00000990: 4D 41 58 2E 20 31 36 20 54 45 4B 45 4E 53 2C 20 |MAX. 16 TEKENS, | 000009A0: 54 55 53 53 45 4E 20 41 41 4E 48 41 4C 49 4E 47 |TUSSEN AANHALING| 000009B0: 53 54 45 4B 45 4E 53 00 E7 11 A8 02 99 22 20 42 |STEKENS......" B| 000009C0: 45 48 41 4C 56 45 20 48 45 54 20 41 41 4E 48 41 |EHALVE HET AANHA| 000009D0: 4C 49 4E 47 53 54 45 4B 45 4E 20 5A 45 4C 46 21 |LINGSTEKEN ZELF!| 000009E0: 22 3A 8D 31 33 31 30 00 FE 11 B2 02 99 22 93 1F |":.1310......"..| 000009F0: 22 A3 31 31 29 22 27 56 45 52 49 46 59 27 00 28 |".11)"'VERIFY'.(| 00000A00: 12 BC 02 99 22 11 20 48 49 45 52 4D 45 45 20 4B |....". HIERMEE K| 00000A10: 55 4E 20 4A 45 20 43 4F 4E 54 52 4F 4C 45 52 45 |UN JE CONTROLERE| 00000A20: 4E 20 4F 46 20 48 45 54 00 62 12 C6 02 99 22 11 |N OF HET.b....".| 00000A30: 20 50 52 4F 47 52 41 4D 4D 41 20 47 4F 45 44 20 | PROGRAMMA GOED | 00000A40: 4F 50 20 44 45 20 43 41 53 53 45 54 54 45 20 49 |OP DE CASSETTE I| 00000A50: 53 20 20 20 20 20 20 20 20 11 47 45 4B 4F 4D 45 |S .GEKOME| 00000A60: 4E 2E 00 9D 12 D0 02 99 22 11 1C 20 53 50 4F 45 |N.......".. SPOE| 00000A70: 4C 20 44 45 20 43 41 53 53 45 54 54 45 20 54 45 |L DE CASSETTE TE| 00000A80: 52 55 47 20 45 4E 20 54 59 50 22 3A 99 22 11 90 |RUG EN TYP":."..| 00000A90: 20 20 20 20 20 27 56 45 52 49 46 59 27 00 CA 12 | 'VERIFY'...| 00000AA0: DA 02 99 22 11 1C 20 4A 45 20 4D 41 47 20 44 41 |...".. JE MAG DA| 00000AB0: 41 52 20 41 43 48 54 45 52 20 4F 4F 4B 20 57 45 |AR ACHTER OOK WE| 00000AC0: 45 52 20 27 4E 20 4E 41 41 4D 00 11 13 E4 02 99 |ER 'N NAAM......| 00000AD0: 22 11 20 47 45 56 45 4E 2C 20 41 4C 53 20 45 52 |". GEVEN, ALS ER| 00000AE0: 20 4D 45 45 52 44 45 52 45 20 50 52 4F 47 52 41 | MEERDERE PROGRA| 00000AF0: 4D 4D 41 27 53 20 20 20 20 20 20 20 20 20 20 20 |MMA'S | 00000B00: 20 20 20 20 20 20 20 20 20 C5 C5 C5 C5 C5 C5 C5 | .......| 00000B10: C5 00 3A 13 EE 02 99 22 20 4F 50 20 45 45 4E 20 |..:...." OP EEN | 00000B20: 43 41 53 53 45 54 54 45 20 56 4F 4F 52 4B 4F 4D |CASSETTE VOORKOM| 00000B30: 45 4E 2E 22 3A 8D 31 33 31 30 00 69 13 F8 02 99 |EN.":.1310.i....| 00000B40: 22 93 90 20 49 4B 20 5A 4F 45 4B 20 48 45 54 20 |".. IK ZOEK HET | 00000B50: 50 52 4F 47 52 41 4D 4D 41 20 4F 50 20 45 4E 20 |PROGRAMMA OP EN | 00000B60: 56 45 52 47 45 4C 49 4A 4B 00 97 13 02 03 99 22 |VERGELIJK......"| 00000B70: 11 20 48 45 54 20 4D 45 54 20 44 41 54 20 57 41 |. HET MET DAT WA| 00000B80: 54 20 49 4E 20 4D 49 4A 4E 20 47 45 48 45 55 47 |T IN MIJN GEHEUG| 00000B90: 45 4E 20 5A 49 54 2E 00 BC 13 0C 03 99 22 11 9B |EN ZIT......."..| 00000BA0: 20 49 4B 20 5A 45 47 20 27 4F 4B 27 20 41 4C 53 | IK ZEG 'OK' ALS| 00000BB0: 20 48 45 54 20 47 4F 45 44 20 49 53 00 E8 13 16 | HET GOED IS....| 00000BC0: 03 99 22 11 20 45 4E 20 27 3F 56 45 52 49 46 59 |..". EN '?VERIFY| 00000BD0: 20 45 52 52 4F 52 27 20 41 4C 53 20 48 45 54 20 | ERROR' ALS HET | 00000BE0: 46 4F 55 54 20 49 53 2E 00 17 14 20 03 99 22 11 |FOUT IS.... ..".| 00000BF0: 11 1F 20 53 4F 4D 53 20 4B 41 4E 20 48 49 45 52 |.. SOMS KAN HIER| 00000C00: 20 45 45 4E 20 4D 41 47 4E 45 54 49 53 43 48 45 | EEN MAGNETISCHE| 00000C10: 20 4B 4F 50 20 44 45 00 46 14 2A 03 99 22 11 20 | KOP DE.F.*..". | 00000C20: 4F 4F 52 5A 41 41 4B 20 56 41 4E 20 5A 49 4A 4E |OORZAAK VAN ZIJN| 00000C30: 2C 20 4A 45 20 4D 4F 45 54 20 48 45 4D 20 44 41 |, JE MOET HEM DA| 00000C40: 4E 20 45 56 45 4E 00 7D 14 34 03 99 22 11 20 44 |N EVEN.}.4..". D| 00000C50: 45 4D 41 47 4E 45 54 49 53 45 52 45 4E 20 4F 46 |EMAGNETISEREN OF| 00000C60: 20 4C 41 54 45 4E 20 44 45 4D 41 47 4E 45 54 49 | LATEN DEMAGNETI| 00000C70: 53 45 52 45 4E 21 22 3A 8D 31 33 31 30 00 9B 14 |SEREN!":.1310...| 00000C80: 3E 03 99 22 93 95 22 A3 31 31 29 22 27 43 41 53 |>.."..".11)"'CAS| 00000C90: 53 45 54 54 45 20 46 49 4C 45 53 00 D1 14 48 03 |SETTE FILES...H.| 00000CA0: 99 22 11 20 48 45 54 20 43 4F 4D 4D 41 4E 44 4F |.". HET COMMANDO| 00000CB0: 20 4F 4D 20 49 4E 20 45 45 4E 20 46 49 4C 45 20 | OM IN EEN FILE | 00000CC0: 54 45 20 4B 55 4E 4E 45 4E 20 20 20 11 49 53 20 |TE KUNNEN .IS | 00000CD0: 3A 00 E8 14 52 03 99 A3 31 31 29 22 11 90 4F 50 |:...R...11)"..OP| 00000CE0: 45 4E 20 31 2C 31 2C 30 00 15 15 5C 03 99 22 11 |EN 1,1,0...\..".| 00000CF0: 95 20 44 45 20 45 45 52 53 54 45 20 27 31 27 20 |. DE EERSTE '1' | 00000D00: 49 53 20 48 45 54 20 4E 55 4D 4D 45 52 20 28 31 |IS HET NUMMER (1| 00000D10: 2D 32 35 35 29 00 42 15 66 03 99 22 11 20 44 45 |-255).B.f..". DE| 00000D20: 20 54 57 45 45 44 45 20 49 53 20 44 45 20 43 41 | TWEEDE IS DE CA| 00000D30: 53 53 45 54 54 45 52 45 43 4F 52 44 45 52 20 41 |SSETTERECORDER A| 00000D40: 4C 53 00 57 15 70 03 99 22 11 20 46 49 4C 45 2D |LS.W.p..". FILE-| 00000D50: 44 45 56 49 43 45 2E 00 8E 15 7A 03 99 22 11 1F |DEVICE....z.."..| 00000D60: 20 44 45 20 30 20 57 49 4C 20 5A 45 47 47 45 4E | DE 0 WIL ZEGGEN| 00000D70: 20 27 4C 45 5A 45 4E 27 2C 20 31 3D 20 53 43 48 | 'LEZEN', 1= SCH| 00000D80: 52 49 4A 56 45 4E 2E 22 3A 8D 31 33 31 30 00 BE |RIJVEN.":.1310..| 00000D90: 15 84 03 99 22 93 1F 20 45 45 4E 20 56 4F 4F 52 |....".. EEN VOOR| 00000DA0: 42 45 45 4C 44 20 56 41 4E 20 45 45 4E 20 46 49 |BEELD VAN EEN FI| 00000DB0: 4C 45 20 50 52 4F 47 52 41 4D 4D 41 3A 11 00 FB |LE PROGRAMMA:...| 00000DC0: 15 8E 03 99 22 05 20 31 30 20 50 52 49 4E 54 20 |....". 10 PRINT | 00000DD0: 22 C7 28 33 34 29 22 44 4F 45 20 45 45 4E 20 44 |".(34)"DOE EEN D| 00000DE0: 41 54 41 20 43 41 53 53 45 54 54 45 20 49 4E 20 |ATA CASSETTE IN | 00000DF0: 44 45 20 52 45 43 4F 52 44 45 52 00 31 16 98 03 |DE RECORDER.1...| 00000E00: 99 22 20 32 30 20 50 52 49 4E 54 20 22 C7 28 33 |." 20 PRINT ".(3| 00000E10: 34 29 22 44 52 55 4B 20 4F 50 20 27 4E 20 54 4F |4)"DRUK OP 'N TO| 00000E20: 45 54 53 20 4F 4D 20 54 45 20 53 54 41 52 54 45 |ETS OM TE STARTE| 00000E30: 4E 00 5A 16 A2 03 99 22 20 33 30 20 47 45 54 20 |N.Z...." 30 GET | 00000E40: 41 24 3A 49 46 41 24 3D 22 C7 28 33 34 29 C7 28 |A$:IFA$=".(34).(| 00000E50: 33 34 29 22 47 4F 54 4F 33 30 00 97 16 AC 03 99 |34)"GOTO30......| 00000E60: 22 20 34 30 20 4F 50 45 4E 20 31 2C 31 2C 31 22 |" 40 OPEN 1,1,1"| 00000E70: 3A 99 22 20 35 30 20 49 4E 50 55 54 22 C7 28 33 |:." 50 INPUT".(3| 00000E80: 34 29 22 57 45 4C 4B 45 20 4E 41 41 4D 22 C7 28 |4)"WELKE NAAM".(| 00000E90: 33 34 29 22 3B 4E 24 00 C0 16 B6 03 99 22 20 35 |34)";N$......" 5| 00000EA0: 35 20 49 46 20 4E 24 3D 22 C7 28 33 34 29 22 53 |5 IF N$=".(34)"S| 00000EB0: 54 4F 50 22 C7 28 33 34 29 22 47 4F 54 4F 38 30 |TOP".(34)"GOTO80| 00000EC0: 00 FF 16 C0 03 99 22 20 36 30 20 49 46 20 4C 45 |......" 60 IF LE| 00000ED0: 4E 28 4E 24 29 3E 37 39 54 48 45 4E 20 50 52 49 |N(N$)>79THEN PRI| 00000EE0: 4E 54 22 C7 28 33 34 29 22 54 45 20 4C 41 4E 47 |NT".(34)"TE LANG| 00000EF0: 21 22 C7 28 33 34 29 22 3A 47 4F 54 4F 35 30 00 |!".(34)":GOTO50.| 00000F00: 1B 17 CA 03 99 22 20 37 30 20 50 52 49 4E 54 23 |....." 70 PRINT#| 00000F10: 31 2C 4E 24 3A 47 4F 54 4F 35 30 00 2D 17 D4 03 |1,N$:GOTO50.-...| 00000F20: 99 22 20 38 30 20 43 4C 4F 53 45 20 31 00 69 17 |." 80 CLOSE 1.i.| 00000F30: DE 03 99 22 20 39 30 20 50 52 49 4E 54 22 C7 28 |..." 90 PRINT".(| 00000F40: 33 34 29 22 46 49 4C 45 20 47 45 52 45 45 44 2C |34)"FILE GEREED,| 00000F50: 20 41 55 42 2E 20 54 45 52 55 47 20 53 50 4F 45 | AUB. TERUG SPOE| 00000F60: 4C 45 4E 22 C7 28 33 34 29 00 9F 17 E8 03 99 22 |LEN".(34)......"| 00000F70: 11 1F 20 44 45 20 44 45 52 44 45 20 31 20 28 34 |.. DE DERDE 1 (4| 00000F80: 30 29 20 5A 45 47 54 20 44 55 53 20 27 53 43 48 |0) ZEGT DUS 'SCH| 00000F90: 52 49 4A 56 45 4E 27 2E 22 3A 8D 31 33 31 30 00 |RIJVEN'.":.1310.| 00000FA0: DA 17 F2 03 99 22 90 11 11 91 91 91 91 91 91 91 |....."..........| 00000FB0: 91 91 20 27 50 52 49 4E 54 23 31 2C 4E 24 27 20 |.. 'PRINT#1,N$' | 00000FC0: 42 45 54 45 4B 45 4E 44 20 50 52 49 4E 54 20 4F |BETEKEND PRINT O| 00000FD0: 50 20 43 41 53 53 45 54 54 45 00 08 18 FC 03 99 |P CASSETTE......| 00000FE0: 22 20 49 4E 20 46 49 4C 45 20 4E 55 4D 4D 45 52 |" IN FILE NUMMER| 00000FF0: 20 31 2E 20 20 4E 24 20 49 53 20 27 4E 20 56 41 | 1. N$ IS 'N VA| 00001000: 52 49 41 42 45 4C 45 2E 00 36 18 06 04 99 22 11 |RIABELE..6....".| 00001010: 20 52 45 47 45 4C 20 36 30 20 4B 49 4A 4B 54 20 | REGEL 60 KIJKT | 00001020: 4F 46 20 4E 24 20 4E 49 45 54 20 54 45 20 4C 41 |OF N$ NIET TE LA| 00001030: 4E 47 20 49 53 2E 00 68 18 10 04 99 22 11 20 52 |NG IS..h....". R| 00001040: 45 47 45 4C 20 39 30 20 4D 45 4C 44 54 20 44 41 |EGEL 90 MELDT DA| 00001050: 54 20 49 4B 20 4B 4C 41 41 52 20 42 45 4E 2E 20 |T IK KLAAR BEN. | 00001060: 20 22 3A 8D 31 33 31 30 00 A3 18 1A 04 99 22 91 | ":.1310......".| 00001070: 91 91 91 91 91 91 91 91 1C 20 4A 45 20 4D 4F 45 |......... JE MOE| 00001080: 54 20 41 4C 54 49 4A 44 20 27 54 20 48 45 4C 45 |T ALTIJD 'T HELE| 00001090: 20 57 4F 4F 52 44 20 27 50 52 49 4E 54 27 20 20 | WOORD 'PRINT' | 000010A0: 20 22 3B 00 D3 18 24 04 99 22 11 20 54 59 50 45 | ";...$..". TYPE| 000010B0: 4E 20 41 4C 53 20 4A 45 20 23 20 47 45 42 52 55 |N ALS JE # GEBRU| 000010C0: 49 4B 54 3B 20 54 59 50 20 4E 4F 4F 49 54 20 27 |IKT; TYP NOOIT '| 000010D0: 3F 23 27 00 01 19 2E 04 81 58 58 B2 31 A4 32 3A |?#'......XX.1.2:| 000010E0: 81 58 B2 31 A4 34 30 3A 99 22 20 22 3B 3A 82 58 |.X.1.40:." ";:.X| 000010F0: 3A 99 3A 82 58 58 3A 99 22 91 22 3A 8D 31 33 32 |:.:.XX:.".":.132| 00001100: 30 00 2B 19 38 04 99 22 93 1F 20 4F 4D 20 44 45 |0.+.8..".. OM DE| 00001110: 20 49 4E 48 4F 55 44 20 57 45 45 52 20 54 45 52 | INHOUD WEER TER| 00001120: 55 47 20 54 45 20 5A 49 45 4E 3A 00 67 19 42 04 |UG TE ZIEN:.g.B.| 00001130: 99 22 11 11 05 20 31 30 20 50 52 49 4E 54 22 C7 |."... 10 PRINT".| 00001140: 28 33 34 29 22 44 4F 45 20 44 45 20 44 41 54 41 |(34)"DOE DE DATA| 00001150: 43 41 53 53 45 54 54 45 20 49 4E 20 44 45 20 52 |CASSETTE IN DE R| 00001160: 45 43 4F 52 44 45 52 00 9C 19 4C 04 99 22 20 32 |ECORDER...L.." 2| 00001170: 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 44 52 |0 PRINT".(34)"DR| 00001180: 55 4B 20 4F 50 20 27 4E 20 54 4F 45 54 53 20 4F |UK OP 'N TOETS O| 00001190: 4D 20 54 45 20 53 54 41 52 54 45 4E 00 C6 19 56 |M TE STARTEN...V| 000011A0: 04 99 22 20 33 30 20 47 45 54 20 41 24 3A 49 46 |.." 30 GET A$:IF| 000011B0: 41 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 22 47 |A$=".(34).(34)"G| 000011C0: 4F 54 4F 20 33 30 00 DB 19 60 04 99 22 20 34 30 |OTO 30...`.." 40| 000011D0: 20 4F 50 45 4E 20 31 2C 31 2C 30 00 17 1A 6A 04 | OPEN 1,1,0...j.| 000011E0: 99 22 20 35 30 20 49 4E 50 55 54 23 31 2C 4E 24 |." 50 INPUT#1,N$| 000011F0: 22 3A 99 22 20 36 30 20 49 46 28 53 54 29 3E 30 |":." 60 IF(ST)>0| 00001200: 47 4F 54 4F 38 30 22 3A 99 22 20 36 35 20 50 52 |GOTO80":." 65 PR| 00001210: 49 4E 54 20 4E 24 3B 00 38 1A 74 04 99 22 20 37 |INT N$;.8.t.." 7| 00001220: 30 20 47 4F 54 4F 20 35 30 22 3A 99 22 20 38 30 |0 GOTO 50":." 80| 00001230: 20 43 4C 4F 53 45 20 31 00 6E 1A 7E 04 99 22 20 | CLOSE 1.n.~.." | 00001240: 39 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 4B |90 PRINT".(34)"K| 00001250: 4C 41 41 52 2C 20 41 55 42 2E 20 54 45 52 55 47 |LAAR, AUB. TERUG| 00001260: 20 53 50 4F 45 4C 45 4E 22 C7 28 33 34 29 00 9E | SPOELEN".(34)..| 00001270: 1A 88 04 99 22 11 11 1C 20 27 49 4E 50 55 54 20 |...."... 'INPUT | 00001280: 23 31 2C 4E 24 27 20 48 41 41 4C 54 20 44 45 20 |#1,N$' HAALT DE | 00001290: 53 54 52 49 4E 47 53 20 56 41 4E 20 44 45 00 D4 |STRINGS VAN DE..| 000012A0: 1A 92 04 99 22 11 20 43 41 53 53 45 54 54 45 2C |....". CASSETTE,| 000012B0: 20 52 45 47 45 4C 20 36 35 20 50 52 49 4E 54 20 | REGEL 65 PRINT | 000012C0: 4F 50 20 27 54 20 53 43 48 45 52 4D 2E 22 3A 8D |OP 'T SCHERM.":.| 000012D0: 31 33 31 30 00 0B 1B 9C 04 99 22 90 91 91 91 91 |1310......".....| 000012E0: 91 91 91 20 27 28 53 54 29 3E 30 27 20 54 45 53 |... '(ST)>0' TES| 000012F0: 54 20 4F 50 20 48 45 54 20 45 49 4E 44 20 56 41 |T OP HET EIND VA| 00001300: 4E 20 48 45 54 20 46 49 4C 45 22 00 3C 1B A6 04 |N HET FILE".<...| 00001310: 99 22 11 20 4F 4D 20 45 45 4E 20 46 4F 55 54 20 |.". OM EEN FOUT | 00001320: 54 45 20 56 4F 4F 52 4B 4F 4D 45 4E 2E 20 20 20 |TE VOORKOMEN. | 00001330: 20 20 20 20 20 20 20 20 20 20 20 22 00 74 1B B0 | ".t..| 00001340: 04 97 51 31 2C 30 3A 99 22 11 11 20 12 4B 55 4E |..Q1,0:.".. .KUN| 00001350: 20 4A 45 20 48 45 54 20 27 4E 20 42 45 45 54 4A | JE HET 'N BEETJ| 00001360: 45 20 56 4F 4C 47 45 4E 20 3F 92 20 20 20 20 20 |E VOLGEN ?. | 00001370: 20 20 20 22 00 88 1B BA 04 A1 51 24 3A 8B 51 24 | "......Q$:.Q$| 00001380: B2 22 22 A7 31 32 31 30 00 99 1B C4 04 8B 51 24 |."".1210......Q$| 00001390: B3 B1 22 4A 22 89 38 33 30 00 C6 1B CE 04 99 22 |.."J".830......"| 000013A0: 93 11 11 11 11 11 1F 20 57 49 4C 20 4A 45 20 44 |....... WIL JE D| 000013B0: 45 20 48 45 4C 45 20 4C 45 53 20 4E 4F 47 20 27 |E HELE LES NOG '| 000013C0: 4E 20 4B 45 45 52 00 DA 1B D8 04 99 22 11 20 44 |N KEER......". D| 000013D0: 4F 4F 52 4E 45 4D 45 4E 20 3F 00 EE 1B E2 04 A1 |OORNEMEN ?......| 000013E0: 51 24 3A 8B 51 24 B2 22 22 A7 31 32 35 30 00 FF |Q$:.Q$."".1250..| 000013F0: 1B EC 04 8B 51 24 B2 22 4E 22 A7 31 32 38 30 00 |....Q$."N".1280.| 00001400: 05 1C F6 04 8A 00 42 1C 00 05 99 22 93 11 11 11 |......B...."....| 00001410: 20 49 4B 20 4C 41 41 44 20 4E 55 20 44 45 20 56 | IK LAAD NU DE V| 00001420: 4F 4C 47 45 4E 44 45 20 4C 45 53 20 56 4F 4F 52 |OLGENDE LES VOOR| 00001430: 20 4A 45 2C 22 3A 99 22 11 20 20 20 4C 45 53 20 | JE,":.". LES | 00001440: 38 2E 00 58 1C 0A 05 97 31 39 38 2C 31 3A 97 36 |8..X....198,1:.6| 00001450: 33 31 2C 31 33 31 3A 80 00 A1 1C 1E 05 97 51 31 |31,131:.......Q1| 00001460: 2C 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 |,0:."...........| 00001470: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. | 00001480: 20 20 20 90 12 56 4F 4F 52 20 56 45 52 44 45 52 | ..VOOR VERDER| 00001490: 3A 20 20 44 52 55 4B 20 4F 50 20 52 45 54 55 52 |: DRUK OP RETUR| 000014A0: 4E 00 B5 1C 28 05 A1 51 24 3A 8B 51 24 B2 22 22 |N...(..Q$:.Q$.""| 000014B0: A7 31 33 32 30 00 BB 1C 32 05 8E 00 00 00 |.1320...2..... |
.. .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:.N.R.. "... PRINT INT( RND(1) *10 ) +1":.".. .GEEFT 'N GETAL TUSSEN 1 EN 10...|.."... BV. RND(1)=.594727967":.". *10=5.947279 67".%....". INT=5; +1= .6. !":.1310.V. ...".. MET .ABS. VERMIJDEN WE HET MINTEK EN VAN.V....". EEN NEGATIEVE UITKOMST... ....".... DE ABSOLUTE WAARDE VAN X KRIJG JE MET:.N...."... PRINT ABS(X)..." :.1310......".. .SGN. KIJKT OF DE UITKOM ST NEGATIEF IS,.).B..". POSITIEF IS OF G EWOON 0 (NUL) IS..C.L...12)"...PRINT SGN (X)...V.."... GEEFT ALS RESULTAAT:":.".. . '1' .ALS X POSITIEF-,......".. '-1' . ALS X NEGATIEF- EN.P....".. '0' . ALS X 0 (NUL) IS.":.1310......".. GONIOM ETRISCHE FUNCTIES:......".. SIN(A), COS( A), TAN(A), ATN(A).?....".. SIN = SINUS, COS = COSINUS,.J....". TAN = TANGENS, A ND ATN = COTANGENS......"... N.B. 1 RADI AAL IS 180/. (57.3 GRADEN)":.1310.S.&.. ".. LOG(E) GEEFT HET NATUURLIJKE LOGARIT HME...0..". EXP(A) GEEFT HET GETAL UIT ' N LOG..*.:.."... DEZE TWEE KUN JE NET ZO TOEPASSEN.V.D..". ALS HET DECIMAAL LOGA RITHME.":.1310.K.N.."..".14)"'SAVE'...X. .".. MET DIT COMMANDO KUN JE EEN PROGRAM MA.F.B..". OP DE CASSETTE BEWAREN, MET E VT EEN...L..". NAAM ER BIJ; TYP:":.".. SAVE OF...V..". SAVE "G(34)"BASIC CURSUS"G(34).2....".. IK ZEG DAN:.Y.... ".. PRESS PLAY & RECORD ON TAPE......" ... ALS NAAM MAG JE ALLES GEBRUIKEN TOT. .....". MAX. 16 TEKENS, TUSSEN AANHALING STEKENS......" BEHALVE HET AANHALINGSTEK EN ZELF!":.1310......"..".11)"'VERIFY'.( ....". HIERMEE KUN JE CONTROLEREN OF HET .B.F..". PROGRAMMA GOED OP DE CASSETTE I S .GEKOMEN....P..".. SPOEL DE CAS SETTE TERUG EN TYP":.".. 'VERIFY'.J. Z..".. JE MAG DAAR ACHTER OOK WEER 'N NA AM......". GEVEN, ALS ER MEERDERE PROGRA MMA'S EEEEEEEE.:...." OP EEN CASSETTE VOORKOMEN.":.1310.I.... ".. IK ZOEK HET PROGRAMMA OP EN VERGELIJ K......". HET MET DAT WAT IN MIJN GEHEUG EN ZIT.......".. IK ZEG 'OK' ALS HET GOE D IS......". EN '?VERIFY ERROR' ALS HET FOUT IS.... .."... SOMS KAN HIER EEN MAG NETISCHE KOP DE.F.*..". OORZAAK VAN ZIJN , JE MOET HEM DAN EVEN.}.4..". DEMAGNETI SEREN OF LATEN DEMAGNETISEREN!":.1310... >.."..".11)"'CASSETTE FILES.Q.H..". HET COMMANDO OM IN EEN FILE TE KUNNEN .IS :...R...11)"..OPEN 1,1,0...\..".. DE EER STE '1' IS HET NUMMER (1-255).B.F..". DE TWEEDE IS DE CASSETTERECORDER ALS.W.P.. ". FILE-DEVICE....Z..".. DE 0 WIL ZEGGEN 'LEZEN', 1= SCHRIJVEN.":.1310......".. EEN VOORBEELD VAN EEN FILE PROGRAMMA:... ....". 10 PRINT "G(34)"DOE EEN DATA CASS ETTE IN DE RECORDER.1...." 20 PRINT "G(3 4)"DRUK OP 'N TOETS OM TE STARTEN.Z...." 30 GET A$:IFA$="G(34)G(34)"GOTO30...... " 40 OPEN 1,1,1":." 50 INPUT"G(34)"WELKE NAAM"G(34)";N$......" 55 IF N$="G(34)"S TOP"G(34)"GOTO80......" 60 IF LEN(N$)>79 THEN PRINT"G(34)"TE LANG!"G(34)":GOTO50. ..J.." 70 PRINT#1,N$:GOTO50.-.T.." 80 CL OSE 1.I...." 90 PRINT"G(34)"FILE GEREED, AUB. TERUG SPOELEN"G(34)......".. DE DE RDE 1 (40) ZEGT DUS 'SCHRIJVEN'.":.1310. Z...."............ 'PRINT#1,N$' BETEKEND PRINT OP CASSETTE......" IN FILE NUMMER 1. N$ IS 'N VARIABELE..6....". REGEL 6 0 KIJKT OF N$ NIET TE LANG IS..H....". R EGEL 90 MELDT DAT IK KLAAR BEN. ":.1310 ......".......... JE MOET ALTIJD 'T HELE WOORD 'PRINT' ";.S.$..". TYPEN ALS JE # GEBRUIKT; TYP NOOIT '?#'......XX.1.2: .X.1.40:." ";:.X:.:.XX:.".":.1320.+.8.." .. OM DE INHOUD WEER TERUG TE ZIEN:.G.B. ."... 10 PRINT"G(34)"DOE DE DATACASSETTE IN DE RECORDER...L.." 20 PRINT"G(34)"DR UK OP 'N TOETS OM TE STARTEN.F.V.." 30 G ET A$:IFA$="G(34)G(34)"GOTO 30...`.." 40 OPEN 1,1,0...J.." 50 INPUT#1,N$":." 60 IF(ST)>0GOTO80":." 65 PRINT N$;.8.T.." 7 0 GOTO 50":." 80 CLOSE 1.N.~.." 90 PRINT "G(34)"KLAAR, AUB. TERUG SPOELEN"G(34).. ...."... 'INPUT #1,N$' HAALT DE STRINGS VAN DE.T....". CASSETTE, REGEL 65 PRINT OP 'T SCHERM.":.1310......"........ '(ST )>0' TEST OP HET EIND VAN HET FILE".<... .". OM EEN FOUT TE VOORKOMEN. ".T....Q1,0:.".. .KUN JE HET 'N BEETJ E VOLGEN ?. "......Q$:.Q$."".1210 ...D..Q$.."J".830.F.N.."....... WIL JE D E HELE LES NOG 'N KEER.Z.X..". DOORNEMEN ?......Q$:.Q$."".1250......Q$."N".1280. ......B....".... IK LAAD NU DE VOLGENDE LES VOOR JE,":.". LES 8..X....198,1:.6 31,131:.......Q1,0:."................... ..... ..VOOR VERDER: DRUK OP RETUR N...(..Q$:.Q$."".1320...2.....
> CLICK IMAGE PREVIEW FOR FULL MODAL