image of READY prompt

Wang2200.org

Listing of file='HASPCAR0' on disk='vmedia/731-0111.wvd.zip'

# Sector 554, program filename = 'HASPCAR0'
0010 REM HASPCAR0 11/01/78  SETUP FOR HASPCARD (LOADED FROM HASP*002)
0080 GOSUB 2000
0100 A$="HASP010B"
   : LOAD DC T"ASKSHELL"
0130 COM H1$1,H8$1,H2$(16),H3$24,H5$(2)1,H9$(81)2,H0,H8
2000 W(H)=-1
2010 H2$(1)=HEX(00010203372D2E2F1605250B0C0D0E0F)
2020 H2$(2)=HEX(101112133C3D322618193F271C1D1E1F)
2030 H2$(3)=HEX(404F7F7B5B6C507D4D5D5C4E6B604B61)
2040 H2$(4)=HEX(F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F)
2050 H2$(5)=HEX(7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6)
2060 H2$(6)=HEX(D7D8D9E2E3E4E5E6E7E8E94AE05A5F6D)
2070 H2$(7)=HEX(79818283848586878889919293949596)
2080 H2$(8)=HEX(979899A2A3A4A5A6A7A8A9C06AD0A107)
2090 H2$(9)=HEX(202122232415061728292A2B2C090A1B)
2100 H2$(10)=HEX(30311A333435360838393A3B04143EE1)
2110 H2$(11)=HEX(41424344454647484951525354555657)
2120 H2$(12)=HEX(58596263646566676869707172737475)
2130 H2$(13)=HEX(767778808A8B8C8D8E8F909A9B9C9D9E)
2140 H2$(14)=HEX(9FA0AAABACADAEAFB0B1B2B3B4B5B6B7)
2150 H2$(15)=HEX(B8B9BABBBCBDBEBFCACBCCCDCECFDADB)
2160 H2$(16)=HEX(DCDDDEDFEAEBECEDEEEFFAFBFCFDFEFF)
2170 H1=3
2190 RETURN