1000 A=600:GOTO 20:REM Hobbyscoop-krant 1010 GOSUB 100:REM eerst scherm opmeten 1020 I=0:J=I:VE=I:IP=64:JP=IP:FOR A=1 TO 7 1030 I=I+IP:HO=I:GOSUB 110:GOSUB 120:IF HO<>I THEN I=I-IP 1040 J=J+JP:VE=J:GOSUB 110:GOSUB 120:IF VE<>J THEN J=J-JP 1050 IP=IP/2:JP=JP/2:NEXT A:HP=I+1:VP=J+1 1060 REM begin programma 1070 DIM K$(6) 1080 GOSUB 100:PRINT"HOBBYSCOOPKRANT" 1090 PRINT:PRINT"Naar P)rinter of S)cherm ?"; 1100 GOSUB 210:GOSUB 1800 1110 IF(IN$<>"P") AND(IN$<>"S") THEN 1100 1120 PRINT IN$:PRINT 1130 PT=1:IF IN$="S" THEN PT=0:GOTO 1310 1140 PRINT"Hoeveel letters per regel "; 1150 INPUT HP 1160 PRINT:PRINT"Kantlijnbreedte "; 1170 INPUT SP:GOSUB 1900:KL$=SP$ 1180 HP=HP-SP:IF SP>1 THEN HP=HP-SP+2 1190 PRINT:PRINT"Hoeveel regels tekst per pagina "; 1200 INPUT VP 1210 PRINT:PRINT"K)ettingformulieren of L)osse vellen ?"; 1220 GOSUB 210:GOSUB 1800 1230 IF(IN$<>"K") AND(IN$<>"L") THEN 1220 1240 PRINT IN$:PRINT 1250 KF=1:IF IN$="L" THEN KF=0:GOTO 1280 1260 PRINT"Hoeveel lege regels onderaan vel "; 1270 INPUT LR:PRINT 1280 PRINT"Zet de printer klaar" 1290 PRINT"en druk op een toets" 1300 GOSUB 210 1310 RT=0:H=0:N=1:KL=0 1320 REM print de kop 1330 K$(0)="******************************" 1340 K$(1)="* N.O.S.- HOBBYSCOOP *" 1350 K$(2)="* RADIOTEKST *" 1360 K$(3)="* BEELDKRANT MET DAARIN *" 1370 K$(4)="* OPGENOMEN DE *" 1380 K$(5)="* LANDELIJKE COMPUTER AGENDA *" 1390 K$(6)="******************************" 1400 GOSUB 100 1410 SP=INT((HP-30)/2):IF PT=1 THEN SP=SP-3 1420 GOSUB 1900 1430 SR$=" ":GOSUB 20000 1440 FOR I=0 TO 6:SR$=SP$+K$(I):GOSUB 20000:NEXT I 1450 RESTORE:READ DD$ 1460 SR$=" ":GOSUB 20000 1470 A$="Aflevering no: "+DD$ 1480 SP=INT((HP-LEN(A$))/2):IF PT=1 THEN SP=SP-3 1490 GOSUB 1900 1500 SR$=SP$+A$:GOSUB 20000 1510 SR$=" ":GOSUB 20000 1520 SR$="Zend uw bijdragen voor onze":GOSUB 20000 1530 SR$="beeldkrant aan:":GOSUB 20000 1540 SR$=" ":GOSUB 20000 1550 SR$="N.O.S. Hobbyscoop Beeldkrant,":GOSUB 20000 1560 SR$="Postbus 1200,":GOSUB 20000 1570 SR$="1200 BE Hilversum.":GOSUB 20000 1580 A$="":REM print de overige data 1590 READ BB$ 1600 GOSUB 23000 1610 GOSUB 24000 1620 IF KL=0 THEN 1600 1630 END 1800 IF(IN$<"a") OR(IN$>"z") THEN RETURN 1810 IN$=CHR$(ASC(IN$)-ASC("a")+ASC("A")) 1820 RETURN 1900 SP$="":IF SP<1 THEN RETURN 1910 FOR I=1 TO SP:SP$=SP$+" ":NEXT I 1920 RETURN 20000 REM afdruk subroutine 20010 IF SR$="" THEN RETURN 20020 IF PT=1 THEN 20060 20030 PRINT SR$ 20040 RT=RT+1:IF RT=VP-4 THEN GOSUB 21000 20050 RETURN 20060 SR$=KL$+SR$:GOSUB 350:GOSUB 360:RT=RT+1 20070 IF RT=VP THEN GOSUB 22000 20080 RETURN 21000 REM scherm vol 21010 IF RT=0 THEN RETURN 21020 HO=0:VE=VP-1:GOSUB 110 21030 PRINT""; 21040 GOSUB 210:GOSUB 100:RT=0:RETURN 22000 REM papier vol 22010 IF KF=1 THEN FOR I=1 TO LR:GOSUB 360:NEXT I:GOTO 22050 22020 PRINT"Zet de printer bovenaan nieuwe pagina" 22030 PRINT"en druk daarna op een toets." 22040 GOSUB 210:GOSUB 100 22050 RT=0:N=N+1:SR=N:GOSUB 300:N$=SR$ 22060 SR$="Afl. no: "+DD$+", pag. "+N$ 22070 RL=LEN(SR$):GOSUB 20060:SR$="" 22080 FOR I=1 TO RL:SR$=SR$+"-":NEXT I 22090 GOSUB 20060:SR$=" ":GOSUB 20060:RETURN 23000 IF BB$="$$$$$" THEN KL=1:H=1:RETURN 23010 IF A$<>"" THEN A$=A$+" " 23020 A$=A$+BB$:READ BB$ 23030 IF LEFT$(BB$,1)="#" THEN H=1:RETURN 23040 IF LEFT$(BB$,1)="." THEN H=1:RETURN 23050 IF A$=". " THEN RETURN 23060 IF LEFT$(A$,1)="#" THEN RETURN 23070 IF LEN(A$)".") AND(H<2) THEN 24070 24030 A$=RIGHT$(A$,LEN(A$)-1) 24040 IF H<2 THEN 24070 24050 IF PT=0 THEN GOSUB 21000 24060 IF PT=1 THEN SR$=" ":GOSUB 20000 24070 IF A$=" " THEN SR$=A$:A$="":GOSUB 20000:GOTO 24160 24080 L=LEN(A$):IF(H=0) AND(L