Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-27 15:29:47 +00:00
Code Issues Projects Releases Wiki Activity

glados: full text works

Browse Source 
I suppose I need to work on sound next
This commit is contained in:
Vince Weaver 2017-01-04 22:25:10 -05:00
parent 883be41256
commit bcea1a66c8
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
glados3.3/glados33.dsk
View File

Binary file not shown.

21
glados3.3/still_alive.bas
View File

@ -835,7 +835,7 @@
' '
' PPS: I'm doing Science and I'm\nstill alive. ' PPS: I'm doing Science and I'm\nstill alive.
' '
760 T$="|PPS: ":GOSUB 30 760 T$="PPS: ":GOSUB 30
762 T$="I'm ":GOSUB 20:REM SOUND 440, 4.8 762 T$="I'm ":GOSUB 20:REM SOUND 440, 4.8
764 T$="do":GOSUB 20:REM SOUND 440, 4.8 764 T$="do":GOSUB 20:REM SOUND 440, 4.8
766 T$="ing ":GOSUB 20 766 T$="ing ":GOSUB 20
@ -866,7 +866,7 @@
' '
' PPPS: I feel FANTASTIC and I'm\nstill alive ' PPPS: I feel FANTASTIC and I'm\nstill alive
' '
782 T$="|PPPS: ":GOSUB 30 782 T$="PPPS: ":GOSUB 30
784 T$="I ":GOSUB 20:REM SOUND 440, 4.8 784 T$="I ":GOSUB 20:REM SOUND 440, 4.8
786 T$="feel ":GOSUB 20 786 T$="feel ":GOSUB 20
'delaytime = .01 'delaytime = .01
@ -895,7 +895,7 @@
'REM SOUND 369.9, 1 'REM SOUND 369.9, 1
'NEXT i 'NEXT i
804 PRINT 804 PRINT
806 T$="|FINAL THOUGHT:"+C$:GOSUB 30 806 T$="FINAL THOUGHT:"+C$:GOSUB 30
' '
'hl 'hl
' '
@ -925,7 +925,7 @@
'REM SOUND 440, 1 'REM SOUND 440, 1
'REM SOUND 369.9, 1 'REM SOUND 369.9, 1
'NEXT i 'NEXT i
826 T$=C$+C$+FINAL THOUGHT PS:"+C$:GOSUB 30 826 T$=C$+C$+"FINAL THOUGHT PS:"+C$:GOSUB 30
' '
'hl 'hl
' '
@ -939,7 +939,7 @@
836 T$="I ":GOSUB 20:REM SOUND 440, 4.8 836 T$="I ":GOSUB 20:REM SOUND 440, 4.8
838 T$="will ":GOSUB 20:REM SOUND 369.9, 4.8 838 T$="will ":GOSUB 20:REM SOUND 369.9, 4.8
840 T$="be"+C$:GOSUB 20:REM SOUND 293.6, 9.6 840 T$="be"+C$:GOSUB 20:REM SOUND 293.6, 9.6
842 T$="|still ":GOSUB 20 842 T$="still ":GOSUB 20
'FOR i = 1 TO 2.4 'FOR i = 1 TO 2.4
'REM SOUND 329.6, 1 'REM SOUND 329.6, 1
'REM SOUND 391.9, 1 'REM SOUND 391.9, 1
@ -971,13 +971,14 @@
852 T$="ALIVE":GOSUB 20:REM SOUND 0, .1:REM SOUND 369.9, 4.8 852 T$="ALIVE":GOSUB 20:REM SOUND 0, .1:REM SOUND 369.9, 4.8
'REM SOUND 0, .1 'REM SOUND 0, .1
'REM SOUND 369.9, 4.8 'REM SOUND 369.9, 4.8
853 FOR I=1 TO 500:NEXT I
854 HOME 854 HOME
856 FOR I=1 TO 1000:NEXT I 856 FOR I=1 TO 1000:NEXT I
858 T$="THANK YOU FOR"+C$:GOSUB 20 858 T$="THANK YOU FOR PARTICIPATING"+C$:GOSUB 20
860 T$="PARTICIPATING IN THIS"+C$:GOSUB 20 860 T$="IN THIS"+C$:GOSUB 20
862 T$="ENRICHMENT CENTER"+C$:GOSUB 20 862 T$="ENRICHMENT CENTER ACTIVITY!!"+C$:GOSUB 20
864 T$="ACTIVITY!!":GOSUB 20 864 PRINT:PRINT
868 FOR I=1 TO 2000: NEXT I 868 FOR I=1 TO 3000: NEXT I
1000 TEXT:HOME 1000 TEXT:HOME
1999 END 1999 END
2000 REM APETURE 2000 REM APETURE