frogman/boot.bas at main · mattgodbolt/frogman · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
10 MODE7:VDU23;8202;0;0;0;
20 PRINT"  ";CHR$(145);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(161)
30 PRINT"  ";CHR$(146);CHR$(183);CHR$(163);CHR$(161);CHR$(183);CHR$(163);CHR$(181);CHR$(234);CHR$(163);CHR$(235);CHR$(234);CHR$(163);CHR$(171);CHR$(234);CHR$(163);CHR$(183);CHR$(181);CHR$(183);CHR$(163);CHR$(181);CHR$(183);CHR$(163);CHR$(181)
40 PRINT"  ";CHR$(146);CHR$(255);CHR$(163);" ";CHR$(255);CHR$(163);CHR$(235);CHR$(234);CHR$(181);CHR$(234);CHR$(234);CHR$(181);CHR$(235);CHR$(234);CHR$(181);CHR$(181);CHR$(181);CHR$(255);CHR$(163);CHR$(181);CHR$(255);" ";CHR$(181)
50 PRINT"  ";CHR$(146);CHR$(163);CHR$(160);CHR$(160);CHR$(163);CHR$(160);CHR$(162);CHR$(162);CHR$(163);CHR$(163);CHR$(162);CHR$(163);CHR$(163);CHR$(162);CHR$(161);CHR$(161);CHR$(161);CHR$(163);CHR$(160);CHR$(161);CHR$(163);CHR$(160);CHR$(161)
60 PRINT"  ";CHR$(145);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(161)
70 PRINT CHR$(134);" Written and designed  by"
80 PRINT CHR$(134);"     Matthew Godbolt"
90 PRINT CHR$(134);" & Richard Talbot-Watkins"
100 PRINT'CHR$(133);"   (C) MG/RTW Feb 1993"
110 PRINT'"  ";CHR$(145);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(163);CHR$(161)
120 PRINT''CHR$(132);"      Remastered 2026"
130 PRINT''CHR$(130);"Choose level";CHR$(129);" (1 or 2)";CHR$(131);": ";
140 REPEAT:A$=GET$:UNTIL A$="1" OR A$="2"
150 VDU VAL(A$)+48
160 ?&430=VAL(A$)
170 *RUN Setup