image of READY prompt

Wang2200.org

Listing of file='@CONNECT' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'

# Sector 1232, program filename = '@CONNECT'
0010 % @CONNECT 02/04/83 -- Sample log on program
0020 $PSTAT="@CONNECT"
0030 $DISCONNECT ON 120
   : REM /.Respond within 120 seconds
0040 REM %.Title
   : PRINT HEX(03);AT(0,30);"LOG ON"
0050 PRINT AT(10,20,8);"Enter password: ";
   : FOR I=1TO 8
   : KEYIN STR(P$,I,1)
   : PRINT HEX(8B);
   : NEXT I
0060 IF STR(P$,1,8)<>"PASSWORD"THEN 10
   : $PSTAT=" "
0070 $DISCONNECT ON
   : REM /.Turnoff disconnect timeout
0080 LOAD RUN T"START"