1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program .... HEADFIT.BAS
3 REM ! Utg}va 1981-11-20
4 REM ! av (c) Ferdinand Mican <912>
5 REM ! Minne 16 Kbytes
6 REM +++++++++++++++++++++++++++++++++
7 REM
8 REM Screening av
9 REM Allan Varcoe & G|ran Olsson
10 REM
11 REM +++++++++++++++++++++++++++++++++
12 REM
13 REM * VARIABELBESKRIVNING
14 REM
15 REM INMATNINGSVARIABLER
16 REM
17 REM C%=CICERO
18 C%=0
19 REM P%=PUNKTER
20 P%=0
21 REM B%=BER[KNAD BREDD I PUNKTER
22 B%=0
23 REM S$=TEXTEN SOM BER[KNAS
24 DIM S$(220)
25 REM S=ASCII-V[RDE AV TECKEN
26 S=0
27 REM N=VARIABEL F. ANTALET TECKEN
28 N=0
29 REM X%=TEXTEN I RELATIVA ENHETER
30 X%=0
31 REM Z%=FYRKANTENS RELATIVA ENHETER
32 REM M= MASKINENS MIN. GRAD
33 REM N%=MASKINENS MAX. GRAD
34 REM Y= BER[KNAD MAX. GRAD
35 Y=0
36 REM T$=PROGRAMAVSLUTNING
37 ; CHR$(12)
38 REM
39 REM **************************
40 REM
41 ; 'HEADFIT-PROGRAM'
42 ; '==============='
43 ;
44 ; : REM INMATNINGEN AV SPALTBREDDEN
45 ; 'SPALTBREDDEN [R 9 1/2 CICERO.'
46 ;
47 ; 'VILL DU [NDRA BREDDEN S] MATA IN'
48 ; '4 SIFFROR (XX,YY) X=CIC Y=PUNKTER';
49 ONERRORGOTO 205
50 INPUT C%,P%
51 IF C%>43 THEN PRINT 'MASKINEN S[TTER MAX. 43 CIC' : GOTO 47
52 B%=(C%*12)+P%
53 ;
54 ;
55 REM *****************************
56 ;
57 ; : REM INMATNINGEN AV TEXTEN
58 ; 'SKRIV TEXTEN. ';
59 INPUTLINE S$
60 ;
61 REM ******************************
62 ; : REM BER[KNINGEN AV TEXTEN
63 FOR N=1 TO LEN(S$)
64 S=ASC(MID$(S$,N,1))
65 IF S=97 THEN GOSUB 178
66 IF S=103 THEN GOSUB 178
67 IF S=111 THEN GOSUB 178
68 IF S=118 THEN GOSUB 178
69 IF S=120 THEN GOSUB 178
70 IF S=121 THEN GOSUB 178
71 IF S=74 THEN GOSUB 178
72 IF S=123 THEN GOSUB 178
73 IF S=124 THEN GOSUB 178
74 IF S=57 THEN GOSUB 178
75 IF S=125 THEN GOSUB 178
76 IF S=48 THEN GOSUB 178
77 IF S=49 THEN GOSUB 178
78 IF S=50 THEN GOSUB 178
79 IF S=51 THEN GOSUB 178
80 IF S=52 THEN GOSUB 178
81 IF S=53 THEN GOSUB 178
82 IF S=54 THEN GOSUB 178
83 IF S=55 THEN GOSUB 178
84 IF S=56 THEN GOSUB 178
85 IF S=98 THEN GOSUB 180
86 IF S=100 THEN GOSUB 180
87 IF S=104 THEN GOSUB 180
88 IF S=107 THEN GOSUB 180
89 IF S=110 THEN GOSUB 180
90 IF S=112 THEN GOSUB 180
91 IF S=113 THEN GOSUB 180
92 IF S=117 THEN GOSUB 180
93 IF S=83 THEN GOSUB 180
94 IF S=126 THEN GOSUB 180
95 IF S=99 THEN GOSUB 182
96 IF S=101 THEN GOSUB 182
97 IF S=114 THEN GOSUB 182
98 IF S=122 THEN GOSUB 182
99 IF S=102 THEN GOSUB 184
100 IF S=106 THEN GOSUB 184
101 IF S=116 THEN GOSUB 184
102 IF S=46 THEN GOSUB 184
103 IF S=44 THEN GOSUB 184
104 IF S=58 THEN GOSUB 184
105 IF S=59 THEN GOSUB 184
106 IF S=33 THEN GOSUB 184
107 IF S=40 THEN GOSUB 184
108 IF S=41 THEN GOSUB 184
109 IF S=45 THEN GOSUB 184
110 IF S=39 THEN GOSUB 184
111 IF S=105 THEN GOSUB 186
112 IF S=47 THEN GOSUB 186
113 IF S=63 THEN GOSUB 186
114 IF S=32 THEN GOSUB 186
115 IF S=108 THEN GOSUB 186
116 IF S=109 THEN GOSUB 188
117 IF S=38 THEN GOSUB 188
118 IF S=115 THEN GOSUB 190
119 IF S=73 THEN GOSUB 190
120 IF S=119 THEN GOSUB 192
121 IF S=65 THEN GOSUB 192
122 IF S=67 THEN GOSUB 192
123 IF S=68 THEN GOSUB 192
124 IF S=78 THEN GOSUB 192
125 IF S=82 THEN GOSUB 192
126 IF S=85 THEN GOSUB 192
127 IF S=86 THEN GOSUB 192
128 IF S=88 THEN GOSUB 192
129 IF S=94 THEN GOSUB 192
130 IF S=93 THEN GOSUB 192
131 IF S=91 THEN GOSUB 192
132 IF S=89 THEN GOSUB 192
133 IF S=66 THEN GOSUB 194
134 IF S=69 THEN GOSUB 194
135 IF S=76 THEN GOSUB 194
136 IF S=84 THEN GOSUB 194
137 IF S=90 THEN GOSUB 194
138 IF S=70 THEN GOSUB 196
139 IF S=80 THEN GOSUB 196
140 IF S=71 THEN GOSUB 198
141 IF S=72 THEN GOSUB 198
142 IF S=75 THEN GOSUB 198
143 IF S=79 THEN GOSUB 198
144 IF S=81 THEN GOSUB 198
145 IF S=92 THEN GOSUB 198
146 IF S=77 THEN GOSUB 200
147 IF S=87 THEN GOSUB 202
148 IF S=95 THEN GOSUB 202
149 IF S=37 THEN GOSUB 202
150 S1%=S1%+X%
151 NEXT N
152 ; 'TEXTEN [R P] ';X%;' RELATIVA ENHETER.'
153 REM *****************************
154 REM * BER[KNING MAX-GRAD *******
155 Z%=54 : M=4.5 : N%=72
156 ONERRORGOTO 12
157 Y=INT(1.07*B%*Z%/X%)
158 IF Y>N% THEN Y=N%
159 IF Y