Disk 5: boot.B

Es parte de la publicación: Disk 5
Tamaño del archivo: 1140
md5: 8d91531013743aa99568d29741072626
  10 REM BOOT AER DISK n5 FULL
  30 PAPER 0: BORDER 0: CLS 
  40 RANDOMIZE USR 15619: REM : LOAD "boot"CODE 30000
  50 RANDOMIZE USR 30000
  60 FOR f=5 TO 11
  70 PRINT AT f,4; INK 7;"MUZON ";f-4
  80 NEXT f
  90 PRINT AT 12,4; INK 7;"BEEP 01"
  100 PRINT AT 14,4; INK 7;"PICUS  "
  110 PRINT AT 15,4; INK 7;"CCUBES "
  120 PRINT AT 16,4; INK 7;"ALL END"
  130 PRINT AT 13,4; INK 7;"INDIAN2"
  140 LET a=5
  150 PRINT AT a,4; INK 2; OVER 1; PAPER 0;"       "
  160 PAUSE 0
  170 PRINT AT a,4; INK 7; OVER 1; PAPER 0;"       "
  180 IF INKEY$=CHR$ 13 THEN  GO TO 220
  190 IF INKEY$="" THEN  GO TO 150
  200 LET a=a+1: IF a=17 THEN  LET a=5
  210 GO TO 150
  220 BEEP .0090j,-4
  230 LET a=a-4
  240 LET a$="boot"
  250 IF a=1 THEN  LET a$="MUZON1"
  260 IF a=2 THEN  LET a$="MUZON2"
  270 IF a=3 THEN  LET a$="MUZON3"
  280 IF a=4 THEN  LET a$="MUZON4"
  290 IF a=5 THEN  LET a$="MUZON 5"
  300 IF a=6 THEN  LET a$="MUZON6"
  310 IF a=7 THEN  LET a$="MUZON 7"
  320 IF a=8 THEN  LET a$="BEEP 01"
  330 IF a=9 THEN  LET a$="INDIANA2"
  340 IF a=10 THEN  LET a$="PICUS"
  350 IF a=11 THEN  LET a$="CCUBES"
  360 IF a=12 THEN  LET a$="ALLEND"
  370 PRINT AT 20,0; INK 4;"LOAD:";a$
  380 RANDOMIZE USR 15619: REM :load a$
  390 RUN 
  58880aAINDIANA2