Frank's Humble Abode at frankosite2020.com .... formerly known as frankosport.com
¡¡ € ¡¡       P r o g r a m    8 0 3 2       ¡¡ € ¡¡

Written for PowerBasic DOS Version 3.50 (original conception, 1990's / last updated 2018)

Creates a visual and aural emulation of the Commodore Basic 4.0 power-on screen - plus a surprise!

Commodore Basic 4.0

Download compiled 8032.EXE program, stored in ZIP file 8032-Demo.zip . Once extracted,
it can be viewed using a DOS emulator such as Dosbox -OR- DosBox-X.  

Complete code shown below

frankosite2020.com »»»   Home Page    About Me    Contact Me

See Also »»»   Kube-0-Seven   PowerBasic Console Compiler Demonstration Program


' ==========================================================

 $Compile exe "8032.EXE"
 $CPU 80386

 REM  The question mark ? is used in place of PRINT
      (old BASIC command shortcut)

 SSTART:
 screen 0
 width 40:cls
 ? AT0(2,1);""
 Sleep .75

 JDQ=1
 JDZ=0
 DO
   INCR JDZ, 1
   Sound 1334,1
   Sound 1068,1
   Sound 1334,1
   Sound 1000,1
 LOOP Until (JDZ=7)
 sleep 1

 Color 10
 ? "*** Commodore Basic 4.0 ***"
 ? " 31743 Bytes Free"
 ? "Ready."

 color 26
 ? CHR$(219)
 ?
 sleep 5
 Call PET2001
 Color 15,0
 ?: ? "Press S (Repeat) or X (Exit)"

 KKode=1
 LLoopx:
 QX$=Inkey$
 IF UCASE$(QX$)="S" THEN KKode=3
 IF UCASE$(QX$)="X" THEN KKode=5
 IF KKode=1 THEN GOTO LLoopx
 IF KKode=3 THEN GOTO SStart

 IF KKode=5 Then
    CLS
    Color 7: ?: ?: ? "END"
 END IF

 END

' ===========================================================
 FUNCTION AT0(BYVAL row AS LONG, BYVAL col AS LONG) AS STRING
   LOCATE row, col, 0:' cursor invisible
 END FUNCTION

' ===========================================================
 SUB PET2001

 REM  The question mark ? is used in place of PRINT
      (old BASIC command shortcut)

 DIM Xsee (110)
 DIM XHear(10)

 Xhear(1)=1264
 XHear(2)=1891
 XHear(3)=1473
 XHear(4)=2100
 XHear(5)=1682

 ? AT0(11,1);"";

 Restore DeeColors

 JDF=99
 JDT=0
 DO
   INCR JDT, 1
   Read Xsee(JDT)
   IF Xsee(JDT)=99 THEN JDF=88
   IF JDT=96 THEN JDF=88
 Loop Until (JDT=96 or JDF=88)

 JDS=0
 DO
   JPJ$="!"
   INCR JDS,1
   IF JDS=97 THEN Exit Loop

   NXAA=1+(JDS MOD 5)
   ' JDS MOD 5 results in values of 0, 1, 2, 3 or 4

   Sound Xhear(NXAA),1.75
   Color Xsee(JDS)
   Putt$=CHR$(2)

   Select Case JDS
     Case 7,17,26,38,41,56,63,71,81,90
          Putt$=CHR$(1)
   End Select
   ? Putt$;" ";
   sleep .09

   JPJ$=Inkey$
   IF JPJ$=CHR$(0,63) THEN JDS=99:' F-Key 5 is CHR$(0,63)
 LOOP UNTIL (JDS>=96)
 ?
 IF JDS<100 THEN Delay 2.00

 DeeColors:
   data 15,11,12,10,06,14,21,15,13,04,02,11,14,03,10,06
   data 00,14,18,12,09,06,14,05,08,13,04,15,01,12,26,06
   data 14,05,15,13,04,02,11,14,07,10,10,07,15,14,02,12
   data 09,02,11,14,03,15,06,15,00,02,12,25,12,01,14,11
   data 15,11,12,10,06,14,21,15,13,04,02,11,14,03,10,06
   data 00,14,18,12,09,06,14,05,08,13,04,15,01,12,26,06
   data 99,99,99,99,99,99
 END SUB

' ===========================================================

Frank's Humble Abode at frankosite2020.com .... formerly known as frankosport.com
¡¡ € ¡¡       P r o g r a m    8 0 3 2       ¡¡ € ¡¡

Written for PowerBasic DOS Version 3.50 (original conception, 1990's / last updated 2018)

Creates a visual and aural emulation of the Commodore Basic 4.0 power-on screen - plus a surprise!

Commodore Basic 4.0

Download compiled 8032.EXE program, stored in ZIP file 8032-Demo.zip . Once extracted,
it can be viewed using a DOS emulator such as Dosbox -OR- DosBox-X.  

Complete code shown below

frankosite2020.com »»»   Home Page    About Me    Contact Me

See Also »»»   Kube-0-Seven   PowerBasic Console Compiler Demonstration Program


Go Back to the Top of This Page