home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / emulator / c64 / testdisk.d64 / vislice (.txt) < prev   
Encoding:
Commodore BASIC  |  1994-02-03  |  4.0 KB  |  222 lines
  1. 10 POKE53281,11:POKE53280,11:POKE646,8
  2. 70 PRINT"[147][159]***********"
  3. 72 PRINT"[156]* VISLICE *"
  4. 74 PRINT"[154]***********"
  5. 76 PRINT""
  6. 78 PRINT"[158]ODTIPKAJ GESLO !"
  7. 80 PRINT" KO ODTIPKAS GESLO PRITISNI * RETURN * "
  8. 110 B$="":C$="":U=23:W=0:L=0
  9. 120 GETA$:IFA$=""THEN120
  10. 130 IFA$=CHR$(13)THENPRINT"[147]":GOTO160
  11. 135 L=L+1
  12. 140 B$=B$+A$:PRINT"[152]ODTIPKAL SI ZE";L;TAB(22);"ZNAKOV !"
  13. 143 PRINT
  14. 145 PRINT"<< VKLJUCNO S PRESLEDKI >>"
  15. 150 GOTO120
  16. 160 B=LEN(B$)
  17. 170 FORI=1TOB
  18. 180 C$=C$+"."
  19. 190 NEXT
  20. 200 FORI=1TOB
  21. 210 IFMID$(B$,I,1)=CHR$(32)THENC$=LEFT$(C$,I-1)+" "+RIGHT$(C$,B-I)
  22. 220 NEXT
  23. 222 IFW=0THENGOSUB800
  24. 230 GOSUB900
  25. 240 IFC$=B$THENGOTO2000
  26. 250 GETA$:IFA$=""THEN250
  27. 260 R=0
  28. 270 FORI=1TOB
  29. 280 IFA$=MID$(B$,I,1)THENC$=LEFT$(C$,I-1)+A$+RIGHT$(C$,B-I):R=1:GOSUB600
  30. 290 NEXT
  31. 300 IFR=0THENU=U+1:PRINT"[159]":PRINTTAB(U)A$:GOSUB700:GOTO400
  32. 310 GOTO230
  33. 400 IFU=35THENGOTO3000
  34. 500 ONU-23GOSUB1000,1100,1200,1300,1350,1400,1500,1600,1700,1800,1900
  35. 510 GOTO250
  36. 600 S=54272
  37. 610 POKES+24,15
  38. 620 POKES+5,8:POKES+6,0
  39. 630 POKES+1,78:POKES,36
  40. 640 POKES+4,33
  41. 650 FORT=0TO300:NEXT
  42. 660 POKES+4,32
  43. 670 RETURN
  44. 700 S=54272
  45. 710 POKES+24,15
  46. 720 POKES+5,10:POKES+6,0
  47. 730 POKES+1,5:POKES,45
  48. 740 POKES+4,129
  49. 750 FORT=0TO300:NEXT
  50. 760 POKES+4,128
  51. 770 RETURN
  52. 800 PRINT"[158]"
  53. 810 PRINTTAB(23)"            "
  54. 820 PRINTTAB(23)" VSTAVLJAJ  "
  55. 830 PRINTTAB(23)"   CRKE     "
  56. 850 PRINTTAB(23)"            [146]"
  57. 860 PRINT"
  58. 870 [129]T[178]0[164]600:[130]
  59. 875 [129]T[178]1[164]4
  60. 880 [153][163]23)"              "
  61. 890 [130]
  62. 895 [142]
  63. 900 [151]646,1
  64. 905 [153]"
  65. 910 FORI=1TOB
  66. 920 IFMID$(C$,I,1)<>CHR$(32)THENPRINTMID$(C$,I,1);:GOTO940
  67. 922 W=W+1
  68. 924 IFW=1THENG$=LEFT$(C$,I)
  69. 930 PRINT:PRINT
  70. 940 NEXT
  71. 950 RETURN
  72. 1000 PRINT"
  73. 1010 [153][163]23)"CLR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"
  74. 1020 [142]
  75. 1100 [153][163]29)"
  76. 1110 FORI=0TO10
  77. 1120 PRINTTAB(25)"[156][170]"
  78. 1130 NEXT
  79. 1140 RETURN
  80. 1200 PRINT"
  81. 1210 [153][163]25)"CLRANDANDANDANDANDANDANDAND"
  82. 1220 [142]
  83. 1300 [153]"CLR
  84. 1310 PRINTTAB(28)"[206]"
  85. 1320 PRINTTAB(27)"[206]"
  86. 1330 PRINTTAB(26)"[206]"
  87. 1340 RETURN
  88. 1350 PRINT"[156]
  89. 1360 [153][163]31)"+SQR"
  90. 1370 [142]
  91. 1400 [153]""[170]Q$
  92. 1410 [153][163]31)"SYS(null)"[163]33)"(null)"
  93. 1420 [153][163]30)"+LOG(null)COSSGN"
  94. 1430 [153][163]31)"(null)STR$(null)"
  95. 1440 [153][163]32)"USR"
  96. 1450 [142]
  97. 1500 [153]""[170]Q$
  98. 1510 [153][163]31)"PRINT(null)"[163]33)"(null)"
  99. 1520 [153][163]31)"SGN +"
  100. 1530 [153][163]31)"(null)ANDSQR"
  101. 1540 [142]
  102. 1600 [153]""[170]Q$
  103. 1610 [153][163]34)"CONT(null)"
  104. 1620 [153][163]35)"FOR(null)"
  105. 1630 [142]
  106. 1700 [153]""[170]Q$
  107. 1710 [153][163]30)"CONT(null)"
  108. 1720 [153][163]29)"FORSQR"
  109. 1730 [142]
  110. 1800 [153]""[170]Q$
  111. 1810 [153][163]31)"ABS"
  112. 1820 [153][163]31)"FORSQR"
  113. 1830 [142]
  114. 1900 [153]""[170]Q$
  115. 1910 [153][163]33)"INT"
  116. 1920 [153][163]33)"FOR(null)"
  117. 1930 [142]
  118. 2000 [141]5000
  119. 2005 S$[178]""
  120. 2010 [129]J[178]1[164]10
  121. 2020 Z$[178]Z$[170]S$
  122. 2030 [153]""[170]Z$
  123. 2040 [153][163]28)"           "
  124. 2050 [130]
  125. 2060 [153]"SYS"
  126. 2070 [153][163]32)"AND"
  127. 2100 Q$[178]""
  128. 2110 [129]J[178]1[164]6
  129. 2120 [145]J[141]1400,1500,1600,1700,1800,1900
  130. 2130 [130]
  131. 2140 [153]"LIST"[163]24)"          "
  132. 2142 [153][163]24)" DOBER SI "
  133. 2144 [153][163]24)"          WAIT"
  134. 2150 [151]646,15
  135. 2160 [137]3040
  136. 3000 [141]4000
  137. 3005 C$[178]B$:[153]"SYS"[163][195](G$)[170]3)"TO JE PRAVILNO GESLO"
  138. 3010 [151]646,10           
  139. 3020 [141]905
  140. 3030 [153]"LIST"[163]23)"             "
  141. 3032 [153][163]23)"  OBESEN SI  "
  142. 3034 [153][163]23)"             WAIT"
  143. 3040 [153]"HOCES ZNOVA (D/N)?"
  144. 3050 [161]D$:[139]D$[178]""[167]3050
  145. 3060 [139]D$[178]"D"[167][141]7000:[140]:[156]:[137]10
  146. 3070 [139]D$[178]"N"[167]3090
  147. 3075 [137]3050
  148. 3090 [141]6000:[153]"** TUDI PRAV **"
  149. 3100 [151]S[170]24,0:[128]
  150. 4000 S[178]54272
  151. 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
  152. 4020 [151]S[170]24,15
  153. 4030 [135]H1,L1
  154. 4032 [135]H2,L2
  155. 4034 [135]H3,L3
  156. 4036 [135]T
  157. 4040 [139]H1[178]0[167][142]
  158. 4050 [151]S[170]1,H1:[151]S,L1
  159. 4052 [151]S[170]8,H2:[151]S[170]7,L2
  160. 4054 [151]S[170]15,H3:[151]S[170]14,L3
  161. 4060 [151]S[170]4,33:[151]S[170]11,33:[151]S[170]18,33
  162. 4070 [129]I[178]1[164]T:[130]
  163. 4080 [151]S[170]4,32:[151]S[170]11,32:[151]S[170]18,32
  164. 4090 [137]4030
  165. 5000 S[178]54272:I[178]0
  166. 5010 [151]S[170]24,15
  167. 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
  168. 5030 [129]F[178]1[164]3
  169. 5032 [145]F[141]5500,5600,5700
  170. 5034 [151]S[170]11,33:[151]S[170]18,33
  171. 5035 [129]E[178]1[164]2
  172. 5039 I[178]I[170]1
  173. 5040 [145]I[141]5200,5200,5300,5300,5400,5400
  174. 5042 [151]S[170]4,33
  175. 5044 [129]T[178]0[164]100:[130]
  176. 5046 [151]S[170]4,32
  177. 5048 [130]E
  178. 5050 [151]S[170]11,32:[151]S[170]18,32
  179. 5060 [130]
  180. 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
  181. 5100 [151]S[170]4,33:[151]S[170]11,33:[151]S[170]18,33
  182. 5110 [129]T[178]0[164]600:[130]
  183. 5120 [151]S[170]4,32:[151]S[170]11,32:[151]S[170]18,32
  184. 5130 [142]
  185. 5200 [151]S[170]1,26:[151]S,20:[142]
  186. 5300 [151]S[170]1,29:[151]S,69:[142]
  187. 5400 [151]S[170]1,21:[151]S,237:[142]
  188. 5500 [151]S[170]8,10:[151]S[170]7,247:[151]S[170]15,8:[151]S[170]14,180:[142]
  189. 5600 [151]S[170]8,11:[151]S[170]7,157:[151]S[170]15,9:[151]S[170]14,196:[142]
  190. 5700 [151]S[170]8,8:[151]S[170]7,180:[151]S[170]15,7:[151]S[170]14,81:[142]
  191. 6000 S[178]54272
  192. 6010 [151]S[170]24,15
  193. 6020 [151]S[170]5,9:[151]S[170]6,0
  194. 6030 [129]T[178]150[164]50[169][171]5
  195. 6040 [151]S[170]1,T:[151]S,T
  196. 6050 [151]S[170]4,33
  197. 6060 [129]R[178]0[164]20:[130]
  198. 6070 [151]S[170]4,32
  199. 6080 [130]
  200. 6100 [142]
  201. 7000 S[178]54272
  202. 7010 [151]S[170]24,15
  203. 7020 [151]S[170]5,9:[151]S[170]6,0
  204. 7030 [129]T[178]50[164]150[169]5
  205. 7040 [151]S[170]1,T:[151]S,T
  206. 7050 [151]S[170]4,33
  207. 7060 [129]R[178]0[164]20:[130]
  208. 7070 [151]S[170]4,32
  209. 7080 [130]
  210. 7100 [142]
  211. 9000 [131]7,81,8,180,10,247,800
  212. 9010 [131]7,81,8,180,10,247,600
  213. 9020 [131]7,81,8,180,10,247,200
  214. 9030 [131]7,81,8,180,10,247,800
  215. 9040 [131]8,180,10,247,13,10,600
  216. 9050 [131]8,55,9,196,12,78,200
  217. 9060 [131]8,55,9,196,12,78,800
  218. 9070 [131]7,81,8,180,10,247,600
  219. 9080 [131]6,133,8,55,9,196,200
  220. 9090 [131]7,81,8,180,10,247,800
  221. 9100 [131]0,0,0,0,0,0,0
  222.