image of READY prompt

Wang2200.org

Listing of file='TAM.001B' on disk='vmedia/701-2216A.wvd.zip'

# Sector 69, program filename = 'TAM.001B'
0010 REM  'TAM.001B'    (ENABLE KEYBOARD)
0040 DIM Q(7),Q6$64,Q$1,Q3$(2)40,Q1$(2)40,Q7$1
1000 % THIS STATEMENT FOR OVERLAYING TAM.001B
5100 DEFFN'241(Q(1),Q(2),Q(3),STR(Q6$,3),STR(Q6$,5),STR(Q6$,6),STR(Q6$,11),STR
     (Q6$,12))
   : BIN(Q6$)=Q(1)
   : BIN(STR(Q6$,2))=Q(2)
   : BIN(STR(Q6$,4))=Q(3)
   : $GIO/006(40F7A000,Q6$<33>)Q6$<1,6>
5155 $GIO/006(023115234037A000400D,Q6$<9>)Q1$()
   : $GIO/006(023115244038A000400D,Q6$<9>)Q3$()
   : $GIO/006(40F5,Q6$)
   : RETURN