ZX81 filename : [FREQUENTIE-19XX---NL-FREQUENTIE-19XX---NL]
File type : Cassette
Video frame buffer at : 4CE2 (Video buffer expanded)
BASIC variables begin at : 4FFB
End of save area : 7960
Video mode : PAL 50Hz
Next BASIC line : 4CE2 (doesn't seem to autostart)

BASIC listing
------------------------------------------------
1 REM [01][00][DD][2A][10][40][11][0C][00][DD][19][2A][10][40][11][2C][00][19][5E][23][56][EB][ED][5B][82][40][A7][ED][52][44][4D][2A][10][40][19][11][31][00][19][DD][56][00][7A][ED][B1][EA][B7][40][ED][43][82][40][C9][DD][E5][E5][DD][23][DD][56][00][7A][FE][E3][20][16][2A][10][40][11][31][00][19][EB][E1][DD][E1][A7][ED][52][22][82][40][ED][4B][82][40][C9][BE][20][03][23][18][DA][E1][DD][E1][18][C4][1B][1B][1B][1B]
20 LET F=10500
30 DIM A$(31)
40 DIM B$(10502)
50 LET B$(1)=" STOP "
60 LET B$(10502)=" STOP "
70 LET N=1
80 LET Z=1
81 LET KG=1
82 CLS
83 PRINT "TYP VOOR SCANNERS SC VOOR KORTEGOLF KG WAT IS UW KEUZE ?"
84 INPUT P$
85 IF P$="KG" THEN GOTO 90
86 IF P$="SC" THEN GOTO 100
87 GOTO 84
90 LET KG=2
100 CLS
120 CLS
140 PRINT ,,F+1-N;" GEHEUGENPLAATSEN VRIJ",,,"MENU:",,"1.NIEUWE GEGEVENS TOEVOEGEN","2.OPZOEKEN GEGEVENS","3.NAZOEKEN HELE BESTAND","4.GEGEVENS OP TAPE ZETTEN","TYP UW KEUZE IN:"
150 INPUT M$
152 IF M$="START" THEN RUN
153 IF M$<>"1" AND M$<>"2" AND M$<>"3" AND M$<>"4" THEN GOTO 150
160 LET M=VAL M$
170 CLS
180 GOTO 1000*M
1000 CLS
1010 GOTO 7000
1070 LET N$=N$+" STOP "
1090 LET L=LEN N$
1100 IF N+L>F+1 THEN GOTO 1300
1110 DIM T$(L)
1120 LET T$=N$
1130 FOR I=1 TO L
1135 LET N=N+1
1140 LET B$(N)=T$(I)
1150 NEXT I
1155 LET Z=0
1160 CLS
1170 PRINT "GEGEVENS INGEVOERD"," "
1175 PAUSE 100
1180 GOTO 1000*M
1300 CLS
1310 PRINT "NIET GENOEG GEHEUGEN RUIMTE"
1320 PAUSE 100
1330 GOTO 120
2000 CLS
2001 PRINT "TYP OPZOEKGEGEVEN IN (NEW LINE VOOR RETOUR NAAR MENU) :"
2010 INPUT N$
2020 IF N$="" THEN GOTO 120
2050 LET L=LEN N$
2060 IF L>30 THEN LET L=30
2070 LET A$=N$(1 TO L)+" STOP "
2090 POKE 16514,0
2100 POKE 16515,0
2150 LET P=USR 16516
2200 IF P>0 AND P<N THEN GOTO 2240
2209 CLS
2210 PRINT ,,"GEGEVEN NIET GEVONDEN"," "
2215 PAUSE 100
2220 GOTO 2000
2230 LET P=P-1
2240 IF B$(P)<>" STOP " THEN GOTO 2230
2250 CLS
2255 GOTO 2265
2265 PRINT " ";
2270 LET P=P+1
2300 IF B$(P)=" STOP " THEN GOTO 2400
2310 PRINT B$(P);
2320 GOTO 2270
2400 PRINT TAB 0,,,,,,"GEGEVENS WIJZIGEN ? (J/N)"
2410 INPUT S$
2420 IF CODE S$<>47 THEN GOTO 2470
2430 GOSUB 6000
2440 GOTO 7000
2470 CLS
2475 PRINT "VERDER ZOEKEN ? (J/N):"
2480 INPUT S$
2490 CLS
2500 IF CODE S$=47 THEN GOTO 2150
2510 GOTO 120
3000 CLS
3001 LET A$=" STOP STOP STOP "
3020 PRINT "GEGEVENS WORDEN GETOOND IN","INVOER VOLGORDE"
3030 PAUSE 100
3050 CLS
3060 POKE 16514,0
3070 POKE 16515,0
3100 LET P=USR 16516
3200 IF P>0 AND P<N THEN GOTO 3235
3210 PRINT "EINDE GEGEVENS OPSLAG"," "
3215 PAUSE 100
3220 GOTO 120
3235 PRINT " ";
3240 LET P=P+1
3270 IF B$(P)=" STOP " THEN GOTO 3300
3280 PRINT B$(P);
3290 GOTO 3240
3300 PRINT " "
3301 PRINT "M VOOR RETOUR NAAR MENU"
3310 PRINT "NEW LINE VOOR VOLGEND GEGEVEN"
3320 PRINT "W VOOR WISSEN VAN DIT GEGEVEN"
3340 INPUT S$
3350 CLS
3360 IF CODE S$=50 THEN GOTO 140
3370 IF CODE S$=60 THEN GOSUB 6000
3380 GOTO 3100
4000 PRINT "ZET RECORDER OP OPNEMEN"
4040 PRINT "LET OP VOLUME DRUK NU OP NEW LINE"
4050 PAUSE 3E4
4055 POKE 1643,255
4060 SAVE "FREQ"
4070 GOTO 90
6000 LET L=0
6010 LET L=L+1
6020 IF B$(P-L)<>" STOP " THEN GOTO 6010
6030 FOR I=P TO N
6040 LET B$(I-L)=B$(I)
6050 NEXT I
6060 LET N=N-L
6070 LET Z=0
6080 RETURN
7000 CLS
7001 PRINT "FREQUENTIE ?(NEWLINE VOOR MENU)"
7002 LET N$=""
7010 INPUT O$
7011 IF O$="" THEN GOTO 120
7012 GOSUB 9000
7013 PRINT "STATION ?"
7014 INPUT O$
7015 GOSUB 9000
7020 PRINT "BIJZONDERHEDEN ?"
7030 INPUT O$
7035 GOSUB 9000
7040 PRINT "PLAATS ?"
7050 INPUT O$
7055 GOSUB 9000
7056 IF KG=1 THEN GOTO 8040
7060 PRINT "LAND ?"
7062 INPUT O$
7063 GOSUB 9000
7065 PRINT "MODE ?(OMROEP/TELEX/MORSE)"
7070 INPUT O$
7075 GOSUB 9000
7080 PRINT "SINPO RAPPORT ?"
7090 INPUT O$
7095 GOSUB 9000
8000 PRINT "TIJD/DATUM ?"
8010 INPUT O$
8015 GOSUB 9000
8040 CLS
8050 PRINT N$
8060 PRINT TAB 0,,,,,,"TYP NEW LINE VOOR INVOEREN,OF C VOOR CORRIGEREN"
8070 INPUT O$
8080 IF CODE O$=40 THEN GOTO 7000
8090 GOTO 1070
9000 CLS
9010 LET N$=N$+"/"+O$
9020 RETURN
------------------------------------------------