El Amiga me Encanta - Amiga World Nº6


	Revistas en papel Amiga World Nº6 - Enero 1990

El Amiga Me Encanta ha conseguido el permiso por escrito de IDG Comunications España
para ofrecer los artículos de la revista Amiga World España.

$Amiga World$

Por Andreu Busquet Bosch.

Este programa ha sido diseñado, atendiendo las peticiones, que solicitan programas con
números de columna, que no sean demasiado largos, etc.

El programa se carga directamente con el ICONO BINGO. En la pantalla aparece un pequeño mensaje. Al cabo de unos segundos, con una pequeña melodía de fondo, aparece de forma animada, el recuadro de presentación de número del BINGO.

finalizada la melodía, pulsando RETURN, saldrá el primer número, con el correspondiente número de bola. Para interrumpir la partida, hay dos opciones, el menú del Amiga-Basic o introducir la letra f y pulsar RETURN, con esta opción, suena otra melodía y un mensaje invita a jugar otra partida o salir del programa.

La forma práctica de utilizar el juego, para no tener el AMIGA conectado a la televisión, y no estar pendientes del mismo cuando se juega, es grabar varias partidas en un vídeo (con un micro se pueden incluso grabar los números "cantar" en el lenguaje binguero).

El resto como siempre es la imaginación de cada uno, personalizando las melodías, los mensajes, cambiando los colores, etc., etc.

Los cartones los puedes imprimir fácilmente, con cualquier programa de dibujo (como la muestra por ejemplo, cambiando los números del 1 al 90, procurando que todos los cartones sean distintos). Este está realizado con DELUXE PAINT.

Suerte y a cantar BINGO.

N. de R.: Para que este programa funcione correctamente, es necesario configurar el Amiga (en PREFERENCES) a 60 columnas.

