Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-26 11:30:12 +00:00
Code Issues Projects Releases Wiki Activity

glados: waste time making the loading screens look nice

Browse Source
This commit is contained in:
Vince Weaver 2017-01-09 12:24:16 -05:00
parent 8906c919bf
commit 68de9b9d27
1 changed files with 61 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
glados3.3/cube.bas
View File

@ -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