BASIC 9.3
FILE INFORMATION
FILENAME(S): BASIC 9.3
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 21:28:26
APPEARS ON: 1 disk(s)
FILE HASH
3874c66f3a56bee815709de1e3759c913aa3b9f115b75b9aedc1bcdc31bbc5b8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 1541TEST DEMO | BASIC 9.3 | PRG | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 01 00 8F 20 2B 2B 2B 20 39 2E 33 20 |....... +++ 9.3 |
00000010: 2B 2B 2B 00 25 08 64 00 41 B2 31 39 38 3A 99 C7 |+++.%.d.A.198:..|
00000020: 28 31 34 32 29 00 3B 08 6E 00 97 35 33 32 38 31 |(142).;.n..53281|
00000030: 2C 31 35 3A 97 36 34 36 2C 31 32 00 4D 08 78 00 |,15:.646,12.M.x.|
00000040: 5A 24 B2 C7 28 33 34 29 3A 89 31 37 30 00 7F 08 |Z$..(34):.170...|
00000050: 82 00 99 22 93 22 3B 3A 81 49 B2 31 A4 33 39 3A |...".";:.I.1.39:|
00000060: 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 3A 99 |.C$;:.:.I.1.22:.|
00000070: 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D 22 3B 00 |".."C$;:.:.".";.|
00000080: 9C 08 8C 00 81 49 B2 31 A4 33 38 3A 99 22 9D 22 |.....I.1.38:."."|
00000090: 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 B7 08 96 |C$".";:.:.C$....|
000000A0: 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 43 24 22 |..I.1.23:."."C$"|
000000B0: 9D 22 3B 3A 82 3A 8E 00 CE 08 A0 00 97 41 2C 30 |.";:.:.......A,0|
000000C0: 3A 92 41 2C 32 35 35 3A 97 41 2C 30 3A 8E 00 E5 |:.A,255:.A,0:...|
000000D0: 08 AA 00 99 22 93 11 22 A3 31 32 29 22 53 4F 52 |...."..".12)"SOR|
000000E0: 54 45 52 45 4E 00 0F 09 B4 00 99 22 11 48 45 54 |TEREN......".HET|
000000F0: 20 56 4F 4C 47 45 4E 44 45 20 50 52 4F 47 52 41 | VOLGENDE PROGRA|
00000100: 4D 4D 41 20 49 53 20 49 4E 20 53 54 41 41 54 00 |MMA IS IN STAAT.|
00000110: 39 09 BE 00 99 22 54 4F 54 20 31 30 30 20 4E 41 |9...."TOT 100 NA|
00000120: 4D 45 4E 20 54 45 20 53 4F 52 54 45 52 45 4E 20 |MEN TE SORTEREN |
00000130: 4E 41 41 52 20 41 41 4E 2D 00 5D 09 C8 00 99 22 |NAAR AAN-.]...."|
00000140: 4C 45 49 44 49 4E 47 20 56 41 4E 20 42 45 50 41 |LEIDING VAN BEPA|
00000150: 41 4C 44 45 20 57 41 41 52 44 45 4E 2E 00 7D 09 |ALDE WAARDEN..}.|
00000160: D2 00 99 22 11 56 4F 4F 52 42 45 45 4C 44 45 4E |...".VOORBEELDEN|
00000170: 20 4B 55 4E 4E 45 4E 20 5A 49 4A 4E 3A 00 A0 09 | KUNNEN ZIJN:...|
00000180: DC 00 99 22 11 1D 1D 1D 53 4F 52 54 45 52 45 4E |..."....SORTEREN|
00000190: 20 4E 41 41 52 20 49 4E 4B 4F 4D 53 54 45 4E 2C | NAAR INKOMSTEN,|
000001A0: 00 C5 09 E6 00 99 22 1D 1D 1D 53 4F 52 54 45 52 |......"...SORTER|
000001B0: 45 4E 20 4E 41 41 52 20 41 41 4E 54 41 4C 20 42 |EN NAAR AANTAL B|
000001C0: 4F 45 4B 45 4E 00 D9 09 F0 00 99 22 1D 1D 1D 45 |OEKEN......"...E|
000001D0: 54 43 2E 22 3A 8D 31 36 30 00 12 0A FA 00 99 22 |TC.":.160......"|
000001E0: 93 22 A3 31 32 29 22 53 4F 52 54 45 52 45 4E 11 |.".12)"SORTEREN.|
000001F0: 22 3A 99 22 31 30 20 44 49 4D 20 4E 24 28 31 30 |":."10 DIM N$(10|
00000200: 30 29 2C 20 53 28 31 30 30 29 2C 50 54 28 31 30 |0), S(100),PT(10|
00000210: 30 29 00 43 0A 04 01 99 22 32 30 20 50 52 49 4E |0).C...."20 PRIN|
00000220: 54 20 22 5A 24 22 48 4F 45 56 45 45 4C 20 4E 41 |T "Z$"HOEVEEL NA|
00000230: 4D 45 4E 22 5A 24 3A 99 22 33 30 20 49 4E 50 55 |MEN"Z$:."30 INPU|
00000240: 54 20 4E 00 7B 0A 0E 01 99 22 34 30 20 50 52 49 |T N.{...."40 PRI|
00000250: 4E 54 20 22 5A 24 22 47 45 45 46 20 22 5A 24 22 |NT "Z$"GEEF "Z$"|
00000260: 20 4E 20 22 5A 24 22 20 4E 41 4D 45 4E 20 45 4E | N "Z$" NAMEN EN|
00000270: 20 57 41 41 52 44 45 4E 22 5A 24 00 93 0A 18 01 | WAARDEN"Z$.....|
00000280: 99 22 35 30 20 46 4F 52 20 49 20 3D 20 31 20 54 |."50 FOR I = 1 T|
00000290: 4F 20 4E 00 B7 0A 22 01 99 22 36 30 20 49 4E 50 |O N...".."60 INP|
000002A0: 55 54 20 4E 24 28 49 29 2C 20 53 28 49 29 22 3A |UT N$(I), S(I)":|
000002B0: 99 22 37 30 20 22 3B 00 FE 0A 2C 01 99 22 4E 45 |."70 ";...,.."NE|
000002C0: 58 54 22 3A 99 22 38 30 20 46 4F 52 20 49 20 3D |XT":."80 FOR I =|
000002D0: 20 31 20 54 4F 20 4E 22 3A 99 22 39 30 20 4D 20 | 1 TO N":."90 M |
000002E0: 3D 20 2D 39 39 39 39 39 22 3A 99 22 31 30 30 20 |= -99999":."100 |
000002F0: 46 4F 52 20 4A 20 3D 20 31 20 54 4F 20 4E 00 49 |FOR J = 1 TO N.I|
00000300: 0B 36 01 99 22 31 31 30 20 49 46 20 53 28 4A 29 |.6.."110 IF S(J)|
00000310: 20 3C 3D 20 4D 20 54 48 45 4E 20 31 34 30 22 3A | <= M THEN 140":|
00000320: 99 22 31 32 30 20 4D 20 3D 20 53 28 4A 29 22 3A |."120 M = S(J)":|
00000330: 99 22 31 33 30 20 49 53 20 3D 20 4A 22 3A 99 22 |."130 IS = J":."|
00000340: 31 34 30 20 4E 45 58 54 22 00 80 0B 40 01 99 22 |140 NEXT"...@.."|
00000350: 31 35 30 20 50 54 28 49 29 20 3D 20 49 53 22 3A |150 PT(I) = IS":|
00000360: 99 22 31 36 30 20 53 28 49 53 29 20 3D 20 2D 53 |."160 S(IS) = -S|
00000370: 28 49 53 29 22 3A 99 22 31 37 30 20 4E 45 58 54 |(IS)":."170 NEXT|
00000380: 00 BA 0B 4A 01 99 22 31 38 30 20 50 52 49 4E 54 |...J.."180 PRINT|
00000390: 20 22 5A 24 22 50 4C 41 41 54 53 22 5A 24 22 2C | "Z$"PLAATS"Z$",|
000003A0: 22 5A 24 22 4E 41 41 4D 22 5A 24 22 2C 22 5A 24 |"Z$"NAAM"Z$","Z$|
000003B0: 22 57 41 41 52 44 45 22 5A 24 00 E0 0B 54 01 99 |"WAARDE"Z$...T..|
000003C0: 22 31 39 30 20 50 52 49 4E 54 22 3A 99 22 32 30 |"190 PRINT":."20|
000003D0: 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 4E |0 FOR I = 1 TO N|
000003E0: 00 20 0C 5E 01 99 22 32 31 30 20 4B 3D 50 54 28 |. .^.."210 K=PT(|
000003F0: 49 29 22 3A 99 22 32 32 30 20 50 52 49 4E 54 20 |I)":."220 PRINT |
00000400: 49 2C 4E 24 28 4B 29 2C 2D 53 28 4B 29 22 3A 99 |I,N$(K),-S(K)":.|
00000410: 22 32 33 30 20 4E 45 58 54 22 3B 3A 8D 31 36 30 |"230 NEXT";:.160|
00000420: 00 46 0C 68 01 99 22 93 11 4F 4F 4B 20 44 49 54 |.F.h.."..OOK DIT|
00000430: 20 50 52 4F 47 52 41 4D 4D 41 20 53 54 41 41 54 | PROGRAMMA STAAT|
00000440: 20 4F 50 20 44 45 00 6E 0C 72 01 99 22 41 43 48 | OP DE.n.r.."ACH|
00000450: 54 45 52 4B 41 4E 54 20 56 41 4E 20 44 45 20 43 |TERKANT VAN DE C|
00000460: 41 53 53 45 54 54 45 2E 22 3A 8D 31 36 30 00 8C |ASSETTE.":.160..|
00000470: 0C 7C 01 99 22 93 11 22 A3 31 32 29 22 57 4F 4F |.|.."..".12)"WOO|
00000480: 52 44 53 50 45 4C 4C 45 54 4A 45 22 00 B4 0C 86 |RDSPELLETJE"....|
00000490: 01 99 22 11 41 4C 53 20 44 45 20 43 4F 4D 50 55 |..".ALS DE COMPU|
000004A0: 54 45 52 20 45 45 4E 20 57 4F 4F 52 44 20 4F 50 |TER EEN WOORD OP|
000004B0: 20 48 45 54 00 E0 0C 90 01 99 22 53 43 48 45 52 | HET......"SCHER|
000004C0: 4D 20 41 46 44 52 55 4B 54 2C 20 4D 4F 45 54 20 |M AFDRUKT, MOET |
000004D0: 44 45 20 47 45 42 52 55 49 4B 45 52 20 45 45 4E |DE GEBRUIKER EEN|
000004E0: 00 06 0D 9A 01 99 22 53 59 4E 4F 4E 49 45 4D 20 |......"SYNONIEM |
000004F0: 56 41 4E 20 44 41 54 20 57 4F 4F 52 44 20 49 4E |VAN DAT WOORD IN|
00000500: 54 59 50 45 4E 2E 00 2E 0D A4 01 99 22 11 44 45 |TYPEN.......".DE|
00000510: 20 43 4F 4D 50 55 54 45 52 20 47 45 45 46 54 20 | COMPUTER GEEFT |
00000520: 44 41 4E 20 41 41 4E 20 4F 46 20 48 45 54 00 43 |DAN AAN OF HET.C|
00000530: 0D AE 01 99 22 57 4F 4F 52 44 20 47 4F 45 44 20 |...."WOORD GOED |
00000540: 49 53 2E 00 6C 0D B8 01 99 22 11 44 45 20 4C 45 |IS..l....".DE LE|
00000550: 52 41 41 52 20 4B 41 4E 20 47 45 4D 41 4B 4B 45 |RAAR KAN GEMAKKE|
00000560: 4C 49 4A 4B 20 57 4F 4F 52 44 45 4E 00 97 0D C2 |LIJK WOORDEN....|
00000570: 01 99 22 42 49 4A 56 4F 45 47 45 4E 20 44 4F 4F |.."BIJVOEGEN DOO|
00000580: 52 20 4D 45 45 52 20 44 41 54 41 20 49 4E 53 54 |R MEER DATA INST|
00000590: 52 55 4B 54 49 45 53 00 B1 0D CC 01 99 22 54 45 |RUKTIES......"TE|
000005A0: 20 53 43 48 52 49 4A 56 45 4E 2E 22 3A 8D 31 36 | SCHRIJVEN.":.16|
000005B0: 30 00 FE 0D D6 01 99 22 93 31 30 20 52 45 41 44 |0......".10 READ|
000005C0: 20 4E 22 3A 99 22 32 30 20 46 4F 52 20 49 20 3D | N":."20 FOR I =|
000005D0: 20 31 20 54 4F 20 4E 22 3A 99 22 33 30 20 52 45 | 1 TO N":."30 RE|
000005E0: 41 44 20 57 24 2C 4E 53 22 3A 99 22 34 30 20 46 |AD W$,NS":."40 F|
000005F0: 4F 52 20 4B 20 3D 20 31 20 54 4F 20 4E 53 00 1E |OR K = 1 TO NS..|
00000600: 0E E0 01 99 22 35 30 20 52 45 41 44 20 53 24 28 |...."50 READ S$(|
00000610: 4B 29 22 3A 99 22 36 30 20 4E 45 58 54 22 00 4E |K)":."60 NEXT".N|
00000620: 0E EA 01 99 22 37 30 20 50 52 49 4E 54 22 5A 24 |...."70 PRINT"Z$|
00000630: 22 47 45 45 46 20 45 45 4E 20 53 59 4E 4F 4E 49 |"GEEF EEN SYNONI|
00000640: 45 4D 20 56 4F 4F 52 20 22 5A 24 22 57 24 00 9F |EM VOOR "Z$"W$..|
00000650: 0E F4 01 99 22 38 30 20 49 4E 50 55 54 20 52 24 |...."80 INPUT R$|
00000660: 22 3A 99 22 39 30 20 49 46 20 52 24 20 3D 20 22 |":."90 IF R$ = "|
00000670: 3B 5A 24 3B 22 48 45 4C 50 22 3B 5A 24 3B 22 20 |;Z$;"HELP";Z$;" |
00000680: 54 48 45 4E 20 31 37 30 22 3A 99 22 31 30 30 20 |THEN 170":."100 |
00000690: 46 4F 52 20 4B 20 3D 20 31 20 54 4F 20 4E 53 00 |FOR K = 1 TO NS.|
000006A0: E2 0E FE 01 99 22 31 31 30 20 49 46 20 52 24 20 |....."110 IF R$ |
000006B0: 3D 20 53 24 28 4B 29 20 54 48 45 4E 20 31 35 30 |= S$(K) THEN 150|
000006C0: 22 3A 99 22 31 32 30 20 4E 45 58 54 22 3A 99 22 |":."120 NEXT":."|
000006D0: 31 33 30 20 50 52 49 4E 54 22 5A 24 22 4E 45 45 |130 PRINT"Z$"NEE|
000006E0: 22 3B 00 1D 0F 08 02 99 22 2C 20 50 52 4F 42 45 |";......", PROBE|
000006F0: 45 52 20 48 45 54 20 4E 4F 47 20 45 45 4E 53 20 |ER HET NOG EENS |
00000700: 4F 46 20 54 59 50 20 48 45 4C 50 22 5A 24 3A 99 |OF TYP HELP"Z$:.|
00000710: 22 31 34 30 20 47 4F 20 54 4F 20 38 30 00 3D 0F |"140 GO TO 80.=.|
00000720: 12 02 99 22 31 35 30 20 50 52 49 4E 54 20 22 5A |..."150 PRINT "Z|
00000730: 24 22 43 4F 52 52 45 43 54 21 22 5A 24 00 7C 0F |$"CORRECT!"Z$.|.|
00000740: 1C 02 99 22 31 36 30 20 47 4F 54 4F 20 32 31 30 |..."160 GOTO 210|
00000750: 22 3A 99 22 31 37 30 20 50 52 49 4E 54 20 57 24 |":."170 PRINT W$|
00000760: 22 5A 24 22 20 48 45 45 46 54 20 44 45 20 53 59 |"Z$" HEEFT DE SY|
00000770: 4E 4F 4E 49 45 4D 45 4E 3A 22 5A 24 00 CD 0F 26 |NONIEMEN:"Z$...&|
00000780: 02 99 22 31 38 30 20 46 4F 52 20 4B 3D 31 20 54 |.."180 FOR K=1 T|
00000790: 4F 20 4E 53 22 3A 99 22 31 39 30 20 50 52 49 4E |O NS":."190 PRIN|
000007A0: 54 20 53 24 28 4B 29 22 3A 99 22 32 30 30 20 4E |T S$(K)":."200 N|
000007B0: 45 58 54 22 3A 99 22 32 31 30 20 4E 45 58 54 22 |EXT":."210 NEXT"|
000007C0: 3A 99 22 32 32 30 20 44 41 54 41 20 32 00 F5 0F |:."220 DATA 2...|
000007D0: 30 02 99 22 32 33 30 20 44 41 54 41 20 47 45 56 |0.."230 DATA GEV|
000007E0: 41 4E 47 45 4E 49 53 2C 33 2C 43 45 4C 2C 42 41 |ANGENIS,3,CEL,BA|
000007F0: 4B 2C 4B 4F 54 00 18 10 3A 02 99 22 32 34 30 20 |K,KOT...:.."240 |
00000800: 44 41 54 41 20 48 55 49 53 2C 32 2C 57 4F 4E 49 |DATA HUIS,2,WONI|
00000810: 4E 47 2C 46 4C 41 54 91 00 21 10 44 02 8D 31 36 |NG,FLAT..!.D..16|
00000820: 30 00 4C 10 4E 02 99 22 93 11 4F 4F 4B 20 44 49 |0.L.N.."..OOK DI|
00000830: 54 20 4C 41 41 54 53 54 45 20 50 52 4F 47 52 41 |T LAATSTE PROGRA|
00000840: 4D 4D 41 20 53 54 41 41 54 20 4F 50 00 74 10 58 |MMA STAAT OP.t.X|
00000850: 02 99 22 44 45 20 41 4E 44 45 52 45 20 4B 41 4E |.."DE ANDERE KAN|
00000860: 54 20 56 41 4E 20 44 45 5A 45 20 43 41 53 53 45 |T VAN DEZE CASSE|
00000870: 54 54 45 2E 00 87 10 62 02 A1 41 24 3A 8B 41 24 |TTE....b..A$:.A$|
00000880: B2 22 22 A7 36 31 30 00 B9 10 6C 02 99 22 93 11 |."".610...l.."..|
00000890: 11 11 1D 1D 5A 4F 41 4C 53 20 55 20 42 45 47 52 |....ZOALS U BEGR|
000008A0: 45 50 45 4E 20 5A 55 4C 54 20 48 45 42 42 45 4E |EPEN ZULT HEBBEN|
000008B0: 20 49 53 20 48 49 45 52 22 00 E0 10 76 02 99 22 | IS HIER"...v.."|
000008C0: 1D 1D 41 4C 4C 45 45 4E 20 44 45 20 52 45 43 4F |..ALLEEN DE RECO|
000008D0: 52 44 45 52 20 42 45 48 41 4E 44 45 4C 54 2E 22 |RDER BEHANDELT."|
000008E0: 00 0A 11 80 02 99 22 1D 1D 44 45 20 42 45 48 41 |......"..DE BEHA|
000008F0: 4E 44 45 4C 49 4E 47 20 56 4F 4F 52 20 55 57 20 |NDELING VOOR UW |
00000900: 44 49 53 4B 44 52 49 56 45 22 00 35 11 8A 02 99 |DISKDRIVE".5....|
00000910: 22 1D 1D 53 54 41 41 54 20 49 4E 20 44 45 20 44 |"..STAAT IN DE D|
00000920: 49 53 4B 44 52 49 56 45 20 48 41 4E 44 4C 45 49 |ISKDRIVE HANDLEI|
00000930: 44 49 4E 47 22 00 75 11 94 02 99 3A 99 22 1D 1D |DING".u....:."..|
00000940: 44 45 20 50 52 4F 47 52 41 4D 4D 41 27 53 20 28 |DE PROGRAMMA'S (|
00000950: 41 41 4E 20 44 45 20 41 4E 44 45 52 45 20 4B 41 |AAN DE ANDERE KA|
00000960: 4E 54 20 56 41 4E 20 20 44 45 20 43 41 53 53 45 |NT VAN DE CASSE|
00000970: 54 54 45 29 22 00 A5 11 9E 02 99 22 1D 1D 53 54 |TTE)"......"..ST|
00000980: 41 41 4E 20 4F 50 20 44 45 20 44 49 53 4B 45 54 |AAN OP DE DISKET|
00000990: 54 45 20 4F 4E 44 45 52 20 56 4F 4F 52 42 45 45 |TE ONDER VOORBEE|
000009A0: 4C 44 45 4E 22 00 B8 11 A8 02 A1 41 24 3A 8B 41 |LDEN"......A$:.A|
000009B0: 24 B2 22 22 A7 36 38 30 00 C1 11 B2 02 8D 31 36 |$."".680......16|
000009C0: 30 00 F6 11 BC 02 43 24 B2 22 A6 22 3A 8D 31 33 |0.....C$.".":.13|
000009D0: 30 3A 99 22 11 11 11 1D 1D 1D 1D 1D 1D 44 49 54 |0:.".........DIT|
000009E0: 20 42 45 53 4C 55 49 54 20 44 45 20 43 55 52 53 | BESLUIT DE CURS|
000009F0: 55 53 20 56 41 4E 00 22 12 C6 02 99 22 1D 1D 1D |US VAN."...."...|
00000A00: 1D 1D 1D 11 12 42 45 47 49 4E 4E 45 4E 44 20 42 |.....BEGINNEND B|
00000A10: 41 53 49 43 20 56 4F 4F 52 20 44 45 20 36 34 92 |ASIC VOOR DE 64.|
00000A20: 11 11 00 53 12 C7 02 99 22 1D 1D 1D 1D 1D 1D 11 |...S....".......|
00000A30: 4C 41 54 45 52 20 56 4F 4C 47 54 20 45 52 20 4E |LATER VOLGT ER N|
00000A40: 4F 47 20 45 45 4E 20 54 57 45 45 44 45 20 44 45 |OG EEN TWEEDE DE|
00000A50: 45 4C 2C 00 7B 12 C8 02 99 22 1D 1D 1D 1D 1D 1D |EL,.{...."......|
00000A60: 4F 4F 4B 20 56 45 52 4B 52 49 4A 47 42 41 41 52 |OOK VERKRIJGBAAR|
00000A70: 20 42 49 4A 20 44 45 20 50 42 45 00 A2 12 D0 02 | BIJ DE PBE.....|
00000A80: 99 22 1D 1D 1D 55 20 5A 4F 55 20 4E 55 20 55 57 |."...U ZOU NU UW|
00000A90: 20 45 49 47 45 4E 20 50 52 4F 47 52 41 4D 4D 41 | EIGEN PROGRAMMA|
00000AA0: 27 53 00 E5 12 DA 02 99 22 1D 1D 1D 4D 4F 45 54 |'S......"...MOET|
00000AB0: 45 4E 20 4B 55 4E 4E 45 4E 20 53 43 48 52 49 4A |EN KUNNEN SCHRIJ|
00000AC0: 56 45 4E 20 56 4F 4F 52 22 3A 99 22 1D 1D 1D 1D |VEN VOOR":."....|
00000AD0: 1D 1D 1D 1D 1D 1D 41 4C 4C 45 52 4C 45 49 20 54 |......ALLERLEI T|
00000AE0: 41 4B 45 4E 2E 00 FC 12 E4 02 99 22 11 11 11 1D |AKEN......."....|
00000AF0: 1D 1D 1D 1D 53 55 43 43 45 53 21 22 00 02 13 EE |....SUCCES!"....|
00000B00: 02 80 00 00 00 35 45 22 |.....5E" |
....... +++ 9.3 +++.%.D.A.198:.G(142).;.
N..53281,15:.646,12.M.X.Z$.G(34):.170..
...".";:.I.1.39:.C$;:.:.I.1.22:.".."C$;:
.:.".";......I.1.38:."."C$".";:.:.C$....
..I.1.23:."."C$".";:.:..N. ..A,0:.A,255:
.A,0:......."..".12)"SORTEREN......".HET
VOLGENDE PROGRAMMA IS IN STAAT.9...."TO
T 100 NAMEN TE SORTEREN NAAR AAN-.].H.."
LEIDING VAN BEPAALDE WAARDEN..}.R..".VOO
RBEELDEN KUNNEN ZIJN:. ...."....SORTEREN
NAAR INKOMSTEN,.E...."...SORTEREN NAAR
AANTAL BOEKEN.Y...."...ETC.":.160......"
.".12)"SORTEREN.":."10 DIM N$(100), S(10
0),PT(100).C...."20 PRINT "Z$"HOEVEEL NA
MEN"Z$:."30 INPUT N.{...."40 PRINT "Z$"G
EEF "Z$" N "Z$" NAMEN EN WAARDEN"Z$.....
."50 FOR I = 1 TO N...".."60 INPUT N$(I)
, S(I)":."70 ";...,.."NEXT":."80 FOR I =
1 TO N":."90 M = -99999":."100 FOR J =
1 TO N.I.6.."110 IF S(J) <= M THEN 140":
."120 M = S(J)":."130 IS = J":."140 NEXT
"...@.."150 PT(I) = IS":."160 S(IS) = -S
(IS)":."170 NEXT...J.."180 PRINT "Z$"PLA
ATS"Z$","Z$"NAAM"Z$","Z$"WAARDE"Z$...T..
"190 PRINT":."200 FOR I = 1 TO N. .^.."2
10 K=PT(I)":."220 PRINT I,N$(K),-S(K)":.
"230 NEXT";:.160.F.H.."..OOK DIT PROGRAM
MA STAAT OP DE.N.R.."ACHTERKANT VAN DE C
ASSETTE.":.160...|.."..".12)"WOORDSPELLE
TJE"......".ALS DE COMPUTER EEN WOORD OP
HET......"SCHERM AFDRUKT, MOET DE GEBRU
IKER EEN......"SYNONIEM VAN DAT WOORD IN
TYPEN.......".DE COMPUTER GEEFT DAN AAN
OF HET.C...."WOORD GOED IS..L....".DE LE
RAAR KAN GEMAKKELIJK WOORDEN...B.."BIJVO
EGEN DOOR MEER DATA INSTRUKTIES...L.."TE
SCHRIJVEN.":.160...V..".10 READ N":."20
FOR I = 1 TO N":."30 READ W$,NS":."40 F
OR K = 1 TO NS......"50 READ S$(K)":."60
NEXT".N...."70 PRINT"Z$"GEEF EEN SYNONI
EM VOOR "Z$"W$......"80 INPUT R$":."90 I
F R$ = ";Z$;"HELP";Z$;" THEN 170":."100
FOR K = 1 TO NS......"110 IF R$ = S$(K)
THEN 150":."120 NEXT":."130 PRINT"Z$"NEE
";......", PROBEER HET NOG EENS OF TYP H
ELP"Z$:."140 GO TO 80.=...."150 PRINT "Z
$"CORRECT!"Z$.|...."160 GOTO 210":."170
PRINT W$"Z$" HEEFT DE SYNONIEMEN:"Z$.M.&
.."180 FOR K=1 TO NS":."190 PRINT S$(K)"
:."200 NEXT":."210 NEXT":."220 DATA 2...
0.."230 DATA GEVANGENIS,3,CEL,BAK,KOT...
:.."240 DATA HUIS,2,WONING,FLAT..!.D..16
0.L.N.."..OOK DIT LAATSTE PROGRAMMA STAA
T OP.T.X.."DE ANDERE KANT VAN DEZE CASSE
TTE....B..A$:.A$."".610...L.."......ZOAL
S U BEGREPEN ZULT HEBBEN IS HIER"...V.."
..ALLEEN DE RECORDER BEHANDELT."......".
.DE BEHANDELING VOOR UW DISKDRIVE".5....
"..STAAT IN DE DISKDRIVE HANDLEIDING".U.
...:."..DE PROGRAMMA'S (AAN DE ANDERE KA
NT VAN DE CASSETTE)"......"..STAAN OP D
E DISKETTE ONDER VOORBEELDEN"......A$:.A
$."".680.A....160.....C$.".":.130:."....
.....DIT BESLUIT DE CURSUS VAN.".F.."...
.....BEGINNEND BASIC VOOR DE 64....S.G..
".......LATER VOLGT ER NOG EEN TWEEDE DE
EL,.{.H.."......OOK VERKRIJGBAAR BIJ DE
PBE...P.."...U ZOU NU UW EIGEN PROGRAMMA
'S...Z.."...MOETEN KUNNEN SCHRIJVEN VOOR
":."..........ALLERLEI TAKEN......."....
....SUCCES!".........5E"
> CLICK IMAGE PREVIEW FOR FULL MODAL