Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-24 13:32:23 +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.
'
760 T$="|PPS: ":GOSUB 30
760 T$="PPS: ":GOSUB 30
762 T$="I'm ":GOSUB 20:REM SOUND 440, 4.8
764 T$="do":GOSUB 20:REM SOUND 440, 4.8
766 T$="ing ":GOSUB 20
@ -866,7 +866,7 @@
'
' 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
786 T$="feel ":GOSUB 20
'delaytime = .01
@ -895,7 +895,7 @@
'REM SOUND 369.9, 1
'NEXT i
804 PRINT
806 T$="|FINAL THOUGHT:"+C$:GOSUB 30
806 T$="FINAL THOUGHT:"+C$:GOSUB 30
'
'hl
'
@ -925,7 +925,7 @@
'REM SOUND 440, 1
'REM SOUND 369.9, 1
'NEXT i
826 T$=C$+C$+FINAL THOUGHT PS:"+C$:GOSUB 30
826 T$=C$+C$+"FINAL THOUGHT PS:"+C$:GOSUB 30
'
'hl
'
@ -939,7 +939,7 @@
836 T$="I ":GOSUB 20:REM SOUND 440, 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
842 T$="|still ":GOSUB 20
842 T$="still ":GOSUB 20
'FOR i = 1 TO 2.4
'REM SOUND 329.6, 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
'REM SOUND 0, .1
'REM SOUND 369.9, 4.8
853 FOR I=1 TO 500:NEXT I
854 HOME
856 FOR I=1 TO 1000:NEXT I
858 T$="THANK YOU FOR"+C$:GOSUB 20
860 T$="PARTICIPATING IN THIS"+C$:GOSUB 20
862 T$="ENRICHMENT CENTER"+C$:GOSUB 20
864 T$="ACTIVITY!!":GOSUB 20
868 FOR I=1 TO 2000: NEXT I
858 T$="THANK YOU FOR PARTICIPATING"+C$:GOSUB 20
860 T$="IN THIS"+C$:GOSUB 20
862 T$="ENRICHMENT CENTER ACTIVITY!!"+C$:GOSUB 20
864 PRINT:PRINT
868 FOR I=1 TO 3000: NEXT I
1000 TEXT:HOME
1999 END
2000 REM APETURE