0 DEFINTA-Z:H=153:J=1:PRINT@46,"TIME TUNNEL":PRINT:PRINT" by James Main Kenney":PRINT@243,"Any key for Menu":LINE(131,0)-(239,63),1,BF
1 FORX=1TO9:FORN=0TO33:Z=(Z+J)MOD2:LINE(H+1+N,1+N)-(H+63-N,63-N),Z,B:NEXT:Z=Z+J:J=1:IFX=6ORX=8THENJ=0:Z=Z+1
2 IFINKEY$=""THENNEXT:GOTO1ELSEMENU