GeezerVisonThe World Wide Web, restored to 800 pixels of glory. |
| Home|About|Gaming cabinet|Archives|How it works|Starter sites |
GeezerVison is showing github.com — smallbasic.github.io/samples/node/126.bas at master · smallbasic/smallbasic.github.io Expand file tree/ Copy path126.basMore file actions 246 lines (226 loc) · 4.76 KB / Copy path126.basFile metadata and controls246 lines (226 loc) · 4.76 KB 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 '#sec:Main '' robot.bas '' 17/02/2002 dim car(30) pen on cr=chr$(13) esc=chr$(27) for i=1 to 24 read car(i) next i bo=chr$(27)+"[1m" uo=chr$(27)+"[4m" ro=chr$(27)+"[7m" bf=chr$(27)+"[21m" uf=chr$(27)+"[24m" rf=chr$(27)+"[27m" open "COM1:19200" AS #1 label menug gosub maind label menul gosub pantamain if a=1 then goto lrn if a=2 then print #1,chr$(03);:for i=1 to 5000:next i:print #1,"P0"+cr; if a=3 then print #1,chr$(03);:for i=1 to 5000:next i:print #1,"PASO"+cr+"01"+cr; if a=4 then print #1,chr$(03);:for i=1 to 5000:next i:print #1,"P3"+cr; if a=5 then print #1,chr$(03);:for i=1 to 5000:next i:print #1,"LOOP"+cr; if a=6 then t="21":goto mint if a=7 then t="88":goto mint if a=8 then close #1:cls:stop goto menul label mint print #1,chr$(03); for i=1 to 3000:next i print #1,"MINT"+cr; for i=1 to 3000:next i gosub inbyte a$=str$(ib) print #1,t$+a$+cr+esc+esc; goto menug data 1,Q,2,W,3,E,4,R,5,T,6,Y data F,V,G,B,H,N,A,Z,S,X,D,C #sec:inbyte '' inbyte label inbyte cls:ib=0 rect 1,1,80,80 color 9 filled rect 80,1,159,80 color 10 filled rect 1,80,80,159 color 12 filled rect 80,80,159,159 color 14 filled rect 140,1,159,20 color 5 filled rect 140,1,159,20 color 15 label iby locate 8,16 print " "+ib+" " gosub pantaib if a=1 then ib=ib+1 if a=2 then ib=ib-1 if a=3 then ib=ib+10 if a=4 then ib=ib-10 if a=5 then return goto iby label pantaib a=0 if not pen(0) then return px=pen(4):py=pen(5) if px>140 and py<20 then a=5:return if py>80 then if px>80 then a=2:return else a=4:return fi else if px>80 then a=1:return else a=3:return fi fi #sec:learn '' learn label lrn print #1,chr$(03);:for i=1 to 5000:next i print #1,"LRN"+cr; motor=1 rect 1,1,50,40 color 10 filled rect 50,1,100,40 color 11 filled rect 1,40,50,80 color 12 filled rect 50,40,100,80 color 13 filled rect 100,1,159,80 color 14 filled rect 1,80,50,120 color 10 filled rect 50,80,105,120 color 10 filled rect 105,80,159,120 color 10 filled rect 1,120,50,159 color 12 filled rect 50,120,105,159 color 12 filled rect 105,120,159,159 color 12 filled rect 140,1,159,20 color 5 filled rect 140,1,159,20 color 15 rect 1,1,50,40 color 16 rect 50,1,100,40 color 16 rect 1,40,50,80 color 16 rect 50,40,100,80 color 16 rect 100,1,159,80 color 16 rect 1,80,50,120 color 16 rect 50,80,105,120 color 16 rect 105,80,159,120 color 16 rect 1,120,50,159 color 16 rect 50,120,105,159 color 16 rect 105,120,159,159 color 16 locate 2,6:print "4"; locate 6,6:print "3"; locate 2,16:print "1"; locate 6,16:print "2"; locate 4,25:print "ENTER"; locate 10,6:print "+"; locate 14,6:print "-"; locate 10,16:print "+"; locate 14,16:print "-"; locate 10,27:print "+"; locate 14,27:print "-"; label mainlrn gosub pantalrn if mov<>0 then caa=car(((motor- 1)*6)+mov): locate 1,1:print #1,caa:mov=0 if enter<>0 then locate 1,2:print #1,""+cr;:enter=0 goto mainlrn label pantalrn if not pen(0) then goto segend px=pen(4):py=pen(5) if px>140 and py<20 then print #1,chr$(27);:goto menug if py>40 then goto seg2 if px>50 then goto seg12 motor=4:goto segend label seg12 if px>105 then goto seg13 motor=1:goto segend label seg13 enter=1:goto segend label seg2 if py>80 then goto seg3 if px>50 then goto seg22 motor=3:goto segend label seg22 if px>105 then goto seg23 motor=2:goto segend label seg23 enter=1:goto segend label seg3 if py>120 then goto seg4 if px>50 then goto seg32 mov=1:goto segend label seg32 if px>105 then goto seg33 mov=3:goto segend label seg33 mov=5:goto segend label seg4 if px>50 then goto seg42 mov=2:goto segend label seg42 if px>105 then goto seg43 mov=4:goto segend label seg43 mov=6 label segend return #sec:pantamain '' pantamain label pantamain a=0 if not pen(0) then goto msegend px=pen(4):py=pen(5) if py>40 then goto mseg2 if px>80 then goto mseg12 a=1:goto msegend label mseg12 a=5:goto msegend label mseg2 if py>80 then goto mseg3 if px>80 then goto mseg22 a=2:goto msegend label mseg22 a=6:goto msegend label mseg3 if py>120 then goto mseg4 if px>80 then goto mseg32 a=3:goto msegend label mseg32 a=7:goto msegend label mseg4 if px>80 then goto mseg42 a=4:goto msegend label mseg42 a=8 label msegend return #sec:maindraw '' maindraw label maind cls rect 1,1,80,40 color 1 filled rect 80,1,159,40 color 6 filled rect 1,40,80,80 color 9 filled rect 80,40,159,80 color 10 filled rect 1,80,80,120 color 11 filled rect 80,80,160,120 color 12 filled rect 1,120,80,159 color 13 filled rect 80,120,159,159 color 14 filled rect 1,1,80,40 color 16 rect 80,1,160,40 color 16 rect 1,40,80,80 color 16 rect 80,40,159,80 color 16 rect 1,80,80,120 color 16 rect 80,80,159,120 color 16 rect 1,120,80,159 color 16 rect 80,120,159,159 color 16 for i=1 to 2000:next i locate 2,6:print "LRN"; locate 6,6:print "P0"; locate 10,6:print "PASO 01"; locate 14,6:print "P3"; locate 2,25:print "LOOP"; locate 6,26:print "KP"; locate 10,25:print "VEL"; locate 14,24:print "SALIDA"; return ' |
| You are visitor 01402520 — GeezerVison does not store the pages you look up. Best viewed with Netscape Navigator 4.7 or Internet Explorer 6 at 800×600. No cookies required. |