1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program .... BAMBI.BAS        !
3 REM ! Utg}va  1.0                   !
4 REM ! av (c) Gunnar Forsell 1631    !
7 REM ! Minne 16 Kbyte                !
8 REM ! Ins{nt av 1631                !
9 REM +++++++++++++++++++++++++++++++++
10 REM Grafikprogram med ljud och
11 REM olyckligt slut.
12 REM 
80 RANDOMIZE : X=30 : FOR I=1 TO 3 : FOR J=1 TO 3
90 READ A$(I,J) : NEXT J : NEXT I
100 FOR I=1 TO 3 : READ B$(I) : NEXT I
110 FOR I=10 TO 1 STEP -1 : READ C$(I) : NEXT I
120 ; CHR$(12%); : FOR I%=7% TO 21% : ; CUR(I%,0%)CHR$(23%); : NEXT I%
130 ; CUR(0,12)"B A M B I"
140 ; CUR(2,1)"H{r {r Bambi som {r ute och g}r"
150 ; CUR(21,1)'    " """" "   "   " "  "'
160 FOR I%=2% TO 79% : SETDOT 32%,I% : SETDOT 64%,I% : NEXT I%
170 GOSUB 230
180 IF X<12 ; CUR(5,3)"Snart kommer bambi's v{n"
190 IF DOT(63,X*2+5) THEN GOSUB 340
200 IF X<8 THEN GOSUB 340 : GOTO 480
210 FOR I=1 TO 250 : NEXT I
220 GOTO 170
230 REM BAMBI FLYTTAR SIG
240 FOR I=1 TO 3
250 X=X+(I>2)
260 ; CUR(I+17,X)A$(1,I)
270 FOR J=1 TO 3
280 ; CUR(20,X+3)" "B$(I)
290 NEXT J
300 ; CHR$(7)
310 NEXT I
320 FOR J=0 TO 100 : NEXT J
330 RETURN 
340 REM BAMBI [TER
350 FOR I=1 TO 3
360 FOR J=1 TO 3
370 ; CUR(J+17,X)A$(I,J)
380 ; CUR(20,X+3)B$(3)
390 OUT 6%,83%
400 NEXT J
410 FOR J=0 TO 100 : NEXT J
420 NEXT I
430 FOR I=1 TO 11
440 IF DOT(63,X*2+5) THEN CLRDOT 63,X*2+5 ELSE SETDOT 63,X*2+5
450 FOR J=0 TO 100 : NEXT J
460 NEXT I
470 RETURN 
480 REM GODZILLAN KOMMER!!
490 FOR I=1 TO 10
500 FOR J=1 TO I
510 ; CUR(10+J,5)C$(10-(I-J))
520 NEXT J : FOR K=0 TO 100 : NEXT K : NEXT I
530 ; CUR(21,X+1)"x.  -t";CUR(22,X+1)"SPLAT!"
540 OUT 6%,137%
550 ; CUR(7,9)"G O D Z I L L A N"
560 ; CUR(8,8)CHR$(23%)"#################"
570 GOTO 570
580 DATA " `|0    ","   k$ ","   "
590 DATA "        "," `|$ ","  ! "
600 DATA "        ","  `~$ ","  o "
610 DATA "j  9 ","f  9 ","6  )0 "
620 DATA "+/' "
630 DATA "! "
640 DATA "`~}tppx~"
650 DATA " j        "
660 DATA " j        "
670 DATA " j        "
680 DATA " j        "
690 DATA " j        "
700 DATA " j        "
710 DATA " j        "