100 setio=&H100FF
110 CONSTANT NUM_CARATTERI=37
120 DIM V(NUM_CARATTERI) as word
130 data 1,2,3,5,9,12,14,16,17,18
140 data 66,69,72,74,76,77,78,80,82
150 data 22,25,28,29,30,32,34,36,38
160 data 86,89,92,94,96,98,100,101,102
165 out=&h8000
170 :MAIN restore
180 clr b
190 :CONT_VIS1 b++
200 read v(b)

220 gosub :VISUALIZZA
230 if b<NUM_CARATTERI then :CONT_VIS1
240 waits 2
250 lcdclear
260 clr a
270 :CONT_VIS2 b=int(rnd/32767.0*37)+1
280 if !v(b)   then 270
300 gosub :VISUALIZZA
310 clr v(b)
320 a++
330 if a<NUM_CARATTERI then :CONT_VIS2
340 waits 2
350 lcdclear
360 goto :MAIN

370 :VISUALIZZA
375 lcdpos=v(b)
380 lcdwrite="*"
390 waitms 150
400 return

100 'PRAGMA EXTERNAL_EEPROM
110 SETIO=&H100FF ' il 16 BIT (partendo da 0) identifica la modalità libera del display
120 CONSTANT MEMORIA = 100
130 CONSTANT COLONNE_DISPLAY =  20  ' ---> 16 con display da 16 colonne
140 CONSTANT RIGHE_DISPLAY = 4
150 CONSTANT CARATTERI_DISPLAY = 80 ' ---> 64 con display da 16 colonne
160 DIM M_DISP(MEMORIA) as word
170 CLR A
180 A++
190 M_DISP(A)=0
200 if a<MEMORIA then 180


210 LCDCLEAR
215 LCDPOS=71

216 LCDWRITE="NEVICA"
217 waits 2
218 LCDCLEAR

220 CLR PY
230 goto  580
240 PX=int(RND/32767.0*COLONNE_DISPLAY)+1

260 gosub :POS_SUCC
270 if PS then 220
280 gosub :CALCOLA_POS_DISPLAY
290 lcdpos=PP
300 lcdwrite="*"
310 lcdpos=PP
320 waitms 120

340 gosub :POS_SUCC
350 PY--
360 if PY >= RIGHE_DISPLAY or PS then :mem_pos
370 lcdwrite=" "
380 goto  260

390 :mem_pos
400 M_DISP(PX+(PY-1)*COLONNE_DISPLAY)=1
410 goto  220

420 :CALCOLA_POS_DISPLAY
430 CLR D
440 if PY=2 then 480
450 if PY=3 then 500
460 if PY=4 then 520
461 PP= PX+D
462 RETURN

480 D=64
490 goto  461
500 D=20
510 goto  461
520 D=84
530 goto 461

550 :POS_SUCC
555 PY++
560 PS=M_DISP(PX+(PY-1)*COLONNE_DISPLAY)
570 return

580 CLR a
590 A++
600 if !M_DISP(A) then 240
610 if a<CARATTERI_DISPLAY then 590 else 170

10  SETIO=&H100FF
20  DELTA=1
30  lcdpos=78
40  lcdwrite="PPTEA"
50  lcdpos=35
60  lcdwrite="CAT"
70  PWMFQ1=7
80  PWMDC1=50
90  WAITS 1
100 CONSTANT POS_INIZIALE=4
110 A=POS_INIZIALE
120 SPAZI=mid("     ",1,A)
130 lcdpos=1
140 lcdwrite=SPAZI & " ^_^ "
150 lcdpos=65
160 lcdwrite=SPAZI &"='.'= "
170 lcdpos=21
180 lcdwrite=SPAZI &" / "&chr(96) & " "
190 lcdpos=85
200 lcdwrite=SPAZI &" " &chr(96) &"_/_ "
210 a-=DELTA
220 if a>0 and a< POS_INIZIALE then 240
230 DELTA=-DELTA
240 lcdpos=12
250 LCDWRITE=LEFT(DATE,8)
260 lcdpos=96
270 LCDWRITE=RIGHT(DATE,8)
280 waits 1
290 goto  120