home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of Select: Games 3
/
cd.iso
/
games
/
c64
/
testdisk.d64
/
vislice
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1993-07-29
|
4KB
|
222 lines
10 POKE53281,11:POKE53280,11:POKE646,8
70 PRINT"[147][159]***********"
72 PRINT"[156]* VISLICE *"
74 PRINT"[154]***********"
76 PRINT""
78 PRINT"[158]ODTIPKAJ GESLO !"
80 PRINT" KO ODTIPKAS GESLO PRITISNI * RETURN * "
110 B$="":C$="":U=23:W=0:L=0
120 GETA$:IFA$=""THEN120
130 IFA$=CHR$(13)THENPRINT"[147]":GOTO160
135 L=L+1
140 B$=B$+A$:PRINT"[152]ODTIPKAL SI ZE";L;TAB(22);"ZNAKOV !"
143 PRINT
145 PRINT"<< VKLJUCNO S PRESLEDKI >>"
150 GOTO120
160 B=LEN(B$)
170 FORI=1TOB
180 C$=C$+"."
190 NEXT
200 FORI=1TOB
210 IFMID$(B$,I,1)=CHR$(32)THENC$=LEFT$(C$,I-1)+" "+RIGHT$(C$,B-I)
220 NEXT
222 IFW=0THENGOSUB800
230 GOSUB900
240 IFC$=B$THENGOTO2000
250 GETA$:IFA$=""THEN250
260 R=0
270 FORI=1TOB
280 IFA$=MID$(B$,I,1)THENC$=LEFT$(C$,I-1)+A$+RIGHT$(C$,B-I):R=1:GOSUB600
290 NEXT
300 IFR=0THENU=U+1:PRINT"[159]":PRINTTAB(U)A$:GOSUB700:GOTO400
310 GOTO230
400 IFU=35THENGOTO3000
500 ONU-23GOSUB1000,1100,1200,1300,1350,1400,1500,1600,1700,1800,1900
510 GOTO250
600 S=54272
610 POKES+24,15
620 POKES+5,8:POKES+6,0
630 POKES+1,78:POKES,36
640 POKES+4,33
650 FORT=0TO300:NEXT
660 POKES+4,32
670 RETURN
700 S=54272
710 POKES+24,15
720 POKES+5,10:POKES+6,0
730 POKES+1,5:POKES,45
740 POKES+4,129
750 FORT=0TO300:NEXT
760 POKES+4,128
770 RETURN
800 PRINT"[158]"
810 PRINTTAB(23)" "
820 PRINTTAB(23)" VSTAVLJAJ "
830 PRINTTAB(23)" CRKE "
850 PRINTTAB(23)" [146]"
860 PRINT"
870 [129]T[178]0[164]600:[130]
875 [129]T[178]1[164]4
880 [153][163]23)" "
890 [130]
895 [142]
900 [151]646,1
905 [153]"
910 FORI=1TOB
920 IFMID$(C$,I,1)<>CHR$(32)THENPRINTMID$(C$,I,1);:GOTO940
922 W=W+1
924 IFW=1THENG$=LEFT$(C$,I)
930 PRINT:PRINT
940 NEXT
950 RETURN
1000 PRINT"
1010 [153][163]23)"CLR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"
1020 [142]
1100 [153][163]29)"
1110 FORI=0TO10
1120 PRINTTAB(25)"[156][170]"
1130 NEXT
1140 RETURN
1200 PRINT"
1210 [153][163]25)"CLRANDANDANDANDANDANDANDAND"
1220 [142]
1300 [153]"CLR
1310 PRINTTAB(28)"[206]"
1320 PRINTTAB(27)"[206]"
1330 PRINTTAB(26)"[206]"
1340 RETURN
1350 PRINT"[156]
1360 [153][163]31)"+SQR"
1370 [142]
1400 [153]""[170]Q$
1410 [153][163]31)"SYS(null)"[163]33)"(null)"
1420 [153][163]30)"+LOG(null)COSSGN"
1430 [153][163]31)"(null)STR$(null)"
1440 [153][163]32)"USR"
1450 [142]
1500 [153]""[170]Q$
1510 [153][163]31)"PRINT(null)"[163]33)"(null)"
1520 [153][163]31)"SGN +"
1530 [153][163]31)"(null)ANDSQR"
1540 [142]
1600 [153]""[170]Q$
1610 [153][163]34)"CONT(null)"
1620 [153][163]35)"FOR(null)"
1630 [142]
1700 [153]""[170]Q$
1710 [153][163]30)"CONT(null)"
1720 [153][163]29)"FORSQR"
1730 [142]
1800 [153]""[170]Q$
1810 [153][163]31)"ABS"
1820 [153][163]31)"FORSQR"
1830 [142]
1900 [153]""[170]Q$
1910 [153][163]33)"INT"
1920 [153][163]33)"FOR(null)"
1930 [142]
2000 [141]5000
2005 S$[178]""
2010 [129]J[178]1[164]10
2020 Z$[178]Z$[170]S$
2030 [153]""[170]Z$
2040 [153][163]28)" "
2050 [130]
2060 [153]"SYS"
2070 [153][163]32)"AND"
2100 Q$[178]""
2110 [129]J[178]1[164]6
2120 [145]J[141]1400,1500,1600,1700,1800,1900
2130 [130]
2140 [153]"LIST"[163]24)" "
2142 [153][163]24)" DOBER SI "
2144 [153][163]24)" WAIT"
2150 [151]646,15
2160 [137]3040
3000 [141]4000
3005 C$[178]B$:[153]"SYS"[163][195](G$)[170]3)"TO JE PRAVILNO GESLO"
3010 [151]646,10
3020 [141]905
3030 [153]"LIST"[163]23)" "
3032 [153][163]23)" OBESEN SI "
3034 [153][163]23)" WAIT"
3040 [153]"HOCES ZNOVA (D/N)?"
3050 [161]D$:[139]D$[178]""[167]3050
3060 [139]D$[178]"D"[167][141]7000:[140]:[156]:[137]10
3070 [139]D$[178]"N"[167]3090
3075 [137]3050
3090 [141]6000:[153]"** TUDI PRAV **"
3100 [151]S[170]24,0:[128]
4000 S[178]54272
4010 [151]S[170]5,88:[151]S[170]6,49:[151]S[170]12,88:[151]S[170]13,49:[151]S[170]19,88:[151]S[170]20,49
4020 [151]S[170]24,15
4030 [135]H1,L1
4032 [135]H2,L2
4034 [135]H3,L3
4036 [135]T
4040 [139]H1[178]0[167][142]
4050 [151]S[170]1,H1:[151]S,L1
4052 [151]S[170]8,H2:[151]S[170]7,L2
4054 [151]S[170]15,H3:[151]S[170]14,L3
4060 [151]S[170]4,33:[151]S[170]11,33:[151]S[170]18,33
4070 [129]I[178]1[164]T:[130]
4080 [151]S[170]4,32:[151]S[170]11,32:[151]S[170]18,32
4090 [137]4030
5000 S[178]54272:I[178]0
5010 [151]S[170]24,15
5020 [151]S[170]5,8:[151]S[170]6,0:[151]S[170]12,88:[151]S[170]19,89:[151]S[170]13,88:[151]S[170]20,88
5030 [129]F[178]1[164]3
5032 [145]F[141]5500,5600,5700
5034 [151]S[170]11,33:[151]S[170]18,33
5035 [129]E[178]1[164]2
5039 I[178]I[170]1
5040 [145]I[141]5200,5200,5300,5300,5400,5400
5042 [151]S[170]4,33
5044 [129]T[178]0[164]100:[130]
5046 [151]S[170]4,32
5048 [130]E
5050 [151]S[170]11,32:[151]S[170]18,32
5060 [130]
5090 [151]S[170]1,26:[151]S,20:[151]S[170]8,10:[151]S[170]7,247:[151]S[170]15,8:[151]S[170]14,180
5100 [151]S[170]4,33:[151]S[170]11,33:[151]S[170]18,33
5110 [129]T[178]0[164]600:[130]
5120 [151]S[170]4,32:[151]S[170]11,32:[151]S[170]18,32
5130 [142]
5200 [151]S[170]1,26:[151]S,20:[142]
5300 [151]S[170]1,29:[151]S,69:[142]
5400 [151]S[170]1,21:[151]S,237:[142]
5500 [151]S[170]8,10:[151]S[170]7,247:[151]S[170]15,8:[151]S[170]14,180:[142]
5600 [151]S[170]8,11:[151]S[170]7,157:[151]S[170]15,9:[151]S[170]14,196:[142]
5700 [151]S[170]8,8:[151]S[170]7,180:[151]S[170]15,7:[151]S[170]14,81:[142]
6000 S[178]54272
6010 [151]S[170]24,15
6020 [151]S[170]5,9:[151]S[170]6,0
6030 [129]T[178]150[164]50[169][171]5
6040 [151]S[170]1,T:[151]S,T
6050 [151]S[170]4,33
6060 [129]R[178]0[164]20:[130]
6070 [151]S[170]4,32
6080 [130]
6100 [142]
7000 S[178]54272
7010 [151]S[170]24,15
7020 [151]S[170]5,9:[151]S[170]6,0
7030 [129]T[178]50[164]150[169]5
7040 [151]S[170]1,T:[151]S,T
7050 [151]S[170]4,33
7060 [129]R[178]0[164]20:[130]
7070 [151]S[170]4,32
7080 [130]
7100 [142]
9000 [131]7,81,8,180,10,247,800
9010 [131]7,81,8,180,10,247,600
9020 [131]7,81,8,180,10,247,200
9030 [131]7,81,8,180,10,247,800
9040 [131]8,180,10,247,13,10,600
9050 [131]8,55,9,196,12,78,200
9060 [131]8,55,9,196,12,78,800
9070 [131]7,81,8,180,10,247,600
9080 [131]6,133,8,55,9,196,200
9090 [131]7,81,8,180,10,247,800
9100 [131]0,0,0,0,0,0,0