image of READY prompt

Wang2200.org

Listing of file='PROTECT' on disk='vmedia/best_of_BD_fules.wvd.zip'

# Sector 446, program filename = 'PROTECT'
0010 DIM A$(16)
0020 LIST DC F
0030 INPUT "WHAT PROGRAM",A1$
   : LIMITS FA1$,A,B,D
0040 C=A
0050 DATA LOAD BA F(A,L)A$()
0060 STR(A$(1),1,1)=HEX(50)
0070 DATA SAVE BA F(A,L)A$()
0080 A=A+1
   : IF A=BTHEN 130
0090 DATA LOAD BA F(A,L)A$()
0100 STR(A$(1),1,1)=HEX(10)
0110 DATA SAVE BA F(A,L)A$()
0120 GOTO 80
0130 LOAD DC FA1$