---
title: "Ice Cream Cone"
type: "article"
slug: "ice-cream-cone"
url: "http://localhost/article/ice-cream-cone/"
markdown_url: "http://localhost/article/ice-cream-cone.md"
published_at: "2020-10-27T17:08:39+00:00"
modified_at: "2026-05-29T11:00:44+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "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…"
category:
  - name: "Family Computing"
    slug: "family-computing"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/family-computing/"
post_tag:
  - name: "1984"
    slug: "year-1984"
    taxonomy: "post_tag"
    url: "http://localhost/tag/year-1984/"
  - name: "TS 1000"
    slug: "ts1000"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts1000/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 1000"
    slug: "ts-1000"
    taxonomy: "model"
    url: "http://localhost/model/ts-1000/"
indiv:
  - name: "Joey Latimer"
    slug: "joey-latimer"
    taxonomy: "indiv"
    url: "http://localhost/indiv/joey-latimer/"
publication: "Family Computing"
publication_r:
  id: 10131
  title: "Family Computing"
  type: "periodical"
  url: "http://localhost/periodical/family-computing/"
authors: "Joey Latimer"
authors_r:
  - name: "Joey Latimer"
    slug: "joey-latimer"
    taxonomy: "indiv"
    url: "http://localhost/indiv/joey-latimer/"
volume: "2"
issue: "8"
issues_articles:
  - id: 61426
    title: "Family Computing (v2 n8)"
    type: "issue"
    url: "http://localhost/issue/family-computing-v2-n8/"
pages: "68-73"
pubdate: "August 1984"
archive_link: false
volumeissue: "v2n8"
---

# Ice Cream Cone

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!)

## 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
```