8-Bit Software Online Conversion
:2.W.Andl - Listing
5*FX21
10*KEY10OLD|MRUN|M
20*FX229,1
30ENVELOPE1,1,4,5,0,255,255,0,127,-1,
-1,-1,0,0
40MT%=0
50VE%=0
60MODE7
70VDU23;8202;0;0;0;
80 PRINT"
/ /"
90 PRINT"
/ //"
100 PRINT"
/ //"
110 PRINT"
////"
120 PRINT"
///"
130 PRINTTAB(0,5);CHR$129;CHR$157;CHR$
131;CHR$141;"WESTON'S BASIC SIMULATOR"
140PRINTTAB(0);CHR$129;CHR$157;CHR$131
;CHR$141;"WESTON'S BASIC SIMULATOR"
150PRINT''" Press <SPACE> to enter"
160G$=GET$
170CLS
180PRINT'"BBC Computer 32K"
190PRINT'"Acorn DFS"
200PRINT'"Andylang"'
210INPUTLINE">"A$
220IFMT%=2 THEN GOSUB 530
230IFVAL(LEFT$(A$,1))>0 THEN PRINT'"Me
mory reduced-No room"
240IFLEFT$(A$,3)="*FX"THENVDU22,3:PRIN
T'"<*FX..> selects MODE 8"
250IF LEFT$(A$,1)="*"THENPROCosc
260IFA$="OLD"THEN PRINT'"Program Acces
s Denied"
270IFA$="LIST"THENPRINT'"Lazy slacker"
280IFA$="NEW"THENPRINT'"Date of birth:
1981"
290IFLEFT$(A$,4)="DRAW"OR LEFT$(A$,4)=
"MOVE"THEN PRINT'"No drawing,mate!"
300IFLEFT$(A$,4)="MODE"THEN VDU 22,5:P
RINT'"Available : Mode 5 only"
310IFA$="RUN"THEN PRINT'"Unknown Comma
nd"
320IFLEFT$(A$,3)="VDU"AND VE%=0 THENPR
INT'"Forbidden Command":VE%=VE%+1:GOTO44
0
330IFLEFT$(A$,3)="VDU"ANDVE%=1THENPRIN
T'" FINAL WARNING"'" Forbidden Command"
:VE%=VE%+1:GOTO 440
340IFLEFT$(A$,3)="VDU"ANDVE%=2THEN GOS
UB 530
350IFLEFT$(A$,5)="PRINT"THENFORA%=1 TO
1000:PRINTCHR$(64+RND(54));:NEXT A%:PRI
NT'"Sorry"
360IFLEFT$(A$,3)="CLS"ORLEFT$(A$,3)="C
LG"THEN VDU22,4:VDU19,0,2;0;:PRINT'"Gree
n-Screen enabled"
370IFLEFT$(A$,5)="HIMEM"ORLEFT$(A$,5)=
"LOMEM"ORLEFT$(A$,4)="PAGE"THEN PRINT'"D
on't touch my memory again.":MT%=MT%+1
380IFLEFT$(A$,5)="SOUND"ORLEFT$(A$,8)=
"ENVELOPE"THENSOUND 1,1,80,10:SOUND0,-15
,3,10:PRINT'"*!#@? off!"
390IFLEFT$(A$,5)="CHAIN"OR LEFT$(A$,4)
="LOAD"THEN PRINT'"<LOAD>? <CHAIN>?"
400IFLEFT$(A$,4)="AUTO"THEN PRINT'"Stu
pid"
410IFLEFT$(A$,4)="CALL"THEN PRINT'"<CA
LL> you what?"
420IFA$=""THEN GOTO440
430IFLEN(A$)<3THENPRINT'"Mistake"
440GOTO210
450END
460DEF PROCosc
470IF A$="*DISC"THEN PRINT"TAPE":ENDPR
OC
480IFA$="*TAPE"THEN PRINT"DISC":ENDPRO
C
490IFA$="*CAT"THENPRINT'"Disc empty":E
NDPROC
500IFLEFT$(A$,5)="*EXEC"OR LEFT$(A$,4)
="*RUN"THEN GOSUB 660:ENDPROC
510ENDPROC
520REM*SHUTDOWN*
530TIME=0
540VDU22,2
550VDU23;8202;0;0;0;
560*FX9,1
570*FX10,50
580COLOUR8:PRINTTAB(1,1);"SIM. SHUTDOW
N IN"
590COLOUR14:PRINTTAB(5,3);"20 SECONDS"
600PRINTTAB(5,15);TIME/100" Seconds"
610IFTIME>2000THEN 620 ELSE GOTO 580
620COLOUR129:CLS:FORW1%=1TO2000:NEXTW1
%
630*FX200,3
640CALL!-4
650REM********************************
660 REM**
670*.
680FORW1%=1 TO 5000:NEXT W1%
690VDU6
700PRINT'"Drive fault OC at 00/00"
710FORW2%=1TO4000:NEXT W2%
720PRINT'"Sorry mate"
730*CAT
740PRINT'"Can only catalogue"
750ENDPROC