BASIC 3.1
FILE INFORMATION
FILENAME(S): BASIC 3.1
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:28:26
APPEARS ON: 1 disk(s)
FILE HASH
8f3916ab59609762fc517ec2f7a080c0482b24ac1169d64cd6c512cda8fd2886
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 1541TEST DEMO | BASIC 3.1 | PRG | DuncanTwain | 22 | 3 | 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 33 2E 31 20 |....... +++ 3.1 |
00000010: 2B 2B 2B 00 2D 08 6E 00 97 35 33 32 38 31 2C 37 |+++.-.n..53281,7|
00000020: 3A 97 36 34 36 2C 39 3A 41 B2 31 39 38 00 6C 08 |:.646,9:A.198.l.|
00000030: 78 00 51 24 B2 22 91 20 20 20 20 20 20 20 20 20 |x.Q$.". |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 3A | .":|
00000060: 99 C7 28 31 34 32 29 3A 89 31 37 30 00 9D 08 82 |..(142):.170....|
00000070: 00 99 22 93 22 3A 81 49 B2 31 A4 33 39 3A 99 43 |..".":.I.1.39:.C|
00000080: 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 3A 99 22 9D |$;:.:.I.1.22:.".|
00000090: 11 22 43 24 3B 3A 82 3A 99 22 9D 22 3B 00 BA 08 |."C$;:.:.".";...|
000000A0: 8C 00 81 49 B2 31 A4 33 38 3A 99 22 9D 22 43 24 |...I.1.38:."."C$|
000000B0: 22 9D 22 3B 3A 82 3A 99 43 24 00 D5 08 96 00 81 |".";:.:.C$......|
000000C0: 49 B2 31 A4 32 33 3A 99 22 91 22 43 24 22 9D 22 |I.1.23:."."C$"."|
000000D0: 3B 3A 82 3A 8E 00 EC 08 A0 00 97 41 2C 30 3A 92 |;:.:.......A,0:.|
000000E0: 41 2C 32 35 35 3A 97 41 2C 30 3A 8E 00 F9 08 AA |A,255:.A,0:.....|
000000F0: 00 5A 24 B2 C7 28 33 34 29 00 2F 09 B4 00 30 20 |.Z$..(34)./...0 |
00000100: 50 52 49 4E 54 20 49 2C 4E 24 28 4B 29 2C 2D 53 |PRINT I,N$(K),-S|
00000110: 28 4B 29 22 3A 99 22 32 33 30 20 4E 45 58 54 22 |(K)":."230 NEXT"|
00000120: 3B 3A 8D 31 36 30 00 46 0C 68 01 99 22 93 11 4F |;:.160.F.h.."..O|
00000130: 4F 4B 20 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 |OK DIT PROGRAMMA|
00000140: 20 53 54 41 41 54 20 4F 50 20 44 45 00 6E 0C 72 | STAAT OP DE.n.r|
00000150: 01 99 22 41 43 48 54 45 52 4B 41 4E 54 20 56 41 |.."ACHTERKANT VA|
00000160: 4E 20 44 45 20 43 41 53 53 45 54 54 45 2E 22 3A |N DE CASSETTE.":|
00000170: 8D 31 36 30 00 8C 0C 7C 01 99 22 93 11 22 A3 31 |.160...|.."..".1|
00000180: 32 29 22 57 4F 4F 52 44 53 50 45 4C 4C 45 54 4A |2)"WOORDSPELLETJ|
00000190: 45 22 00 B4 0C 86 01 99 22 11 41 4C 53 20 44 45 |E"......".ALS DE|
000001A0: 20 43 4F 4D 50 55 54 45 52 20 45 45 4E 20 57 4F | COMPUTER EEN WO|
000001B0: 4F 52 44 20 4F 50 20 48 45 54 00 E0 0C 90 01 99 |ORD OP HET......|
000001C0: 22 53 43 48 45 52 4D 20 41 46 44 52 55 4B 54 2C |"SCHERM AFDRUKT,|
000001D0: 20 4D 4F 45 54 20 44 45 20 47 45 42 52 55 49 4B | MOET DE GEBRUIK|
000001E0: 45 52 20 45 45 4E 00 06 0D 9A 01 99 22 53 59 4E |ER EEN......"SYN|
000001F0: 4F 4E 49 45 4D 20 56 41 4E 20 44 41 54 20 57 4F |ONIEM VAN DAT WO|
00000200: 4F 52 44 20 49 4E 54 59 50 45 4E 2E 00 2E 0D A4 |ORD INTYPEN.....|
00000210: 01 99 22 11 44 45 20 43 4F 4D 50 55 54 45 52 20 |..".DE COMPUTER |
00000220: 47 45 45 46 54 20 44 41 4E 20 41 41 4E 20 4F 46 |GEEFT DAN AAN OF|
00000230: 20 48 45 54 00 43 0D AE 01 99 22 57 4F 4F 52 44 | HET.C...."WOORD|
00000240: 20 47 4F 45 44 20 49 53 2E 00 6C 0D B8 01 99 22 | GOED IS..l...."|
00000250: 11 44 45 20 4C 45 52 41 41 52 20 4B 41 4E 20 47 |.DE LERAAR KAN G|
00000260: 45 4D 41 4B 4B 45 4C 49 4A 4B 20 57 4F 4F 52 44 |EMAKKELIJK WOORD|
00000270: 45 4E 00 97 0D C2 01 99 22 42 49 4A 56 4F 45 47 |EN......"BIJVOEG|
00000280: 45 4E 20 44 4F 4F 52 20 4D 45 45 52 20 44 41 54 |EN DOOR MEER DAT|
00000290: 41 20 49 4E 53 54 52 55 4B 54 49 45 53 00 B1 0D |A INSTRUKTIES...|
000002A0: CC 01 99 22 54 45 20 53 43 48 52 49 4A 56 45 4E |..."TE SCHRIJVEN|
000002B0: 2E 22 3A 8D 31 36 30 00 FE 0D D6 01 99 22 93 31 |.":.160......".1|
000002C0: 30 20 52 45 41 44 20 4E 22 3A 99 22 32 30 20 46 |0 READ N":."20 F|
000002D0: 4F 52 20 49 20 3D 20 31 20 54 4F 20 4E 22 3A 99 |OR I = 1 TO N":.|
000002E0: 22 33 30 20 52 45 41 44 20 57 24 2C 4E 53 22 3A |"30 READ W$,NS":|
000002F0: 99 22 34 30 20 46 4F 52 20 4B 20 3D 20 31 20 54 |."40 FOR K = 1 T|
00000300: 4F 20 4E 53 00 1E 0E E0 01 99 22 35 30 20 52 45 |O NS......"50 RE|
00000310: 41 44 20 53 24 28 4B 29 22 3A 99 22 36 30 20 4E |AD S$(K)":."60 N|
00000320: 45 58 54 22 00 4E 0E EA 01 99 22 37 30 20 50 52 |EXT".N...."70 PR|
00000330: 49 4E 54 22 5A 24 22 47 45 45 46 20 45 45 4E 20 |INT"Z$"GEEF EEN |
00000340: 53 59 4E 4F 4E 49 45 4D 20 56 4F 4F 52 20 22 5A |SYNONIEM VOOR "Z|
00000350: 24 22 57 24 00 9F 0E F4 01 99 22 38 30 20 49 4E |$"W$......"80 IN|
00000360: 50 55 54 20 52 24 22 3A 99 22 39 30 20 49 46 20 |PUT R$":."90 IF |
00000370: 52 24 20 3D 20 22 3B 5A 24 3B 22 48 45 4C 50 22 |R$ = ";Z$;"HELP"|
00000380: 3B 5A 24 3B 22 20 54 48 45 4E 20 31 37 30 22 3A |;Z$;" THEN 170":|
00000390: 99 22 31 30 30 20 46 4F 52 20 4B 20 3D 20 31 20 |."100 FOR K = 1 |
000003A0: 54 4F 20 4E 53 00 E2 0E FE 01 99 22 31 31 30 20 |TO NS......"110 |
000003B0: 49 46 20 52 24 20 3D 20 53 24 28 4B 29 20 54 48 |IF R$ = S$(K) TH|
000003C0: 45 4E 20 31 35 30 22 3A 99 22 31 32 30 20 4E 45 |EN 150":."120 NE|
000003D0: 58 54 22 3A 99 22 31 33 30 20 50 52 49 4E 54 22 |XT":."130 PRINT"|
000003E0: 5A 24 22 4E 45 45 22 3B 00 1D 0F 08 02 99 22 2C |Z$"NEE";......",|
000003F0: 20 50 52 4F 42 45 45 52 20 48 45 54 20 4E 4F 47 | PROBEER HET NOG|
00000400: 20 45 45 4E 53 20 4F 46 20 54 59 50 20 48 45 4C | EENS OF TYP HEL|
00000410: 50 22 5A 24 3A 99 22 31 34 30 20 47 4F 20 54 4F |P"Z$:."140 GO TO|
00000420: 20 38 30 00 3D 0F 12 02 99 22 31 35 30 20 50 52 | 80.=...."150 PR|
00000430: 49 4E 54 20 22 5A 24 22 43 4F 52 52 45 43 54 21 |INT "Z$"CORRECT!|
00000440: 22 5A 24 00 7C 0F 1C 02 99 22 31 36 30 20 47 4F |"Z$.|...."160 GO|
00000450: 54 4F 20 32 31 30 22 3A 99 22 31 37 30 20 50 52 |TO 210":."170 PR|
00000460: 49 4E 54 20 57 24 22 5A 24 22 20 48 45 45 46 54 |INT W$"Z$" HEEFT|
00000470: 20 44 45 20 53 59 4E 4F 4E 49 45 4D 45 4E 3A 22 | DE SYNONIEMEN:"|
00000480: 5A 24 00 CD 0F 26 02 99 22 31 38 30 20 46 4F 52 |Z$...&.."180 FOR|
00000490: 20 4B 3D 31 20 54 4F 20 4E 53 22 3A 99 22 31 39 | K=1 TO NS":."19|
000004A0: 30 20 50 52 49 4E 54 20 53 24 28 4B 29 22 3A 99 |0 PRINT S$(K)":.|
000004B0: 22 32 30 30 20 4E 45 58 54 22 3A 99 22 32 31 30 |"200 NEXT":."210|
000004C0: 20 4E 45 58 54 22 3A 99 22 32 32 30 20 44 41 54 | NEXT":."220 DAT|
000004D0: 41 20 32 00 F5 0F 30 02 99 22 32 33 30 20 44 41 |A 2...0.."230 DA|
000004E0: 54 41 20 47 45 56 41 4E 47 45 4E 49 53 2C 33 2C |TA GEVANGENIS,3,|
000004F0: 43 45 4C 2C 42 41 4B 2C 4B 4F 54 00 18 10 3A 02 |CEL,BAK,KOT...:.|
00000500: 99 22 32 34 30 20 44 41 54 41 20 48 55 49 53 2C |."240 DATA HUIS,|
00000510: 32 2C 57 4F 4E 49 4E 47 2C 46 4C 41 54 91 00 21 |2,WONING,FLAT..!|
00000520: 10 44 02 8D 31 36 30 00 4C 10 4E 02 99 22 93 11 |.D..160.L.N.."..|
00000530: 4F 4F 4B 20 44 49 54 20 4C 41 41 54 53 54 45 20 |OOK DIT LAATSTE |
00000540: 50 52 4F 47 52 41 4D 4D 41 20 53 54 41 41 54 20 |PROGRAMMA STAAT |
00000550: 4F 50 00 74 10 58 02 99 22 44 45 20 41 4E 44 45 |OP.t.X.."DE ANDE|
00000560: 52 45 20 4B 41 4E 54 20 56 41 4E 20 44 45 5A 45 |RE KANT VAN DEZE|
00000570: 20 43 41 53 53 45 54 54 45 2E 00 87 10 62 02 A1 | CASSETTE....b..|
00000580: 41 24 3A 8B 41 24 B2 22 22 A7 36 31 30 00 B9 10 |A$:.A$."".610...|
00000590: 6C 02 99 22 93 11 11 11 1D 1D 5A 4F 41 4C 53 20 |l.."......ZOALS |
000005A0: 55 20 42 45 47 52 45 50 45 4E 20 5A 55 4C 54 20 |U BEGREPEN ZULT |
000005B0: 48 45 42 42 45 4E 20 49 53 20 48 49 45 52 22 00 |HEBBEN IS HIER".|
000005C0: E0 10 76 02 99 22 1D 1D 41 4C 4C 45 45 4E 20 44 |..v.."..ALLEEN D|
000005D0: 45 20 52 45 43 4F 52 44 45 52 20 42 45 48 41 4E |E RECORDER BEHAN|
000005E0: 44 45 4C 54 2E 22 00 0A 11 80 02 99 22 1D 1D 44 |DELT."......"..D|
000005F0: 45 20 42 45 48 41 4E 44 45 4C 49 4E 47 20 56 4F |E BEHANDELING VO|
00000600: 4F 52 20 55 57 20 44 49 53 4B 44 52 49 56 45 22 |OR UW DISKDRIVE"|
00000610: 00 35 11 8A 02 99 22 1D 1D 53 54 41 41 54 20 49 |.5...."..STAAT I|
00000620: 4E 20 44 45 20 44 49 53 4B 44 52 49 56 45 20 48 |N DE DISKDRIVE H|
00000630: 41 4E 44 4C 45 49 44 49 4E 47 22 00 75 11 94 02 |ANDLEIDING".u...|
00000640: 99 3A 99 22 1D 1D 44 45 20 50 52 4F 47 52 41 4D |.:."..DE PROGRAM|
00000650: 4D 41 27 53 20 28 41 41 4E 20 44 45 20 41 4E 44 |MA'S (AAN DE AND|
00000660: 45 52 45 20 4B 41 4E 54 20 56 41 4E 20 20 44 45 |ERE KANT VAN DE|
00000670: 20 43 41 53 53 45 54 54 45 29 22 00 A5 11 9E 02 | CASSETTE)".....|
00000680: 99 22 1D 1D 53 54 41 41 4E 20 4F 50 20 44 45 20 |."..STAAN OP DE |
00000690: 44 49 53 4B 45 54 54 45 20 4F 4E 44 45 52 20 56 |DISKETTE ONDER V|
000006A0: 4F 4F 52 42 45 45 4C 44 45 4E 22 00 B8 11 A8 02 |OORBEELDEN".....|
000006B0: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 38 30 00 C1 |.A$:.A$."".680..|
000006C0: 11 B2 02 8D 31 36 30 00 F6 11 BC 02 43 24 B2 22 |....160.....C$."|
000006D0: A6 22 3A 8D 31 33 30 3A 99 22 11 11 11 1D 1D 1D |.":.130:."......|
000006E0: 1D 1D 1D 44 49 54 20 42 45 53 4C 55 49 54 20 44 |...DIT BESLUIT D|
000006F0: 45 20 43 55 52 53 55 53 20 56 41 4E 00 22 12 C6 |E CURSUS VAN."..|
00000700: 02 99 22 1D 1D 1D 1D 1D 1D 11 12 42 45 47 49 4E |.."........BEGIN|
00000710: 4E 45 4E 44 20 42 41 53 49 43 20 56 4F 4F 52 20 |NEND BASIC VOOR |
00000720: 44 45 20 36 34 92 11 11 00 53 12 C7 02 99 22 1D |DE 64....S....".|
00000730: 1D 1D 1D 1D 1D 11 4C 41 54 45 52 20 56 4F 4C 47 |......LATER VOLG|
00000740: 54 20 45 52 20 4E 4F 47 20 45 45 4E 20 54 57 45 |T ER NOG EEN TWE|
00000750: 45 44 45 20 44 45 45 4C 2C 00 7B 12 C8 02 99 22 |EDE DEEL,.{...."|
00000760: 1D 1D 1D 1D 1D 1D 4F 4F 4B 20 56 45 52 4B 52 49 |......OOK VERKRI|
00000770: 4A 47 42 41 41 52 20 42 49 4A 20 44 45 20 50 42 |JGBAAR BIJ DE PB|
00000780: 45 00 A2 12 D0 02 99 22 1D 1D 1D 55 20 5A 4F 55 |E......"...U ZOU|
00000790: 20 4E 55 20 55 57 20 45 49 47 45 4E 20 50 52 4F | NU UW EIGEN PRO|
000007A0: 47 52 41 4D 4D 41 27 53 00 E5 12 DA 02 99 22 1D |GRAMMA'S......".|
000007B0: 1D 1D 4D 4F 45 54 45 4E 20 4B 55 4E 4E 45 4E 20 |..MOETEN KUNNEN |
000007C0: 53 43 48 52 49 4A 56 45 4E 20 56 4F 4F 52 22 3A |SCHRIJVEN VOOR":|
000007D0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 41 4C 4C 45 |."..........ALLE|
000007E0: 52 4C 45 49 20 54 41 4B 45 4E 2E 00 FC 12 E4 02 |RLEI TAKEN......|
000007F0: 99 22 11 11 11 1D 1D 1D 1D 1D 53 55 43 43 45 53 |."........SUCCES|
00000800: 21 22 00 02 13 EE 02 80 00 00 00 35 45 22 |!".........5E" |
....... +++ 3.1 +++.-.N..53281,7:.646,9:
A.198.L.X.Q$.".
.":.G(142):.170......".":.I
.1.39:.C$;:.:.I.1.22:.".."C$;:.:.".";...
...I.1.38:."."C$".";:.:.C$.U....I.1.23:.
"."C$".";:.:.... ..A,0:.A,255:.A,0:.....
.Z$.G(34)./...0 PRINT I,N$(K),-S(K)":."2
30 NEXT";:.160.F.H.."..OOK DIT PROGRAMMA
STAAT OP DE.N.R.."ACHTERKANT VAN DE CAS
SETTE.":.160...|.."..".12)"WOORDSPELLETJ
E"......".ALS DE COMPUTER EEN WOORD OP H
ET......"SCHERM AFDRUKT, MOET DE GEBRUIK
ER EEN......"SYNONIEM VAN DAT WOORD INTY
PEN.......".DE COMPUTER GEEFT DAN AAN OF
HET.C...."WOORD GOED IS..L....".DE LERA
AR KAN GEMAKKELIJK WOORDEN...B.."BIJVOEG
EN DOOR MEER DATA INSTRUKTIES...L.."TE S
CHRIJVEN.":.160...V..".10 READ N":."20 F
OR I = 1 TO N":."30 READ W$,NS":."40 FOR
K = 1 TO NS......"50 READ S$(K)":."60 N
EXT".N...."70 PRINT"Z$"GEEF EEN SYNONIEM
VOOR "Z$"W$......"80 INPUT R$":."90 IF
R$ = ";Z$;"HELP";Z$;" THEN 170":."100 FO
R K = 1 TO NS......"110 IF R$ = S$(K) TH
EN 150":."120 NEXT":."130 PRINT"Z$"NEE";
......", PROBEER HET NOG EENS OF TYP HEL
P"Z$:."140 GO TO 80.=...."150 PRINT "Z$"
CORRECT!"Z$.|...."160 GOTO 210":."170 PR
INT 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..160.
L.N.."..OOK DIT LAATSTE PROGRAMMA STAAT
OP.T.X.."DE ANDERE KANT VAN DEZE CASSETT
E....B..A$:.A$."".610...L.."......ZOALS
U BEGREPEN ZULT HEBBEN IS HIER"...V.."..
ALLEEN DE RECORDER BEHANDELT."......"..D
E BEHANDELING VOOR UW DISKDRIVE".5....".
.STAAT IN DE DISKDRIVE HANDLEIDING".U...
.:."..DE PROGRAMMA'S (AAN DE ANDERE KANT
VAN DE CASSETTE)"......"..STAAN OP DE
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 DEEL
,.{.H.."......OOK VERKRIJGBAAR BIJ DE PB
E...P.."...U ZOU NU UW EIGEN PROGRAMMA'S
...Z.."...MOETEN KUNNEN SCHRIJVEN VOOR":
."..........ALLERLEI TAKEN......."......
..SUCCES!".........5E"
> CLICK IMAGE PREVIEW FOR FULL MODAL