1 FORV=1TO26:PRINT:NEXTV 2 PRINT"FILES WRITE PROGRAM" 3 Z=0:PRINT 4 FORV=2005TO8005STEP50 5 IFPEEK(V)=36THENZ=Z+1 6 NEXT 7 PRINTZ;" FILES FREE" 8 A=(50*(121-Z)+2000) 9 PRINT:PRINT"FILE NUMBER ";121 10 PRINT:INPUT"DATE DD ";X 11 POKEA,X 13 POKEA+1,X 14 INPUT"DATE YY ";X 15 POKEA+2,X 16 PRINT:INPUT"KONTESTP. XX ";X 17 POKEA+3,X 18 POKEA+4,0 19 PRINT:INPUT"CALL";X$ 20 FORV=1TO6 21 Y$=MID$(X$,V,1) 22 IFY$=""THENY$=" " 23 POKEA+4+V,ASC(Y$) 24 NEXTV 25 PRINT:INPUT"NAME ";X$ 26 FORV=1TO10 27 Y$=MID$(X$,V,1) 28 IFY$=" "THENY$=" " 29 POKEA+10+V,ASC(Y$) 30 NEXTV 31 PRINT:INPUT"ORT ";X$ 32 FORV=1TO10 33 Y$=MID$(X$,V,1) 34 IFY$=""THENY$=" " 35 POKEA+20+V,ASC(Y$) 36 NEXTV 37 PRINT:INPUT"DISTRICT ";X$ 38 INPUT"NUMBER ";X 39 POKEA+31,ASC(X$) 40 POKEA+32,X 41 PRINT:INPUT"TIME HH";X 42 POKEA+33,X 43 INPUT"TIME MM";X 44 POKEA+34,X 45 PRINT:INPUT"RPRT G";X 46 POKEA+36,X 47 INPUT"RPRT B";X 48 POKEA+39,X 49 PRINT:INPUT"QTH ";X$ 50 FORV=1TO5 51 Y$=MID$(X$,V,1) 52 IFY$=" "THEN Y$=" "58 IFY$=" "THEN Y$=" " 53 POKEA+39+V,ASC(Y$) 54 NEXTV 55 PRINT:INPUT"FRQ. XXXXX";X$ 56 FOR=1TO5 57 Y$=MID$(X$,V,1) 58 IFY$=""THENY$=" " 59 POKEA+44+V,ASC(Y$) 60 NEXTV 61 PRINT:PRINT 62 INPUT"NEXT DO E,W ";X$ 63 IFX$="E"THENEND 64 IFX$="W"THENRUN 65 PRINT 66 PRINT"TRY AGAIN ":GOTO61 67 REM 68 REM 69 REM 70 REM 71 REM DF9RY KNOE 72 REM 73 REM KOHLBERG 74 REM 75 REM 18.08.79 OK