Compucolor.org – Virtual Media

Listing of file='RESMNU.BAS;01' on disk='vmedia/BASIC_compiler_v12.25-sector.ccvf'

100 PLOT 6,2,12,15,29,3,17,5:PRINT "ihfhu";SPC( 13);"b tu |~ cf en en tf b~"
200 PLOT 3,16,6:PRINT "bih  b";SPC( 12);"gw vw  a gd  a _l vi b|"
300 PLOT 3,16,7:PRINT "b  i-t"
400 PLOT 3,16,8:PRINT "b niia";SPC( 16);"tf ~| pq {e cf"
500 PLOT 3,16,9:PRINT "b n  a";SPC( 16);"v} no ab l_ gd"
600 PLOT 3,16,10:PRINT "b niia"
700 PLOT 3,16,11:PRINT "b n  a"
800 PLOT 3,16,12:PRINT "b niia"
900 PLOT 3,16,13:PRINT "b n  a"
1000 PLOT 3,16,14:PRINT "b niia"
1100 PLOT 3,16,15:PRINT "b n  a";SPC( 11);"1) HELECOPTER RESCUE"
1200 PLOT 15,3,16,16:PRINT "b k_ia"
1300 PLOT 3,16,17:PRINT "b    o";SPC( 11);"( SLOW - WITH INSTRUCTIONS )"
1400 PLOT 15,3,16,18:PRINT "b   te"
1500 PLOT 3,16,19:PRINT "b   a"
1600 PLOT 3,16,20:PRINT "b   a"
1700 PLOT 3,9,21:PRINT "teeeeeeeeeeeeeeeeeu     2) HELECOPTER RESCUE"
1800 PLOT 15,3,2,22:PRINT "jjjjjjja";SPC( 17);"b"
1900 PLOT 3,9,23:PRINT "v_________________w     ( FAST - NO INSTRUCTIONS )"
2000 PLOT 15,3,11,24:PRINT "ee";SPC( 11);"ee"
2100 PLOT 3,33,25:INPUT "ENTER NUMBER THEN ( RETURN )";Z
2200 PLOT 3,61,25:IF Z< 1OR Z> 2THEN 2100
2300 IF Z= 1THEN 2500
2400 PLOT 27,4:PRINT "RUN RESCUE.PRG"
2500 LOAD "RESCUE":RUN
2600 END