Disk 5: CCUBES.B

Es parte de la publicación: Disk 5
Tamaño del archivo: 346
md5: 8a69e54e39fa40f7e22be88688148958
  10 CLEAR 39999
  20 REM CRYSTAL CUBES BY AER
  30 PAPER 0: BORDER 0: CLS 
  40 PRINT AT 10,9;"CRYSTAL CUBES"
  50 FOR f=9 TO 22: PRINT AT 10,f; INK 1+(RND*4); OVER 1;" ": NEXT f
  60 RANDOMIZE USR 15619: REM :load"ccubes1"code30000
  62 RANDOMIZE USR 15619: REM :load"ccubes2"code40000
  64 RANDOMIZE USR 15619: REM :load"ccubes3"code53100
  70 RANDOMIZE USR 37090
  58880