From 68de9b9d27985ad0e1ab8cb79993ccc04143260b Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Mon, 9 Jan 2017 12:24:16 -0500 Subject: [PATCH] glados: waste time making the loading screens look nice --- glados3.3/cube.bas | 61 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) diff --git a/glados3.3/cube.bas b/glados3.3/cube.bas index 8dbcbc9e..55858a7f 100644 --- a/glados3.3/cube.bas +++ b/glados3.3/cube.bas @@ -70,3 +70,64 @@ 610 IF A$="2" THEN HCOLOR=2:HPLOT X,Y 620 XDRAW 1 AT X,Y 630 GOTO 510 +900 HOME:L=1:POKE 32,8:PRINT +901 PRINT"************************" +902 PRINT"* *" +903 IF L=1 GOTO 920 +904 IF L=19 GOTO 930 +' Too lazy to implement full number printing routine +906 PRINT"* ??? ??? *" +908 PRINT"* ? ? ? ? *" +910 PRINT"* ? ? *" +912 PRINT"* ? ? *" +914 PRINT"* o o *" +916 GOTO 940 +920 PRINT"* @@@@@ @@ *" +922 PRINT"* @ @ @ @ *" +924 PRINT"* @ @ @ *" +926 PRINT"* @ @ @ *" +928 PRINT"* @@@@@ @@@@@ *" +929 GOTO 940 +930 PRINT"* @@ @@@@@ *" +932 PRINT"* @ @ @ @ *" +934 PRINT"* @ @@@@@ *" +936 PRINT"* @ @ *" +938 PRINT"* @@@@@ @@@@@ *" +940 REM +942 PRINT"* *" +944 PRINT"* ";:IF L<10 THEN PRINT "0"; +946 PRINT L;"/19 *" +948 PRINT"* ___________________ *" +949 PRINT"* "; +950 FOR I=1 TO L:PRINT "|";:NEXT I +952 FOR I=L TO 18:PRINT " ";:NEXT I +954 PRINT" *" +956 PRINT"* *" +958 PRINT"* ___________________ *" +959 PRINT"* ___ *" +960 PRINT"* \o/ [] [] o () *" +962 PRINT"* ~~~~~ [ V ] /< _ *" +964 PRINT"* / \ []_[] <=> | *" +966 PRINT"* *" +968 PRINT"************************" +' ************************ +' * * +' * @@@@@ @@ * +' * @ @ @ @ * +' * @ @ @ * +' * @ @ @ * +' * @@@@@ @@@@@ * +' * * +' * 01/19 * +' * ___________________ * +' * ||||||||||||||||||| * +' * * +' * ___________________ * +' * ___ * +' * \o/ [] [] o () * +' * ~~~~~ [ V ] /< _ * +' * / \ []_[] <=> | * +' * * +' ************************ +998 POKE 32,0 +999 END