mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-24 13:32:23 +00:00
glados: full text works
I suppose I need to work on sound next
This commit is contained in:
parent
883be41256
commit
bcea1a66c8
Binary file not shown.
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user