BASIC 7
FILE INFORMATION
FILENAME(S): BASIC 7
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 21:07:01
APPEARS ON: 1 disk(s)
FILE HASH
669bb0b4ec0ffcca37726a60947068c130df8d554b77cb751559ea1e16828417
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HBMD OSS 01 | BASIC 7 | PRG | DuncanTwain | 31 | 0 | 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 5D 08 69 00 99 22 93 2A 2A 2A 2A 2A 2A 2A 2A |.].i..".********| 00000030: 20 42 41 53 49 43 20 43 55 52 53 55 53 20 2A 2A | BASIC CURSUS **| 00000040: 2A 20 4C 45 53 20 37 20 2A 2A 2A 2A 2A 2A 2A 2A |* LES 7 ********| 00000050: 22 3A 81 49 B2 31 A4 35 30 30 30 3A 82 00 69 08 |":.I.1.5000:..i.| 00000060: 6E 00 99 C7 28 31 34 32 29 00 9A 08 78 00 99 22 |n...(142)...x.."| 00000070: 93 1C 20 45 52 20 5A 49 4A 4E 20 4E 4F 47 20 45 |.. ER ZIJN NOG E| 00000080: 45 4E 20 41 41 4E 54 41 4C 20 48 41 4E 44 49 47 |EN AANTAL HANDIG| 00000090: 45 20 46 55 4E 4B 54 49 45 53 00 C7 08 82 00 99 |E FUNKTIES......| 000000A0: 22 11 11 90 20 12 49 4E 54 92 1C 20 20 49 53 20 |"... .INT.. IS | 000000B0: 45 45 4E 20 53 49 4D 50 45 4C 20 53 54 41 54 45 |EEN SIMPEL STATE| 000000C0: 4D 45 4E 54 20 4F 4D 00 F4 08 8C 00 99 22 11 20 |MENT OM......". | 000000D0: 4F 4E 4E 4F 44 49 47 45 20 43 49 4A 46 45 52 53 |ONNODIGE CIJFERS| 000000E0: 20 41 43 48 54 45 52 20 44 45 20 4B 4F 4D 4D 41 | ACHTER DE KOMMA| 000000F0: 20 57 45 47 00 3D 09 96 00 99 22 11 20 54 45 20 | WEG.=....". TE | 00000100: 57 45 52 4B 45 4E 20 49 4E 20 45 45 4E 20 50 52 |WERKEN IN EEN PR| 00000110: 49 4E 54 20 53 54 41 54 45 4D 45 4E 54 2E 20 20 |INT STATEMENT. | 00000120: 20 20 20 20 20 11 1F 20 20 20 20 20 20 20 44 55 | .. DU| 00000130: 53 20 41 4C 53 20 55 3D 35 2E 39 34 37 00 82 09 |S ALS U=5.947...| 00000140: A0 00 99 22 11 20 45 4E 20 57 45 20 5A 45 47 47 |...". EN WE ZEGG| 00000150: 45 4E 20 44 41 4E 3A 20 20 20 20 20 20 20 20 20 |EN DAN: | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 11 20 | . | 00000170: 20 20 20 20 20 20 50 52 49 4E 54 20 49 4E 54 28 | PRINT INT(| 00000180: 55 29 00 C5 09 AA 00 99 22 11 20 44 41 4E 20 4B |U)......". DAN K| 00000190: 4F 4D 54 20 4F 50 20 48 45 54 20 53 43 48 45 52 |OMT OP HET SCHER| 000001A0: 4D 20 27 54 20 52 45 53 55 4C 54 41 41 54 3A 20 |M 'T RESULTAAT: | 000001B0: 20 20 20 11 20 20 20 20 20 20 27 35 27 2E 22 3A | . '5'.":| 000001C0: 8D 31 33 31 30 00 F5 09 B4 00 99 22 93 1F 20 4F |.1310......".. O| 000001D0: 4F 4B 20 4B 55 4E 20 4A 45 20 4D 45 54 20 27 49 |OK KUN JE MET 'I| 000001E0: 4E 54 27 20 41 4C 4C 45 45 4E 20 44 45 20 43 49 |NT' ALLEEN DE CI| 000001F0: 4A 46 45 52 53 00 1B 0A BE 00 99 22 11 20 41 43 |JFERS......". AC| 00000200: 48 54 45 52 20 44 45 20 4B 4F 4D 4D 41 20 45 52 |HTER DE KOMMA ER| 00000210: 20 55 49 54 20 48 41 4C 45 4E 2E 00 56 0A C8 00 | UIT HALEN..V...| 00000220: 99 22 11 05 20 20 20 31 30 20 55 3D 35 2E 39 34 |.".. 10 U=5.94| 00000230: 37 22 3A 99 22 20 20 20 32 30 20 55 3D 55 2D 49 |7":." 20 U=U-I| 00000240: 4E 54 28 55 29 22 3A 99 22 20 20 20 33 30 20 50 |NT(U)":." 30 P| 00000250: 52 49 4E 54 20 55 00 7F 0A D2 00 99 22 11 1F 20 |RINT U......".. | 00000260: 49 4E 20 44 49 54 20 47 45 56 41 4C 20 49 53 20 |IN DIT GEVAL IS | 00000270: 44 45 20 55 49 54 4F 4D 53 54 20 2E 39 34 37 00 |DE UITOMST .947.| 00000280: B1 0A DC 00 99 22 11 11 90 20 4C 45 54 20 57 45 |....."... LET WE| 00000290: 4C 3A 27 55 27 20 49 53 20 48 49 45 52 20 4F 4F |L:'U' IS HIER OO| 000002A0: 4B 20 45 43 48 54 20 56 45 52 41 4E 44 45 52 44 |K ECHT VERANDERD| 000002B0: 2E 00 DC 0A E6 00 99 22 20 49 4E 20 48 45 54 20 |......." IN HET | 000002C0: 56 4F 52 49 47 45 20 56 4F 4F 52 42 45 45 4C 44 |VORIGE VOORBEELD| 000002D0: 20 57 45 52 44 20 41 4C 4C 45 45 4E 00 09 0B F0 | WERD ALLEEN....| 000002E0: 00 99 22 11 20 4D 41 41 52 20 45 45 4E 20 44 45 |..". MAAR EEN DE| 000002F0: 45 4C 20 56 41 4E 20 48 45 54 20 47 45 54 41 4C |EL VAN HET GETAL| 00000300: 20 47 45 50 52 49 4E 54 21 00 33 0B FA 00 99 22 | GEPRINT!.3...."| 00000310: 11 20 4F 4F 4B 20 48 49 45 52 20 4B 41 4E 20 44 |. OOK HIER KAN D| 00000320: 41 54 3A 20 28 52 45 47 45 4C 20 32 30 20 57 45 |AT: (REGEL 20 WE| 00000330: 47 21 29 00 56 0B 04 01 99 22 11 05 20 20 33 30 |G!).V....".. 30| 00000340: 20 50 52 49 4E 54 20 55 2D 49 4E 54 28 55 29 22 | PRINT U-INT(U)"| 00000350: 3A 8D 31 33 31 30 00 7F 0B 0E 01 99 22 93 95 20 |:.1310......".. | 00000360: 48 45 54 20 4B 41 4E 20 53 4F 4D 53 20 48 41 4E |HET KAN SOMS HAN| 00000370: 44 49 47 20 5A 49 4A 4E 20 4F 4D 20 45 45 4E 00 |DIG ZIJN OM EEN.| 00000380: AB 0B 18 01 99 22 11 20 57 49 4C 4C 45 4B 45 55 |.....". WILLEKEU| 00000390: 52 49 47 20 47 45 54 41 4C 20 54 45 20 47 45 4E |RIG GETAL TE GEN| 000003A0: 45 52 45 4E 20 42 56 2E 20 49 4E 00 CF 0B 22 01 |EREN BV. IN...".| 000003B0: 99 22 11 20 53 50 45 4C 4C 45 54 4A 45 53 20 41 |.". SPELLETJES A| 000003C0: 4C 53 20 4B 41 4E 53 2D 46 41 4B 54 4F 52 2E 00 |LS KANS-FAKTOR..| 000003D0: FC 0B 2C 01 99 22 11 1F 20 48 49 45 52 49 4E 20 |..,..".. HIERIN | 000003E0: 49 53 20 56 4F 4F 52 5A 49 45 4E 20 4D 45 54 20 |IS VOORZIEN MET | 000003F0: 48 45 54 20 43 4F 4D 4D 41 4E 44 4F 00 0D 0C 36 |HET COMMANDO...6| 00000400: 01 99 22 11 90 20 20 20 20 20 52 4E 44 00 27 0C |..".. RND.'.| 00000410: 40 01 99 22 11 11 20 20 20 20 20 50 52 49 4E 54 |@..".. PRINT| 00000420: 20 52 4E 44 28 31 29 00 50 0C 4A 01 99 22 11 1F | RND(1).P.J.."..| 00000430: 20 47 45 4E 45 52 45 45 52 44 20 45 45 4E 20 57 | GENEREERD EEN W| 00000440: 49 4C 4C 45 4B 45 55 52 49 47 20 47 45 54 41 4C |ILLEKEURIG GETAL| 00000450: 00 79 0C 54 01 99 22 11 20 54 55 53 53 45 4E 20 |.y.T..". TUSSEN | 00000460: 20 30 20 20 45 4E 20 20 2E 39 39 39 39 39 39 39 | 0 EN .9999999| 00000470: 39 39 22 3A 8D 31 33 31 30 00 A6 0C 5E 01 99 22 |99":.1310...^.."| 00000480: 93 1C 20 12 52 4E 44 92 20 53 41 4D 45 4E 20 4D |.. .RND. SAMEN M| 00000490: 45 54 20 12 49 4E 54 92 20 47 45 45 46 54 20 50 |ET .INT. GEEFT P| 000004A0: 41 53 20 45 45 4E 00 BF 0C 68 01 99 22 11 20 42 |AS EEN...h..". B| 000004B0: 52 55 49 4B 42 41 41 52 20 47 45 54 41 4C 3A 00 |RUIKBAAR GETAL:.| 000004C0: 08 0D 72 01 99 22 11 11 90 20 20 20 50 52 49 4E |..r.."... PRIN| 000004D0: 54 20 49 4E 54 28 52 4E 44 28 31 29 2A 31 30 29 |T INT(RND(1)*10)| 000004E0: 2B 31 22 3A 99 22 11 11 20 1C 47 45 45 46 54 20 |+1":.".. .GEEFT | 000004F0: 45 45 4E 20 47 45 54 41 4C 20 54 55 53 53 45 4E |EEN GETAL TUSSEN| 00000500: 20 31 20 45 4E 20 31 30 00 3D 0D 7C 01 99 22 11 | 1 EN 10.=.|..".| 00000510: 11 95 20 42 56 2E 20 52 4E 44 28 31 29 3D 2E 35 |.. BV. RND(1)=.5| 00000520: 39 34 37 32 37 39 36 37 22 3A 99 22 11 20 2A 31 |94727967":.". *1| 00000530: 30 3D 35 2E 39 34 37 32 37 39 36 37 22 00 5F 0D |0=5.94727967"._.| 00000540: 86 01 99 22 11 20 49 4E 54 3D 35 3B 20 20 2B 31 |...". INT=5; +1| 00000550: 3D 20 20 12 36 92 20 21 22 3A 8D 31 33 31 30 00 |= .6. !":.1310.| 00000560: 90 0D 90 01 99 22 93 1F 20 4D 45 54 20 12 41 42 |.....".. MET .AB| 00000570: 53 92 20 56 45 52 4D 49 4A 44 45 4E 20 57 45 20 |S. VERMIJDEN WE | 00000580: 48 45 54 20 4D 49 4E 54 45 4B 45 4E 20 56 41 4E |HET MINTEKEN VAN| 00000590: 00 B0 0D 9A 01 99 22 11 20 45 45 4E 20 4E 45 47 |......". EEN NEG| 000005A0: 41 54 49 45 56 45 20 55 49 54 4B 4F 4D 53 54 2E |ATIEVE UITKOMST.| 000005B0: 00 E2 0D A4 01 99 22 11 11 11 05 20 44 45 20 41 |......".... DE A| 000005C0: 42 53 4F 4C 55 54 45 20 57 41 41 52 44 45 20 56 |BSOLUTE WAARDE V| 000005D0: 41 4E 20 58 20 4B 52 49 4A 47 20 4A 45 20 4D 45 |AN X KRIJG JE ME| 000005E0: 54 3A 00 08 0E AE 01 99 22 11 11 90 20 20 20 20 |T:......"... | 000005F0: 20 20 50 52 49 4E 54 20 41 42 53 28 58 29 11 11 | PRINT ABS(X)..| 00000600: 11 22 3A 8D 31 33 31 30 00 39 0E B8 01 99 22 93 |.":.1310.9....".| 00000610: 95 20 12 53 47 4E 92 20 4B 49 4A 4B 54 20 4F 46 |. .SGN. KIJKT OF| 00000620: 20 44 45 20 55 49 54 4B 4F 4D 53 54 20 4E 45 47 | DE UITKOMST NEG| 00000630: 41 54 49 45 46 20 49 53 2C 00 63 0E C2 01 99 22 |ATIEF IS,.c...."| 00000640: 11 20 50 4F 53 49 54 49 45 46 20 49 53 20 4F 46 |. POSITIEF IS OF| 00000650: 20 47 45 57 4F 4F 4E 20 30 20 28 4E 55 4C 29 20 | GEWOON 0 (NUL) | 00000660: 49 53 2E 00 7D 0E CC 01 99 A3 31 32 29 22 11 11 |IS..}.....12)"..| 00000670: 90 50 52 49 4E 54 20 53 47 4E 28 58 29 00 BC 0E |.PRINT SGN(X)...| 00000680: D6 01 99 22 11 11 95 20 47 45 45 46 54 20 41 4C |..."... GEEFT AL| 00000690: 53 20 52 45 53 55 4C 54 41 41 54 3A 22 3A 99 22 |S RESULTAAT:":."| 000006A0: 11 11 11 20 27 31 27 20 20 20 20 05 41 4C 53 20 |... '1' .ALS | 000006B0: 58 20 50 4F 53 49 54 49 45 46 2D 2C 00 E0 0E E0 |X POSITIEF-,....| 000006C0: 01 99 22 11 95 20 27 2D 31 27 20 20 05 20 41 4C |..".. '-1' . AL| 000006D0: 53 20 58 20 4E 45 47 41 54 49 45 46 2D 20 45 4E |S X NEGATIEF- EN| 000006E0: 00 0A 0F EA 01 99 22 11 95 20 27 30 27 20 20 05 |......".. '0' .| 000006F0: 20 20 41 4C 53 20 58 20 30 20 28 4E 55 4C 29 20 | ALS X 0 (NUL) | 00000700: 49 53 2E 22 3A 8D 31 33 31 30 00 2C 0F F4 01 99 |IS.":.1310.,....| 00000710: 22 93 05 20 47 4F 4E 49 4F 4D 45 54 52 49 53 43 |".. GONIOMETRISC| 00000720: 48 45 20 46 55 4E 43 54 49 45 53 3A 00 54 0F FE |HE FUNCTIES:.T..| 00000730: 01 99 22 11 95 20 53 49 4E 28 41 29 2C 20 43 4F |..".. SIN(A), CO| 00000740: 53 28 41 29 2C 20 54 41 4E 28 41 29 2C 20 41 54 |S(A), TAN(A), AT| 00000750: 4E 28 41 29 00 79 0F 08 02 99 22 11 11 20 53 49 |N(A).y....".. SI| 00000760: 4E 20 3D 20 53 49 4E 55 53 2C 20 43 4F 53 20 3D |N = SINUS, COS =| 00000770: 20 43 4F 53 49 4E 55 53 2C 00 A4 0F 12 02 99 22 | COSINUS,......"| 00000780: 11 20 54 41 4E 20 3D 20 54 41 4E 47 45 4E 53 2C |. TAN = TANGENS,| 00000790: 20 41 4E 44 20 41 54 4E 20 3D 20 43 4F 54 41 4E | AND ATN = COTAN| 000007A0: 47 45 4E 53 00 DC 0F 1C 02 99 22 11 11 90 20 4E |GENS......"... N| 000007B0: 2E 42 2E 20 31 20 52 41 44 49 41 41 4C 20 49 53 |.B. 1 RADIAAL IS| 000007C0: 20 31 38 30 2F FF 20 20 28 35 37 2E 33 20 47 52 | 180/. (57.3 GR| 000007D0: 41 44 45 4E 29 22 3A 8D 31 33 31 30 00 0D 10 26 |ADEN)":.1310...&| 000007E0: 02 99 22 93 90 20 4C 4F 47 28 45 29 20 47 45 45 |..".. LOG(E) GEE| 000007F0: 46 54 20 48 45 54 20 4E 41 54 55 55 52 4C 49 4A |FT HET NATUURLIJ| 00000800: 4B 45 20 4C 4F 47 41 52 49 54 48 4D 45 00 38 10 |KE LOGARITHME.8.| 00000810: 30 02 99 22 05 20 45 58 50 28 41 29 20 47 45 45 |0..". EXP(A) GEE| 00000820: 46 54 20 48 45 54 20 47 45 54 41 4C 20 55 49 54 |FT HET GETAL UIT| 00000830: 20 27 4E 20 4C 4F 47 2E 00 64 10 3A 02 99 22 11 | 'N LOG..d.:..".| 00000840: 11 1F 20 44 45 5A 45 20 54 57 45 45 20 4B 55 4E |.. DEZE TWEE KUN| 00000850: 20 4A 45 20 4E 45 54 20 5A 4F 20 54 4F 45 50 41 | JE NET ZO TOEPA| 00000860: 53 53 45 4E 00 90 10 44 02 99 22 11 20 41 4C 53 |SSEN...D..". ALS| 00000870: 20 48 45 54 20 44 45 43 49 4D 41 41 4C 20 4C 4F | HET DECIMAAL LO| 00000880: 47 41 52 49 54 48 4D 45 2E 22 3A 8D 31 33 31 30 |GARITHME.":.1310| 00000890: 00 A5 10 4E 02 99 22 93 1C 22 A3 31 34 29 22 27 |...N.."..".14)"'| 000008A0: 53 41 56 45 27 00 D4 10 58 02 99 22 11 9E 20 4D |SAVE'...X..".. M| 000008B0: 45 54 20 44 49 54 20 43 4F 4D 4D 41 4E 44 4F 20 |ET DIT COMMANDO | 000008C0: 4B 55 4E 20 4A 45 20 45 45 4E 20 50 52 4F 47 52 |KUN JE EEN PROGR| 000008D0: 41 4D 4D 41 00 01 11 62 02 99 22 11 20 4F 50 20 |AMMA...b..". OP | 000008E0: 44 45 20 43 41 53 53 45 54 54 45 20 42 45 57 41 |DE CASSETTE BEWA| 000008F0: 52 45 4E 2C 20 4D 45 54 20 45 56 54 2E 20 45 45 |REN, MET EVT. EE| 00000900: 4E 00 2F 11 6C 02 99 22 11 20 4E 41 41 4D 20 45 |N./.l..". NAAM E| 00000910: 52 20 42 49 4A 3B 20 20 54 59 50 3A 22 3A 99 22 |R BIJ; TYP:":."| 00000920: 11 1F 20 20 20 53 41 56 45 20 20 20 20 4F 46 00 |.. SAVE OF.| 00000930: 58 11 76 02 99 22 11 20 20 20 53 41 56 45 20 22 |X.v..". SAVE "| 00000940: C7 28 33 34 29 22 42 41 53 49 43 20 43 55 52 53 |.(34)"BASIC CURS| 00000950: 55 53 22 C7 28 33 34 29 00 6D 11 80 02 99 22 11 |US".(34).m....".| 00000960: 9E 20 49 4B 20 5A 45 47 20 44 41 4E 3A 00 94 11 |. IK ZEG DAN:...| 00000970: 8A 02 99 22 11 90 20 20 20 50 52 45 53 53 20 50 |...".. PRESS P| 00000980: 4C 41 59 20 26 20 52 45 43 4F 52 44 20 4F 4E 20 |LAY & RECORD ON | 00000990: 54 41 50 45 00 C2 11 94 02 99 22 11 11 9E 20 41 |TAPE......"... A| 000009A0: 4C 53 20 4E 41 41 4D 20 4D 41 47 20 4A 45 20 41 |LS NAAM MAG JE A| 000009B0: 4C 4C 45 53 20 47 45 42 52 55 49 4B 45 4E 20 54 |LLES GEBRUIKEN T| 000009C0: 4F 54 00 F2 11 9E 02 99 22 11 20 4D 41 58 2E 20 |OT......". MAX. | 000009D0: 31 36 20 54 45 4B 45 4E 53 2C 20 54 55 53 53 45 |16 TEKENS, TUSSE| 000009E0: 4E 20 41 41 4E 48 41 4C 49 4E 47 53 54 45 4B 45 |N AANHALINGSTEKE| 000009F0: 4E 53 00 22 12 A8 02 99 22 20 42 45 48 41 4C 56 |NS."...." BEHALV| 00000A00: 45 20 48 45 54 20 41 41 4E 48 41 4C 49 4E 47 53 |E HET AANHALINGS| 00000A10: 54 45 4B 45 4E 20 5A 45 4C 46 21 22 3A 8D 31 33 |TEKEN ZELF!":.13| 00000A20: 31 30 00 39 12 B2 02 99 22 93 1F 22 A3 31 31 29 |10.9...."..".11)| 00000A30: 22 27 56 45 52 49 46 59 27 00 63 12 BC 02 99 22 |"'VERIFY'.c...."| 00000A40: 11 20 48 49 45 52 4D 45 45 20 4B 55 4E 20 4A 45 |. HIERMEE KUN JE| 00000A50: 20 43 4F 4E 54 52 4F 4C 45 52 45 4E 20 4F 46 20 | CONTROLEREN OF | 00000A60: 48 45 54 00 9D 12 C6 02 99 22 11 20 50 52 4F 47 |HET......". PROG| 00000A70: 52 41 4D 4D 41 20 47 4F 45 44 20 4F 50 20 44 45 |RAMMA GOED OP DE| 00000A80: 20 43 41 53 53 45 54 54 45 20 49 53 20 20 20 20 | CASSETTE IS | 00000A90: 20 20 20 20 11 47 45 4B 4F 4D 45 4E 2E 00 D8 12 | .GEKOMEN....| 00000AA0: D0 02 99 22 11 1C 20 53 50 4F 45 4C 20 44 45 20 |...".. SPOEL DE | 00000AB0: 43 41 53 53 45 54 54 45 20 54 45 52 55 47 20 45 |CASSETTE TERUG E| 00000AC0: 4E 20 54 59 50 22 3A 99 22 11 90 20 20 20 20 20 |N TYP":.".. | 00000AD0: 27 56 45 52 49 46 59 27 00 05 13 DA 02 99 22 11 |'VERIFY'......".| 00000AE0: 1C 20 4A 45 20 4D 41 47 20 44 41 41 52 20 41 43 |. JE MAG DAAR AC| 00000AF0: 48 54 45 52 20 4F 4F 4B 20 57 45 45 52 20 27 4E |HTER OOK WEER 'N| 00000B00: 20 4E 41 41 4D 00 4C 13 E4 02 99 22 11 20 47 45 | NAAM.L....". GE| 00000B10: 56 45 4E 2C 20 41 4C 53 20 45 52 20 4D 45 45 52 |VEN, ALS ER MEER| 00000B20: 44 45 52 45 20 50 52 4F 47 52 41 4D 4D 41 27 53 |DERE PROGRAMMA'S| 00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B40: 20 20 20 20 C5 C5 C5 C5 C5 C5 C5 C5 00 75 13 EE | .........u..| 00000B50: 02 99 22 20 4F 50 20 45 45 4E 20 43 41 53 53 45 |.." OP EEN CASSE| 00000B60: 54 54 45 20 56 4F 4F 52 4B 4F 4D 45 4E 2E 22 3A |TTE VOORKOMEN.":| 00000B70: 8D 31 33 31 30 00 A4 13 F8 02 99 22 93 90 20 49 |.1310......".. I| 00000B80: 4B 20 5A 4F 45 4B 20 48 45 54 20 50 52 4F 47 52 |K ZOEK HET PROGR| 00000B90: 41 4D 4D 41 20 4F 50 20 45 4E 20 56 45 52 47 45 |AMMA OP EN VERGE| 00000BA0: 4C 49 4A 4B 00 D2 13 02 03 99 22 11 20 48 45 54 |LIJK......". HET| 00000BB0: 20 4D 45 54 20 44 41 54 20 57 41 54 20 49 4E 20 | MET DAT WAT IN | 00000BC0: 4D 49 4A 4E 20 47 45 48 45 55 47 45 4E 20 5A 49 |MIJN GEHEUGEN ZI| 00000BD0: 54 2E 00 F7 13 0C 03 99 22 11 9B 20 49 4B 20 5A |T.......".. IK Z| 00000BE0: 45 47 20 27 4F 4B 27 20 41 4C 53 20 48 45 54 20 |EG 'OK' ALS HET | 00000BF0: 47 4F 45 44 20 49 53 00 23 14 16 03 99 22 11 20 |GOED IS.#....". | 00000C00: 45 4E 20 27 3F 56 45 52 49 46 59 20 45 52 52 4F |EN '?VERIFY ERRO| 00000C10: 52 27 20 41 4C 53 20 48 45 54 20 46 4F 55 54 20 |R' ALS HET FOUT | 00000C20: 49 53 2E 00 52 14 20 03 99 22 11 11 1F 20 53 4F |IS..R. .."... SO| 00000C30: 4D 53 20 4B 41 4E 20 48 49 45 52 20 45 45 4E 20 |MS KAN HIER EEN | 00000C40: 4D 41 47 4E 45 54 49 53 43 48 45 20 4B 4F 50 20 |MAGNETISCHE KOP | 00000C50: 44 45 00 81 14 2A 03 99 22 11 20 4F 4F 52 5A 41 |DE...*..". OORZA| 00000C60: 41 4B 20 56 41 4E 20 5A 49 4A 4E 2C 20 4A 45 20 |AK VAN ZIJN, JE | 00000C70: 4D 4F 45 54 20 48 45 4D 20 44 41 4E 20 45 56 45 |MOET HEM DAN EVE| 00000C80: 4E 00 B8 14 34 03 99 22 11 20 44 45 4D 41 47 4E |N...4..". DEMAGN| 00000C90: 45 54 49 53 45 52 45 4E 20 4F 46 20 4C 41 54 45 |ETISEREN OF LATE| 00000CA0: 4E 20 44 45 4D 41 47 4E 45 54 49 53 45 52 45 4E |N DEMAGNETISEREN| 00000CB0: 21 22 3A 8D 31 33 31 30 00 D6 14 3E 03 99 22 93 |!":.1310...>..".| 00000CC0: 95 22 A3 31 31 29 22 27 43 41 53 53 45 54 54 45 |.".11)"'CASSETTE| 00000CD0: 20 46 49 4C 45 53 00 0C 15 48 03 99 22 11 20 48 | FILES...H..". H| 00000CE0: 45 54 20 43 4F 4D 4D 41 4E 44 4F 20 4F 4D 20 49 |ET COMMANDO OM I| 00000CF0: 4E 20 45 45 4E 20 46 49 4C 45 20 54 45 20 4B 55 |N EEN FILE TE KU| 00000D00: 4E 4E 45 4E 20 20 20 11 49 53 20 3A 00 23 15 52 |NNEN .IS :.#.R| 00000D10: 03 99 A3 31 31 29 22 11 90 4F 50 45 4E 20 31 2C |...11)"..OPEN 1,| 00000D20: 31 2C 30 00 50 15 5C 03 99 22 11 95 20 44 45 20 |1,0.P.\..".. DE | 00000D30: 45 45 52 53 54 45 20 27 31 27 20 49 53 20 48 45 |EERSTE '1' IS HE| 00000D40: 54 20 4E 55 4D 4D 45 52 20 28 31 2D 32 35 35 29 |T NUMMER (1-255)| 00000D50: 00 7D 15 66 03 99 22 11 20 44 45 20 54 57 45 45 |.}.f..". DE TWEE| 00000D60: 44 45 20 49 53 20 44 45 20 43 41 53 53 45 54 54 |DE IS DE CASSETT| 00000D70: 45 52 45 43 4F 52 44 45 52 20 41 4C 53 00 92 15 |ERECORDER ALS...| 00000D80: 70 03 99 22 11 20 46 49 4C 45 2D 44 45 56 49 43 |p..". FILE-DEVIC| 00000D90: 45 2E 00 C9 15 7A 03 99 22 11 1F 20 44 45 20 30 |E....z..".. DE 0| 00000DA0: 20 57 49 4C 20 5A 45 47 47 45 4E 20 27 4C 45 5A | WIL ZEGGEN 'LEZ| 00000DB0: 45 4E 27 2C 20 31 3D 20 53 43 48 52 49 4A 56 45 |EN', 1= SCHRIJVE| 00000DC0: 4E 2E 22 3A 8D 31 33 31 30 00 F9 15 84 03 99 22 |N.":.1310......"| 00000DD0: 93 1F 20 45 45 4E 20 56 4F 4F 52 42 45 45 4C 44 |.. EEN VOORBEELD| 00000DE0: 20 56 41 4E 20 45 45 4E 20 46 49 4C 45 20 50 52 | VAN EEN FILE PR| 00000DF0: 4F 47 52 41 4D 4D 41 3A 11 00 36 16 8E 03 99 22 |OGRAMMA:..6...."| 00000E00: 05 20 31 30 20 50 52 49 4E 54 20 22 C7 28 33 34 |. 10 PRINT ".(34| 00000E10: 29 22 44 4F 45 20 45 45 4E 20 44 41 54 41 20 43 |)"DOE EEN DATA C| 00000E20: 41 53 53 45 54 54 45 20 49 4E 20 44 45 20 52 45 |ASSETTE IN DE RE| 00000E30: 43 4F 52 44 45 52 00 6C 16 98 03 99 22 20 32 30 |CORDER.l...." 20| 00000E40: 20 50 52 49 4E 54 20 22 C7 28 33 34 29 22 44 52 | PRINT ".(34)"DR| 00000E50: 55 4B 20 4F 50 20 27 4E 20 54 4F 45 54 53 20 4F |UK OP 'N TOETS O| 00000E60: 4D 20 54 45 20 53 54 41 52 54 45 4E 00 95 16 A2 |M TE STARTEN....| 00000E70: 03 99 22 20 33 30 20 47 45 54 20 41 24 3A 49 46 |.." 30 GET A$:IF| 00000E80: 41 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 22 47 |A$=".(34).(34)"G| 00000E90: 4F 54 4F 33 30 00 D2 16 AC 03 99 22 20 34 30 20 |OTO30......" 40 | 00000EA0: 4F 50 45 4E 20 31 2C 31 2C 31 22 3A 99 22 20 35 |OPEN 1,1,1":." 5| 00000EB0: 30 20 49 4E 50 55 54 22 C7 28 33 34 29 22 57 45 |0 INPUT".(34)"WE| 00000EC0: 4C 4B 45 20 4E 41 41 4D 22 C7 28 33 34 29 22 3B |LKE NAAM".(34)";| 00000ED0: 4E 24 00 FB 16 B6 03 99 22 20 35 35 20 49 46 20 |N$......" 55 IF | 00000EE0: 4E 24 3D 22 C7 28 33 34 29 22 53 54 4F 50 22 C7 |N$=".(34)"STOP".| 00000EF0: 28 33 34 29 22 47 4F 54 4F 38 30 00 3A 17 C0 03 |(34)"GOTO80.:...| 00000F00: 99 22 20 36 30 20 49 46 20 4C 45 4E 28 4E 24 29 |." 60 IF LEN(N$)| 00000F10: 3E 37 39 54 48 45 4E 20 50 52 49 4E 54 22 C7 28 |>79THEN PRINT".(| 00000F20: 33 34 29 22 54 45 20 4C 41 4E 47 21 22 C7 28 33 |34)"TE LANG!".(3| 00000F30: 34 29 22 3A 47 4F 54 4F 35 30 00 56 17 CA 03 99 |4)":GOTO50.V....| 00000F40: 22 20 37 30 20 50 52 49 4E 54 23 31 2C 4E 24 3A |" 70 PRINT#1,N$:| 00000F50: 47 4F 54 4F 35 30 00 68 17 D4 03 99 22 20 38 30 |GOTO50.h...." 80| 00000F60: 20 43 4C 4F 53 45 20 31 00 A4 17 DE 03 99 22 20 | CLOSE 1......" | 00000F70: 39 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 46 |90 PRINT".(34)"F| 00000F80: 49 4C 45 20 47 45 52 45 45 44 2C 20 41 55 42 2E |ILE GEREED, AUB.| 00000F90: 20 54 45 52 55 47 20 53 50 4F 45 4C 45 4E 22 C7 | TERUG SPOELEN".| 00000FA0: 28 33 34 29 00 DA 17 E8 03 99 22 11 1F 20 44 45 |(34)......".. DE| 00000FB0: 20 44 45 52 44 45 20 31 20 28 34 30 29 20 5A 45 | DERDE 1 (40) ZE| 00000FC0: 47 54 20 44 55 53 20 27 53 43 48 52 49 4A 56 45 |GT DUS 'SCHRIJVE| 00000FD0: 4E 27 2E 22 3A 8D 31 33 31 30 00 15 18 F2 03 99 |N'.":.1310......| 00000FE0: 22 90 11 11 91 91 91 91 91 91 91 91 91 20 27 50 |"............ 'P| 00000FF0: 52 49 4E 54 23 31 2C 4E 24 27 20 42 45 54 45 4B |RINT#1,N$' BETEK| 00001000: 45 4E 44 20 50 52 49 4E 54 20 4F 50 20 43 41 53 |END PRINT OP CAS| 00001010: 53 45 54 54 45 00 43 18 FC 03 99 22 20 49 4E 20 |SETTE.C...." IN | 00001020: 46 49 4C 45 20 4E 55 4D 4D 45 52 20 31 2E 20 20 |FILE NUMMER 1. | 00001030: 4E 24 20 49 53 20 27 4E 20 56 41 52 49 41 42 45 |N$ IS 'N VARIABE| 00001040: 4C 45 2E 00 71 18 06 04 99 22 11 20 52 45 47 45 |LE..q....". REGE| 00001050: 4C 20 36 30 20 4B 49 4A 4B 54 20 4F 46 20 4E 24 |L 60 KIJKT OF N$| 00001060: 20 4E 49 45 54 20 54 45 20 4C 41 4E 47 20 49 53 | NIET TE LANG IS| 00001070: 2E 00 A3 18 10 04 99 22 11 20 52 45 47 45 4C 20 |.......". REGEL | 00001080: 39 30 20 4D 45 4C 44 54 20 44 41 54 20 49 4B 20 |90 MELDT DAT IK | 00001090: 4B 4C 41 41 52 20 42 45 4E 2E 20 20 22 3A 8D 31 |KLAAR BEN. ":.1| 000010A0: 33 31 30 00 DE 18 1A 04 99 22 91 91 91 91 91 91 |310......"......| 000010B0: 91 91 91 1C 20 4A 45 20 4D 4F 45 54 20 41 4C 54 |.... JE MOET ALT| 000010C0: 49 4A 44 20 27 54 20 48 45 4C 45 20 57 4F 4F 52 |IJD 'T HELE WOOR| 000010D0: 44 20 27 50 52 49 4E 54 27 20 20 20 22 3B 00 0E |D 'PRINT' ";..| 000010E0: 19 24 04 99 22 11 20 54 59 50 45 4E 20 41 4C 53 |.$..". TYPEN ALS| 000010F0: 20 4A 45 20 23 20 47 45 42 52 55 49 4B 54 3B 20 | JE # GEBRUIKT; | 00001100: 54 59 50 20 4E 4F 4F 49 54 20 27 3F 23 27 00 3C |TYP NOOIT '?#'.<| 00001110: 19 2E 04 81 58 58 B2 31 A4 32 3A 81 58 B2 31 A4 |....XX.1.2:.X.1.| 00001120: 34 30 3A 99 22 20 22 3B 3A 82 58 3A 99 3A 82 58 |40:." ";:.X:.:.X| 00001130: 58 3A 99 22 91 22 3A 8D 31 33 32 30 00 66 19 38 |X:.".":.1320.f.8| 00001140: 04 99 22 93 1F 20 4F 4D 20 44 45 20 49 4E 48 4F |..".. OM DE INHO| 00001150: 55 44 20 57 45 45 52 20 54 45 52 55 47 20 54 45 |UD WEER TERUG TE| 00001160: 20 5A 49 45 4E 3A 00 A2 19 42 04 99 22 11 11 05 | ZIEN:...B.."...| 00001170: 20 31 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 | 10 PRINT".(34)"| 00001180: 44 4F 45 20 44 45 20 44 41 54 41 43 41 53 53 45 |DOE DE DATACASSE| 00001190: 54 54 45 20 49 4E 20 44 45 20 52 45 43 4F 52 44 |TTE IN DE RECORD| 000011A0: 45 52 00 D7 19 4C 04 99 22 20 32 30 20 50 52 49 |ER...L.." 20 PRI| 000011B0: 4E 54 22 C7 28 33 34 29 22 44 52 55 4B 20 4F 50 |NT".(34)"DRUK OP| 000011C0: 20 27 4E 20 54 4F 45 54 53 20 4F 4D 20 54 45 20 | 'N TOETS OM TE | 000011D0: 53 54 41 52 54 45 4E 00 01 1A 56 04 99 22 20 33 |STARTEN...V.." 3| 000011E0: 30 20 47 45 54 20 41 24 3A 49 46 41 24 3D 22 C7 |0 GET A$:IFA$=".| 000011F0: 28 33 34 29 C7 28 33 34 29 22 47 4F 54 4F 20 33 |(34).(34)"GOTO 3| 00001200: 30 00 16 1A 60 04 99 22 20 34 30 20 4F 50 45 4E |0...`.." 40 OPEN| 00001210: 20 31 2C 31 2C 30 00 52 1A 6A 04 99 22 20 35 30 | 1,1,0.R.j.." 50| 00001220: 20 49 4E 50 55 54 23 31 2C 4E 24 22 3A 99 22 20 | INPUT#1,N$":." | 00001230: 36 30 20 49 46 28 53 54 29 3E 30 47 4F 54 4F 38 |60 IF(ST)>0GOTO8| 00001240: 30 22 3A 99 22 20 36 35 20 50 52 49 4E 54 20 4E |0":." 65 PRINT N| 00001250: 24 3B 00 73 1A 74 04 99 22 20 37 30 20 47 4F 54 |$;.s.t.." 70 GOT| 00001260: 4F 20 35 30 22 3A 99 22 20 38 30 20 43 4C 4F 53 |O 50":." 80 CLOS| 00001270: 45 20 31 00 A9 1A 7E 04 99 22 20 39 30 20 50 52 |E 1...~.." 90 PR| 00001280: 49 4E 54 22 C7 28 33 34 29 22 4B 4C 41 41 52 2C |INT".(34)"KLAAR,| 00001290: 20 41 55 42 2E 20 54 45 52 55 47 20 53 50 4F 45 | AUB. TERUG SPOE| 000012A0: 4C 45 4E 22 C7 28 33 34 29 00 D9 1A 88 04 99 22 |LEN".(34)......"| 000012B0: 11 11 1C 20 27 49 4E 50 55 54 20 23 31 2C 4E 24 |... 'INPUT #1,N$| 000012C0: 27 20 48 41 41 4C 54 20 44 45 20 53 54 52 49 4E |' HAALT DE STRIN| 000012D0: 47 53 20 56 41 4E 20 44 45 00 0F 1B 92 04 99 22 |GS VAN DE......"| 000012E0: 11 20 43 41 53 53 45 54 54 45 2C 20 52 45 47 45 |. CASSETTE, REGE| 000012F0: 4C 20 36 35 20 50 52 49 4E 54 20 4F 50 20 27 54 |L 65 PRINT OP 'T| 00001300: 20 53 43 48 45 52 4D 2E 22 3A 8D 31 33 31 30 00 | SCHERM.":.1310.| 00001310: 46 1B 9C 04 99 22 90 91 91 91 91 91 91 91 20 27 |F...."........ '| 00001320: 28 53 54 29 3E 30 27 20 54 45 53 54 20 4F 50 20 |(ST)>0' TEST OP | 00001330: 48 45 54 20 45 49 4E 44 20 56 41 4E 20 48 45 54 |HET EIND VAN HET| 00001340: 20 46 49 4C 45 22 00 77 1B A6 04 99 22 11 20 4F | FILE".w....". O| 00001350: 4D 20 45 45 4E 20 46 4F 55 54 20 54 45 20 56 4F |M EEN FOUT TE VO| 00001360: 4F 52 4B 4F 4D 45 4E 2E 20 20 20 20 20 20 20 20 |ORKOMEN. | 00001370: 20 20 20 20 20 20 22 00 AF 1B B0 04 97 51 31 2C | "......Q1,| 00001380: 30 3A 99 22 11 11 20 12 4B 55 4E 20 4A 45 20 48 |0:.".. .KUN JE H| 00001390: 45 54 20 27 4E 20 42 45 45 54 4A 45 20 56 4F 4C |ET 'N BEETJE VOL| 000013A0: 47 45 4E 20 3F 92 20 20 20 20 20 20 20 20 22 00 |GEN ?. ".| 000013B0: C3 1B BA 04 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 |.....Q$:.Q$."".1| 000013C0: 32 31 30 00 D4 1B C4 04 8B 51 24 B3 B1 22 4A 22 |210......Q$.."J"| 000013D0: 89 38 33 30 00 01 1C CE 04 99 22 93 11 11 11 11 |.830......".....| 000013E0: 11 1F 20 57 49 4C 20 4A 45 20 44 45 20 48 45 4C |.. WIL JE DE HEL| 000013F0: 45 20 4C 45 53 20 4E 4F 47 20 27 4E 20 4B 45 45 |E LES NOG 'N KEE| 00001400: 52 00 15 1C D8 04 99 22 11 20 44 4F 4F 52 4E 45 |R......". DOORNE| 00001410: 4D 45 4E 20 3F 00 29 1C E2 04 A1 51 24 3A 8B 51 |MEN ?.)....Q$:.Q| 00001420: 24 B2 22 22 A7 31 32 35 30 00 3A 1C EC 04 8B 51 |$."".1250.:....Q| 00001430: 24 B2 22 4E 22 A7 31 32 38 30 00 40 1C F6 04 8A |$."N".1280.@....| 00001440: 00 7E 1C 00 05 99 22 93 11 11 11 20 4C 41 41 44 |.~....".... LAAD| 00001450: 20 4E 55 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 | NU DE VOLGENDE | 00001460: 4C 45 53 3A 20 22 3A 99 22 11 20 4C 45 53 20 38 |LES: ":.". LES 8| 00001470: 2E 22 3A 81 49 B2 31 A4 35 30 30 30 3A 82 00 89 |.":.I.1.5000:...| 00001480: 1C 0A 05 99 22 93 22 3A 80 00 D2 1C 1E 05 97 51 |....".":.......Q| 00001490: 31 2C 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 |1,0:."..........| 000014A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 |.............. | 000014B0: 20 20 20 20 90 12 56 4F 4F 52 20 56 45 52 44 45 | ..VOOR VERDE| 000014C0: 52 3A 20 20 44 52 55 4B 20 4F 50 20 52 45 54 55 |R: DRUK OP RETU| 000014D0: 52 4E 00 E6 1C 28 05 A1 51 24 3A 8B 51 24 B2 22 |RN...(..Q$:.Q$."| 000014E0: 22 A7 31 33 32 30 00 EC 1C 32 05 8E 00 00 00 FF |".1320...2......|
.. .D.Q1.198:.53280,10:.53281,10.].I..".
******** BASIC CURSUS *** LES 7 ********
":.I.1.5000:..I.N..G(142)...X..".. ER ZI
JN NOG EEN AANTAL HANDIGE FUNKTIES.G....
"... .INT.. IS EEN SIMPEL STATEMENT OM.
.....". ONNODIGE CIJFERS ACHTER DE KOMMA
WEG.=....". TE WERKEN IN EEN PRINT STAT
EMENT. .. DUS ALS U=5.947...
..". EN WE ZEGGEN DAN:
. PRINT INT(U).E....". DAN K
OMT OP HET SCHERM 'T RESULTAAT: .
'5'.":.1310......".. OOK KUN JE MET 'I
NT' ALLEEN DE CIJFERS......". ACHTER DE
KOMMA ER UIT HALEN..V.H..".. 10 U=5.94
7":." 20 U=U-INT(U)":." 30 PRINT U.
.R..".. IN DIT GEVAL IS DE UITOMST .947.
....."... LET WEL:'U' IS HIER OOK ECHT V
ERANDERD......." IN HET VORIGE VOORBEELD
WERD ALLEEN......". MAAR EEN DEEL VAN H
ET GETAL GEPRINT!.3....". OOK HIER KAN D
AT: (REGEL 20 WEG!).V....".. 30 PRINT U
-INT(U)":.1310.....".. HET KAN SOMS HAN
DIG ZIJN OM EEN......". WILLEKEURIG GETA
L TE GENEREN BV. IN.O."..". SPELLETJES A
LS KANS-FAKTOR....,..".. HIERIN IS VOORZ
IEN MET HET COMMANDO...6..".. RND.'.
@..".. PRINT RND(1).P.J..".. GENEREE
RD EEN WILLEKEURIG GETAL.Y.T..". TUSSEN
0 EN .999999999":.1310...^..".. .RND.
SAMEN MET .INT. GEEFT PAS EEN...H..". B
RUIKBAAR GETAL:...R.."... PRINT INT(RN
D(1)*10)+1":.".. .GEEFT EEN GETAL TUSSEN
1 EN 10.=.|.."... BV. RND(1)=.594727967
":.". *10=5.94727967"._....". INT=5; +1
= .6. !":.1310......".. MET .ABS. VERMI
JDEN WE HET MINTEKEN VAN......". EEN NEG
ATIEVE UITKOMST.......".... DE ABSOLUTE
WAARDE VAN X KRIJG JE MET:......"...
PRINT ABS(X)...":.1310.9....".. .SGN.
KIJKT OF DE UITKOMST NEGATIEF IS,.C.B.."
. POSITIEF IS OF GEWOON 0 (NUL) IS..}.L.
..12)"...PRINT SGN(X)...V.."... GEEFT AL
S RESULTAAT:":."... '1' .ALS X POSITI
EF-,......".. '-1' . ALS X NEGATIEF- EN
......".. '0' . ALS X 0 (NUL) IS.":.13
10.,....".. GONIOMETRISCHE FUNCTIES:.T..
..".. SIN(A), COS(A), TAN(A), ATN(A).Y..
..".. SIN = SINUS, COS = COSINUS,......"
. TAN = TANGENS, AND ATN = COTANGENS....
.."... N.B. 1 RADIAAL IS 180/. (57.3 GR
ADEN)":.1310...&..".. LOG(E) GEEFT HET N
ATUURLIJKE LOGARITHME.8.0..". EXP(A) GEE
FT HET GETAL UIT 'N LOG..D.:.."... DEZE
TWEE KUN JE NET ZO TOEPASSEN...D..". ALS
HET DECIMAAL LOGARITHME.":.1310...N..".
.".14)"'SAVE'.T.X..".. MET DIT COMMANDO
KUN JE EEN PROGRAMMA...B..". OP DE CASSE
TTE BEWAREN, MET EVT. EEN./.L..". NAAM E
R BIJ; TYP:":.".. SAVE OF.X.V..".
SAVE "G(34)"BASIC CURSUS"G(34).M....".
. IK ZEG DAN:......".. PRESS PLAY & RE
CORD ON TAPE.B...."... ALS NAAM MAG JE A
LLES GEBRUIKEN TOT......". MAX. 16 TEKEN
S, TUSSEN AANHALINGSTEKENS."...." BEHALV
E HET AANHALINGSTEKEN ZELF!":.1310.9....
"..".11)"'VERIFY'.C....". HIERMEE KUN JE
CONTROLEREN OF HET...F..". PROGRAMMA GO
ED OP DE CASSETTE IS .GEKOMEN..X.
P..".. SPOEL DE CASSETTE TERUG EN TYP":.
".. 'VERIFY'...Z..".. JE MAG DAAR AC
HTER OOK WEER 'N NAAM.L....". GEVEN, ALS
ER MEERDERE PROGRAMMA'S
EEEEEEEE.U...." OP EEN CASSETTE VOOR
KOMEN.":.1310......".. IK ZOEK HET PROGR
AMMA OP EN VERGELIJK.R....". HET MET DAT
WAT IN MIJN GEHEUGEN ZIT.......".. IK Z
EG 'OK' ALS HET GOED IS.#....". EN '?VER
IFY ERROR' ALS HET FOUT IS..R. .."... SO
MS KAN HIER EEN MAGNETISCHE KOP DE...*..
". OORZAAK VAN ZIJN, JE MOET HEM DAN EVE
N...4..". DEMAGNETISEREN OF LATEN DEMAGN
ETISEREN!":.1310.V.>.."..".11)"'CASSETTE
FILES...H..". HET COMMANDO OM IN EEN FI
LE TE KUNNEN .IS :.#.R...11)"..OPEN 1,
1,0.P.\..".. DE EERSTE '1' IS HET NUMMER
(1-255).}.F..". DE TWEEDE IS DE CASSETT
ERECORDER ALS...P..". FILE-DEVICE..I.Z..
".. DE 0 WIL ZEGGEN 'LEZEN', 1= SCHRIJVE
N.":.1310......".. EEN VOORBEELD VAN EEN
FILE PROGRAMMA:..6....". 10 PRINT "G(34
)"DOE EEN DATA CASSETTE IN DE RECORDER.L
...." 20 PRINT "G(34)"DRUK OP 'N TOETS O
M TE STARTEN......" 30 GET A$:IFA$="G(34
)G(34)"GOTO30.R...." 40 OPEN 1,1,1":." 5
0 INPUT"G(34)"WELKE NAAM"G(34)";N$......
" 55 IF N$="G(34)"STOP"G(34)"GOTO80.:...
." 60 IF LEN(N$)>79THEN PRINT"G(34)"TE L
ANG!"G(34)":GOTO50.V.J.." 70 PRINT#1,N$:
GOTO50.H.T.." 80 CLOSE 1......" 90 PRINT
"G(34)"FILE GEREED, AUB. TERUG SPOELEN"G
(34).Z....".. DE DERDE 1 (40) ZEGT DUS '
SCHRIJVEN'.":.1310......"............ 'P
RINT#1,N$' BETEKEND PRINT OP CASSETTE.C.
..." IN FILE NUMMER 1. N$ IS 'N VARIABE
LE..Q....". REGEL 60 KIJKT OF N$ NIET TE
LANG IS.......". REGEL 90 MELDT DAT IK
KLAAR BEN. ":.1310......".......... JE
MOET ALTIJD 'T HELE WOORD 'PRINT' ";..
.$..". TYPEN ALS JE # GEBRUIKT; TYP NOOI
T '?#'.<....XX.1.2:.X.1.40:." ";:.X:.:.X
X:.".":.1320.F.8..".. OM DE INHOUD WEER
TERUG TE ZIEN:...B.."... 10 PRINT"G(34)"
DOE DE DATACASSETTE IN DE RECORDER.W.L..
" 20 PRINT"G(34)"DRUK OP 'N TOETS OM TE
STARTEN...V.." 30 GET A$:IFA$="G(34)G(34
)"GOTO 30...`.." 40 OPEN 1,1,0.R.J.." 50
INPUT#1,N$":." 60 IF(ST)>0GOTO80":." 65
PRINT N$;.S.T.." 70 GOTO 50":." 80 CLOS
E 1...~.." 90 PRINT"G(34)"KLAAR, AUB. TE
RUG SPOELEN"G(34).Y...."... 'INPUT #1,N$
' HAALT DE STRINGS VAN DE......". CASSET
TE, REGEL 65 PRINT OP 'T SCHERM.":.1310.
F...."........ '(ST)>0' TEST OP HET EIND
VAN HET FILE".W....". OM EEN FOUT TE VO
ORKOMEN. "......Q1,0:.".. .
KUN JE HET 'N BEETJE VOLGEN ?. ".
C....Q$:.Q$."".1210.T.D..Q$.."J".830...N
.."....... WIL JE DE HELE LES NOG 'N KEE
R...X..". DOORNEMEN ?.)....Q$:.Q$."".125
0.:....Q$."N".1280.@.....~....".... LAAD
NU DE VOLGENDE LES: ":.". LES 8.":.I.1.
5000:.......".":..R....Q1,0:."..........
.............. ..VOOR VERDER: DRUK
OP RETURN...(..Q$:.Q$."".1320...2......
> CLICK IMAGE PREVIEW FOR FULL MODAL