REM 944BASIC 'うっ・・・'

SETPAGE 0
CLS
COLORFG 192,192,192
BOXFILL 5,5,230,110

COLORFG 255,255,255
BOX 4,4,228,108
BOX 4,4,229,109

COLORFG 0,0,0
BOX 6,6,231,111
BOX 7,7,231,111
BOX 70,84,70+54,84+16
BOX 140,84,140+54,84+16

COLORFG 192,192,192
BOX 5,5,230,110

LINE 5,5,5+2,5+2: LINE 230,5,230-2,5+2: LINE 5,110,5+2,110-2: LINE 231,110,230-2,110-2

COLORFG 255,255,255
PSET 229,7:PSET 7,109
LINE 70,84,70+54,84
LINE 70,84,70,84+16
LINE 140,84,140+54,84
LINE 140,84,140,84+16

COLORFG 0,0,0
LINE 26,18,12,47
LINE 13,49,44,49
LINE 44,47,29,18
PSET 12,48:PSET 44,48
PSET 27,17:PSET 28,17
FONT 144+1
GCURSOR 23,25:PRINT '!'
GCURSOR 24,25:PRINT '!'

FONT 64
COLORBG 192,192,192
GCURSOR 54,20
PRINT 'プログラム実行中に異常が発生'
GCURSOR 54,34
PRINT 'しました'
GCURSOR 54,48
PRINT '[電源切] または [リセット]に'
GCURSOR 54,62
PRINT 'タッチしてください'

GCURSOR 80,86
PRINT '電源切'
GCURSOR 144,86
PRINT 'リセット'

COLORFG 255,255,48
PAINT 27,19

C=SYSCNT
*LOOP SYNC
 IF (PEN=3)+(INKEY) THEN GOTO *EXITLP
 IF SYSCNT-C>50 THEN GOTO *EXITLP
GOTO *LOOP

*EXITLP
COLORBG 255,255,255
X=0:Y=0:W=239:H=319:MV=2
*MV SYNC
 YY=Y+MV
 BOXMOVE X,YY,X,Y,W,H
 Y=YY
 IF Y>H-120 THEN MV=MV*(-1)
 IF Y<ABS(MV) THEN MV=MV*(-1)
 IF (PEN=3)+(INKEY) THEN GOTO *EXITMV
GOTO *MV

*EXITMV
MESSAGE 'お騒がせしました'
END