'PROGRAMA: B I N G O  VERSION 1.2           . 456
'(C) 1989 BY ANDREU BUSQUET                 . 660
'                                           . 273
'(C) 1989 BY AMIGA WORLD                    . 376
20 DIM K (100)                              . 686
30 SUM=0                                    . 752
40 CLS                                      . 637
50 WINDOW 5,,,0                             . 822
60 LOCATE 11,10:PRINT "PROGRAMA BINGO"      . 399
70 LOCATE 13,10:PRINT "UTILIZAR 60          . 151
COLUMNAS"                                   . 842
80 LOCATE 14,10:PRINT "PARA CARGAR Y        . 844
LISTAR"                                     . 734
90 LOCATE 15,10:PRINT "EL PROGRAMA,         . 620
UTILIZAR LOS "                              . 901
100 LOCATE 16M10:PRINT "MENUS DEL           . 515
AMIGA-BASIC."                               . 932
110 LOCATE 20,30::PRINT "(C) 1989 BY        . 684
AMIGA WORLD"                                . 122
120 FOR T= 1 TO 10                          . 332
121 SOUND 1046.5,2                          . 191
122 FOR E=1 TO 1000:NEXT E                  . 789
123 SOUND 1174.7,2                          . 432
124 FOR F=1 TO 1000:NEXT F                  . 331
125 SOUND 523.25,2                          . 937
126 FOR G=1 TO 1000:NEXT G                  . 872
127 NEXT T                                  . 735
130 CLS                                     . 871
140 COLOR 2,3                               . 60
150 LINE (130,60)-(500,150),,BF             . 828
160 FOR G=1 TO 7                            . 264
170 LOCATE 12,25:PRINT " B I N G O "        . 443
:SOUND 2000,2,100,0                         . 473
180 FOR T=1 TO 500:NEXT T                   . 155
190 LOCATE 12,25:PRINT "           "        . 895
:SOUND 400,2,125,0                          . 791
200 FOR H=1 TO 500: NEXT H                  . 477
210 NEXT G                                  . 649
220 COLOR  2,3                              . 250
230 CLS                                     . 239
240 SOUND 293.66,2                          . 59
250 LINE(0,0)-(8,196),,BF                   . 629
260 FOR T=1 TO 1000:NEXT T                  . 417
270 SOUND 329.63,2                          . 344
280 LINE(621,0)-(631,196),,BF               . 523
290 FOR T=1 TO 1000:NEXT T                  . 519
300 SOUND 349.23,2                          . 465
310 LINE(0,5)-(631,0),,BF                   . 665
320 FOR T=1 TO 1000:NEXT T                  . 519
330 SOUND 392!,2                            . 34
340 LINE(0,180)-(626,196),,BF               . 53
350 FOR T=1 TO 1000:NEXT T                  . 621
360 SOUND 440!,2                            . 175
370 LINE(0,163)-(30,180),,BF                . 756
380 FOR T=1 TO 1000:NEXT T                  . 723
390 SOUND 493.88,2                          . 554
400 LINE(180,163)-(280,180),,BF             . 343
410 FOR T=1 TO 1000:NEXT T                  . 723
420 SOUND 523.25,2                          . 104
430 LINE(460,163)-(508,180),,BF             . 590
440 FOR T=1 TO 1000:NEXT T                  . 825
450 SOUND 587.33,2                          . 806
460 LINE(508,0)-(630,195),,BF               . 777
470 FOR T=1 TO 1000:NEXT T                  . 927
480 SOUND 659.26,2                          . 151
490 LINE(0,163)-(508,168),,BF               . 100
500 FOR T=1 TO 1000:NEXT T                  . 927
510 SOUND 701!,2                            . 484
520 LINE(0,145)-(508,148),,BF               . 956
530 FOR T=1 TO 1000:NEXT T                  . 30
540 SOUND 783.99,2                          . 792
550 LINE(0,127)-(508,130),,BF               . 68
560 FOR T=1 TO 1000:NEXT T                  . 132
570 SOUND 880!,2                            . 39
580 LINE(0,109)-(508,111),,BF               . 712
590 FOR T=1 TO 1000:NEXT T                  . 234
600 SOUND 993!,2                            . 839
610 LINE(0,91)-(508,94),,BF                 . 422
620 FOR T=1 TO 1000:NEXT T                  . 234
630 SOUND 1046.5,2                          . 400
640 LINE(0,74)-(508,77),,BF                 . 268
650 FOR T=1 TO 1000:NEXT T                  . 336
660 SOUND 1174.7,2                          . 821
670 LINE(0,56)-(508,59),,BF                 . 580
680 FOR T=1 TO 1000:NEXT T                  . 438
690 SOUND 1318.5,2                          . 279
700 LINE(0,38)-(508,41),,BF                 . 877
710 FOR T=1 TO 1000:NEXT T                  . 438
720 SOUND 1396.9,2                          . 139
730 LINE(0,20)-(508,23),,BF                 . 889
740 FOR T=1 TO 1000:NEXT T                  . 540
750 SOUND 1568!,2                           . 310
780 LINE(50,0)-(58,163),,BF                 . 206
790 FOR T=1 TO 1000:NEXT T                  . 377
800 SOUND 1760!,2                           . 351
810 LINE(100,0)-(108,163),,BF               . 291
820 FOR T=1 TO 1000: NEXT T                 . 496
830 SOUND 1975.5,2                          . 185
840 LINE(150,0)-(150,163),,BF               . 592
850 FOR T=1 TO 1000:NEXT T                  . 479
860 SOUND 1760!,2                           . 555
870 LINE(200,0)-(208,163),,BF               . 725
880 FOR T=1 TO 1000:NEXT T                  . 581
890 SOUND 1568!,2                           . 351
1000 LINE(250,0)-(258,163),,BF              . 388
1010 FOR T=1 TO 1000:NEXT T                 . 486
1020 SOUND 1396.9,2                         . 475
1030 LINE(300,0)-(308,163),,BF              . 521
1040 FOR T=1 TO 1000:NEXT T                 . 588
1050 SOUND 1318.5,2                         . 330
1060 LINE(350,0)-(358,163),,BF              . 822
1050 FOR T=1 TO 1000:BEXT T                 . 955
1060 SOUND 1174.7,2                         . 159
1070 LINE(400,0)-(408,163),,BF              . 941
1080 FOR T=1 TO 1000,NEXT T                 . 58
1090 SOUND 1046.5,2                         . 167
1100 LINE(450,0)-(458,163),,BF              . 222
1110 FOR T= 1 TO 1000: NEXT T               . 170
1120 SOUND 993!,2                           . 543
1130 LINE(500,0)-(508,163),,BF              . 355
1140 FOR M=1 TO 10                          . 212
1150 SOUND 523.25,2                         . 159
1160 FOR N=1 TO 200:NEXT N                  . 136
1170 SOUND 587.33,2                         . 290
1180 FOR L=1 TO 200:NEXT L                  . 512
1190 SOUND 659.26,2                         . 63
1200 FOR  A=1 TO 200:NEXT A                 . 302
1210 SOUND 701,2                            . 872
1220 FOR V=1 TO 200:NEXT V                  . 65
1230 NEXT M                                 . 97
1240 LOCATE 2,55:PRINT" BINGO "             . 852
1250 LOCATE 4,55:PRINT" AMIGA "             . 689
1260 RANDOMIZE TIMER                        . 95
1270 LOCATE 20,58:INPUT;OP$                 . 307
1290 SUM=SUM+1                              . 626
1290 LOCATE 20,5:PRINT "B O L A..:";SUM     . 386
1300 IF SUM=91 THEN GOTO 1330               . 58
1310 IF OP$="" THEN GOTO 1360               . 643
1320 IF OP$="F" THEN CLS                    . 534
1321 FOT T=1 TO 5                           . 179
1322 SOUND 880!,2                           . 125
1323 FOR G=1 TO 200:NEXT G                  . 225
1324 SOUND 440!,2                           . 410
1325 FOR E=1 TO 200:NEXT E                  . 715
1326 NEXT T                                 . 581
1327 CLS:LOCATE  15,10: PRINT"(PULSAR       . 191
S PARA CONTINUAR, N PARA TERMINAR)"         . 108
1328 LOCATE 16,20: PRINT"(PULSAR RETURN)"   . 501
1330 LOCATE 12,17: INPUT "? OTRA PARTIDA    . 413
SI O NO ";Q$                                . 461
1340 IF Q$="S" OR  Q$="S" THEN GOTO 130     . 322
1341 IF Q$="N" OR Q$="N" THEN CLS           . 527
1342 LOCATE 12,25 :PRINT "FIN DEL JUEGO "   . 989
1343 FOR T=1 TO 5                           . 360
1344 SOUND 440,50,100,2                     . 938
1345 SOUND 523,10,100,1                     . 960
1346 SOUND 329,20,100,2                     . 943
1347 SOUND 659,10,100,1                     . 591
1348 SOUND 400,20,100,2                     . 224
1349 SOUND 329,5,100,1                      . 552
1350 NEXT T                                 . 155
1351 LOCATE 20,2: PRINT "(UTILIZAR EL       . 790
1352 END                                    . 474
1352 GOTO 1260                              . 754
1360 FOR X=1 TO 15                          . 136
1370 SOUND 500,1                            . 584
1380 NEXT X                                 . 186
1390 LOCATE 20,30: PRINT "N U M E R O :"    . 529
1400 GOSUB 1420                             . 445
1410 GOTO 1260                              . 686
1420 CN=CN+1                                . 998
1430 NUM=(INT(RND*101))-1                   . 132
1450 IF NUM>90 THEN GOTO 1430               . 330
1450 IF NUM<0 THEN GOTO 1430                . 224
1470 FOR T=1 TO 100                         . 588
1480 IF K(T)=NUM THEN GOTO 1430             . 866
1490 NEXT T                                 . 166
1500 K(CN)=NUM                              . 40
1510 LOCATE 20,43 :PRINT NUM:GOSUB 1530     . 219
1520 RETURN                                 . 373
1530 Y=-1:L=2                               . 818
1540 Y=Y+1                                  . 226
1550 FOR C=1 TO 9                           . 701
1560 FOR X=2 TO 50 STEP 5                   . 307
1570 Y=Y+1                                  . 940
1580 IF NUM=Y THEN LOCATE L,X:PRINT Y       . 407
1590 NEXT X                                 . 201
1600 L=L+2                                  . 774
1610 NEXT C                                 . 53
2000 RETURN                                 . 385
Numero de lineas:   190

Envía esta página web a un amigo:
Esta opción está desactivada temporalmente, rogamos disculpen las molestias

Volver a la página anterior	Al menú principal