This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
Listing 1
1 REM CINQUAIN 12/13/1980 2 REM 3 REM HELPS MAKE CINQUAIN POEMS 4 REM 5 REM 6 REM ATARI 32K 7 REM 8 REM DOREAN BARNES 9 REM 10 REM 11 REM 12 REM ADAPTED FROM APPLE TO ATARI BY BRUCE ERICKSON 7/16/82 13 REM 15 REM 16 REM | SAN MATEO COUNTY | 17 REM | OFFICE OF EDUCATION | 18 REM | & | 19 REM | COMPUTER-USING EDUCATORS | 20 REM | | 21 REM | SOFTSWAP | 22 REM | | 23 REM |333 MAIN STREET,REDWOOD CITY| 24 REM | CA 94063 (415)363-5472 | 25 REM 26 REM 27 REM 28 REM 29 REM 30 REM | PROGRAM MAY BE COPIED FOR | 31 REM | EDUCATIONAL USE ONLY AND | 32 REM | MAY NOT BE SOLD. COPYRIGHT | 33 REM | 1982 CUE,INC | 34 REM 100 DIM N$(255),A$(255),V$(255),D$(255),S$(255),G$(255),K$(255),B$(255) 148 GRAPHICS O 149 POKE 752,3 150 A$="*** CINQUAIN ***":POSITION 19-(LEN(A$)/2),10:PRINT A$ 155 FOR X=1 TO 500:NEXT X 200 GRAPHICS 0 210 W=100:GOSUB 1100 215 PRINT:PRINT 217 POSITION 2,12 220 GRAPHICS 0:POSITION 2,12:PRINT "WHAT IS YOUR NAME";:INPUT N$:GOTO 230 230 IF N$="" THEN PRINT "GEE, I THOUGHT EVERYONE HAD A NAME.":POSITION 2,12:FOR I=1 TO 300:NEXT I:GOTO 220 235 IF ASC(N$)<64 THEN 217 240 GOSUB 460:REM INTRODUCTION TO GAME 250 GOSUB 600:PRINT:REM TITLE 260 GOSUB 800:REM SECOND LINE OF POEM 270 PRINT 280 GOSUB 870:REM 3RD LINE OF POEM 290 PRINT 300 GOSUB 950:REM 4TH LINE OF POEM 310 PRINT 320 GOSUB 1030:REM 5TH LINE OF POEM 330 PRINT 345 PRINT:PRINT:PRINT 350 POSITION 19-(LEN(S$)/2),3:PRINT S$ 360 POSITION 19-(LEN(B$)/2),5:PRINT B$ 370 POSITION 19-(LEN(D$)/2),7:PRINT D$ 380 POSITION 19-(LEN(G$)/2),9:PRINT G$ 390 POSITION 19-(LEN(K$)/2),11:PRINT K$ 400 POSITION 2,17:PRINT "WOULD YOU LIKE TO DO ANOTHER CINQUAIN?" 410 GOSUB 2000 411 IF V=43 THEN 250 432 GRAPHICS O:POSITION 2,3:PRINT "WOULD ANYONE ELSE LIKE TO TRY?":GOSUB 2000 433 GOSUB 2000 434 IF V=43 THEN 220 435 CLR:GRAPHICS 0:END 460 GRAPHICS 0:POSITION 2,3:REM INTRODUCTION 470 PRINT:PRINT "HI, ";N$;"." 480 PRINT 490 PRINT "DO YOU KNOW WHAT A CINQUAIN IS?" 500 GOSUB 2000 502 IF V=43 THEN PRINT:GOTO 590 510 GRAPHICS 0:POSITION 2,2 530 PRINT "A CINQUAIN (SIN KWANE') IS A POEM THAT" 550 PRINT "HAS ONLY 5 LINES. I AM GOING TO HELP":PRINT:PRINT "YOU WRITE A CINQUAIN." 560 W=150:GOSUB 1100 564 PRINT 575 GOSUB 1150:GOTO 590 580 W=150:GOSUB 1100 590 RETURN 600 REM - CHOOSING FIRST LINE 605 GRAPHICS 0:POSITION 2,2 610 PRINT " WHAT IS YOUR FAVORITE SEASON?" 620 PRINT " ------" 630 PRINT " SUMMER" 640 PRINT " AUTUMN" 650 PRINT " WINTER" 660 PRINT " SPRING" 665 PRINT 666 POKE 764,255 670 PRINT "PLEASE TYPE ONE OF THE GIVEN SEASONS":PRINT:PRINT "AND PRESS RETURN." 671 PRINT:PRINT:PRINT:PRINT "WHICH ONE WOULD YOU LIKE";:INPUT S$ 680 IF S$="SUMMER" THEN 710 690 IF S$="AUTUMN" OR S$="WINTER" OR S$="SPRING" THEN 710 695 PRINT 700 POSITION 2,20:PRINT "ENTER ONLY ONE OF THE WORDS ABOVE. ":FOR QQ=1 TO 150:NEXT QQ:W=150:GOSUB 1100:GOTO 605 710 REM 715 GRAPHICS O:PRINT:PRINT 720 PRINT 730 W=10:GOSUB 1100 740 W=10:GOSUB 1100 750 PRINT "THE FIRST LINE OF YOUR CINQUAIN IS;":PRINT:PRINT " '";S$;"'" 760 W=300:GOSUB 1100 770 W=10:GOSUB 1100 780 RETURN 790 PRINT 800 REM SECOND LINE OF CINQUAIN 810 PRINT "THE SECOND LINE OF YOUR CINQUAIN NEEDS":PRINT "TWO "; 820 PRINT "WORDS THAT DESCRIBE ";S$;".";" PLEASE" 830 PRINT "TYPE A DESCRIPTION USING TWO WORDS.":PRINT:PRINT:PRINT 840 GOSUB 1140:PRINT "=>";:INPUT B$ 850 IF B$="" THEN POSITION 2,15:GOTO 840 853 XX=0:YY=2:A$=B$:GOSUB 3020 854 IF CC=0 THEN GRAPHICS 0:GOTO 810 855 GRAPHICS 0:PRINT:PRINT 860 RETURN 870 REM THIRD LINE OF CINQUAIN 880 PRINT "THE THIRD LINE OF YOUR CINQUAIN NEEDS" 885 PRINT 890 PRINT "THREE WORDS THAT DESCRIBE SOMETHING" 895 PRINT 900 PRINT "THAT HAPPENS IN ";S$;"." 905 PRINT 906 PRINT 910 PRINT "TYPE IN A HAPPENING USING THREE WORDS." 915 PRINT:PRINT:PRINT 920 GOSUB 1140:PRINT "=>";:INPUT D$ 930 IF D$="" THEN POSITION 2,15:GOTO 920 933 XX=0:YY=3:A$=D$:GOSUB 3020 934 IF CC=0 THEN GRAPHICS 0:GOTO 880 935 GRAPHICS 0:PRINT:PRINT 940 RETURN 950 REM FOURTH LINE OF CINQUAIN 960 PRINT "THE FOURTH LINE OF YOUR CINQUAIN NEEDS":PRINT "FOUR "; 970 PRINT "WORDS THAT DESCRIBE A FEELING":PRINT:PRINT "YOU GET "; 980 PRINT "DURING ";S$;"." 985 PRINT:PRINT 990 PRINT "TYPE A FEELING USING FOUR WORDS." 995 PRINT:PRINT:PRINT 1000 GOSUB 1140:PRINT "=>";:INPUT G$ 1010 IF G$="" THEN POSITION 2,14:GOTO 1000 1012 XX=0:YY=4:A$=G$:GOSUB 3020 1013 IF CC=0 THEN GRAPHICS 0:GOTO 960 1015 GRAPHICS 0:PRINT:PRINT 1020 RETURN 1030 REM FIFTH LINE OF POEM 1040 PRINT "THE FIFTH, AND LAST, LINE OF YOUR":PRINT:PRINT "CINQUAIN "; 1050 PRINT "NEEDS ONE WORD THAT REFERS":PRINT:PRINT "TO ";S$;"." 1055 PRINT:PRINT 1060 PRINT "TYPE IN ONE WORD." 1065 PRINT:PRINT:PRINT 1070 GOSUB 1140:PRINT "=>";:INPUT K$ 1080 IF K$="" THEN POSITION 2,14:GOTO 1070 1082 XX=0:YY=1:A$=K$:GOSUB 3020 1083 IF CC=0 THEN GRAPHICS 0:GOTO 1040 1085 GRAPHICS 0:PRINT:PRINT 1090 RETURN 1100 REM SECOND TIMER 1110 T=T1 1120 IF TI<T+W THEN TI=TI+1:GOTO 1120 1130 RETURN 1140 RETURN 1150 POSITION 2,23:PRINT "PRESS RETURN TO CONTINUE."; 1151 POKE 764,255 1152 IF PEEK(764)=255 THEN 1152 1153 IF PEEK(764)=12 THEN RETURN 1154 GOTO 1151 2000 POSITION 28,20:PRINT:PRINT:POSITION 2,20:PRINT "(Y FOR YES OR N FOR NO)=>"; 2005 POKE 764,255 2010 IF PEEK(764)=255 THEN 2010 2020 IF PEEK(764)<>43 AND PEEK(764)<>35 THEN 2010 2030 V=PEEK(764) 2050 RETURN 3020 CC=0 3022 IF LEN(A$)=1 THEN 3070 3025 IF LEN(A$)>35 THEN POSITION 2,20:PRINT "PLEASE ENTER A SHORTER LINE.":FOR QQQ=1 TO 300:NEXT QQQ:RETURN 3030 FOR I=1 TO LEN(A$)-1 3040 IF ASC(A$(I,I+1))=32 THEN XX=XX+1 3050 NEXT I 3060 IF XX=YY-1 THEN CC=1:RETURN 3070 POSITION 2,20:PRINT "PLEASE ENTER ";YY;" WORDS.":FOR QQQ=1 TO 300:NEXT QQQ 3080 RETURN
References
Listing downloads
Copyright holder