• IchigoJam
• SWITCH

10 'Meteo
20 SWITCH1:FORI=1TO4:OUTI,-1:NEXT
30 LC0,0,1:?"Meteo";:GSB@W
40 CLS
50 @LP:POKE#900+RND(144),42:BEEP80,2
60 LC8,4:?CHR$(0)
70 IF!IN(5)SCROLL1
80 IF!IN(6)SCROLL0
90 IF!IN(7)SCROLL2
100 IF!IN(8)SCROLL3
110 IFSCR(8,4)>0GOTO@ED
120 LC8,4:?"~FA"
130 WAIT5:GOTO@LP
140 @ED:BEEP100:WAIT10:BEEP200
150 LC8,4:?"X":LC8,4,1:GSB@W:F=FILE():LRUN0
160 @W:IF!BTN()CONT:ELSEBEEP2
170 IFBTN()CONT:ELSEBEEP5:RTN

Pagetop