31 lines
545 B
Text
31 lines
545 B
Text
|
Filename:7-VENTTI
|
||
|
Lbl 2
|
||
|
ClrText
|
||
|
Locate 1,7,"LOADING..."
|
||
|
0.5->L
|
||
|
Prog "S-TIMER"
|
||
|
0->X
|
||
|
0->Y
|
||
|
Mat B[1,1]+Mat B[1,2]+Mat B[1,3]->G
|
||
|
Mat B[1,4]->C
|
||
|
"======7-VENTTI====== { } [ ]--[ ] { } 1:NEW 2:STOP 3:STATS 4:QUIT G: C: "
|
||
|
Locate 1,7," "
|
||
|
Locate 3,5,G
|
||
|
Locate 11,5,C
|
||
|
Lbl 1
|
||
|
Prog "S-GK"
|
||
|
If Z=73
|
||
|
Then ClrText
|
||
|
Stop
|
||
|
IfEnd
|
||
|
If Z=52
|
||
|
Then Prog "7-STATS"
|
||
|
Goto 2
|
||
|
IfEnd
|
||
|
If Z=62 And Not (X=0)
|
||
|
Then Prog "7-NCARD"
|
||
|
IfEnd
|
||
|
If Z=72
|
||
|
Then Prog "7-CARD"
|
||
|
IfEnd
|
||
|
Goto 1
|