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