Ice Cream Cone

Gallery

Source Code

   5 REM ICE CREAM CONE
  10 SLOW 
  15 PRINT "ICE CREAM CONE MAKER",,,
  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 "ENTER NR OF 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 R$+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
 700 SAVE "1003%0"
 800 RUN