1Z=INP(3)
2REM*******************************
3REM*HugoWikstr|mdata*onemore*
4REM*860713g}vatill*datagame*
5REM*S.software**
6REM*******************************
7REM*FREE:3546b*
8REM*******************************
9REM*G}vatillJoakimNordlander
10P$="CRAMOMAN"
11;CHR$(12):FORI=1TO14:;CHR$(151%):NEXTI
12RESTORE17
13READR%,K%
14IFR%=100%GOTO21
15FORA%=10%TO-10%STEP-1:FORD%=1%TOA%:NEXTD%:OUT6%,0%,6%,121%:NEXTA%
16;CUR(R%+5,K%+10%)""
17DATA4,4,2,8,7,14,4,12,5,16,1,17,2,1,5,10,5,8,6,1,7,18,1,12,7,6,7,9,4,1,3,16,1,4,4,19,7,11,5,4,7,16
18DATA3,8,7,4,4,2,2,19,6,12,1,8,1,16,6,8,6,4,7,1,6,12,1,1,3,4,2,12,7,17,3,1,4,16,6,10,4,8,4,3
19DATA3,12,5,19,2,4,2,16,5,1,6,16,6,19,1,18,5,19,5,12,3,19,100,100
20GOTO13
21FORI=1TO19:B$=LEFT$("Hugo Wikstr|ms Data",I):FORQ=1TO100:NEXTQ:;CUR(15,11)B$:NEXTI
22FORI=1TO8:B$=LEFT$("SOFTWARE",I):FORQ=1TO100:NEXTQ:;CUR(17,16)B$:NEXTI
23FORI=1TO11:B$=LEFT$("presenterar",I):FORQ=1TO100:NEXTQ:;CUR(19,15)B$:NEXTI
24L=LEN(P$)
25FORI=1TOL:B$=LEFT$(P$,I):FORQ=1TO100:NEXTQ:;CUR(21,20-(L/2))B$:NEXTI
26FORQ=1TO2000:NEXTQ:FORI=1TO24:;:FORZ=1TO10:FORX=1TOI:NEXTX
27OUT6%,0%,6%,121%:NEXTZ:NEXTI
28DIMS$(50%):DIMK4%(50%):DIMR4%(50%)
29R9=50%
30RANDOMIZE
31L9%=1%:M%=0%:P=0%:P1=0%:P2%=1%
32;CHR$(12%)"Vill du ha regler (NEJ)";:INPUTA$:IFNOTA$=""GOSUB189
33S1%=0%:U1%=-1%:X%=22%:Y%=34%:X3%=X%:Y3%=Y%:R3%=13%:K3%=20%:R6%=R3%:K6%=K3%:K5%=1%:R5%=1%
34;CHR$(12%)CUR(10,13)"R  E  D  O"
35;CUR(13,12)"L E V E L "L9%
36FOR\%=-10%TO50%STEP5%
37FOR\1%=20%TO-20%STEP-1%
38OUT6%,7%,6%,121%
39FORQ%=0%TO\1%+\%:NEXTQ%
40NEXT\1%:NEXT\%
41;CHR$(12):FORI=0TO21:;CHR$(151):NEXTI
42GOTO52
43C1$=" `p":C2$="h=-":C3$='"o'+CHR$(39%):RETURN
44C1$=" `p":C2$="h}":C3$='"oj&':RETURN
45C1$=" `p":C2$="(/}":C3$='"g'+CHR$(39%):RETURN
46C1$=" ``":C2$="h{z}":C3$='"o'+CHR$(39%):RETURN
47C1$=" `p":C2$="h}m}":C3$='"fs&':RETURN
48C1$=" `p":C2$="hwg}":C3$='"gs'+CHR$(39%):RETURN
49C1$=" `p":C2$="h}":C3$='"o'+CHR$(39%):RETURN
50C1$=" `p":C2$="(-}":C3$='"o'+CHR$(39%):RETURN
51C1$="":C2$="`|<t":C3$='+?':RETURN
52REMLANDSKAP
53IFL9%-34>0%ONL9%-20%RESTORE68,70,72,60,62,64,66,68,70,72,60,62,64,66,68,70,72:GOTO56
54IFL9%-20>0%ONL9%-20%RESTORE68,70,72,60,62,64,66,68,70,72,60,62,64,66,68,70,72:GOTO56
55ONL9%RESTORE60,62,64,66,68,70,72,60,62,64,66,68,70,72,60,62,64,66,68,70,72
56FORI%=5%TO20%STEP5%
57READK4%(I%/5%)
58R4%(I%/5%)=I%
59S$(I%/5%)=" \ "
60DATA20,23,5,30
61GOTO74
62DATA20,34,9,25
63GOTO74
64DATA16,26,8,20
65GOTO74
66DATA20,24,9,21
67GOTO74
68DATA30,26,25,8
69GOTO74
70DATA33,13,27,34
71GOTO74
72DATA29,18,31,14
73GOTO74
74NEXTI%
75R%=-2%:K%=2%:R1%=R%:K1%=K%:G%=1%:U%=-1%:S1%=0%
76IFL9%-33%>0%ONL9%-20%RESTORE92,95,98,80,83,86,89,92,95,98,80,83,86,89:GOTO79
77IFL9%-20%>0%ONL9%-20%RESTORE92,95,98,80,83,86,89,92,95,98,80,83,86,89:GOTO79
78ONL9%RESTORE80,83,86,89,92,95,98,80,83,86,89,92,95,98,80,83,86,89,92,95,98,80
79READA1$,A2$,A3$,A4$
80DATA'             ','          '
81DATA'            ',''
82REMPLAN2
83DATA'        ','                '
84DATA'                ',''
85REMPLAN3
86DATA's    ss    ss    ss','     sss     ss    ss    '
87DATA'     sss     s         ss    ','ssssssssssssssssssss'
88REMplan4
89DATA'wsssss{    ws{    ws{    ws{    ws{   ','              wss{    ws{   '
90DATA'       wss{    wsssssssssssss{    ws{ ','wsssssssssssssssssssssssssssssssssssss{'
91REMPLAN5
92DATA'/////      /     /     /     /     / ','        /     //    /    /      //   '
93DATA'   /     /    /    /    /    /      / ','/////////////////////////////////////'
94REMPLAN6
95DATA';;;;;              ;;;;        ;;;;;;','          ;;;;            ;;;;       '
96DATA'     ;;;;        ;;;;    ;;;;    ;;;;',';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;'
97REMPLAN7
98DATA'o?o?o?      o?o    o?o     ?o?  ?o?  ','       o?o?     o?o?    o?o?      o?o'
99DATA'o?o?o?      o?o?     o?      o?    o?','o?o?o?o?o?o?o?o?o?o?o?o?o?o?o?o?o?o?o?'
100REMMAINLOOOOP
101S9%=INP(56%)
102IFS9%=141%GOTO229
103OUT6%,0%
104;CUR(22%,0%)" CRAMOMAN'S:";2%-M%""TAB(15%)"PO[NG:";P"00"TAB(28%)"LEVEL:";L9%
105IFS1%=4%;CUR(21%,2%)"    ":OUT6%,17%:IFR%=19%GOTO163
106IFS9%=215%ANDU%<0%ANDR%>2%U%=5%:R%=R%+1%
107IFU%>-1%R%=R%-1%:U%=U%-1%:OUT6%,7%:IFU%=4%G1%=3%:GOTO119ELSEG1%=1%:GOTO119
108IFNOTDOT(R%*3%+9%,K%*2%)ANDNOTDOT(R%*3%+9%,K%*2%+7%)G1%=1%:GOTO110
109GOTO111
110IFNOTDOT(R%*3%+9%,K%*2%+3%)ANDNOTDOT(R%*3%+9%,K%*2%+5%)R%=R%+1%:G1%=1%:OUT6%,7%:GOTO119
111IFS9%=193%ORS9%=65%S%=-1%
112IFS9%=211%ORS9%=83%S%=1%
113K%=K%+S%:G%=G%+S%
114IFK%>32%K%=33%:G1%=2%:GOTO119ELSEG1%=0%
115IFK%<2%K%=1%:G1%=2%ELSEG1%=0%
116IFG%>4%G%=1%
117IFG%<1%G%=4%
118ONG%GOSUB43,44,45,46
119IFG1%>0%ONG1%GOSUB47,48,51:G1%=0%
120;CUR(R1%,K1%)"   "CUR(R1%+1%,K1%)"    "CUR(R1%+2%,K1%)"    "
121K1%=K%:R1%=R%
122;CUR(R%,K%)C1$CUR(R%+1%,K%)C2$CUR(R%+2%,K%)C3$
123;CUR(0,1)CHR$(151%)
124REMSKOTTRUTIN
125IFR%+1%=X%ANDU1%>-1%ANDNOTX1%=0%OUT6%,0%,6%,137%:U1%=U1%-1%:X1%=0%:IFK%>Y%Y1%=1%ELSEY1%=-1%
126IFK%+2%=Y%ANDU1%>-1%ANDNOTY1%=0%OUT6%,0%,6%,137%:U1%=U1%-1:Y1%=0%:IFR%>X%X1%=1%ELSEX1%=-1%
127;CUR(X3%,Y3%)" "
128IFX%>21%ORX%<1%ORY%>34%ORY%<2%U1%=-1%:X%=21%:Y%=34%:Y1%=-1%:U1%=L9%+1%:X1%=0%:GOTO131
129X%=X%+X1%:Y%=Y%+Y1%:;CUR(X%,Y%)"O":X3%=X%:Y3%=Y%
130IF(X%>=R%ANDX%<R%+2%)AND(Y%>=K%ANDY%<K%+3%)GOTO164
131FORQ%=1%TO300%-(L9%*50%):NEXTQ%
132IFL9%>7%GOSUB141
133IFL9%>14%GOSUB154
134REMSKATTRUTINOCHUPPRITNINGAVSPELPLAN
135FORI%=1%TO4%
136IFK%+2%=K4%(I%)ANDR%+2%=R4%(I%)ANDS$(I%)=" \ "S$(I%)="":S1%=S1%+1%:G1%=1%:GOSUB181
137;CUR(R4%(I%),K4%(I%)-1%)S$(I%):NEXTI%
138;CUR(6%,1%)A1$CUR(11%,1%)A2$CUR(16%,1%)A3$CUR(21%,1%)A4$
139GOTO101
140REMSTUDSSAK
141FORI%=6%TO21%STEP5%
142IFR5%=1%IFR3%=I%-1%ANDDOT(R3%*3%+3%,K3%*2%-1%)R5%=-1%*R5%
143IFR5%=-1%IFR3%=I%+1%ANDDOT(R3%*3%-1%,K3%*2%-1%)R5%=-1%*R5%
144NEXTI%
145IFR3%<1%ORR3%>20%R5%=-1%*R5%
146IFK3%<2%ORK3%>38%K5%=-1%*K5%
147;CUR(R6%,K6%)" "
148R3%=R3%+R5%:K3%=K3%+K5%
149IFA9%=0%A$="f":A9%=1%ELSEA$="9":A9%=0%
150R6%=R3%:K6%=K3%:;CUR(R3%,K3%)A$
151IF(R3%>=R%ANDR3%<R%+2%)AND(K3%>=K%ANDK3%<K%+3%)GOTO164
152RETURN
153REMMOLS\KNINSPRYL
154V7%=(RND*40%):IFV7%<L9%GOTO157
155IFR7%>R%R7%=R7%-1%ELSER7%=R7%+1
156IFK7%>K%K7%=K7%-1%ELSEK7%=K7%+1
157X9%=X9%-1%:IFX9%<1%X9%=L9%*2%:R7%=21%:K7%=38%
158IFX8%=0%A$="I":X8%=1%ELSEA$="H":X8%=0%
159;CUR(R8%,K8%)" ":R8%=R7%:K8%=K7%:;CUR(R7%,K7%)A$
160IF(R7%>=R%ANDR7%<R%+2%)AND(K7%>=K%ANDK7%<K%+3%)GOTO164
161RETURN
162REMBYTEAVLEVER
163L9%=L9%+1%:GOTO33
164REMMISSAR
165FORQ%=1%TO23%
166FORI%=1%TO4%
167ONI%GOSUB43,44,45,46
168;CUR(R%,K%)C1$CUR(R%+1%,K%)C2$CUR(R%+2%,K%)C3$
169FORC%=1%TOQ%*I%*2%:NEXTC%
170OUT6%,7%
171FORC%=1%TOQ%*I%*2%:NEXTC%
172OUT6%,137%
173NEXTI%:NEXTQ%
174GOSUB48
175;CUR(R%,K%)C1$CUR(R%+1%,K%)C2$CUR(R%+2%,K%)C3$
176;CUR(R%-1%,K%)"MUPP"
177FORQ%=1%TO5000%:NEXTQ%
178M%=M%+1%:IFM%=3%GOTO229
179GOTO33
180REMLJUDEFEKT
181;CUR(R%-1%,K%)"MUMS"
182FORA%=10%TO-10%STEP-1%:FORB%=1%TO10%:OUT6%,0%,6%,121%:FORD%=1%TOA%:NEXTD%:NEXTB%
183NEXTA%
184;CUR(R%-1%,K%)"    "
185FORI%=1%TOL9%
186P=P+1:P1=P1+1:IFP1>P2%*100%M%=M%-1%:P1=0%:P2%=P2%*2%:GOSUB238
187NEXTI%
188RETURN
189FORM1%=1TO2%
190;CHR$(12)"CRAMOMAN ***** CRAMOMAN ***** CRAMOMAN"
191ONM1%RESTORE209,214
192R1%=2:K1%=0%
193ONERRORGOTO219
194FORR%=2%TO20STEP2
195READA$
196IFA$="EXIT"GOTO219
197Q%=LEN(A$)
198FORK%=1%TOQ%
199FORX%=1%TO150%:NEXTX%
200GOSUB223
201B$=LEFT$(A$,K%)
202;CUR(R%,0%)CHR$(135%)B$
203A1%=A1%+1%:IFA1%>4%A1%=1%
204ONA1%GOSUB43,44,45,46
205;CUR(R1%-1%,K1%)"     "CUR(R1%,K1%)"     "CUR(R1%+1%,K1%)"     "
206K1%=K%:R1%=R%
207;CUR(R%-1%,K%)CHR$(151%)C1$CUR(R%,K%)CHR$(151%)C2$CUR(R%+1%,K%)CHR$(151%)C3$
208NEXTK%
209DATA,,'I detta spel CRAMOMAN ( by H.W.D )  '
210DATA'Ska du styra mig.Och akta mig   ','ifr}n den farliga m}ls|knings  '
211DATA'saken "O" och andra prylar som  ','kommer under spelets g}ng.  '
212DATA'F|r om den ot{ck lilla typen   ','tr{ffar mig s} d} f}r ni skylla  ','er sj{lva.   TRYCK RETURN    '
213DATA'EXIT'
214REM
215DATA,,'De hela g}r ut p} att man ska  ','mummsa kakor "\",4st per LEVEL. '
216DATA'Du styr med F|ljande tangeter: ','W  Hoppa  ','A  V{nster  ','S  H|ger  '
217DATA'Obs uppercase m}ste lysa....','Lycka Till!!!!!  TRYCK P] RETURN  ','EXIT'
218NEXTR%
219IFINP(56%)=141%NEXTM1%:RETURNELSEGOTO220
220FORX%=1%TO200%:NEXTX%
221GOSUB223
222GOTO219
223X%=INT(RND*8%)+1%
224ONX%GOSUB43,44,45,46,47,48,49,50
225;CUR(1%,2%)CHR$(151%)C1$CUR(2%,2%)CHR$(151%)C2$CUR(3%,2%)CHR$(151%)C3$
226;CUR(1%,17%)CHR$(151%)C1$CUR(2%,17%)CHR$(151%)C2$CUR(3%,17%)CHR$(151%)C3$
227;CUR(1%,32%)CHR$(151%)C1$CUR(2%,32%)CHR$(151%)C2$CUR(3%,32%)CHR$(151%)C3$
228RETURN
229REMSLUTIRUTAN
230;CHR$(12%)"CRAMOMAN ***** CRAMOMAN ***** CRAMOMAN"
231;:;:;:;"DINA PO[NG:"P"00"
232IFP>R9R9=P
233;:;:;"REKORD:"R9"00"
234;:;:;:;:;"VILL DU SPELA MER (JA)";:INPUTA$:IFA$=""GOTO31
235IFA$="NEJ"ORA$="N"GOTO236ELSEGOTO31
236;:;:;"V{lkommen }ter p} nya f|rs|k...":;:;"FROM H.W.D":;"1986":END
237REMJLUSEFEKT
238FORI1%=0%TO23%:;CUR(I1%,1%)CHR$(151%)"":NEXTI1%:;CHR$(12%)
239FORI1%=0%TO22%:;CHR$(151%):NEXTI1%:RETURN