10 POKE53280,6:POKE646,1:S$="SURVEY"
20 PRINT"[147]LOAD A PREVIOUS SURVEY? (Y/N)
30 [161]A$:[139]A$[179][177]"Y"[167][139]A$[179][177]"N"[167]30
40 [139]A$[178]"Y"[167][141]420:[139]Q[179][177]0[167]280
50 Q[178]4:[143] MUST MATCH NUMBER QUESTIONS IN DATA STATEMENTS!
60 [134]Q$(Q),A$(Q),TEMP$(Q)
70 [153]"I'LL START A NEW SURVEY.
80 PRINT"PLEASE ENTER ONE-LINE ANSWERS.
90 [153]"PRESS ANY KEY TO BEGIN. . .
100 GETA$:IFA$=""THEN100
110 PRINT"[147]":FORX=1TOQ:READQ$(X):PRINTQ$(X)"":GOSUB540:PRINT:NEXT
120 PRINT"[147]WOULD YOU LIKE TO CHANGE ANYTHING? (Y/N)
130 [161]A$:[139]A$[179][177]"Y"[167][139]A$[179][177]"N"[167]130
140 [139]A$[178]"N"[167]300
150 [153]"LOADI'LL REPEAT EACH QUESTION AND ANSWER.
160 PRINT"IF YOU DON'T WANT TO CHANGE THE ANSWER,
170 [153]"JUST PRESS ENTER.
180 PRINT"IF YOU DO WANT TO CHANGE SOMETHING,
190 [153]"JUST TYPE IN YOUR NEW ANSWER.
200 PRINT"WHEN FINISHED CHANGING, PRESS _":PRINT"AT THE NEXT QUESTION.
210 [153]"PRESS ANY KEY TO BEGIN.
220 GETA$:IFA$=""THEN220
230 PRINTCHR$(147):FORX=1TOQ:PRINT""Q$(X)"":PRINTA$(X)""
240 TEMP$(X)=A$(X):GOSUB540
250 IFA$(X)=""THENA$(X)=TEMP$(X)
260 IFA$(X)="_"THENA$(X)=TEMP$(X):GOTO280
270 NEXT:GOTO120
280 PRINT"PRESS ANY KEY TO CONTINUE. . .
290 [161]A$:[139]A$[178]""[167]290
300 [153]"LOAD1. PRINT TO COMMODORE PRINTER
310 PRINT"2. SAVE TO DISK AND QUIT
320 [153]"3. QUIT WITHOUT SAVING OR PRINTING
330 GETA$:IFA$<>"1"THENIFA$<>"2"THENIFA$<>"3"THEN330
340 IFA$="1"THENGOSUB370:GOTO280
350 IFA$="2"THENGOSUB470
360 END
370 PRINT"MAKE SURE PRINTER IS READY
380 [153]"THEN PRESS ANY KEY. . .
390 GETA$:IFA$=""THEN390
400 OPEN4,4:CMD4:FORX=1TOQ:PRINTQ$(X):PRINTA$(X):PRINT:NEXT:PRINT#4:CLOSE4
410 RETURN
420 Q=0:PRINT"LOADING PREVIOUS SURVEY. . .
430 [159]1,8,0,S$:[132]1,Q:[139]Q[178]0[167][153]"NO SURVEY FOUND.":[160]1:[142]
440 [134]Q$(Q),A$(Q),TEMP$(Q)
450 [129]X[178]1[164]Q:[132]1,Q$(X):[132]1,A$(X):[130]:[160]1
460 [153]"LOAD":[129]X[178]1[164]Q:[153]Q$(X):[153]A$(X):[153]:[130]:[142]
470 [153]"MAKE SURE DISK DRIVE IS READY
480 PRINT"THEN PRESS ANY KEY. . .
490 [161]A$:[139]A$[178]""[167]490
500 [153]"SAVING SURVEY. . .
510 OPEN15,8,15:PRINT#15,"S0:"S$:REM ERASES OLD SURVEY IF IT EXISTS
520 OPEN1,8,1,S$:PRINT#1,Q:FORX=1TOQ:PRINT#1,Q$(X):PRINT#1,A$(X):NEXT
530 CLOSE1:RETURN
540 OPEN1,0:INPUT#1,A$(X):PRINT:CLOSE1:RETURN:REM INPUT WITHOUT QUESTION MARK
550 DATAWHAT WOULD YOU DO IN A TORNADO WARNING?
560 DATADO YOU EAT EGGS?
570 DATATHE COMMODORE 64 IS A (1) COMPUTER      (2) POWER RANGER (3) VCR
580 DATA(T/F) JESSIE HELMS SHOULD RETIRE.