home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1995 January
/
1995-01b.d64
/
surveytaker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
59 lines
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.