
1 REM Machaon VG5000
2 REM 
3 REM GPA (C) 01/2012
3 REM

10 SETEG 32,"007E7E7E7E7E7E7E7E00"
20 SETEG 33,"00542854285428542800"
30 SETEG 34,"5455AA55AA55AA55AA28"

100 DATA 3," ZZZZ           ZZZZ"  
110 DATA 3,"Z*****         *****Z"
120 DATA 2,"******        ******"
130 DATA 2," ******* O O ******"
140 DATA 6,"   ****** O *****"
150 DATA 7,"     **** O ****"
151 DATA 6,"      **Z O Z**
160 DATA 5,"    ***** O *****"
170 DATA 5,"  ******  O  ******"
180 DATA 1," *******  O   ******"
190 DATA 1,"Z******   O   ******Z"
200 DATA 1," ZZZZZ         ZZZZZ"

1000 INIT 0,0:STORE:CURSORY 5
1010 FOR I=1 TO 12:READ co,a$:CURSORX 9
1020 FOR J=1 TO LEN(a$):B$=MID$(A$,j,1)
1022 IF b$="*" THEN EG co,0,0:PRINT CHR$(32);:GOTO 1030
1023 IF b$="O" THEN EG 4,0,0:PRINT CHR$(34);:GOTO 1030
1024 IF b$="Z" THEN EG co,0,0:PRINT CHR$(33);:GOTO 1030
1025 TX 0,0,0:PRINT " ";
1030 NEXT J:PRINT:NEXT I:DISPLAY 2
1050 TX 7,0,0:CURSORX 10:CURSORY 20:PRINT "Machaon se charge..."
1060 CURSORX 15:CURSORY 22:PRINT "Patience..."
1070 TX 0,0,0:CLOAD