1 REM Ins{nt av 3528
9 REM *********** L[S GLIPP.INF
10 REM * GLIPP KAN F]S SNABBARE MED
11 REM * S%=CALL(54510%)
12 REM * ]TER MED S%=CALL(54505%)
13 DEFFNP%(X%)=PEEK(X%)+SWAP%(PEEK(X%+1%))
14 DEFFNM=SWAP%(PEEK(65064%)-PEEK(65057%))+PEEK(65063%)-PEEK(65056%)
15 DIM A$(5%)=4%,A$=40%
16 P%=FNP%(51328%) : P1%=FNP%(51346%)
17 DIM T8$(17%)=3%,P8$(17%)=3%,S8$(17%)=3%,T8%(17%),P8%(17%),S8%(17%)
18 IF T8%(1%)=0% THEN 19 ELSE 23
19 FOR I%=1% TO 15% : P8$(I%)="___" : NEXT I%
20 OPEN "GLIPP.REC" ASFILE 5
21 FOR I%=1% TO 15% : INPUT #5,S8%(I%),S8$(I%),T8%(I%),T8$(I%) : NEXT I%
22 CLOSE 5 : GOTO 74
23 ; CHR$(12);"       ***  SCORE-BOARD ***"
24 ; "            ==========="
25 ; : ; : ; "  Today         Personal      Alltime"
26 ; "  -----         ________      ______"
27 FOR I%=1% TO 15%
28 IF P%>P8%(I%) THEN 30
29 NEXT I% : P8%=16% : GOTO 34
30 P8%=I%
31 FOR I%=15% TO P8%+1% STEP -1%
32 P8%(I%)=P8%(I%-1%) : P8$(I%)=P8$(I%-1%)
33 NEXT I% : P8%(P8%)=P%
34 FOR I%=1% TO 15%
35 IF P%>T8%(I%) THEN 37
36 NEXT I% : T8%=16% : GOTO 41
37 T8%=I% : GOSUB 73
38 FOR I%=15% TO T8%+1% STEP -1%
39 T8%(I%)=T8%(I%-1%) : T8$(I%)=T8$(I%-1%)
40 NEXT I% : T8%(T8%)=P%
41 FOR I%=1% TO 15%
42 ; CUR(5%+I%,0%);P8%(I%);CUR(5%+I%,8%);P8$(I%);
43 ; CUR(5%+I%,14%);S8%(I%);CUR(5%+I%,22%);S8$(I%);
44 ; CUR(5%+I%,28%);T8%(I%);CUR(5%+I%,36%);T8$(I%);
45 NEXT I%
46 POKE 65013,0
47 ; CUR(5%+P8%,7%);"     "
48 IF T8%=16% THEN 50
49 ; CUR(5%+T8%,35%);"    "
50 ; CUR(5%+P8%,7%); : INPUT P8$(P8%)
51 IF P8$(P8%)='' 68
52 IF T8%=16% THEN 54
53 T8$(T8%)=P8$(P8%) : ; CUR(5%+T8%,36%);T8$(T8%)
54 FOR I%=1% TO 15% : IF S8$(I%)=P8$(P8%) 59 : NEXT I%
55 FOR I%=1% TO 15% : IF P%>S8%(I%) 57
56 NEXT I% : S8%=16% : GOTO 65
57 S8%=I% : GOSUB 73 : FOR I%=15% TO S8%+1% STEP -1%
58 S8%(I%)=S8%(I%-1%) : S8$(I%)=S8$(I%-1%) : NEXT I% : S8%(S8%)=P% : S8$(S8%)=P8$(P8%) : GOTO 65
59 S8%=I% : IF P%>S8%(S8%) 60 ELSE 68
60 GOSUB 73 : FOR I%=S8% TO 14% : S8%(I%)=S8%(I%+1%) : S8$(I%)=S8$(I%+1%) : NEXT I%
61 FOR I%=1% TO 15% : IF P%>S8%(I%) 62 : NEXT I%
62 S8%=I% : GOSUB 73 : FOR I%=14% TO S8%+1% STEP -1%
63 S8%(I%)=S8%(I%-1%) : S8$(I%)=S8$(I%-1%)
64 NEXT I% : S8%(S8%)=P% : S8$(S8%)=P8$(P8%)
65 FOR I%=1% TO 15%
66 ; CUR(5%+I%,14%);S8%(I%);CUR(5%+I%,22%);S8$(I%)
67 NEXT I%
68 IF T8%(17%)=0% 71 : PREPARE "GLIPP.REC" ASFILE 5
69 FOR I%=1% TO 15% : ; #5,S8%(I%) : ; #5,S8$(I%) : ; #5,T8%(I%) : ; #5,T8$(I%) : NEXT I%
70 CLOSE 5 : T8%(17%)=0%
71 ; CUR(23%,10%);"EN G]NG TILL <J/N>"; : GET B$
72 IF B$="J" OR B$="j" THEN 74 ELSE 192
73 T8%(17%)=1% : OUT 6,237 : FOR I=1 TO 1200 : NEXT I : OUT 6,0 : RETURN 
74 F%=0% : F1%=1%
75 ON F1% GOSUB 96,115,141,91
76 FOR I=1% TO 700%
77 IF INP(56%)>128% F%=-1%
78 IF F%=0% NEXT I : F1%=F1%+1%-(F1%>3% AND 4%) : GOTO 75
79 IF (INP(56%) AND 127%)=3% END 
80 S%=CALL(53930%)
81 IF S% S%=CALL(53830%) : GOTO 81
82 S%=PEEK(51334%)
83 IF (S% AND 128%) GOSUB 176
84 FOR I=1% TO 1000% : NEXT I
85 OUT 6%,0% : GOTO 16
86 ; CHR$(12%) : ; TAB(17%)"GLIPP"
87 FOR I%=3% TO 22%
88 ; CHR$(151%)
89 NEXT I%
90 RETURN 
91 GOSUB 86
92 ; CUR(10%,10%)" TRYCK F\R START"
93 FOR I=1% TO 1700%
94 IF INP(56%)>128% F%=-1% : RETURN 
95 NEXT I : RETURN 
96 GOSUB 86
97 FOR I=1% TO 500% : NEXT I
98 A$=CHR$(135%)+"ETT MONTY & KAJ- PROGRAM       "
99 S%=49752% : S1%=72%
100 GOSUB 134
101 FOR I%=1% TO 39%
102 FOR I1%=0% TO 3% STEP 3%
103 IF INP(56%)>128% F%=-1% : RETURN 
104 FOR I2%=0% TO 2%
105 ; CUR(I2%,I%-1%)CHR$(151%)MID$(A$(I1%+I2%),1%,39%-I%-(I%<37% AND 36%-I%))
106 NEXT I2%
107 FOR I=1% TO 70% : NEXT I
108 NEXT I1%
109 IF I%<9% THEN 111
110 ; CUR(1%,I%-2%)MID$(A$,I%-8%,1%)
111 IF I%>12% AND I%<19% S%=145% ELSE S%=129%
112 OUT 6%,0%,6%,S%
113 NEXT I%
114 RETURN 
115 S%=50100% : S1%=-96%
116 RESTORE 185
117 FOR I%=1% TO 5%
118 GOSUB 134
119 OUT 6%,0%,6%,135% : READ A$
120 FOR I1%=35% TO 10% STEP -1%
121 FOR I2%=0% TO 3% STEP 3%
122 IF INP(56%)>128% F%=-1% : RETURN 
123 FOR I3%=0% TO 2%
124 ; CUR(4%+I%*3%+I3%,I1%)A$(I2%+I3%)" "
125 NEXT I3%
126 FOR I=1% TO 70% : NEXT I
127 NEXT I2%
128 NEXT I1%
129 ; CUR(5%+I%*3%,16%)CHR$(135%)A$
130 FOR I=1% TO 600% : NEXT I
131 IF I%<>1% S%=S%-72% ELSE S%=S%-444%+84%
132 NEXT I%
133 RETURN 
134 FOR I1%=0% TO 5% : A$(I1%)=""
135 FOR I2%=0% TO 3%
136 A$(I1%)=A$(I1%)+CHR$(PEEK(S%+I2%)+32%)
137 NEXT I2% : S%=S%+4%
138 IF I1%=2% S%=S%+S1%
139 NEXT I1%
140 RETURN 
141 GOSUB 86
142 ; CUR(4%,0%)"ANTAL PO[NG:"
143 ; CUR(11%,25%)"xom0"
144 ; CHR$(151%)"          !             ???5"
145 POKE 32186%,255%
146 POKE 32201%,131%,191%,191%
147 FOR I=1% TO 1000%
148 IF INP(56%)>128% F%=-1% : RETURN 
149 NEXT I
150 S%=49728% : S1%=72%
151 GOSUB 134
152 FOR I%=0% TO 5%
153 A$(I%)=LEFT$(A$(I%),3%)
154 NEXT I%
155 RESTORE 190
156 READ T%,A$
157 FOR I%=1% TO 39%
158 FOR I1%=0% TO 3% STEP 3%
159 IF INP(56%)>128% F%=-1% : RETURN 
160 FOR I2%=0% TO 2%
161 ; CUR(I2%+11%,I%-1%)CHR$(151%)MID$(A$(I1%+I2%),1%,39%-I%-(I%<37% AND 36%-I%))
162 NEXT I2%
163 FOR I=1% TO 70% : NEXT I
164 NEXT I1%
165 IF I%>22% THEN 168
166 FOR I1%=32321% TO 32323% : POKE I1%,PEEK(I1%) XOR 80% : NEXT I1%
167 POKE I1%,PEEK(I1%) XOR 16%
168 IF I%<>T% THEN 174
169 ; CUR(11%,T%+3%)"    "CUR(12%,T%+3%)"    "
170 ; CUR(4%,13%)A$ : READ T%,A$
171 IF T%=22% ; CUR(11%,25%)"`nd "
172 OUT 6%,0%,6%,157%
173 FOR I=1% TO 700% : NEXT I
174 NEXT I%
175 RETURN 
176 ; CUR(4%,7%)"HIGH "CUR(5%,7%)"SCORE"
177 FOR I%=1% TO 2%
178 RESTORE 191
179 FOR I=1% TO 300% : NEXT I
180 FOR I1%=1% TO 7%
181 READ A%,B%
182 FOR I=1% TO B% : OUT 6%,A% : NEXT I
183 OUT 6%,0% : NEXT I1% : NEXT I%
184 RETURN 
185 DATA "        GLIPP"
186 DATA "  EJ FARLIG (Kan {tas)"
187 DATA "       FARLIG !!!"
188 DATA "       FARLIG !!!"
189 DATA "       FARLIG !!!"
190 DATA 9,"1",16,"10",22,"10---640",31,"20---160",-1,-1
191 DATA 251,500, 3,400, 0,100, 3,400, 219,400, 0,100, 219,400
192 END