home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / d7.amos / d7.amosSourceCode
AMOS Source Code  |  1990-10-14  |  3KB  |  123 lines
  1. '
  2. ' PC-Emulator
  3. '
  4. ' by Jurgen Valks
  5. '
  6. Shared X,Y,TELLER
  7. Proc INIT_SCHERM
  8. Proc BEGIN_TEKST
  9. Do 
  10.  Inc TELLER : Proc MESSAGE
  11.  Proc EMULATOR
  12. Loop 
  13. '
  14. Procedure INIT_SCHERM
  15.  Screen Open 0,320,200,16,Lowres
  16.  Palette $0,$0, : Hide On : Led On : Flash Off 
  17.  Screen Open 1,640,250,4,Hires
  18.  Screen Display 1,,35,,
  19.  Palette $80,$80,$F0
  20.  Locate 1,3
  21. End Proc
  22. '
  23. Procedure EMULATOR
  24.  Locate 1,Y Curs : Input "A>";I$
  25.  P$=Lower$(I$)
  26.  If P$="dir" Then Proc INHOUD_SCHIJF
  27.  If P$="cls" Then Proc CLEAR_SCREEN
  28.  If P$="dir/w" Then Proc INHOUD_SCHIJF2
  29.  If P$="b:" Then Proc NO_DRIVE
  30.  If P$="cd" Then Proc NO_DRIVE
  31.  If P$="load" Then Proc NO_LOAD
  32.  If P$="delete" Then Proc NO_DELETE
  33.  If P$="system" Then Proc EINDE
  34. End Proc
  35. '
  36. Procedure INHOUD_SCHIJF
  37.  Dir 
  38.  Print 
  39. End Proc
  40. '
  41. Procedure INHOUD_SCHIJF2
  42.  Dir/w 
  43.  Print 
  44. End Proc
  45. '
  46. Procedure CLEAR_SCREEN
  47.  Cls : Locate 1,3
  48. End Proc
  49. '
  50. Procedure MESSAGE
  51.  If TELLER=4
  52.   Locate 3,Y Curs-1 : Print " BLEEEEAAA, i'am transformed into a dirty 8 bits PC."
  53.  End If 
  54.  If TELLER=10
  55.   Locate 3,Y Curs-1 : Print " Snif snif, is there something burning ?"
  56.  End If 
  57.  If TELLER=12
  58.   Locate 3,Y Curs-1 : Print " O, it's just my VGA-FAT PIXEL card."
  59.  End If 
  60.  If TELLER=20
  61.   Locate 3,Y Curs-1 : Print " My processor speed is 3.4 Mhz, am i fast or what !"
  62.  End If 
  63.  If TELLER=25
  64.   Locate 3,Y Curs-1 : Print " This is so boring for me!"
  65.  End If 
  66.  If TELLER=35
  67.   Locate 3,Y Curs-1 : Print " ZZZZZZZZZZZZZZZZZZZZ....."
  68.  End If 
  69.  If TELLER=39
  70.   Locate 3,Y Curs-1 : Print " Please, type system will ya!"
  71.  End If 
  72.  If TELLER=44
  73.   Led Off 
  74.   Locate 3,Y Curs-1 : Print " Who turned the lights (power led) off ?"
  75.  End If 
  76.  If TELLER=50
  77.   Locate 3,Y Curs-1 : Print " I wish a was a Amiga....."
  78.  End If 
  79.  If TELLER=58
  80.   Locate 3,Y Curs-1 : Print " Did you see Word Perfect version 9009.4 ?"
  81.  End If 
  82.  If TELLER=60
  83.   Locate 3,Y Curs-1 : Print " I did! You can now load a file within 1 day !"
  84.  End If 
  85.  If TELLER=70
  86.   Locate 3,Y Curs-1 : Print " I played chess against a pocket calculator...."
  87.  End If 
  88.  If TELLER=72
  89.   Locate 3,Y Curs-1 : Print " and he won $#!@..."
  90.  End If 
  91. End Proc
  92. '
  93. Procedure BEGIN_TEKST
  94.  Cls 
  95.  Locate 1,3 : Print "MS-DOS version 4.1 "
  96.  Locate 19,3 : Wait 100 : Print "...installed"
  97.  Locate 1,4 : Print "VGA-FAT-PIXEL card "
  98.  Locate 19,4 : Wait 100 : Print "...installed"
  99.  For T=0 To 100
  100.   Locate 1,5 : Print "Memory controll : ";T
  101.   Wait 2
  102.  Next T
  103.  Print 
  104. End Proc
  105. '
  106. Procedure NO_DRIVE
  107.  Locate 3,Y Curs : Print " I can use only one drive.."
  108. End Proc
  109. '
  110. Procedure NO_DELETE
  111.  Locate 3,Y Curs : Print " Sorry, i'am to tired.."
  112. End Proc
  113. '
  114. Procedure NO_LOAD
  115.  Locate 3,Y Curs : Print " I need more memory."
  116. End Proc
  117. '
  118. Procedure EINDE
  119.  Locate 3,Y Curs : Print " Bye bye !"
  120.  Wait 10
  121.  Screen Close 1
  122.  Run "df0:menu.amos"
  123. End Proc