Atari 8-bit Source code

10REM*******************************
20REM****HIDDENMEANINGS***
30REM*******
40REM****writtenby***
50REM*******
60REM****DAVEMILLER***
70REM*******
80REM****10/83***
90REM*******************************
100GRAPHICS17:DIMA$(50),B(50)
110POKE712,210:POKE711,140:POKE710,190:POKE709,220:POKE708,206
120POSITION5,15:?#6;"pressstart"
130POSITION3,5:?#6;"MEANINGS":FORW=1TO50:POKE710,PEEK(712):IFPEEK(53279)=6THEN150
140NEXTW:POKE710,190:GOTO130
150POSITION2,15:?#6;"":GOSUB710:RESTORE860
160GRAPHICS1:POKE559,0:POKE756,CHSET/256
170DL=PEEK(560)+256*PEEK(561)+4:POKEDL+26,65:POKEDL+2,5:POKEDL+3,5
180POKE711,132:POKE710,136:POKE709,32:POKE708,40
190POSITION10,1:?#6;"PRESSFORANSWER"
200SCR=PEEK(88)+256*PEEK(89)
210FORL=5TO19:POKESCR+2+L*20,193:POKESCR+17+L*20,193:NEXTL
220FORL=103TO116:POKESCR+L,193:POKESCR+280+L,193:NEXTL:POKE752,1:POKE559,34
230POKESCR+405,193:POKESCR+405+20,193:POKESCR+414,193:POKESCR+414+20,193
240?""
250POSITION8,11:?#6;"STAND":POSITION8,12:?#6;"$$$$$":POSITION10,13:?#6;"I":GOSUB590
260POSITION6,12:?#6;"GNIKOOL":GOSUB590
270POSITION8,11:?#6;"DICE":POSITION8,13:?#6;"DICE":GOSUB590
280POSITION7,9:?#6;"GROUND":POSITION7,10:?#6;"$$$$$$":FORL=11TO16:POSITION8,L:?#6;"FEET"
290NEXTL:GOSUB590
300POSITION5,12:?#6;"DEATH/LIFE":GOSUB590
310POSITION8,11:?#6;"TALK":POSITION8,13:?#6;"TALK":GOSUB590
320POSITION8,11:?#6;"MIND":POSITION7,12:?#6;"$$$$$$":POSITION7,13:?#6;"MATTER":GOSUB590
330POSITION9,18:?#6;"STANDING":GOSUB590
340POSITION7,12:?#6;"YYGUY":GOSUB590
350POSITION9,12:?#6;"%&'":GOSUB590
360POSITION10,8:?#6;"D"
370POSITION10,9:?#6;"I"
380POSITION10,10:?#6;"F"
390POSITION10,11:?#6;"F"
400POSITION4,12:?#6;"RIGHTEWRONG"
410POSITION10,13:?#6;"R"
420POSITION10,14:?#6;"E"
430POSITION10,15:?#6;"N"
440POSITION10,16:?#6;"C"
450POSITION10,17:?#6;"E":GOSUB590
460POSITION9,11:?#6;"GI":POSITION8,12:?#6;"$$$$":POSITION9,13:?#6;"CC":GOSUB590
470POSITION8,10:?#6;"ZERO":POSITION8,11:?#6;"$$$$":POSITION8,12:?#6;"PH.D"
480POSITION9,13:?#6;"M.D":POSITION9,14:?#6;"B.S":GOSUB590
490POSITION7,10:?#6;"G":POSITION8,14:?#6;"S":POSITION9,11:?#6;"E"
500POSITION12,13:?#6;"G":GOSUB590
510POSITION8,12:?#6;"SIGN":POSITION6,13:?#6;"........":GOSUB590
520POSITION8,11:?#6;"WEAR":POSITION8,12:?#6;"$$$$":POSITION8,13:?#6;"LONG":GOSUB590
530POSITION5,11:?#6;"ORNOTHING":POSITION5,13:?#6;"ORNOTHING":GOSUB590
540POSITION3,12:?#6;"R\E\A\D/I/N/G":GOSUB590
550POSITION8,11:?#6;"LIPS":POSITION8,13:?#6;"LIPS":GOSUB590
560POSITION5,12:?#6;"SH(E)E*TS":GOSUB590
570POSITION5,12:?#6;"THATSALL?":GOSUB590:FORL=1TO50:FORA=708TO712:POKEA,PEEK(53770)
580NEXTA:NEXTL:POKE82,2:GRAPHICS0:?:?"GOODBYE!":END
590IFPEEK(764)=28THENGOSUB680:GOSUB610:POKE764,255:RETURN
600GOTO590
610POSITION9,1:?#6;"PRESSTOCONTINUE":POKE764,255
620IFPEEK(764)<>28THEN620
630POSITION9,1:?#6;"":POSITION10,1
640?#6;"PRESSFORANSWER":?:?:?""
650FORA=20TO240STEP20:SOUND0,255-A,6,12-(A/21)
660FORL=123TO136:POKESCR+L,0:POKESCR+A+L,0:NEXTL:NEXTA:FORW=1TO30:SOUND0,100,10,W:NEXTW
670FORJ=0TO15STEP1.2:SOUND0,20-J,10,15-J:SOUND0,80-J,10,15-J:NEXTJ:SOUND0,0,0,0:RETURN
680READA:POKE82,20-A+(A/2):?"":FORLOOP=1TOA:READB
690A$(A)=CHR$(B):?A$(A);"$#";:FORW=1TO40-A:NEXTW
700SOUND0,90,6,10:SOUND0,0,0,0:NEXTLOOP:?"":?:RETURN
710CHSET=(PEEK(106)-8)*256:IFPEEK(CHSET+1*8)=255THENRETURN
720FORI=0TO512:POKECHSET+I,PEEK(57344+I):NEXTI:RESTORE760
730READA:IFA=-1THENRETURN
740FORJ=0TO7:READB:POKECHSET+A*8+J,B:NEXTJ
750GOTO730
760DATA1,255,243,207,243,207,243,207,255
770DATA3,6,6,2,14,242,6,9,9
780DATA4,0,0,0,0,255,0,0,0
790DATA5,0,0,0,28,16,24,16,0
800DATA6,0,0,0,28,22,28,22,0
810DATA7,0,0,0,20,28,8,8,0
820DATA8,0,0,28,16,28,4,28,0
830DATA9,0,0,28,20,28,20,20,0
840DATA10,0,0,28,8,8,8,8,0
850DATA-1
860DATA12,73,32,85,78,68,69,82,83,84,65,78,68
870DATA17,76,79,79,75,73,78,71,32,66,65,67,75,87,65,82,68,83
880DATA8,80,65,82,65,68,73,83,69
890DATA20,83,73,88,32,70,69,69,84,32,85,78,68,69,82,71,82,79,85,78,68
900DATA16,76,73,70,69,32,65,70,84,69,82,32,68,69,65,84,72
910DATA11,68,79,85,66,76,69,32,84,65,76,75
920DATA16,77,73,78,68,32,79,86,69,82,32,77,65,84,84,69,82
930DATA22,83,84,65,78,68,73,78,71,32,73,78,32,84,72,69,32,67,79,82,78,69,82
940DATA8,87,73,83,69,32,71,85,89
950DATA9,83,77,65,76,76,32,70,82,89
960DATA34,68,73,70,70,69,82,69,78,67,69,32,66,69,84,87,69,69,78,32
970DATA82,73,71,72,84,32,65,78,68,32,87,82,79,78,71
980DATA11,71,73,32,79,86,69,82,83,69,65,83
990DATA24,84,72,82,69,69,32,68,69,71,82,69,69,83,32,66,69,76,79,87,32,90,69,82,79
1000DATA14,83,67,82,65,77,66,76,69,68,32,69,71,71,83
1010DATA23,83,73,71,78,32,79,78,32,84,72,69,32,68,79,84,84,69,68,32,76,73,78,69
1020DATA14,76,79,78,71,32,85,78,68,69,82,87,69,65,82
1030DATA17,68,79,85,66,76,69,32,79,82,32,78,79,84,72,73,78,71
1040DATA25,82,69,65,68,73,78,71,32,66,69,84,87,69,69,78,32,84,72,69,32,76,73,78,69,83
1050DATA6,84,85,76,73,80,83
1060DATA12,83,65,84,73,78,32,83,72,69,69,84,83
1070DATA21,89,85,80,44,32,80,82,69,83,83,32,197,211,195,32,84,79,32,69,78,68	

• Download link 1

• Download link 1