home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9107a.d64
/
codify
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
21 lines
0 PRINT"[147]";:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251:RE=20:RE$="STEFAN"
1 FORQ=49152TO49172:READX:POKEQ,X:NEXT:SYS49152:POKE1,PEEK(1)OR4
2 POKE 56334,PEEK(56334)OR1:DATA 162,0,189,0,208,157,0,32,189,255,208,157,255
3 POKE 788,123:DATA 32,232,224,255,208,239,96,0
4 POKE53272,24:FORQ=280TO351:READI:POKE8192+Q,I:NEXTQ:GOTO19
5 PRINT""TAB(15)"- CODIFY -":FORQ=1TO5:W(Q)=INT(4*RND(0)+1):NEXTQ:PRINTTAB(9);
6 PRINT"F1-( F3-) F5-* F7-+":FORQ=1TO20:FORI=1TO5:POKE53281,0:POKE53280,0
7 FORX=1TO4:POKE1114+Q*40+I,X+34:FORXX=1TO10:GETA$:IFA$=""THENNEXTXX,X:GOTO 7
8 POKE54276,0:POKE54296,15:POKE54277,25:POKE54273,10:POKE54272,10:POKE54276,33
9 FORQQ=1TO4:IFA$=CHR$(QQ+132)THENR(I)=QQ:POKE1114+Q*40+I,39+QQ:NEXTI:GOTO11
10 NEXTQQ:GOTO7:DATA255,129,129,129,129,129,129,255,0,126,66,66,66,66,126,0,0
11 E=0:FORWW=1TO5:IFR(WW)=W(WW)THENE=E+1:DATA 0,60,36,36,60,0,0,0,0,0,24,24,0,0
12 NEXTWW:IFE<5ANDE>0THENFORWW=1TOE:POKE1124+Q*40+WW,39:NEXTWW,Q:GOTO 17
13 IF E=0 THEN NEXTQ:GOTO17:DATA0,60,126,219,255,189,195,126,60,0,24,36,66,66
14 PRINT"[147] GESCHAFT !!!! VERSUCHE-"Q:PRINT:PRINT:IFQ>RETHENGOTO18:DATA36,24,0
15 PRINT" OLD RECORD-"RE" "RE$:PRINT" NEW RECORD-"Q" ";:POKE 19,1:RESTORE
16 INPUT RE$:RE=Q:GOTO19:DATA0,126,66,66,66,66,126,0,0,24,60,126,126,60,24,0,0
17 FORQ=1TO5:POKE1954+Q,39+W(Q):NEXT:FORQ=1TO5000:NEXT:PRINT"[147]":DATA126,126,126
18 PRINT" RECORD-"RE" "RE$:GETA$:IFA$=""THEN18:DATA126,126,126,0
19 PRINT"[147]";:FORQ=1TO20:PRINT" "Q TAB(11)"----- -----":NEXTQ:GOTO5