image of READY prompt

Wang2200.org

Listing of file='609PINX0' on disk='vmedia/701-2737G.wvd.zip'

# Sector sector 679, program filename = '609PINX0'
0010 REM % 609PINX0  - Background loader module for Print Index
0030 COM T5(3),T5$(3)25,B9$,D0,D1,C0,C1,C3,C8,C9,C6$7,V0$(1)1,J7
   : DIM U2$(8)
   : A5$="BMT02"
   : Q2$="F"
   : MAT T5=CON
   : FOR C=1TO 3
   : CONVERT STR(Q4$(3),C,1)TO T5(C)
   : NEXT C
   : T5$(1)=STR(Q4$(3),4,1)
   : T5$(3)=STR(Q4$(3),5,25)
   : B9$=STR(Q4$(3),30,16)
   : C6$=STR(Q4$(4),1,7)
   : CONVERT STR(Q4$(4),7,2)TO C9
   : IF C9=52THEN J7=15
   : ELSE J7=1
   : C0=500
0490 IF T5(2)>1THEN C3=500
   : ELSE C3=1
   : C1=4
   : A5$()="609INA  "&"JCATSMAL"
   : $PSTAT=STR(A5$(1),1,8)
   : LOAD T<2>A5$()
0610 DEFFN'31
   : Q2$="C"
   : $PSTAT=A5$
   : LOAD TA5$