Authors
Publication
Pub Details
Family Computing (v2 n8)
Volume:
2
Issue:
8
Date
August 1984
Pages
68-73
See all articles from Family Computing (v2 n8)
As you lie in your hammock on a hot summer’s day, languidly fanning yourself with a copy of family computing, do you ever fantasize about eating a big, delicious, dripping ice cream cone? But does the thought of trudging through the hot streets to the neighborhood store require more energy than you can muster?
Well then, turn to your computer, select one of seven delicious flavors, and watch it dish up a treat that looks good enough to eat! (You may even get a surprise chocolate topping!)
Products
Downloadable Media
Image Gallery
Source Code
10 SLOW
20 PRINT "1 - CHOCOLATE"
30 PRINT "2 - PEANUT BUTTER FUDGE"
40 PRINT "3 - BUTTERSCOTCH"
50 PRINT "4 - PEPPERMINT"
60 PRINT "5 - MOLASSES LACE"
70 PRINT "6 - CANDY STRIPE"
80 PRINT "7 - CHOCOLATE CHIP"
90 PRINT
100 PRINT "PLEASE PRESS THE NUMBER OF YOUR CHOICE."
110 FOR X=1 TO 2
120 PRINT
130 PRINT "WHAT FLAVOR DO YOU WANT"
140 PRINT "FOR SCOOP NUMBER ";X;"? "
150 LET R$=INKEY$
160 IF R$="" THEN GOTO 150
170 IF CODE R$<29 OR CODE R$>35 THEN GOTO 150
180 PRINT R$
190 LET R=VAL RS+127
200 IF R=129 THEN LET R=137
210 IF R=132 THEN LET R=10
220 IF X=1 THEN LET I$=CHR$ R
230 IF X=2 THEN LET J$=CHR$ R
240 NEXT X
250 CLS
260 LET A=15
270 LET B=A
280 FOR R=20 TO 11 STEP -2
290 FOR C=A TO B
300 PRINT AT R,C;CHR$ 136
310 PRINT AT R-1,C;CHR$ 136
320 NEXT C
330 LET A=A-1
340 LET B=B+1
350 NEXT R
360 FOR C=9 TO 21
370 PRINT AT 7,C;I$
380 PRINT AT 8,C;I$
390 IF C<10 OR C>20 THEN GOTO 420
400 PRINT AT 6,C;I$
410 PRINT AT 9,C;I$
420 IF C<11 OR C>19 THEN GOTO 450
430 PRINT AT 5,C;I$
440 PRINT AT 10,C;I$
450 NEXT C
460 FOR C=10 TO 20
470 PRINT AT 2,C;J$
480 PRINT AT 3,C;J$
490 IF C<11 OR C>19 THEN GOTO 520
500 PRINT AT 1,C;J$
510 PRINT AT 4,C;J$
520 IF C<12 OR C>18 THEN GOTO 540
530 PRINT AT 0,C;J$
540 NEXT C
550 PAUSE 123
560 PRINT AT 21,1;"PRESS ANY KEY FOR ANOTHER CONE."
570 LET R$=INKEY$
580 IF R$="" THEN GOTO 570
590 CLS
600 GOTO 20